チェックボックスの値の取得と代入

フォーム上のチェックボックスの値を取得する方法について述べる。
  
チェックボックス・コントロールがチェックされている状態か否かを取得する
には、State プロパティを用いる。
  
サンプルコードで示す為、下図のフォームを用意する :

  

フォームにはチェックボックス「Checkbox1」があり、コマンドボタンをクリック

すると、メッセージボックスに、チェックボックスの値 (=状態) を表示するサン

プルコードを以下に記す。テキストボックスの場合と同様、フォームを開く

プロシージャと、ボタンクリック時の処理を同一モジュールに記述した :

  
Private objDialog1 As Object

  

Sub Main

       DialogLibraries.LoadLibrary("Standard")

       objDialog1 = CreateUnoDialog(DialogLibraries.Standard.Dialog1)

       objDialog1.execute()

End Sub

  

Sub CommandButton1Click()

       Dim objCheckBox1 As Object

       objCheckBox1 = objDialog1.getControl("CheckBox1")

       Msgbox("Checkbox1の状態は : " & objCheckbox1.State)

End Sub

  

チェックボックスにチェックを入れない状態でボタンをクリックすると、下の

メッセージボックスが表示される :

  

また、チェックボックスにチェックを入れてボタンをクリックした場合は
下のメッセージボックスが表示される :

  
サンプルコードにもあるように、
  
   Checkbox 変数 = Form 変数.getControl(Textbox 名)
   整数型変数 =  Checkbox 変数.State
  
と記述することによって、チェックボックスの値を取得することができる。
尚、チェックボックスの状態を表す整数値は下記の通り :
  
   0 : チェックされていない状態
   1 : チェックされた状態
  
尚、チェックボックスの状態を設定する為には
  
   Checkbox 変数.State = 0、または、1の整数値