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