Aprire Visual Studio o Visual Basic Express. Creare un nuovo progetto di modulo di Visual di Windows . Fare clic su "File " e poi "Nuovo ". Apparirà la finestra "Nuovo progetto" . Scegliere " Visual Basic , Windows" dalla visualizzazione ad albero , e poi scegli "Progetto Windows Form ". Denominare il progetto " DateTest " e fare clic su OK . Dopo una breve attesa , viene visualizzata la finestra di progettazione del form.
2 Fare clic sull'icona " Strumenti " nella barra degli strumenti , e quindi attendere che la casella degli strumenti per aprire . Trascinare un " DateTimePicker " nel form. Fai clic destro sulla data, quindi scegliere "Proprietà ". Il nome " dtDate ", modificare la proprietà "Formato" a " breve " e la proprietà "Larghezza" a " 100 ". Fare clic sul tasto "Escape" per chiudere la finestra "Proprietà" .
3
Trascinare un pulsante dalla casella degli strumenti nel form. Il nome " btnView , " e modificare la proprietà "Testo" a "Vista ". Fare doppio clic sul pulsante per creare un gestore di eventi , e quindi aggiungere il codice seguente al gestore :
Private Sub btnView_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles btnView.Click < br
MsgBox > ( dtDate.Value.ToString ) per
End Sub
4
Clicca il tasto per eseguire il programma "F5" . Quando viene visualizzato il form , fare clic sul pulsante "Visualizza" senza cambiare la data . Si noti come sia la data e l'ora vengono visualizzate anche se solo la data apparso nel " DateTimePicker . "
5
chiudere il programma facendo clic sulla "X" in alto a destra , e poi tornare a vista del design . Trascinare un altro pulsante dalla casella degli strumenti al form. Chiamare il " btnToday , " pulsante e modificare la proprietà Text su " Oggi". Fare doppio clic sul pulsante "Oggi" per creare un altro gestore di eventi , e quindi aggiungere il seguente codice: Private Sub
btnToday_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles btnToday.Click
Dim msg As String = " La data inserita ( "
Msg & = Date.Today.ToShortDateString
& msg = " ) è"
dtDate.Value < Date.today Poi
Msg & = " meno "
ElseIf dtDate.Value = Date.today Poi
& msg = " partite "
ElseIf dtDate.Value > Date.today Poi
& msg = " maggiore di"
End If
& msg = " Oggi ( " < br
msg > & = Date.Today.ToShortDateString
& msg = " ) "
MsgBox ( msg ) per
End Sub
6
Clicca "F5" per eseguire il programma e fare clic sul pulsante "Oggi" quando viene visualizzato il form . Si noti come il messaggio che appare dice che la data inserita ( oggi ) è maggiore di oggi . Di nuovo, questo è causato dal momento che è stata aggiunta dal controllo " DateTimePicker " . Fissare il programma modificando i confronti come segue :
dtDate.Value.Date < Date.today Poi
7
Clicca " F5 " ancora una volta per avviare la programma , quindi fare clic sul pulsante "Oggi " per vedere che le date corrispondono.
Programmazione © www.354353.com