求助关于实战与精粹技巧16的运行

sleeping_dogs

Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Public itimerid As Long, timex As Single
Public Sub ontimer()
  timex = timex + 0.1
  UserForm1.TextBox = Format(timex, "0.0")
End Sub
Private Sub cmdstart_click()
timex = 0
  itimerid = SetTimer(0, 0, 100, AddressOf ontimer)
  
End Sub
Private Sub cmdstop_click()
Call KillTimer(0, itimerid)
End Sub

书本例子是关于制作数字秒表，按书上的代码输入进去，然后运行不成功，报错UserForm1没有TextBox1这个数据成员。这是第一个问题
第二个问题是，这个例子我不明白显示的窗体对象到底是VBA的userform对象产生的，还是系统api函数SETTimer产生的。新手，刚看完基本语法，很多东西还在摸索，求高手指教。

zpy2

，报错UserForm1没有TextBox1这个数据成员。这是第一个问题
应该 有一个 name是 Textbox1的文本框 ，书上说了吧

第二个问题是，这个例子我不明白显示的窗体对象到底是VBA的userform对象产生的，还是系统api函数SETTimer产生的。新手，刚看完基本语法，
窗体对象是 userform setTimer是时钟

sleeping_dogs

zpy2 发表于 2019-6-7 20:26
，报错UserForm1没有TextBox1这个数据成员。这是第一个问题
应该 有一个 name是 Textbox1的文本框 ，书上 ...

意思是先设计好这样一个userform1，然后再编写上面的代码操控这个玩意得意思么。

zpy2

sleeping_dogs 发表于 2019-6-7 23:56
意思是先设计好这样一个userform1，然后再编写上面的代码操控这个玩意得意思么。

对的，先要插入 userform 以及textbox,然后才是代码。

sleeping_dogs

zpy2 发表于 2019-6-8 05:08
对的，先要插入 userform 以及textbox,然后才是代码。

感激高手。新手很多处于蒙圈状态