|
オプションボタン4つ分けています。
クリックすると語尾をつけるようにします。
テキストボックスも表示しますが、間違えてクリックしても
他のオプションボタンをクリックしたら消えませんでした。
このままで実行したらダブりしてしまった。
キャノン株式会社 様 御中 様と表示してしまう。
どうしたらいい方法がありましたら教えていただけませんか?
よろしくお願いします。
Private Sub OB1_Click()
If CheckBox1 = False Then
TextB2 = KokyakuName + " 様"
Else
TextBox1 = TextBox1 + " 様"
End If
End Sub
Private Sub OB2_Click()
If CheckBox1 = False Then
TextB2 = KokyakuName + " 御中"
Else
TextBox1 = TextBox1 + " 御中"
End If
End Sub
Private Sub OB3_Click()
If CheckBox1 = False Then
TextB2 = KokyakuName + " 殿"
Else
TextBox1 = TextBox1 + " 殿"
End If
End Sub
Private Sub OB4_Click()
If CheckBox1 = False Then
TextB2 = KokyakuName + " 全体"
Else
TextBox1 = TextBox1 + " 全体"
End If
End Sub
|
|