易截截图软件、单文件、免安装、纯绿色、仅160KB

VB如何判断一个控件是否文本框

VB如何判断一个控件是否文本框,是否是组合框?
找到答案,结贴

TypeOf


接分.

VB code:

dim o
for each o in controls
debug.print typename(o)
next



典型的倒分贴!

5楼正解!

If TypeOf 可以判断传入过程的控件是否为一文本框。

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



引用
典型的倒分贴!

我得顶罪了

typename


相关问答:

VB中有无TApplication对应类型

我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好,用instance不是就可以了&# ......

vb如何调用Illustrator(此前Illustrator未启动)?

请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

vb 5大问题

1.用Shell "regsvr32  " & App.Path & "\abcdefghijklmnopqrstuvwxyz.ocx"注册控件,怎么不显示注册成功对话框?
2.修改d:\12345.txt属性->只读,非只读,隐藏,非隐藏
3 ......

怎样保存VB的combobox的list值?

form1 中,我在Text1里输入1111111111

Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1
End Sub

点Command1,就写到Combo1的 下拉菜单里去了 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号