- 102 名前：デフォルトの名無しさん mailto:sage [2010/04/23(金) 12:03:27 ]
- 教えてください。
WinXP SP3 office2000を使っています。
ボタン1とボタン2があり、どちらのボタンを押しても ボタン1の色が変わるようにしたいのです。
以下のようにして記述したのですが、色が変わりません。私は何か勘違いしているのでしょうか?
Private Sub CommandButton1_Click()
CommandButton1.BackColor = QBColor(10) ' ボタン1のボタン色を変える 実行される
Call hoge1 ' 関数1を実行
CommandButton1.BackColor = QBColor(15) ' ボタン1のボタン色を戻す 実行される
End Sub
Private Sub CommandButton2_Click()
CommandButton1.BackColor = QBColor(10) ' ボタン1のボタン色を変える 実行されない
Call hoge2 ' 関数2を実行
CommandButton1.BackColor = QBColor(15) ' ボタン1のボタン色を戻す 実行されない
End Sub
宜しくお願いします。
|
 |
