1.在用Form.Print "XXXX" 向窗体上直接输出字符时有用
2.用TypeName(VarName 或 ControlName)可以返回变量或控件的类型
3.尚在查找中,有消息一定告之
2.用TypeName(VarName 或 ControlName)可以返回变量或控件的类型
3.尚在查找中,有消息一定告之
解决方案 »
- 如何判断数组为变体数组?
- 如何在VB中用Print输出垂直方向的数字
- 用installsheild如何打包带sqlserver数据库的vb程序
- 怎么样才能把一个DOS程序窗口化
- 请问我用Picturebox的Pset方法画的一个图形,有什么方法保存为一个图片文件吗?
- 怎样把文本框的 PasswordChar 属性设置成像“●”这样的特殊字符?
- mshflexgrid 合并標題行給我看看問題出現在哪里
- 高手请进(优化代码!!进,销,存系统)
- 我可以这样通过ODBC连接数据库吗?
- 谁有webbrowser的完整例子或所有参数的说明??
- DataReport只执行一次查询吗?
- 用winsock实现telnet
Private Sub Command1_Click()'立体字效果
Me.Font = "Times New Roman"
Me.FontSize = 20
Me.CurrentX = 100
Me.CurrentY = 50
Me.ForeColor = vbBlack
Me.Print "Transaction"
Me.ForeColor = vbWhite
Me.CurrentX = 70
Me.CurrentY = 30
Me.Print "Transaction"
Me.Print Me.TextHeight("得到") '得到字体高度
Me.Print Me.TextWidth("得到") '得到字体宽度
End SubQ2 Answer: TypeOf 或者 TypeName
Sub ControlProcessor(MyControl As Control)
If TypeOf MyControl Is CommandButton Then
Debug.Print "You passed in a " & TypeName(MyControl)
ElseIf TypeOf MyControl Is CheckBox Then
Debug.Print "You passed in a " & TypeName(MyControl)
ElseIf TypeOf MyControl Is TextBox Then
Debug.Print "You passed in a " & TypeName(MyControl)
End If
End Sub
这么说就是自动的罗!如果我在日文系统下,资源文件又没有日文提示信息(没做),那此时抓什么语言的,(有没有缺省的设计---)