Visual Basic - ayuda combobox

Hola,

estoy intentado hacer un combobox de manera que al introducir un munero en un textbox, determine el numero de items k este tendra en su desplegable. Donde N es el numero introducido por en usuario.

Esto es lo k intento pero no me sale nada.

Muchas gracias por adelantado.

Option Explicit

Dim N As Integer
Dim i As Single

Private Sub Form_Load()

N = Text1.Text


End Sub

Private Sub Form_Load()

For i = 1 To N Step 1

Combo1.AddItem ("i")


Next

For i = 1 To N Step 1

Combo1.List(i) = i
Next

End Sub

Buenas, Roberto.

Eres nuevo en esto, ¿verdad?
Si es así te recomiendo que leas algún tutorial sobre Visual Basic o curso gratuïto de los muchos que se pueden encontrar en la Red.
En esta misma Web, puedes encontrar numerosos recursos interesantes:

http://www.lawebdelprogramador.com/cursos/mostrar.php?id=93&texto=Visual+Basic

También, en la web del Guille, puedes encontrar un curso que te resultará muy útil:

http://www.elguille.info/VB/cursos_vb/basico/indice.htm

Simplemente, buscando en el Google encontrarás una gran cantidad de resultados relacionados con cursos de Visual Basic.

Respecto a tu pregunta, aquí te planteo lo que sería el código correcto.
Teniendo un TextBox llamado txtN y un ComboBox llamado Combo1, si quieres hacer que el Combo1 se llene con el número de elementos especificados en el txtN, debes hacer lo siguiente:

'-----------------------
'CÓDIGO
'-----------------------

Private Sub txtN_Change()
If IsNumeric(txtN.Text) Then 'Solo se rellena el ComboBox si el texto es numérico
Combo1.Clear 'Se eliminan todos los elementos del ComboBox

For x = 1 To Int(txtN) 'Se recorre un bucle con el número escrito
Combo1.AddItem CStr(x) 'Se añade cada elemento hasta llegar al número final de elementos
Next x
End If
End Sub

'-----------------------
'CÓDIGO
'-----------------------

Esto es todo. Si lo observas detenidamente podrás comprobar que no resulta extremadamente difícil determinar su funcionamiento. Además, los comentarios lo hacen totalmente comprensible.
Espero que te ayude. Hasta pronto,

Zoto

No entiendo lo de los 2 Formload ....
aqui un ejemplo:
================================================================
Private Sub Text1_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then ' al presionar entrar
    If Not IsNumeric(Text1) Then Exit Sub
    If Text1 < 1 Then Exit Sub
    N = Text1.Text
    Combo1.Clear
    For i = 1 To N
       Combo1.AddItem i ' o el valor q desees mostrar
    Next
    Combo1.ListIndex = 0
 End If
End Sub
================================================================