Linux.com publicaron un tutorial para la generacion de GUIs. El disenio de
OOoBasic asi como el diseniador grafico entre los widgets.
http://www.linux.com/article.pl?sid=07/03/14/1911247
Incluye pedazos de codigos como un buscador de Google y de Wikipedia.
El resulto final:
Sub LookupWithGUI()
Dim Dialog As Object, Library As Object
Dim TheDialog As Object, DialogField As Object
Dim exitOK As String, CurrentItemPos As Integer
URLArray=Array("http://en.wikipedia.org/wiki/",_
"http://dictionary.cambridge.org/results.asp?searchword=",_
"http://www.google.com/search?q=define%3A";)
ThisDoc=ThisComponent
LookupWord=ThisDoc.CurrentController.getViewCursor
exitOK=com.sun.star.ui.dialogs.ExecutableDialogResults.OK
Library=DialogLibraries.GetByName("GUI")
TheDialog=Library.GetByName("Dialog1")
Dialog=CreateUnoDialog(TheDialog)
DialogField=Dialog.GetControl("ListBox1")
DialogField.SelectItemPos(1, True)
If Dialog.Execute=exitOK Then
CurrentItemPos=DialogField.SelectedItemPos
Shell("C:\Program Files\Mozilla Firefox\firefox.exe",1,
URLArray(CurrentItemPos) & LookupWord.String)
End If
Dialog.Dispose
End Sub
--
Alexandro Colorado
OpenOffice.org
Community Contact // Mexico
http://www.openoffice.org
My Website: http://www.alexandrocolorado.com
MyBlog: http://www.alexandrocolorado.com/blog
Jabber: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
