How can I...?

[panais]

....create a drop down list using vb code.....and add to it the text i want?

[bushmobile]

do you mean create a combobox on the fly?

if so, check out this FAQ on loading controls at run-time: http://www.vbforums.com/showthread.php?t=342054

[shakti5385]

create a drop down list using vb code

no idea what u want to do really explain

[shakti5385]

do you mean create a combobox on the fly?

if so, check out this FAQ on loading controls at run-time: http://www.vbforums.com/showthread.php?t=342054

Dim cmdButton(4) As CommandButton
Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To 4
        Load cmdButton(i)
        With cmdButton(i)
            .Left = 750 * i
            .Top = 1000
            .Width = 700
            .Height = 500
            .Caption = "Hello"
            .Visible = True
        End With
    Next i
End Sub

error occuring objext variable or with block variable not set what i do

[panais]

i want to be able to create a dropdown list using the code and not drawing it from the toolbox.and i want to add items on it. for example by pressing the button i create a dropdown list in the picturebox and in it i have numbers(1-30) .

Thx

[bushmobile]

i want to be able to create a dropdown list using the code and not drawing it from the toolbox.and i want to add items on it. for example by pressing the button i create a dropdown list in the picturebox and in it i have numbers(1-30)

Have a look at the link I posted - that's what that is all about.

@shakti:
You're mixing and matching the methods.

Dim cmdButton(4) As CommandButton

This should be used with:

Set cmdButton(i) = Me.Controls.Add("VB.CommandButton", "cmdButton" & Me.Controls.Count)

To use

Load cmdButton(i)

you have to put a commandbutton on your form (make it invisible if you like), name it correctly and set the index to 0. you don't make a declaration of any commandbutton objects, you just load new members of the current array.

[panais]

ok thanks

[Simply Me]

Why do you need to do it in code when it is already created for you? As they say "Do not re-invent the wheel"

[shakti5385]

use can also use this one
draw a drop down list
and use a combo and make it style as drop down list

Private Sub Form_Load()
Combo1.Visible = False
End Sub

and visible true where u want to create the drop down list

[shakti5385]

Set cmdButton(i) = Me.Controls.Add("VB.CommandButton", "cmdButton" & Me.Controls.Count)

bush where i use this code on form load??

[bushmobile]

you use it in whatever event you want to create the control.

Read the first two posts of the link, it's all in there

[panais]

The reason i want to do this through code.....is that i am creating a dynamic map program.I load a map in the picturebox and i draw some shapes on it.In those shapes i want to add a dropdown list to add data in it and afterwards i will connect it with a database.So as u can see i must create the list through code.

[panais]

do you mean create a combobox on the fly?

if so, check out this FAQ on loading controls at run-time: http://www.vbforums.com/showthread.php?t=342054

Dim WithEvents cmdButton As CommandButton
 
Private Sub cmdButton_Click()
     MsgBox "hi"
End Sub
 
 
Private Sub Form_Load() 
 
    Set cmdButton = Form1.Controls.Add"VB.CommandButton", "newCommandButton" ) 
     
    With cmbButton 
        .Left = 1000 
        .Top = 1000 
        .Width = 2000 
        .Height = 500
        .Caption = "Hello"
        .Visible = True
     End With
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Set cmdButton = Nothing
End Sub

Is this the code u are suggesting to use?Where do i write dropdown_list or something like that?I do not really understantto be honest.i have to try it.
Thx anyway.

[bushmobile]

I'm assuming that by DropDown list you mean ComboBox:

Private WithEvents cboCombo As ComboBox
 
Private Sub Form_Load() 
 
    Set cboCombo = Form1.Controls.Add("VB.ComboBox", "cboBox" ) 
     
    With cboCombo
        .Left = 1000 
        .Top = 1000 
        .Width = 2000 
        .Style = 2
        .AddItem "TEST"
        .Visible = True
     End With
End Sub
 
Private Sub cboCombo_Click() 
    MsgBox List1.List(List1.ListIndex)
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Set cboCombo = Nothing
End Sub