- 日時: 2009/12/27 15:20
- 名前: 花ちゃん
- ***********************************************************************************
* カテゴリー:[その他コントロール][][] * * キーワード:,,,,, * ***********************************************************************************
元質問:オプションボタンが1つだけ場合の制御 - たたみ 2003/01/30-20:47 No.2482
----------------------------------------------------------------------------- Re: オプションボタンが1つだけ場合の制御 - Say 2003/01/30-22:17 No.2486 ----------------------------------------------------------------------------- たとえばこんなかんじ
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
|