ヘルププロバイダーを設置する 【 ヘルププロバイダーを設置する 】【注意書き】●VB.NET を使っているものとします。●動作環境は、Windows XX を使用しているとします。.NET でも、ヘルププロバイダーを設置することが可能です。この機能を使えば、簡単に、ポップアップで表示されるサポート機能を備えさせたアプリケーションが作成できます。フォームに次の様なコードを記述します-----------VB.NETコーディングここから-------------------１．フォームに、テキストボックスコントロール、 ボタンコントロール を配置します。 下記は、デフォルトのオブジェクトの名前と配置を示しています。 ┏━━━━━━━━┓ ┃TextBox1 ┃ ┗━━━━━━━━┛ ┏━━━━━━━━┓ ┃Button1 ┃ ┗━━━━━━━━┛２．ボタンコントロールの Button1 text プロパティに「ＯＫ」と記述します。 ※説明用のためです。必須ではありません。 ┏━━━━━━━━┓ ┃TextBox1 ┃ ┗━━━━━━━━┛ ┏━━━━━━━━┓ ┃ＯＫ ┃ ┗━━━━━━━━┛３．フォームをダブルクリックして、 フォームロードイベントのコード編集を開始して、 次のコードを記述します。 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Me.MinimizeBox = False Me.MaximizeBox = False Me.HelpButton = True With HelpProvider1 .SetHelpString(TextBox1, "半角で数値を入力してね") .SetHelpString(Button1, "押すとあなたの数値を表示します") End With End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click If Not IsNumeric(TextBox1.Text) Then MsgBox("半角で数字をお願い") TextBox1.Focus() TextBox1.SelectAll() Exit Sub End If MsgBox("ありがとう " & TextBox1.Text & " だね") End Sub４．ビルドして実行します。５．フォームに右上に表示された ヘルプボタン「？」を押します。６．アローカーソルと？マークがドッキングしたマウスカーソル が表示されます。７．そのままマウスカーソルをテキストボックスの上に移動し テキストボックスをクリックします８．ヘルプ情報 ”半角で数値を入力してね” が ポップアップ表示されることが確認できます。-----------VB.NETコーディングここまで-------------------本サンプルでは、最小化ボタン、最大化ボタンをまず無効化し、 Me.MinimizeBox = False Me.MaximizeBox = Falseヘルプボタンを有効にしています Me.HelpButton = Trueまた、テキストボックスにフォーカスがある場合にＦ１キーを押すことでも、同様の動作を行います。 本サンプルでは、 ヘルプ情報 ”半角で数値を入力してね” が ポップアップ表示されることが確認できます。
Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。
