Avviare Visual Basic e fare clic sul collegamento "Nuovo progetto" nella pagina iniziale . Fare doppio clic su " Applicazione Windows Form " per aprire un nuovo modulo nella finestra di progettazione di Visual Basic . 
 2 
 Scorri il cursore sulla scheda Casella degli strumenti a sinistra della finestra di progettazione per aprire il menu degli strumenti . Potrebbero essere necessari alcuni secondi per caricare la casella degli strumenti e visualizzarlo . 
 3 
 doppio clic sulla voce di menu " ListBox " nella sezione comune Controlli della Casella degli strumenti aggiungere un controllo ListBox al vostro forma . Fare doppio clic sulla voce di menu " Tasto " due volte per aggiungere due pulsanti al form. Fare doppio clic sulla voce di menu " TextBox " per aggiungere un controllo TextBox al form. Trascinare i controlli sotto forma di organizzare Button1 sotto la TextBox e organizzare Button2 sotto il controllo ListBox . 
 4 
 doppio clic sul pulsante "Add Item" per aprire la finestra del codice Visual Basic. Fare clic sulla riga vuota sotto la " Public Class Form1 " dichiarazione alla parte superiore della finestra e la riga seguente chiave : 
 
 Dim ItemArray ( 9) As String Dim 
 
 ArrayCountInteger As Integer 
 
 Questa istruzione dichiara una serie di fino a dieci elementi di tipo stringa e di un contatore intero. Il contatore inizia sempre da zero , quindi l'istruzione " Dim " imposta il numero a nove, uno in meno del numero di elementi nella matrice . 
 5 
 Cliccare sulla riga vuota dopo le " Private Sub affermazione " Button1_Click e inserire il seguente codice in modo che l' intera procedura con inizio e fine linea simile a questa : 
 
 private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click 
 
 Se TextBox1.Text > "" Then 
 
 ArrayCountInteger = 10 Poi 
 
MessageBox.Show (" È stato immesso il numero massimo di elementi " ) per
 Torna 
 
 End If 
 
 ItemArray ( ArrayCountInteger ) = TextBox1.Text 
 
 ArrayCountInteger + = 1 
 
TextBox1.Clear ( ) per
TextBox1.Focus ( ) per
 End If End Sub 
 
 
 
 Questo codice legge ogni elemento che si inserisce nel TextBox e lo mette nella matrice . 
 Pagina 6 
 Visualizza la matrice . Fare clic sulla scheda Progettazione per tornare alla finestra di progettazione . Fare doppio clic sul pulsante " Lista articoli " per tornare alla finestra del codice . Inserisci il codice tra le due linee in modo che il risultato finale è la seguente: 
 
 Private Sub Button2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button2.Click 
 
 Dim ListArrayCountInteger As Integer 
 
Do While ListArrayCountInteger < ( ArrayCountInteger + 1 ) per
 ItemArray ( ListArrayCountInteger ) > "" Then 
 
ListBox1.Items.Add ( ItemArray ( ListArrayCountInteger ) ) per
 ListArrayCountInteger + = 1 
 
 Else 
 
MessageBox.Show ( " Nessun altro elemento " ) per
 Torna 
 
 End If 
 
 loop 
 
 Questo codice legge l'array utilizzando un ciclo e pone gli elementi in ListBox per la visualizzazione. 
 7 
 Cliccare sulla voce di menu "Debug" a la parte superiore dello schermo e fare clic sul link " Avvia debug " per testare il programma . Inserire un elemento in TextBox e fare clic sul pulsante "Add Item " . Aggiungere diversi elementi e fare clic sul pulsante " Lista articoli " per vedere i tuoi oggetti in ListBox . 
 
              
Programmazione © www.354353.com