1.在用Form.Print "XXXX" 向窗体上直接输出字符时有用
2.用TypeName(VarName 或 ControlName)可以返回变量或控件的类型
3.尚在查找中,有消息一定告之

解决方案 »

  1.   

    Q1 Answer: 测试如下代码:
    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
      

  2.   

    vb程序在读取资源文件时会向系统调用GetSystemDefaultLangID这个函数,它根据返回的数值就知道是什么语言的系统了,如返回2052就是gb的。
      

  3.   

    prefix:
    这么说就是自动的罗!如果我在日文系统下,资源文件又没有日文提示信息(没做),那此时抓什么语言的,(有没有缺省的设计---)