サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 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
|
