ComboBox Question 1

[remy988]

hi,

Is there a way to show the first value (in this case, the value is Sedan) on the drop down without selecting the down arrow?

Sub Main
    Dim Make(2) as String
    Make(0) = "Sedan"
    Make(1) = "Truck"
    Make(2) = "SUV" 
    
    Begin Dialog dlgOptions 10, 28, 100, 100, "Select"
    
    OkButton      60, 20, 20, 10,.btnOK
    DropComboBox  10, 20, 40, 20, Make(), .MakeComboBox

    End Dialog
    iDone = FALSE

    While (iDone = FALSE)    
        Dim dlgVar as dlgOptions
        nRet = Dialog(dlgVar)
        Select Case nRet
            Case -1                      
                iDone = TRUE
        End Select
    Wend
End Sub

thanks
rem

 

[Lakare]

This should do it.

Declare Function dlgFunction(identifier$, action, suppvalue)

Sub Main
    Dim Make(2) as String 
    Make(0) = "Sedan" 
    Make(1) = "Truck" 
    Make(2) = "SUV" 
    Begin Dialog dlgOptions 10, 28, 100, 100, "Select", .dlgFunction
        OkButton 60, 20, 20, 10,.btnOK 
        DropComboBox 10, 20, 40, 20, Make(), .MakeComboBox 
    End Dialog 
    iDone = FALSE 
    While (iDone = FALSE) 
        Dim dlgVar as dlgOptions 
        nRet = Dialog(dlgVar) 
        Select Case nRet 
            Case -1 
                iDone = TRUE 
        End Select 
    Wend 
End Sub 

Function dlgFunction(identifier$, action, suppvalue)
    Select Case action
    Case 1 'Initialisation
        DlgValue("MakeComboBox"),0
    Case 2 'Button pressed
    Case 3 'Text og Combobox changed
    Case 4 'Focus changed
    Case 5 'Always happening
    End Select
End Function

Lakare

 

[remy988]

hi Lakare,

thanks for looking at this. i am receiving a compile error here:

[blue]Sub Function dlgFunction(identifier$, action, suppvalue)
Select Case action
Case 1 'Initialisation DlgValue("MakeComboBox"),0
Case 2 'Button pressed
Case 3 'Text og Combobox changed
Case 4 'Focus changed
Case 5 'Always happening
End Select
End Function[/blue]


thanks
rem

 

[Lakare]

First of all.

Case 1 'Initialisation DlgValue("MakeComboBox"),0

needs to be in two lines, like this

Case 1 'Initialisation 
    DlgValue("MakeComboBox"),0

Second, does the whole function show as a compile error, or just a single line?

DlgValue("MakeComboBox"),0

And have you tried to copy/paste my whole code example into the compiler and then tried to run it?

Lakare

 

[remy988]

Lakare,

thanks for your help! i messed up on the Case 1 statement.

rem