[Solved] I can't add data into ListBox in runtime

[zenira]

Hi friends
I want to add data into ListBox from TextBox in a dialog box but I can not

Code: Select all   Expand viewCollapse view

Sub Main
DialogLibraries.LoadLibrary("Standard")
oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1 )
oDlg.execute()
End Sub
Sub AddButton
dim textbox,listbox as object
textbox=oDlg.getControl(TextField1)
listbox=oDlg.getControl(ListBox1)
listbox.additem(textbox.Text, 0) REM  this does not work
End Sub


when i add this controls on document they are work but they dont work on dialog box
thanks for your help

[JeJe]

textbox.model.text

[zenira]

it does not work

[JeJe]

You also need to put quotes round the name of the controls

Code: Select all   Expand viewCollapse view

dim textbox,listbox as object
textbox=oDlg.getControl("TextField1")
listbox=oDlg.getControl("ListBox1")
listbox.additem(textbox.model.Text, 0)


[zenira]

I did. But it does not work

[Villeroy]

Works for me.

[JeJe]

Works for me as well. I've attached a writer document with it.

[Villeroy]

A combo box is a combo box becase it combines a text box with a list box.

[RoryOF]

This may be helpful
https://openoffice-libreoffice.developpez.com/faq/?page=Les-boites-de-dialogue-BASIC#Comment-ajouter-un-objet-dynamiquement-dans-une-boite-de-dialogue-BASIC

[zenira]

ok. I will try your advices. Thank your help

Hi friends
I want to add data into ListBox from TextBox in a dialog box but I can not

Code: Select all   Expand viewCollapse view

Sub Main
DialogLibraries.LoadLibrary("Standard")
oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1 )
oDlg.execute()
End Sub
Sub AddButton
dim textbox,listbox as object
textbox=oDlg.getControl(TextField1)
listbox=oDlg.getControl(ListBox1)
listbox.additem(textbox.Text, 0) REM  this does not work
End Sub


when i add this controls on document they are work but they dont work on dialog box
thanks for your help

when i click Add button, i get this message "BASIC runtime error.Object variable not set"
The Code can't recognize "oDlg" object when I click Add Button
so i change code like this

Code: Select all   Expand viewCollapse view

dim oDlg as object
Sub Main
DialogLibraries.LoadLibrary("Standard")
oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1 )
oDlg.execute()
End Sub
Sub AddButton
dim textbox,listbox as object
oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1 )
textbox=oDlg.getControl("TextField1")
listbox=oDlg.getControl("ListBox1")
listbox.additem(textbox.Text, 0) REM  this does not work
End Sub


in this code, I don't get any error but again it does not work

[Villeroy]

You can not do this without minimal programming skills. You've got to understand the error messages and the code.

[JeJe]

Did you download the document I posted with it in? Did it work? If yes... and I bet it did... you got the solution...

dim oDlg as object
Sub Main
DialogLibraries.LoadLibrary("Standard")
oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1 )
oDlg.execute()
End Sub
Sub AddButton
dim textbox,listbox as object
oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1 )
textbox=oDlg.getControl("TextField1")
listbox=oDlg.getControl("ListBox1")
listbox.additem(textbox.Text, 0) REM this does not work
End Sub

You still haven't changed textbox.Text to textbox.Model.Text

It also won't work because in your AddButton function you create a new dialog oDlg which you don't show.

Start putting

Code: Select all   Expand viewCollapse view

Option Explicit

at the top of your modules so every variable has to be declared.

[zenira]

Thank you guys for your help. I did everything, I spend hours about this issue . I changed my code. Simply I want to get textbox's text but I get "Object variable not set".
I realize that the code works on calc document but it does not work writer document. Same code.

Code: Select all   Expand viewCollapse view

Option Explicit
dim oDlg,textbox,listbox as object
Sub Main
DialogLibraries.LoadLibrary("Standard")
oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1 )
textbox=oDlg.getControl("TextField1")
listbox=oDlg.getControl("ListBox1")
oDlg.execute()
End Sub

Sub AddButton
Dim stext as string
sText = textbox.Model.getText() Error: Object variable not set
listbox.additem(sText, 0)
End Sub


I think that after oDlg.execute(), all of variables relases in memory and code does not know textbox in AddButton sub despite I define in public

[RoryOF]

You need to read up on "Scope and Life Span of Variables" in the OpenOffice BASIC Guide.

[JeJe]

Your last code works fine here in OpenOffice if you change it to textbox.Model.Text.

[zenira]

You need to read up on "Scope and Life Span of Variables" in the OpenOffice BASIC Guide.

Yes I did.

[zenira]

Your last code works fine here in OpenOffice if you change it to textbox.Model.Text.

I run it in LibreOffice 4.2.1.1
it works in calc document but does not work in writer document.

[UnklDonald418]

Your declaration isn't correct. Replace

Code: Select all   Expand viewCollapse view

dim oDlg,textbox,listbox as object

with

Code: Select all   Expand viewCollapse view

Public oDlg as object

then

Code: Select all   Expand viewCollapse view

textbox=oDlg.getControl("TextField1")
listbox=oDlg.getControl("ListBox1")
oDlg.execute()

should return the values you entered

[JeJe]

