未找到用户定义类型，这怎么改？

来源：百度知道编辑：UC知道时间：2024/06/18 05:10:26

程序源码含以下部分：

标准模块(mTimer):
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Public TimerColl As New VBA.Collection

Public Sub TimeProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
Dim Timer As Timer, lpTimer As Long
lpTimer = TimerColl("ID:" & idEvent)
CopyMemory Timer, lpTimer, 4&
Timer.PulseTimer
CopyMemory Timer, 0&, 4&
End Sub

类模块(Timer):
Option Explicit

Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

Private m_TimerID As Long
Private m_Interval As Long
Private m_Enabled

这个代码你复制好了以后，把模块的名称改为“mTimer”，类模块的名字改为“timer”，然后，窗体中的代码修改成这样：
Private WithEvents Timer1 As timer
Private Sub Form_Load()
Set Timer1 = New timer '这里改一下
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Debug.Print Now
End Sub
注意打开你的立即窗口，运行程序，就能看到效果了。我这里测试成功。

用户定义类型未定义请问下面我（用户）定义的类型怎么定义呢？不然运行的话，会提示“用户定义类型未定义”！ VB用户定义类型未定义 vb用户定义类型未定义? 出现用户定义类型未定义 VB提示用户定义类型没有定义 VB中子程序,函数,用户定义类型在哪儿定义? 怎么在同一电脑不同用户上找到未登陆用户的桌面我在vb中使用WSAStartup时，显示用户定义的类型没有定义，这是什么回事？快速全盘文件查找的VB源代码如下,编译用户定义类型未通过,不知道如何修改,请赐教.谢谢