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