Try changing the names of all your variables and controls and subs.

Try a non-modal dialog

https://forum.openoffice.org/en/forum/v ... =20&t=5815

Try posting it for people to look at

[zenira]

Your declaration isn't correct. Replace

Code: Select all   Expand viewCollapse view

dim oDlg,textbox,listbox as object

with

Code: Select all   Expand viewCollapse view

Public oDlg as object

then

Code: Select all   Expand viewCollapse view

oDlg.execute()
textbox=oDlg.getControl("TextField1")
listbox=oDlg.getControl("ListBox1")

should return the values you entered

Here is fresh code

Code: Select all   Expand viewCollapse view

Option Explicit
Public oDlg,textbox,listbox as object

Sub Main
DialogLibraries.LoadLibrary("Standard")
oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1 )
oDlg.execute()
textbox=oDlg.getControl("TextField1")
listbox=oDlg.getControl("ListBox1")
End Sub

Sub AddButton
Dim stext as string
sText = CStr(textbox.Model.getText()) 'Error: Object variable not set
listbox.additem(sText, 0)
End Sub


It does not work

[JeJe]

Code: Select all   Expand viewCollapse view

Sub Main
DialogLibraries.LoadLibrary("Standard")
oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1 )
oDlg.execute()
textbox=oDlg.getControl("TextField1")
listbox=oDlg.getControl("ListBox1")
End Sub

Sub AddButton
Dim stext as string
sText = CStr(textbox.Model.getText()) 'Error: Object variable not set
listbox.additem(sText, 0)
End Sub

That isn't going to work because the Sub Main doesn't run any of the code following the oDlg.execute line until the dialog is closed.

[zenira]

Try changing the names of all your variables and controls and subs.

Try a non-modal dialog

https://forum.openoffice.org/en/forum/v ... =20&t=5815

Try posting it for people to look at

I changed names of variables ,controls and subs ..here is fresh code

Code: Select all   Expand viewCollapse view

Option Explicit
Public Window as object
Public EnterBox,SaveBox as object

Sub Main
End Sub

Sub Run
   DialogLibraries.LoadLibrary("Standard")
   Window = CreateUnoDialog(DialogLibraries.Standard.Dg1
   EnterBox=Window.getControl("EnterBoxControl")
   SaveBox=Window.getControl("SaveBoxControl")
   Window.execute()
End Sub

Sub AddingButton
   Dim textarea as string
   textarea = EnterBox.Model.getText() 'Error: Object variable not set
   SaveBox.additem(textarea, 0)
End Sub


it does not again
ok I will try non-modal dialog . thank you

[zenira]

I tried non-modal dialog code

Code: Select all   Expand viewCollapse view

Option Explicit
Global g_Dlg as object
Global g_Stop as Boolean
Global TextBox,ListBox as object
Sub Main
   DialogLibraries.LoadLibrary("Standard")
   g_Dlg = CreateUnoDialog(DialogLibraries.Standard.Dg2
   TextBox=g_Dlg.getControl("TextField1")
   ListBox=g_Dlg.getControl("ListBox1")
   g_Dlg.setVisible(True)
   do until g_Stop
         wait 1000
   loop
   g_Dlg.setVisible(False)
end sub

Sub someEvent()
   g_Stop = True
End Sub

Sub AddingButton
   Dim textarea as string
   textarea = TextBox.Model.getText() 'Error: Object variable not set
   ListBox.additem(textarea, 0)
End Sub


It does not work

[JeJe]

Why do you keep changing it to TextBox.Model.getText?

Its TextBox.Model.text or TextBox.getText

[zenira]

Why do you keep changing it to TextBox.Model.getText?

Its TextBox.Model.text or TextBox.getText

I tried both. it does not work

[UnklDonald418]

This morning using the IDE I set a break point on the offending line in the AddingButton and a watch on EnterBox. The watch revealed that EnterBox was returning a Null value despite being declared Public. It then occurred to me that of course it's Null because the assignment was made before the Dialog was executed. So …

Code: Select all   Expand viewCollapse view

Sub AddingButton

   Dim textarea as string
   
   EnterBox=oDlg.getControl("TextField1")
   SaveBox=oDlg.getControl("ListBox1") 
   textarea = EnterBox.Text   
   SaveBox.additem(textarea, SaveBox.getItemCount)
   EnterBox.Text = ""
End Sub

I added a couple of things.
additem(textarea,0) inserts the new entry at the top of the list, additem(textarea, SaveBox.getItemCount) adds it to the bottom of the list.
Also the last line clears the Text Box, ready for a new entry.

[zenira]

Lastest code but it is not work

[UnklDonald418]

I downloaded your example.
When I run the dialog and type something into the text box and press the Add button that string appears in the list box.
What doesn't work?

[zenira]

Finally it work...
I notice where is fault. When i run it on IDE clicking "Run Basic", it does not run.I get this message

But I add a Run button on page and assign it Sub Main(), it works

it works now

Thank you guys, specially UnklDonald418,JeJe,RoryOF,Villeroy. thank you advices.

[Villeroy]

GlobalScope.DialogLibraries.loadLibrary("Standard") [global library]
DialogLibraries.loadLibrary("Standard") [embedded library]