Enhanced ComboBox / Listbox

[klaus]

Hi Rioven,

Thank's for the bug report.

I modified the btnInsert_Click routine that way:

<font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">btnInsert_Click</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> SelI=-</font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">1 </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Then</font></font></font></font></font></font></font></font></font>
<font size="2"><font face="Courier New"><font size="2"><font face="Courier New">SelI=</font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">0</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">cbxTest.Insert(SelI,txtTest.Text)</font></font>
<font size="2"><font face="Courier New">lbxTest.Insert(SelI,txtTest.Text)</font></font>
<font size="2"><font face="Courier New">cbxTest.SelectedIndex=SelI</font></font>
<font size="2"><font face="Courier New">lbxTest.SelectedIndex=SelI</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font></font></font></font></font></font></font>

Attached the modified code.

Besr regards.

EDIT: Removed code, new one in post #15.

[Rainer]

Entering text in combo boxes is not supported. Using the Door library this can be achieved. Here is the code:

ocmb.New1(False)
ocmb.FromControl("cmbCategory")
ocmb.SetProperty("DropDownStyle", "DropDown")

That's it.
Rainer

[agraham]

Originally Posted by Rainer

Entering text in combo boxes is not supported. Using the Door library this can be achieved

I never thought of that! I wonder why the default is different on the desktop and the device?

[agraham]

To make it really useful lets add some events. Obj1 is a Door library Object, cboKeyPress and cboTextChanged are Door library events

    Obj1.FromControl("Combobox1")
Obj1.SetProperty("DropDownStyle", "DropDown")
cboKeyPress.New1(Obj1.Value, "KeyPress")
cboTextChanged.New1(Obj1.Value, "TextChanged")

Sub cboKeyPress_NewEvent
Obj1.Value = cboKeyPress.Data
keychar = Obj1.GetProperty("KeyChar")
'Msgbox(keychar, "Key press")
If Asc(keychar) = 13 Then
    Obj1.FromControl("Combobox1")
         Msgbox(Obj1.GetProperty("Text"), "Enter!")
End If    
End Sub

Sub cboTextChanged_NewEvent
Obj1.FromControl("Combobox1")
combotext = Obj1.GetProperty("Text")
End Sub

[klaus]

Hallo Rainer,
Very good !
I remembered that in VB there was a choice for ComboBox styles, but didn't find your 'trick'.

Hello Andrew,
I am also wondering why the default style is different between desktop and device.

Just as a reminder, the ComboBox.Text property does exist in Basic4PPC even though it is not listed in the help file. Even in DropDownList style it is redable in on both desktop and device.

I have updated the example code, with the choice of the 2 styles.

Best regards.