|
フォームのチェックボックスなどの情報を一時的に保存をするためにPublic変数に
保存しようと考えたのですがうまくいきません。どうか、お力添えを
とりあえず自分のやったものをのせます。
Frame1のなかにFrame2があるのですが、このFrame2を消すとうまくいきます。
Frame2は必要だしFrame2の中のOputionButtonの情報も一緒に保存したいのですが。
(モジュール1)
public HenInputControls(50)
public HenControls
(フォーム1)
Private Sub UserForm_Activate()
Dim i As Byte
i = 0
If HenInputControls(0) <> "" Then
For Each HenControls In Frame1.Controls
HenControls.Value = HenInputControls(i)
i = i + 1
Next
End If
End Sub
Private Sub CommandButton4_Click()(フォーム1上のコマンドボタン)情報保存
Dim i As Byte
i = 0
For Each HenControls In Frame1.Controls
HenInputControls(i) = HenControls.value
i = i + 1
Next
End Sub
|
|