Visual Basic 6.0 enthält eine Reihe von Formatierungsoptionen, mit denen der Benutzer zum Anzeigen und Drucken Daten auf unterschiedliche Weise zu ermöglichen. Durch ein paar einfache Visual Basic -Steuerelemente und bedingte Anweisungen , können Sie ein kleines Programm, das diese Methoden illustrieren wird . Dieser Strom beispielsweise beginnt mit dem heutigen Datum und zeigt verschiedene Formate für das gleiche Datum . Verwenden Sie die Formatierung Richtungen gewünschten Möglichkeiten, um ein Datum in jedem Programm, das Sie schreiben anzuzeigen einzufügen. Anleitung
1
Erstellen Sie ein neues Visual Basic (VB) Projekt mit dem "Standard-EXE " -Vorlage zur Verfügung, wenn Sie auf "Datei" und dann auf " New Project" in VB . Klicken Sie auf "Datei" und dann "Save Project As . " Speichern Sie das Formular als " ConvertDate " und das Projekt als "Convert Datum".
2
Doppelklicken Sie auf das " ListBox " -Steuerelement in der Toolbox auf der linken Seite des Bildschirms, um es zum Formular hinzufügen . In der Liste "Eigenschaften" auf der rechten Seite des Bildschirms , stellen Sie die Form "Höhe" -Eigenschaft auf 2600 und die "Breite" , um 4500 . Ziehen Sie das " ListBox " auf der linken Seite des Formulars und legen Sie die "Höhe" und "Breite" Eigenschaften bis 1425 und 4725 . In drei " Labels " auf die Form durch einen Doppelklick auf den großen Buchstaben "A" in der Toolbox dreimal. Ordnen Sie die Etiketten so dass " Label3 " ist das oberste Element auf dem Formular. Put " Label1 " und " Label2 " in einer Zeile unterhalb der ListBox . Stellen Sie die "Höhe" und "Breite" Eigentum " Label1 " auf 500 und 1800 . Stellen Sie die "Höhe" und "Breite" der " Label2 " auf 800 und 3250 . Deaktivieren Sie die Beschriftungen von " Label1 " und " Label2 " in ihre " Eigenschaften" , so dass sie leer sind .
3
Klicken Sie auf " Ansicht" und dann "Code" in der obersten Ebene Visual Basic Menü . Geben Sie den folgenden Code genau wie es scheint.
Option ExplicitPrivate Sub Form_Load () Label3.Caption = " Markieren Sie das gewünschte Format , um sie anzuzeigen . " Label1.Caption = " Heute ist" & Format ( Now , " m /d /yyyy " ) = Label2.Visible TrueList1.AddItem " Full Date " List1.AddItem " Verkürzte Date " List1.AddItem " Tag /Monat " List1.AddItem " Monat /Jahr " List1.AddItem " Monat Datum , Jahr ( Day der Woche ) " List1.AddItem " Verkürzte Datum zzgl. Tag, Woche, und Quarter of the Year " End Sub
4
Geben Sie die folgenden Zeilen Code unter denen in Schritt 3:
< p> private Sub List1_Click () Select Case List1.ListIndexCase "0" Label2.Caption = Format ( Now , " dddd , mmmm dd, yyyy ") Case "1" Label2.Caption = Format ( Now , " m /d /yy ") Case " 2 " Label2.Caption = Format ( Now , " d - mmmm ") Case " 3 " Label2.Caption = Format ( Now , " mmmm -yy ") Case " 4 " Label2.Caption = Format ( Now , "mmm dd, yyyy ( dddd ) ") Case " 5 " Label2.Caption = Format ( Now , "mm /tt /jj (\\ d \\ a \\ y = y \\ w \\ e \\ e \\ k = ww \\ q \\ u \\ a \\ r \\ t \\ e \\ r = q) ") End Sub SelectEnd
5
Presse " F5 ", um das Programm auszuführen. Wenn es keine Probleme gibt , können Sie auf "Datei" und dann auf " Als Konvertieren Date.exe ", um eine lauffähige Version zu erstellen. Wenn etwas nicht richtig angezeigt wird , und drücken Sie "F8" , um durch die Codezeilen Schritt und zu isolieren, wo ein Tippfehler die Codezeilen eingegeben haben . Durch die Untersuchung der Format Anweisungen in Schritt 4 werden Sie verstehen, wie Datum Konvertierungen in Visual Basic.
Behandelt werden
