Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte nový projekt v jazyku Visual Basic 2005 , na " Windows Form Application " typu , a priradiť mu ľahký- k - pamätať meno ako " dátum konverzie . "
2
Pomocou myši umiestnite kurzor na " Toolbox " na ľavej strane formulára na obrazovke , ak Toolbox nie je úplne vidieť . Dvakrát kliknite na nástroj Label pridať do formulára , a potom to znova pridať druhý štítok . Opakujte tento postup pre pridanie TextBox a dve tlačidlá . Kontroly budú pomenované Label1 , Label2 , Button1 a Button2 . Tam by mal byť názov zobrazený v TextBox .
3
Kliknite a pretiahnite textové pole , takže je napravo od prvého štítku a na úrovni s ním . Presuňte druhý štítok pod prvým štítku a na prvé tlačidlo nižšie , že . Shift druhé tlačidlo vpravo na prvé tlačidlo smerom k dolnej časti formulára .
4
zmeniť zobrazený text na štítky a tlačidiel po kliknutí na každý zase a skenovanie dole " Vlastnosti " box na pravej strane na " Text " . Zmena Label1 text " Zadajte dátum previesť " a odstrániť vlastnosť text Label2 . Zmeniť text Button1 čítať , " Convert " a Button2 ukázať " Exit " . ( Upozornenie : . V poliach Vlastnosti , nezahŕňajú úvodzoviek ) Možno budete musieť rozšíriť šírku štítkov a TextBox kliknutím na ne a ťahaním veľkosť väčšia . Uistite sa , že rozšírenie Label2 tak , aby vypĺňal prakticky šírku formulára .
5
Dvakrát kliknite na tlačidlo " Convert " otvorte okno kód . Napíšte tento kód presne tak , ako sa zdá , medzi " Private Sub Button1_Click " ( nasleduje nejaký iný východiskový text ) a " End Sub " . Kompletný kód by mal vyzerať ako je uvedené nižšie . Poznámka : Je dôležité použiť kapitálu " D " v strStringDate = dt.ToString ( " D " ) , riadok , a nie malá . " D " Okrem toho , že prvé riadky každého Private Sub rutiny sú spojité , drvená s nový riadok , pretože sa môžu objaviť na webe .
Private Sub Button1_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky Button1.ClickDim dt Ako DateDim strStringDate Ako Stringdt = TextBox1.TextstrStringDate = dt.ToString ( " D " ) Label2.Visible = TrueLabel2.Text = " Premenná strStringDate je teraz vo formáte reťazca , " & vbCrLf & " , ako sa zdá , dole , a nie vo formáte dáta " & vbCrLf & " , ako ho zadať . " Label3.Visible = TrueLabel3.Text = strStringDateEnd Sub
Private Sub Button2_Click ( byval sender ako System.Object , Bývalá e As System.EventArgs ) Kľuky Button2.ClickLabel2 . text = " " EndEnd Sub
Private Sub Form1_Load ( byval odosielateľa Ako System.Object , Bývalá e As System.EventArgs ) Kľuky MyBase.LoadEnd Sub klipart
Na samom vrchole formulára , pred týmito podprogramy , mali by ste vidieť riadok čítanie " Public Class Form1 " a na samom dne , " End Class . " Ak tieto riadky nie sú tam vložiť . Po dokončení stlačte " F5 " skontrolovať svoju prácu .
Copyright © počítačové znalosti Všetky práva vyhradené