VB复选框控件在按键精灵中返回值不变什么原因
Option ExplicitType ControlData
Name As String
Value As String
End Type
Public FormSizeCX As Long, FormSizeCY As Long
Public Function GetControlData() As Collection
Set GetControlData = ControlDataCollection
End Function
Private Sub UserControl_Initialize()
FormSizeCX = Width
FormSizeCY = Height
OnInitialize
End Sub
Private Sub OnInitialize()
End Sub
Public Sub OnSave()
ClearControlData
SaveControlData fxk1.Name, fxk1
End Sub
Public Sub OnLoad()
fxk1 = LoadControlData(fxk1.Name)
End Sub
