Przykładowa aplikacja
Proces tworzenia aplikacji za pomocą programu Visual Basic zostanie zilustrowany przykładem. Pierwszym krokiem jest zdefiniowanie zdarzeń i projektu graficznego aplikacji. W naszym przypadku będzie to zegarek cyfrowy. Będzie on wyświetlał datę a pod nią czas. Zarówno datę jak i czas będzie można ukryć, a także będzie można wybrać rodzaj i kolor wyświetlanych czcionek oraz sposób ich formatowania. Kliknięcie prawym przyciskiem myszy na dacie lub czasie będzie rozwijać odpowiednie menu pop-up
Tworzenie aplikacji zaczynamy od ustalenia właściwości formy:
| Właściwość |
Wartość |
Opis |
| Name |
frmZegar |
nazwa formy |
| Caption |
Zegar |
tytuł formy |
| Height |
1500 |
wysokość formy |
| Width |
3000 |
wysokość formy |
Pozostałe właściwości zostawiamy domyślne.
Do formy dodajemy teraz dwie kontrolki Label. Pierwsza będzie wyświetlała datę, druga czas. W oknie Properties ustalamy właściwości pierwszej:
| Właściwość |
Wartość |
Opis |
| Name |
lblData |
nazwa kontrolki |
| AutoSize |
True |
automatyczna zmiana rozmiaru kontrolki |
| BackStyle |
0 - Transparent |
rodzaj tła kontrolki |
| Caption |
00:00:00 |
tekst kontrolki (ten tekst i tak nie będzie wyświetlany, bo tu będzie wyświetlana data) |
| Font.Size |
12 |
rozmiar czcionki (okno dialogowe Czcionka) |
| Left |
1000 |
pozycja lewej krawędzi kontrolki |
| Top |
100 |
pozycja górnej krawędzi kontrolki |
I właściwości drugiej kontrolki Label wyświetlającej czas:
| Właściwość |
Wartość |
Opis |
| Name |
lblCzas |
nazwa kontrolki |
| AutoSize |
True |
automatyczna zmiana rozmiaru kontrolki |
| BackStyle |
0 - Transparent |
rodzaj tła kontrolki |
| Caption |
00:00:00 |
tekst kontrolki (ten tekst i tak nie będzie wyświetlany, bo tu będzie wyświetlany czas) |
| Font.Size |
12 |
rozmiar czcionki (okno dialogowe Czcionka) |
| Left |
1000 |
pozycja lewej krawędzi kontrolki |
| Top |
400 |
pozycja górnej krawędzi kontrolki |
Sekundowe zmiany wartości czasu wyświetlane w kontrolkach, realizuje kontrolka Timer. W oknie Properties ustalamy jej właściwości:
| Właściwość |
Wartość |
Opis |
| Name |
tmrZegar |
nazwa kontrolki |
| Enabled |
True |
włączenie kontrolki |
| Interval |
1000 |
czas w milisekundach, po którym generowane jest zdarzenie Timer (1000 odpowiada 1 sekundzie) |
| Left |
100 |
położenie kontrolki (nie ma znaczenia, ponieważ kontrolka nie jest widoczna w czasie działania programu) |
| Top |
400 |
położenie kontrolki (nie ma znaczenia, ponieważ kontrolka nie jest widoczna w czasie działania programu) |
Aby umożliwić użytkownikowi zmianę czcionek i kolorów dołączamy do formy kontrolkę CommonDialog. Standartowo nie jest ona dołączana do okna Toolbox, należy więc otworzyć okno Components (wcisnąć CTRL+T lub wybrać polecenie Components... menu Project). W oknie tym należy zaznaczyć pozycję Microsoft Common Dialog Control 5.0. Należy zaznaczyć pole wyboru obok tej nazwy i wcisnąć przycisk OK. Kontrolka CommonDialog pojawi się w oknie Toolbox. Należy ją dołączyć do formy i ustawić właściwości w oknie Properties:
| Właściwość |
Wartość |
Opis |
| Name |
cdlOknaDialogowe |
nazwa kontrolki |
| Left |
100 |
położenie kontrolki (nie ma znaczenia, ponieważ kontrolka nie jest widoczna w czasie działania programu) |
| Top |
0 |
położenie kontrolki (nie ma znaczenia, ponieważ kontrolka nie jest widoczna w czasie działania programu) |
Do formy dodajemy teraz menu (ikona MenuEditor na pasku narzędziowym, CTRL+E, polecenie MenuEditor z menu Tools) i ustawiamy właściwości:
| Pozycja i właściwości menu |
| Caption |
Name |
Index |
Checked |
Visible |
Opis |
| &Zegar |
mnuZegar |
|
|
V |
|
| ... |
K&olor |
mnuZegarKolor |
|
|
V |
umożliwia zmianę koloru tła |
| ... |
- |
mnuZegarSeparator1 |
|
|
V |
linia separująca menu |
| ... |
&Koniec |
mnuZegarKoniec |
|
|
V |
kończy program |
| &Data |
mnuData |
|
|
V |
opcje wyświetlania daty |
| ... |
&Pokaż |
mnuDataPokaz |
|
V |
V |
pokazuje i ukrywa datę |
| ... |
&Ustaw |
mnuDataUstaw |
|
|
V |
ustawia nową datę |
| ... |
- |
mnuDataSeparator1 |
|
|
V |
linia separująca menu |
| ... |
&Czcionka |
mnuDataCzcionka |
|
|
V |
umożliwia wybór czcionki i jej koloru |
| ... |
&Format |
mnuDataFormat |
|
|
V |
umożliwia wybór formatu wyświetlanej daty |
| ...... |
&Długa |
mnuDataFormatFormaty |
1 |
V |
V |
wyświetla datę w formacie długim |
| ...... |
ś&rednia |
mnuDataFormatFormaty |
2 |
|
V |
wyświetla datę w formacie średnim |
| ...... |
&Krótka |
mnuDataFormatFormaty |
3 |
|
V |
wyświetla datę w formacie krótkim |
| &Czas |
mnuCzas |
|
|
V |
opcje wyświetlania czasu |
| ... |
&Pokaż |
mnuCzasPokaz |
|
V |
V |
pokazuje i ukrywa czas |
| ... |
&Ustaw |
mnuCzasUstaw |
|
|
V |
ustawia nowy czas |
| ... |
- |
mnuCzasSeparator1 |
|
|
V |
linia separująca menu |
| ... |
&Czcionka |
mnuCzasCzcionka |
|
|
V |
umożliwia wybór czcionki i jej koloru |
| ... |
&Format |
mnuCzasFormat |
|
|
V |
umożliwia wybór formatu wyświetlanego czasu |
| ...... |
&Długi |
mnuCzasFormatFormaty |
1 |
V |
V |
wyświetla czas w formacie długim |
| ...... |
ś&redni |
mnuCzasFormatFormaty |
2 |
|
V |
wyświetla czas w formacie średnim |
| ...... |
&Krótki |
mnuCzasFormatFormaty |
3 |
|
V |
wyświetla czas w formacie krótkim |
| &Menu |
mnuCzas |
|
|
|
pop-up menu formy |
| ... |
&Ukryj menu |
mnuMenuUkryj |
|
|
V |
pokazuje i ukrywa menu |
| ... |
- |
mnuMenuSeparator1 |
|
|
V |
linia separująca menu |
| ... |
&Data |
mnuMenuData |
|
V |
V |
pokazuje i ukrywa datę |
| ... |
&Czas |
mnuMenuCzas |
|
V |
V |
pokazuje i ukrywa czas |
Podmenu Format menu Data i Czas zawiera pozycje Długi, średni i Krótki. Aby formatować sposób wyświetlania daty i czasu, można użyć funkcji Format(). Funkcja ta daje możliwość formatowania daty i czasu w trzech predefiniowanych rodzajach, właśnie: długim, średnim i krótkim. Można więc łatwo wykorzystać możliwości tej funkcji i wprowadzić takie formatowanie daty i czasu do programu. Dlatego też, w menu pojawiły się odpowiednie pozycje. Pozycje Długa menu Data\Format i Długi menu Czas\Format mają ustawione właściwości Checked na True (znacznik V), ponieważ przy uruchomieniu programu data i czas będą wyświetlane w takich właśnie formatach. Polecenia te mają taką samą nazwę (właściwość Name) i różne indeksy, określające położenie tych poleceń wewnątrz tablicy kontrolek o nazwie mnuDataFormatFormaty i mnuCzasFormatFormaty. Użycie tablicy kontrolek i indeksowania skraca kod programu, ponieważ zamiast pisać osobną procedurę dla każdego polecenia, możemy napisać jedną a Indeks, który zostanie przekazany do tej procedury przez Visual Basic, będzie określał, które polecenie zostało wybrane.
Menu Menu jest niewidocznym menu, które zostanie wykorzystane jako menu pop-up formy frmZegar i będzie wyświetlane, gdy użytkownik klinkie prawym przyciskiem na formie.
Po dodaniu kontrolek i menu do formy wygląda ona tak:
dalej...
|
