fokus auf anderen frame
Verfasst: Fr, 13.03.2009 10:46
hallo,
wie bekomme ich den fokus mit basic von einem geöffneten und aktiven datenbankbrowser auf ein calc-dokument. nur unter dieser voraussetzung kann ich den datenbankbrowser mit dem u.g. code schließen.
freue mich auf eine antwort.
wie bekomme ich den fokus mit basic von einem geöffneten und aktiven datenbankbrowser auf ein calc-dokument. nur unter dieser voraussetzung kann ich den datenbankbrowser mit dem u.g. code schließen.
freue mich auf eine antwort.
Code: Alles auswählen
sub CloseDBBrowser
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$4"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ViewDataSourceBrowser"
args2(0).Value = false
dispatcher.executeDispatch(document, ".uno:ViewDataSourceBrowser", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ViewDataSourceBrowser"
args3(0).Value = false
dispatcher.executeDispatch(document, ".uno:ViewDataSourceBrowser", "", 0, args3())
end sub