Visual Basic 6 - Inserire oggetti con il codice di vb6

anke io avevo visto un esempio uguale su
forum.masterdrive.it/visual-basic-6-17/creare-textbox-22143/

il codice ke hai postato tu, solo ke è x una textbox..però nel sito, il codice va modificato visto ke sono aggiunte altre funzioni..
cmq nn ho postato prima perkè rimane sempre impossibile aggiungere x es. un commandbutton solo con il codice senza averne aggiunto un'altro dalle proprietà...

cmq se organittos vuole inserire il codice in commandbutton per farne apparire altri va bene...

cmq il codice va migliorato così, se no, se s'inserisce in un commandbutton, e si clikka vengono generati altri cmd, e poi si clikka di nuovo fa errore...
quindi

  On Error Resume Next
   Dim i As Integer
        For i = 1 To 5
        Load Text1(i)
        Text1(i).Left = 1500
        Text1(i).Top = i * 1000
        Text1(i).Visible = True
    Next i

Il codice è per il VB6...

Se frequenti quel forum allora avri gia' visto che si puo' fare ... allora perche' dici che e' impossibile ...?



Non ho capito ... comunque ...



Questo non e' vero ...



Non serve inserire la linea

On Error Resume Next

perche' il codice che ti ho mostrato e' solo "un esempio"!

In un vero programma va integrato con la gestione della variabile indice in modo che tenga in considerazione i controlli gia' aggiunti!

è sempre possibile fare

Dim oggetto As Object
Set oggetto = Me.Controls.Add("VB.textbox", "tmp")
oggetto.Visible = True

alla lunga diventa difficilino da gestire ma è sempre una soluzione.

Postato originariamente da gantonio:

Se frequenti quel forum allora avri gia' visto che si puo' fare ... allora perche' dici che e' impossibile ...?

-NON frequento quel forum!!!

Postato originariamente da gantonio:

Non ho capito ... comunque ...

-Nel post di quel sito di volevano fare altre cose, oltre ke creare textbox..Intendo dire ke c'è codice in più di quello ke serve per creare le textbox ke va eliminato...

Postato originariamente da gantonio:

Questo non e' vero ...

-Ma come si fa a creare un commandbutton dal nulla?!!?

Postato originariamente da gantonio:

Non serve inserire la linea

On Error Resume Next

perche' il codice che ti ho mostrato e' solo "un esempio"!

In un vero programma va integrato con la gestione della variabile indice in modo che tenga in considerazione i controlli gia' aggiunti!

-Lo so...però per nn far fare errore ho scritto On Error Resume Next...

Poi nn voglio mettermi in confronto con ki è più esperto di me...

Giusto anche se l'oggetto sarebbe meglio dichiararlo con

Dim WithEvents oggetto As TextBox

Ok ...



Ad esempio cosi'

Private WithEvents Cmd As CommandButton

Private Sub Form_Load()
    Set Cmd = Controls.Add("VB.CommandButton", "Cmd")
    
    Cmd.Width = 2000
    Cmd.Top = 1000
    Cmd.Left = 500
    Cmd.Caption = "Si puo' fare"
    Cmd.Visible = True
End Sub

Private Sub Cmd_click()
    MsgBox "OK"
End Sub

Non e' questo il problema ...

Ok...Mi arrendo!!!

Ti arrendi ? Mica e' una guerra ...