发布网友
共2个回答
热心网友
Private Type PID
ParP As Single '比例系数
ParI As Single '积分系数
ParD As Single '微分系数
End Type
Private Sub Form_Load()
Dim a As PID
a.ParD = 1.1
End Sub
或则把
Public Type PID
ParP As Single '比例系数
ParI As Single '积分系数
ParD As Single '微分系数
end type
这段放在 mole1.bas 里
热心网友
Private Type Record ' 定义用户自定义数据类型。
ID As Integer
Name As String * 20
End Type
Private Sub Form_Load()
Dim MyRecord As Record, RecordNumber
End Sub