Visual Basic 6.0 bevat een aantal opmaakopties waarmee de gebruiker weer te geven en af te drukken data op verschillende manieren . Door gebruik te maken van een paar eenvoudige Visual Basic- besturingselementen en voorwaardelijke verklaringen , kunt u een klein programma dat deze methoden zal illustreren creëren. Deze huidige voorbeeld begint met de datum van vandaag en toont verschillende formaten voor dezelfde datum . Gebruik de opmaak routebeschrijving naar de gewenste manieren om een datum weer binnen elk programma schrijf je plaatst . Instructies 1 Maak een nieuwe Visual Basic ( VB ) project met behulp van de "Standard EXE " template beschikbaar wanneer u klikt op " File " en vervolgens " New Project" in VB . Klik op " File " en vervolgens " Project opslaan als . " Sla het formulier op als " ConvertDate " en het project als "Convert Date " . Dubbelklik 2 op de " ListBox " controle in de Toolbox op de linkerkant van het scherm om deze toe te voegen aan het formulier . In het "Eigenschappen " lijst rechts van het scherm, het formulier "Hoogte " eigenschap tot 2600 en de " breedte " tot 4500 . Sleep het " ListBox " aan de linkerkant van het formulier en stel de " hoogte " en " breedte " eigenschappen voor 1425 en 4725 . Voeg drie " Labels " om het formulier door te dubbelklikken op de grote letter " A " in de Toolbox drie keer . Schik de etiketten zodat " Label3 ' is het bovenste item op het formulier . Zet " Label1 " en " Label2 " in een rij onder de ListBox . Stel de "Hoogte " en " breedte " eigendom van " Label1 " tot 500 en 1800 . Stel de "Hoogte " en " breedte " van " Label2 " naar 800 en 3250 . Duidelijk de bijschriften van " Label1 " en " Label2 " in hun rubriek "Eigenschappen " dus ze zijn leeg . 3 Klik op " View " en vervolgens "Code" in het hoogste niveau Visual Basic menu . Typ de volgende code in exact zoals het lijkt . Option ExplicitPrivate Sub Form_Load ( ) Label3.Caption = " Markeer de gewenste weer te geven formaat . " Label1.Caption = " Vandaag is het " & Format ( Now , " m /d /yyyy " ) Label2.Visible = TrueList1.AddItem " Full Date " List1.AddItem " Verkorte Date " List1.AddItem " Dag /Maand " List1.AddItem " Maand /Jaar " List1.AddItem " Maand Datum , Jaar ( Day van de Week ) " List1.AddItem " Verkorte Date plus Dag , Week , en wijk van het Jaar "End Sub Type 4 de volgende regels code onder die in Stap 3 : 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 /jj " ) 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 , " dd /mm /jj ( \\ d \\ a \\ y = y \\ w \\ e \\ e \\ k = ww \\ q \\ u \\ a \\ r \\ t \\ e \\ r = q ) " ) End Sub SelectEnd Press 5 " F5 "om het programma uit te voeren . Als er geen problemen zijn , kunt u klikken op " File " en vervolgens " Make Convert Date.exe " naar een uitvoerbaar versie te creëren . Als er iets niet correct weergegeven , druk dan op " F8 " om door de lijnen van de code en te isoleren waar een typefout kan de regels code hebt ingevoerd . Door onderzoek van de indeling instructies in stap 4 zult u begrijpen hoe datum conversies worden behandeld in Visual Basic .
|