ciao. devo generare x textbox e attaccarli al form durante il form_load(). come faccio?
ora ho provato a fare questo:
ma non se funziona e non so come attaccarlio al form.codice:Function createTxtbox(name As String, l As Integer, t As Integer) As TextBox Set createTxtbox = New TextBox createTxtbox.name = name createTxtbox.Left = l createTxtbox.Top = t End Function Private Sub Form_Load() 'esegui la query dei film Dim FilmRcs As Recordset Dim l As Integer, t As Integer, myName As String, i As Integer 'getFilms restituisce il recordset con la lista dei film Set FilmRcs = getFilms() l = 20 'left t = 20 'top i = 0 If Not FilmRcs.EOF Then FilmRcs.MoveFirst Do While Not FilmRcs.EOF 'populate fields myName_1 = "txt_" & i myTxt_1 = createTxtbox(myName_1, l, t) i = i + 1 ' ... aggiungi altri fields... t = t + 30 ' vai a capo l = 20 'resetta la proprietà left FilmRcs.MoveNext Loop End Sub

Rispondi quotando