hatena chips

上記の広告は１ヶ月以上更新のないブログに表示されています。新しい記事を書く事で広告が消せます。

|

1. EDIT
2. --/--/--(--) --:--:--
4. | ▲PageTop▲

◆旧ブログの記事を移動しました。

年配の方をユーザーとするシステムを作るとき、コントロールのサイズとかフォントとかを大きくして見やすいインタフェイスを作る必用があります。テキストボックスとかコマンドボタンは簡単にできるのですが、チェックボックスはサイズを大きくしてもボックス自体の大きさは変わりません。

そこで、テキストボックスをチェックボックス風にみせて、お好みのサイズにするTipsを紹介します。
レポートでも同様の方法で大きく見せることができます。

難易度:

フォーム上にテキストボックスを配置し、プロパティを下記のように設定します。

プロパティ	設定値
名前	txtCheck
タブストップ	いいえ
書式	;¥b
フォント名	Marlett

そのテキストボックスの上にピッタリと重なるようにコマンドボタンを配置します。(名前は cmdCheck)
連結したラベルがある場合は、そのラベルも覆うように配置するといいでしょう。
透明プロパティを「はい」にします。

コマンドボタン cmdCheck のイベントプロシージャを下記のように記述します。

'クリック時 Private Sub cmdCheck_Click() Me.txtCheck = Not Me.txtCheck Or IsNull(Me.txtCheck) End Sub 'フォーカス取得時 Private Sub cmdCheck_Enter() Me.txtCheck.Controls(0).BorderStyle = 4 End Sub 'フォーカス喪失時 Private Sub cmdCheck_Exit(Cancel As Integer) Me.txtCheck.Controls(0).BorderStyle = 0 End Sub

連結したラベルが無いときは、フォーカス取得時とフォーカス喪失時のプロシージャは必要ないです。

サンプルには、他にも × 印や リアルなチェック のチェックボックス風コントロールもありますので参照ください。

また、レポートに配置するときは、テキストボックスのみで同様に設定します。

今回のTipsのポイントは、Marlettフォントと、コマンドボタンの「透明」プロパティですね。

下記リンクからサンプル MDB をダウンロードできます。
FrmBigCheckbox_07.zip (Access 2007 形式 - 21kb)
FrmBigCheckbox.zip (Access 2002-2003 形式 - 16kb)
FrmBigCheckbox2k.zip (Access 2000 形式 - 15kb)

ツイート

関連してそうな記事

テーマ:ソフトウェア開発 | ジャンル:コンピュータ | タグ: Access VBA Form チェックボックス サイズ

1. EDIT
2. 2009/04/02(木) 00:18:00
| トラックバック:0
3. | コメント:0
4. | ▲PageTop▲