Open een nieuw project in VB 2005 , van de " Windows Form Application " type, en geef het een makkelijk te onthouden naam zoals " Datum Conversion . "
2

Gebruik de muis om de cursor over de " Toolbox " aan de linkerkant van het formulier op het scherm als de Toolbox is niet volledig zichtbaar . Dubbelklik op het label gereedschap om deze toe te voegen aan het formulier , en dan doe dit nogmaals om een ​​tweede label toe te voegen . Herhaal dit proces tot een TextBox en een twee knoppen toe te voegen . De controles zullen worden genoemd Label1 , Label2 , Button1 en Button2 . Er mag geen naam zichtbaar in het tekstvak te zijn .
3

Klik en sleep de TextBox dus het is aan de rechterkant van het eerste label en het niveau met het. Beweeg de tweede label onder het eerste label en de eerste knop onder dat . Verschuiving van de tweede knop aan de rechterkant van de eerste knop naar de onderkant van het formulier .
4

Verander de zichtbare tekst in de labels en knoppen klikt u op elke beurt en scannen op de " Eigenschappen" vak aan de rechterkant op ' tekst '. Verander Label1 tekst " Voer de datum om te zetten " en de eigenschap text van Label2 schrappen . Verander de tekst van Button1 te lezen , " Convert" en Button2 om "Exit " te tonen . ( Let op : . In het Properties dozen , omvatten niet de aanhalingstekens ) U kan nodig zijn om de breedte van de etiketten en TextBox uitbreiden door er op te klikken en de grotere maat te slepen . Vergeet niet te verruimen Label2 totdat het vult vrijwel de breedte van het formulier .
5

Dubbelklik op de "Convert" knop om het venster code te openen . Typ deze code in exact zoals deze wordt weergegeven tussen de " Private Sub Button1_Click " ( gevolgd door een aantal andere standaardtekst ) en " End Sub . " De volledige code dient als volgt uitzien . Opmerking : " . D " Het is belangrijk om een hoofdletter "D " in de strStringDate = dt.ToString ( " D " ) lijn , niet een kleine letter te gebruiken Daarnaast zijn de eerste regels van elk Private Sub routine zijn continue , niet gebroken met een nieuwe lijn als ze op het web verschijnen.

Private Sub Button1_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) op Twitter Handles Button1.ClickDim dt zoals DateDim strStringDate zoals Stringdt = TextBox1.TextstrStringDate = dt.ToString ( " D " ) Label2.Visible = TrueLabel2.Text = " De variabele strStringDate is nu in string formaat , " & vbCrLf & " zoals hieronder en niet verschijnt in de datumnotatie " & vbCrLf & " zoals u het ingevoerd. " Label3.Visible = TrueLabel3.Text = strStringDateEnd Sub

Private Sub Button2_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles Button2.ClickLabel2 . text = " " EndEnd Sub

Private Sub Form1_Load ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles MyBase.LoadEnd Sub

Op de top van de vorm , voordat deze subroutines , moet u een regel lezen "Public Class Form1 " en , helemaal onderaan , zie "End Class . " Als deze regels er niet zijn , plaats ze . Als u klaar bent , drukt u op " F5 " om uw werk te controleren .