To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=48214
------- Additional comments from [EMAIL PROTECTED] Thu Jun 9 08:46:06 -0700
2005 -------
Here are the functions:
Function corrValueList(Ctl as Object,StartIndx as Integer, EndIndx as Integer)
' Funktioniert nicht, die Items lassen sich nicht aendern
Dim j as Integer
for j = StartIndx to EndIndx-1
'print "Satz Nr : ", j ,"database id: ", Ctl.ValueItemList(j)
if (j+1) < EndIndx Then
Ctl.ValueItemList(j) = Ctl.ValueItemList(j+1)
End If
next j
Ctl.ValueItemList(EndIndx-StartIndx)=-99
End Function
Function remListboxItem(Doc as Object,Form as Object,ListboxName as
String,DatabaseId as Integer) as Integer
' I do have a DatabaseId and want to remove the Item from the Listbox
' loescht den Eintrag aus der ValueItemList nicht
' deshalb nicht benutzen
Dim Ctl as Object
Dim CtlView as Object
Dim DocCrl as Object
Dim i as Integer
Dim res as Integer
Dim ListCount as Integer
remListboxItem=0
DocCrl = Doc.getCurrentController()
if Form.HasByName(ListboxName) Then
Ctl = Form.GetByName(ListboxName)
CtlView = DocCrl.GetControl(Ctl)
' MsgBox CtlView.DBG_Properties
' MsgBox Ctl.DBG_Methods
' printListbox(Ctl,CtlView,ListboxName)
ListCount = CtlView.getItemCount
for i = 0 to ListCount -1
if DatabaseId = Ctl.ValueItemList(i) Then
'print "loesche Satz Nr : ", i ,"database id:
", DatabaseId, "ListBox:
",ListBoxName
CtlView.removeItems(i,1)
'implemented after i have found that the
valueItemList doe snot get corrected
corrValueList(Ctl,i,ListCount )
remListboxItem=0
'printListbox(Ctl,CtlView,ListboxName)
Exit Function
End If
Next i
' printListbox(Ctl,CtlView,ListboxName)
else
print "Listbox mit Namen ", ListboxName, " nicht gefunden"
setListbox = ERR_LISTBOX_NOT_FOUND
End If
remListboxItem=0
End Function
I simply followed the basic programmers guide. I haven't found any other
reference.
If that is wrong usage can you please refer to a example, or correct the above
code ?
Regards Jürgen
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
