VBA控件教程:Thing 对象的使用

2015-06-09 23:29 阅读 72 次 评论关闭

添加以下代码到窗体模块的声明段:

Option Explicit
Private mth As Thing

变量 mth 保存了对一个 Thing 对象的引用,该对象是在窗体的 Load 事件中产生的。将以下代码分别添加到 Form_Load 事件过程及四个按钮的 Click 事件过程中。

Private Sub Form_Load()
   Set mth = New Thing
   mth.Name = InputBox("Enter a name for the Thing")
End Sub

'按钮“显示该 ThingPrivate Sub Command1_Click()
   MsgBox "Name: " & mth.Name & vbCrLf _
   & "Created: " & mth.Created, , "Form Thing"
End Sub

'按钮“颠倒该 Thing 的名称”
Private Sub Command2_Click()
   mth.ReverseName
   '单击“显示该 ThingCommand1.Value = True
End Sub

'按钮“创建新的 ThingPrivate Sub Command3_Click()
   Set mth = New Thing
   mth.Name = InputBox( _
   "Enter a name for the new Thing")
End Sub

'按钮“临时的 Thing”。
Private Sub Command4_Click()
   Dim thTemp As New Thing
   thTemp.Name = InputBox( _
   "Enter a name for the Temporary Thing")
End Sub
版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:VBA控件教程:Thing 对象的使用 | 猎微网
分类:VBA 标签:, , ,

评论已关闭!