# If TypeOf ... Is ..Then

Posted by 纪文和 on May 14, 1999 at 23:56:57:

In Reply to: 错了错了,你们误会我的意思了 posted by jonnycjc on May 14, 1999 at 22:59:43:

: 我是要能够自动把form上的物件读出来之后取得
: 物件的类别及名称,这样一来就可以将表单上的
: 物件做其他的处理,例如可以清除所有TextBox.text
: 的内容,这不是很好用吗?

是要这个吗 ?
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

Follow Ups:

- 那这样跟二维阵列好像没关系ㄝ :P (无内文) 小翰 00:12:23 5/15/99 (1)
  - 谢谢你们的帮助,我把它写出来了,顺便供你们参考 Jonny 00:53:28 5/16/99 (0)