易截截图软件、单文件、免安装、纯绿色、仅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文件操作

Private Sub Command1_Click()

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

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

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

VB/VB.Net如何实现用Label在不同位置移动的效果?

还记得上微软网站更新系统补丁时,每当勾选一个升级项时,在当前勾选的位置会出现一个带文字的黑框平滑的飞向已选数量的位置上并加1,当取消勾选时以相反的方向从已选数量的位置上飞回并减1,这个效果动感有个性,现 ......

大家帮忙看看VB中计算问题

大家帮忙看下,在VB中有个变量str=0.00016如何计算让它变成是1.6*10的4次方
还有个问题是关于数据库查询的
在ACCESS中如何查询时,判断字段1是否为空如果是则查询字段2
在SQL中应该是select case 字段1 isn ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号