易截截图软件、单文件、免安装、纯绿色、仅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與VB.NET區別

VB與VB.NET區別是什么?
除了语法差不多,几乎都是区别。

作用主要區別是什么呢?

用不用有 .net框架


引用
用不用有 .net框架


.net可否理解為Ł ......

VB文件操作

Private Sub Command1_Click()

    Dim m As Integer    '接受文本框一的数值
    Dim n As Integer  '接受文本框二的数值
    Dim k As Integ ......

怎样保存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的 下拉菜单里去了 ......

vb adodb.stream write写入网页代码为utf8编码的问题

从网页通过inet控件的Inet1.GetChunk读取其代码,然后想转换为汉字,转换代码如下
Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim strRecText As String
    Dim st ......

VB窗体的属性设置代码

这段程序中
Begin VB.Forms_frmmain    BorderStyle = 1 'fixed single
    Caption = "速算24"
    clientHeight = 6375
    clientLeft = 154 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号