Hi Joe,
Here are some examples using different controls sources. There is also the Sorted property that can be used. The Sorted property is only available if the RowSourceType property is set to 0 (None) or 1 (Value).
HTH, Tracy
LOCAL testForm testForm = CREATEOBJECT("formClass") testForm.Show()
DEFINE CLASS formClass as Form
WindowType = 1 SelectedValue = 0
ADD OBJECT AddComboBoxButton as CommandButton WITH Top = 10, Left = 10, Caption = "Add Combobox 1" ADD OBJECT AddComboBoxButton2 as CommandButton WITH Top = 10, Left = 130, Caption = "Add Combobox 2" ADD OBJECT SelectedValueTextBox as TextBox WITH TOP = 10, Left = 260, Width = 40, ControlSource = "THISFORM.SelectedValue"
PROCEDURE AddComboBoxButton.Click THISFORM.AddComboBox() ENDPROC
PROCEDURE AddComboBoxButton2.Click THISFORM.AddComboBox2() ENDPROC
PROCEDURE SelectedValue_Assign LPARAMETERS newValue THISFORM.SelectedValue = newValue THISFORM.SelectedValueTextBox.Refresh() ENDPROC
PROCEDURE AddComboBox DEFINE POPUP ComboPopup FONT "Comic Sans MS", 16 DEFINE BAR 1 OF ComboPopup PROMPT "Option 1" DEFINE BAR 2 OF ComboPopup PROMPT "Option 2" DEFINE BAR 3 OF ComboPopup PROMPT "Option 3" STYLE "B" DEFINE BAR 4 OF ComboPopup PROMPT "Option 4"
IF TYPE("THISFORM.addedCombobox.Name") = "C" THISFORM.RemoveObject("addedCombobox") ENDIF THISFORM.AddObject("addedCombobox", "Combobox") THISFORM.addedCombobox.Top = ThisForm.AddComboBoxButton.Top + ThisForm.AddComboBoxButton.Height + 10 THISFORM.addedCombobox.Left = 10 THISFORM.addedCombobox.RowSourceType = 9 THISFORM.addedCombobox.RowSource = "ComboPopup" THISFORM.addedCombobox.ControlSource = "THISFORM.SelectedValue" THISFORM.addedCombobox.Visible = .T. * THISFORM.addedCombobox.DropDown() && This didn't drop it down *-- This drops down the list THISFORM.addedCombobox.SetFocus() KEYBOARD '{ALT+DNARROW}' ENDPROC
PROCEDURE AddCombobox2 CREATE CURSOR comboCursor (value c(20), id i) INSERT INTO comboCursor VALUES ("Option 1", 1) INSERT INTO comboCursor VALUES ("Option 2", 2) INSERT INTO comboCursor VALUES ("Option 3", 3) IF TYPE("THISFORM.addedCombobox.Name") = "C" THISFORM.RemoveObject("addedCombobox") ENDIF THISFORM.AddObject("addedCombobox", "Combobox") THISFORM.addedCombobox.Top = ThisForm.AddComboBoxButton.Top + ThisForm.AddComboBoxButton.Height + 10 THISFORM.addedCombobox.Left = 10 THISFORM.addedCombobox.RowSourceType = 2 THISFORM.addedCombobox.RowSource = "comboCursor" THISFORM.addedCombobox.BoundColumn = 2 THISFORM.addedCombobox.ControlSource = "THISFORM.SelectedValue" THISFORM.addedCombobox.Visible = .T. * THISFORM.addedCombobox.DropDown() && This didn't drop it down *-- This drops down the list THISFORM.addedCombobox.SetFocus() KEYBOARD '{ALT+DNARROW}' ENDPROC
ENDDEFINE
-----Original Message----- From: ProfoxTech [mailto:profoxtech-bounces@leafe.com] On Behalf Of Joe Yoder Sent: Wednesday, June 26, 2024 8:19 PM To: profoxtech@leafe.com Subject: Combo box issues
I am looking for a way to have a combo box display its dropdown programmatically. I want to do this to make it obvious that the user needs to make a choice. I have read that 'thisform.combobox.dropdown()' should do the trick but the form comes up with the proper information in the dropdown which can only be seen after clicking the control.
Another less important feature would be a way to control the position of the list of choices when the dropdown is accessed.
Any help will be appreciated,
Joe
--- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---
[excessive quoting removed by server]