private Type Size
cx As Long
cy As Long
End Type
Private Sub Command1_Click()
Dim i As Integer
dim g_szvidsize as size
g_szvidsize.cx=640
g_szvidsize.cy=480
i = VCAConnectDevice(g_ncard, True, g_hwnd, g_szvidsize, 3, g_nframerate)
end sub
|
V
提示“用户定义类型不能用”