关于VB结构体的问题

Question

如果定义一个结构体，然后结构体本身是另一个函数的一项参数，那么另一个函数如果设置参数具体值，得怎么做呢？
如：type mot
     a as byte 
      b as byte 
   end type   t= kkk (dw,dy,mot)那么结构体怎么赋值呢

Answer 1

我的意思是把结构体mot的值a和b，传到函数t里

Answer 2

给你举个例子Option ExplicitPrivate Type POINTAPI
    x As Long
    y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Sub Form_Load()
    Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
    Dim MousePoint As POINTAPI
    Call GetCursorPos(MousePoint)
    Label1.Caption = "(x=" & MousePoint.x & ",y=" & MousePoint.y & ")"
End Sub

Answer 3

简单一点就是：
Private Type MOT
a As Byte
b As Byte
End TypeDim xMot As MOT
xMot.a = CByte(a)
xMot.b = CByte(b)
...
...
...
t = kkk(dw, dy, xMot)