- サマリ: コントロールへのフォーカス
- 環境: Calc
- 状態: 解決
- 投稿者: 七志乃権兵衛?
- 投稿日: 2008-07-29 (火) 09:08:45
質問 
コントロール追加の件ではありがとうございました。
家計簿の費目列など、固定値を使用する項目ににセルカーソルが移動した時にそのセルの位置にリストボックスを移動させて、選択した値を同じ位置のセルに入力しようと思っています。
フォーカスをフォームからセルに移動させる手段はこのサイトにあったのですが、フォームにフォーカスする方法が分かりません。
ネットで調べてみて
oDrawPage.queryInterface("com.sun.star.accessibility.XAccessibleComponent").grabFocus()
のようにしてみたのですが上手くいきません。
どなたか良かったらアドバイスお願いします。
回答
- フォームコントロールへのフォーカスもダイアログコントロールへのフォーカス移動と同じように行えます。
Sub focus_form_control_1
oDoc = ThisComponent
oDrawPage = oDoc.getDrawPages().getByIndex(0)
oForm = oDrawPage.getForms().getByIndex(0)
oController = oDoc.getCurrentController()
oListBox = oForm.getByName("ListBox")
oListControl = oController.getControl(oListBox)
oListControl.setFocus()
'mri oListControl
End Sub
Basic を使っているのであれば queryInterface はまったく必要ありません。
- お返事ありがとうございます。無事にフォーム作成後にフォーカスできました。
続けて申し訳ないのですが、フォームを登録時に、フォームにXKeyListenerを追加し、
フォームにフォーカス中、エンターキーの入力があったら
シートにフォーカスを戻すようにしたいのですが、上手くいきません。
oController = ThisComponent.currentController
oDrawPage = oController.ActiveSheet.DrawPage
oDrawPage.add(g_oListBox)
中略
with oListBox
.Dropdown = True
.StringItemList = Array("ABC", "123")
end with
aEvent = CreateUnoStruct("com.sun.star.script.ScriptEventDescriptor")
With aEvent
.AddListenerParam = "com.sun.star.awt.KeyEvent"
.EventMethod = "keyPressed"
.ListenerType = "XKeyListener"
.ScriptCode = "documen:Standard.HouseKeeping_Book.zListBox_keyPressed"
.ScriptType = "StarBasic"
End With
oForm = oDrawPage.Forms.getByIndex(0)
oForm.registerScriptEvent(1, aEvent)
oListControl = oController.getControl(oListBox)
oListControl.setFocus()
'--------------------------------------------------------------------------------------------------
Sub zListBox_keyPressed(oKeyEvent)
zListBox_keyPressed = false
If oKeyEvent.keyCode = com.sun.star.awt.Key.RETURN Then
zListBox_keyPressed = true
ThisComponent.currentController.Frame.ComponentWindow.setFocus()
End If
End Sub
よろしければアドバイスお願いします。
- とりあえず、ScriptEventDescriptor の設定が間違っているようです。
ScriptCode の指定は vnd.sun.star.script: プロトコルを使用して指定します。OOoBasic/Generic/ScriptingURL
また、その場合 ScriptType が StarBasic では動かないので "Script" と指定します。
- 以下のようにしてみましたが、呼び出されていないようです。
.ScriptCode = "vnd.sun.star.script:Standard.HouseKeeping_Book.zListBox_keyPressed?language=Basic&location=document"
registerScriptEventで割り当てるイベントエントリが違うのかと思い、最初の引数にゼロを設定
したところ、ダイアログが出て「No script」と記載されていました。
追加するタイミングが悪いのでしょうか？
- 私のところでは問題なく動作します。registerScriptEvent メソッドで指定する最初の引数はフォームの IndexContainer 中でのインデックスと同じになります。あるコントロールモデルのインデックスを取得するにはコンテナから getByIndex メソッドで一つづつ取得して比較する必要があります。NameContainer の名前リストと同じ順になることがありますが、フォームでコントロール名が一意に定まらないので使えません。
最初のコントロールであれば registerScriptEvent メソッドのインデックス指定は 0 になるはずです。No Script エラーが示すように URL 指定が間違っているのではないかと…。
zListBox_keyPressed = false
としているようですが、キーイベントはハンドラと異なり返り値は void です。値を返す必要はありませんし、イベントを消費することもできません。(Sub だと値は返せませんが)
感想，コメント，メモ
