[VB6] Array di controlli generato dinamicamente

[logan78]

Buon giorno,

mi sono impostato un metodo per far apparire dei controlli dinamicamente ma non appare niente, qualcuno saprebbe dirmi dove sbaglio:

Private Sub Command2_Click()
Dim i As Integer
i = 1

Call connetti

Rs.Open "SELECT * FROM u_89", Cn


Do While Not Rs.EOF

Load Text1(i)
Text1(i).Move 1200, 2000, 800, 350
Text1(i).MaxLength = 10
Text1(i).Visible = True
    

    If Rs.State <> 0 Then 'se non si sono verificati errori
        If Not (Rs.EOF And Rs.BOF) Then 'se il recordset non è vuoto
            Text1(i).Text = Rs("CodForn")
        End If
    Else
        MsgBox "Errore durante l'apertura della tabella", vbCritical
    End If
    i = i + 1

Loop

Cn.Close
Set Cn = Nothing

Grazie

[Jupy64]

Ciao, penso che sicuramente uno lo vedi... sono i successivi che, sembra che non li vedi.. per il motivo che lo sovrapponi agli altri..
infatti con questa istruzione Text1(i).Move 1200, 2000, 800, 350 le metti tutte nello stesso posto..

[logan78]

Private Sub Command2_Click()
Dim i As Integer
Dim Sposta As Integer
S = 1200 
i = 1

Call connetti

Rs.Open "SELECT * FROM u_89", Cn


Do While Not Rs.EOF

Load Text1(i)
Text1(i).Move S , 2000, 800, 350
Text1(i).MaxLength = 10
Text1(i).Visible = True
    

    If Rs.State <> 0 Then 'se non si sono verificati errori
        If Not (Rs.EOF And Rs.BOF) Then 'se il recordset non è vuoto
            Text1(i).Text = Rs("CodForn")
        End If
    Else
        MsgBox "Errore durante l'apertura della tabella", vbCritical
    End If
    i = i + 1
    S = S + 10
    

Loop

Cn.Close
Set Cn = Nothing

cambiando un valore non appare comunque niente

[Jupy64]

visto il parametro che hai messo, suppongo che le textBox le vuoi affiancare in orizzontale... in questo caso l'incremento del parametro S portalo a 1000 altrimenti con 10 non vedi niente..
Ti dico questo per il fatto che ho fatto una prova...

[logan78]

Call connetti

Rs.Open "SELECT * FROM u_89", Cn


Do While Not Rs.EOF

 Load Me.Text1(i)

    With Me.Text1(i)

        .Left = 3000

        .Top = i * Me.Text1(i - 1).Height

        .Visible = True

    End With 
    

    If Rs.State <> 0 Then 'se non si sono verificati errori
        If Not (Rs.EOF And Rs.BOF) Then 'se il recordset non è vuoto
            Me.Text1(i).Text = Rs("CodForn")
        End If
    Else
        MsgBox "Errore durante l'apertura della tabella", vbCritical
    End If
    i = i + 1
    S = S + 10
    

Loop

Cn.Close
Set Cn = Nothing

Soluzione trovata nelle vostre faq, il fatto che non si vedeva era dato dalla mancanza di "Me.text(i)"

[logan78]

Pero, se ho 2000 record nel db me li visualizza tutti esiste un modo per paginare il risultato

[Jupy64]

Dovresti paginare il recordset, altrimenti potresti usare una griglia per visualizzare il recordset..

[logan78]

hai qualche esempio di paginazione da mostrarmi

[Jupy64]

Mettiamo che vuoi avere pagine da 25 record..
Esempio:

...una volta inizializzato il record set e aperto..
RS.PageSize=25
totPage=cLng(RS.PageCount)
....
...
Private sub LeggiRecord(numPage as long)
   RS.AbsolutePage = numPage
   For intRec = 1 To RS.PageSize		
      ...
      ...
      RS.MoveNext
      If RS.EOF Then Exit For
   Next
End Sub

[logan78]

potresti indicarmi come integrarlo in questo codice per pagine da 10 record.

Private Sub Command2_Click()
Dim i As Integer
Dim Sposta As Integer
S = 1200
i = 1

Call connetti

Rs.Open "SELECT * FROM u_89", Cn

Do While Not Rs.EOF

 Load Me.Text1(i)

    With Me.Text1(i)

        .Left = 3000

        .Top = i * Me.Text1(i - 1).Height

        .Visible = True

    End With

    

    If Rs.State <> 0 Then 'se non si sono verificati errori
        If Not (Rs.EOF And Rs.BOF) Then 'se il recordset non è vuoto
            Me.Text1(i).Text = Rs("CodForn")
        End If
    Else
        MsgBox "Errore durante l'apertura della tabella", vbCritical
    End If
    i = i + 1
    S = S + 10
    

Loop

Cn.Close
Set Cn = Nothing


End Sub