Visual Basic 6.0 include una serie di opzioni di formattazione che consentono all'utente di visualizzare e stampare i dati in modi diversi. Utilizzando alcuni semplici controlli di Visual Basic e istruzioni condizionali , è possibile creare un piccolo programma che illustrerà questi metodi . L'esempio attuale inizia con la data odierna e visualizza diversi formati per la stessa data . Utilizzare le istruzioni di formattazione per inserire modi desiderato per visualizzare una data all'interno di qualsiasi programma che si scrive. Istruzioni
1

Creare un nuovo progetto di Visual Basic ( VB) utilizzando il " EXE standard " modello disponibile quando si fa clic su "File" e poi "Nuovo progetto" in VB . Fare clic su "File" e poi "Salva progetto con nome . " Salvare il modulo come " convertDate " e il progetto come "Data di Conversione " .

2 Fare doppio clic sul controllo " ListBox " nella barra degli strumenti a sinistra della schermata per aggiungerlo al form. Nell'elenco " Proprietà" sulla destra dello schermo , impostare la proprietà del modulo " Altezza " a 2600 e la " larghezza " per 4500 . Trascinare il " ListBox " per il lato sinistro del form e impostare la proprietà "Larghezza" "Altezza" e per il 1425 e il 4725 . Aggiungere tre "Etichette" a forma facendo doppio clic sul grande lettera "A" nella casella degli strumenti per tre volte . Disporre le etichette in modo che " Label3 " è la voce più in alto sul modulo . Metti " Label1 " e " Label2 " in una riga sotto il controllo ListBox . Impostare l '" altezza " e la proprietà "Larghezza" di " Label1 " a 500 e 1800 . Impostare il "Altezza" e "Larghezza" di " Label2 " a 800 e 3250 . Cancellare le voci di " Label1 " e " Label2 " nella loro sezione "Proprietà", in modo che siano vuote.
3

Fare clic su " Visualizza" e poi "Codice" nel livello superiore di Visual Basic menu. Digitare il seguente codice esattamente come appare .

Opzione ExplicitPrivate Sub Form_Load ( ) Label3.Caption = " Selezionare il formato desiderato per visualizzarlo. " Label1.Caption = "Oggi è " & Format ( Now , "m /d /yyyy " ) Label2.Visible = TrueList1.AddItem " Full Data " List1.AddItem " abbreviato Data " List1.AddItem " giorno /mese " List1.AddItem " mese /anno " List1.AddItem " Mese , Anno ( Giorno della settimana ) " List1.AddItem " abbreviato Data più Giorno , Settimana e trimestre dell'anno "End Sub
4

Tipo le seguenti righe di codice al di sotto di quelli di Fase 3 :

private Sub List1_Click ( ) Select Case List1.ListIndexCase Label2.Caption "0" = Format ( Now , "dddd , dd MMMM yyyy" ) Case " 1 " Label2.Caption = Format ( Now , "m /g /aa " ) Case" 2 " Label2.Caption = Format ( Now , " d - mmmm " ) Case" " Label2.Caption = Format ( Now , " 3 mmmm - yy " ) Case" 4 " Label2.Caption = Format ( Now , "mmm gg , aaaa ( dddd ) " ) Case " 5 " Label2.Caption = Format ( Now , "mm /gg /aa ( \\ d \\ a \\ y = y \\ w \\ e \\ e \\ k = ww \\ q \\ u \\ a \\ r \\ t \\ e \\ r = q ) " ) End Sub SelectEnd
5

Premere" F5 " per eseguire il programma . Se non ci sono problemi, è possibile fare clic su "File" e poi "Make Convertire Date.exe " per creare una versione eseguibile . Se qualcosa non appare corretto, quindi premere "F8" per scorrere le righe di codice e isolare in cui un errore di battitura può aver inserito le righe di codice . Esaminando le istruzioni di formato in Fase 4 si capisce come conversioni di data sono gestite in Visual Basic .

• Come stampare un documento utilizzando Visual Basic 6.0 
• Come convertire Fortran a Visual Basic