FIX: Errore di applicazione quando l'associazione dinamica creato controllo

Torna all'inizio

Procedura per riprodurre il problema

1. Avviare 32-bit Visual Basic 4.0 oppure, se è già in esecuzione, fare clic su Nuovo progetto dal menu file.
2. Aggiungere i seguenti controlli a Form1 e impostare le seguenti proprietà per i controlli appropriati:

      Control           Default Name     Property            Setting
      ---------------------------------------------------------------
      Command Button    Command1
   
      Data              Data1            DatabaseName        Biblio.mdb
                                         RecordSource        Authors
   
      Text Box          Text1            DataSource          Data1
                                         Index               0
   
   					

3. Copiare il codice seguente nella finestra del codice di Form1:

         Option Explicit
   
         Private Sub Form_Load()
            Command1.Caption = "For Remote Data Control"
         End Sub
   
         Private Sub Command1_Click()
            Dim count As Integer
            Dim i As Integer
            Static lastcount As Integer
   
            Data1.Refresh
            count = 4
   
            If lastcount > 0 Then
               For i = lastcount - 1 To 1 Step -1
                  Unload text1(i)
               Next i
            End If
   
            If count > 0 Then
               For i = 1 To count - 1
                  Load text1(i)
                  text1(i).Left = text1(0).Left + (i * 1335)
                  text1(i).Visible = True
               Next i
            End If
            lastcount = count
         End Sub
   
   					

4. Scegliere <B>Avvia</B> dal menu <B>Esegui</B> oppure premere il tasto F5 per avviare il programma. Ogni volta che si sceglie il pulsante di comando, tre caselle di testo appare. Il terzo clic, si verifica un errore di applicazione visualizzazione di uno dei seguenti messaggi e termina in Visual Basic:

Torna all'inizio