Come fare un orologio con VB6

Aggiunta di un orologio al vostro Visual Basic 6.0 ( VB6 ) programma è utile quando si desidera visualizzare la data e l'ora correnti per l'utente. VB6 è un linguaggio di programmazione di Microsoft che è stato progettato per essere relativamente facile da imparare e da usare per i nuovi programmatori . Creare un orologio con l'aggiunta di un "Timer" e " TextBox " al form e quindi codificare il " Tick " subroutine del timer per visualizzare l'ora corrente nella casella di testo ogni secondo . Istruzioni
1

Aprire il file sorgente VB6 in un editor , ad esempio Microsoft Visual Studio 6.0.
2

aprire Progettazione modulo cliccando col tasto destro " Form1.vb " , nel " Solution Explorer " e cliccando su " Visualizza finestra di progettazione . "
3

Aggiungere una casella di testo per visualizzare il valore dell'orologio trascinando l'icona " TextBox " dal " , Casella degli strumenti "per la finestra di progettazione del form. Fare clic su un bordo della casella di testo e trascinarla più ampio in modo che il valore del clock si inserisce in esso .
4

Aggiungere un controllo timer trascinando l'icona "Timer " dal " Casella degli strumenti " a finestra di progettazione del form.
5

destro del mouse sull'icona " Timer1 " sul modulo , quindi fare clic su "Proprietà ".
6

cambiare " Interval "a" 1000 " e il " "su" Enabled vero . " l' impostazione" Intervallo " controlla la quantità di millisecondi tra le chiamate del timer .
7

doppio clic l'icona " Timer1 " sulla finestra di progettazione del form. Questo dovrebbe aprire la finestra del codice
8

Aggiungere il seguente codice nella subroutine " Timer1_Tick " : .

TextBox1.Text = TimeValue ( Ora) + " " + DateValue ( Ora) orTextBox1.Text = Ora

Questo mostrerà l'ora e la data corrente nella casella di testo una volta ogni secondo con un valore come " 09:57:15 9/2/2010 . "
9

salvare il progetto. Compilare ed eseguire il programma per visualizzare l' orologio .

• Come calcolare Commissione Utilizzando Looping 
• Come addestrare in Microsoft VB.Net