| |
とりあえず下記のような方法で可能です。
オプショングループの上にテキストボックスを重ねて配置して下記の様に設定します。
コントロールソース =IIf([txtkubun] In (1,3,5),"","gggggg")
使用可能 いいえ
編集ロック はい
背景スタイル 透明
フォント名 Webdings
前景色 背景色と同じ色
フォントサイズ 72
これで、可視、不可視を切り替えることができます。
ただし、使用可能 いいえ になってますので、オプショングループをクリックすることが出来なくなります。
そこで、さらにその上にオプションボタンとそのラベルに重なるようにコマンドボタンを２つ配します。
例えば、フレーム1 に オプション1(1) オプション2(2) と配置してあるとして、
()内はオプション値
オプション1 に重ねて配置するコマンドボタンを下記のように設定します。
透明 はい
タブストップ いいえ
クリック時のイベントプロシージャ
Private Sub コマンド1_Click()
Me.フレーム1.SetFocus
Me.フレーム1 = 1
End Sub
オプション2に重ねた透明ボタンを同様に設定して
Private Sub コマンド1_Click()
Me.フレーム1.SetFocus
Me.フレーム1 = 2
End Sub
|
|
hatena
- 12/10/28(日) 16:13 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
