Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 11
  1. #1
    Utente di HTML.it
    Registrato dal
    May 2004
    Messaggi
    102

    [vb6] array di controlli

    Buon giorno,

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

    codice:
    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

  2. #2
    Utente di HTML.it L'avatar di Jupy64
    Registrato dal
    Sep 2004
    Messaggi
    1,151
    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..
    Jupy

  3. #3
    Utente di HTML.it
    Registrato dal
    May 2004
    Messaggi
    102
    codice:
    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

  4. #4
    Utente di HTML.it L'avatar di Jupy64
    Registrato dal
    Sep 2004
    Messaggi
    1,151
    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...
    Jupy

  5. #5
    Utente di HTML.it
    Registrato dal
    May 2004
    Messaggi
    102
    codice:
    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)"

  6. #6
    Utente di HTML.it
    Registrato dal
    May 2004
    Messaggi
    102
    Pero, se ho 2000 record nel db me li visualizza tutti esiste un modo per paginare il risultato

  7. #7
    Utente di HTML.it L'avatar di Jupy64
    Registrato dal
    Sep 2004
    Messaggi
    1,151
    Dovresti paginare il recordset, altrimenti potresti usare una griglia per visualizzare il recordset..
    Jupy

  8. #8
    Utente di HTML.it
    Registrato dal
    May 2004
    Messaggi
    102
    hai qualche esempio di paginazione da mostrarmi

  9. #9
    Utente di HTML.it L'avatar di Jupy64
    Registrato dal
    Sep 2004
    Messaggi
    1,151
    Mettiamo che vuoi avere pagine da 25 record..
    Esempio:
    codice:
    ...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
    Jupy

  10. #10
    Utente di HTML.it
    Registrato dal
    May 2004
    Messaggi
    102
    potresti indicarmi come integrarlo in questo codice per pagine da 10 record.



    codice:
    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

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.