フォーム上に複数のボタンを配置して(ボタンA、ボタンB…)、
それぞれのボタンのイベントに同じマクロを登録し、
押されたボタンによって動作を切り替る下記のようなマクロをイメージしています。
sub 押されたボタン(oEv)
oButtonName = ボタンの名前を取得
Select Case oButtonName
Case ボタンA
・・・・・
case ボタンB
・・・・・
case
・
・
・
End Select
end if
色々調べているのですが、
押されたボタンの名前を取得する方法を見つけることができません。
押されたボタンの名前の取得は、どのようにするのでしょうか。
ご教授いただけますよう、よろしくお願い致します。
OOo-3.4.0/OS-Win7 が環境です。
【解決】(フォーム上にある)押されたボタンの名前の取得
【解決】(フォーム上にある)押されたボタンの名前の取得
最後に編集したユーザー 四間飛車 [ 10月 2, 2012, 11:16 pm ], 累計 1 回
OOo???3.4.0
OS???Win???
OS???Win???
Re: (フォーム上にある)押されたボタンの名前の取得
押されたボタンの”名前”の取得ができるかどうかは不明ですが、
”ラベル”は取得できましたので、こちらで解決にしたいと思います。
それぞれのボタンのタイトルに、「ボタンA」「ボタンB」を入れて、
それぞれのボタンのイベント(マウスボタンを離した時)に下記のマクロを割り当てると、
意図した動作をすることが分かりました。
sub pushButton(oEv)
oButtonLabel = oEv.Source.getModel.Label
Select Case oButtonLabel
Case "ボタンA"
MsgBox "ボタンAが押されました"
case "ボタンB"
MsgBox "ボタンBが押されました"
End Select
end sub
お騒がせ致しました。
そして、ありがとうございました。
”ラベル”は取得できましたので、こちらで解決にしたいと思います。
それぞれのボタンのタイトルに、「ボタンA」「ボタンB」を入れて、
それぞれのボタンのイベント(マウスボタンを離した時)に下記のマクロを割り当てると、
意図した動作をすることが分かりました。
sub pushButton(oEv)
oButtonLabel = oEv.Source.getModel.Label
Select Case oButtonLabel
Case "ボタンA"
MsgBox "ボタンAが押されました"
case "ボタンB"
MsgBox "ボタンBが押されました"
End Select
end sub
お騒がせ致しました。
そして、ありがとうございました。
OOo???3.4.0
OS???Win???
OS???Win???