投稿日 | : 2003/01/30(Thu) 22:17 |
投稿者 | : Say |
Eメール | : |
URL | : |
タイトル | : Re: オプションボタンが1つだけ場合の制御 |
たとえばこんなかんじ
Option Explicit
Dim blnFlg As Boolean
Private Sub Form_Load()
blnFlg = Not (blnFlg)
Option1.Value = blnFlg
End Sub
Private Sub Option1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
blnFlg = Not (blnFlg)
Option1.Value = blnFlg
End Sub