Kurs Visual Basic cz.VII

  WITAM WAS WSZYSTKICH!!! jako, ┐e rozpoczΩ│y siΩ wakacje ten artyku│ bΩdzie ostatnim artyku│em o VB w czasie trwania wakacji. Jestem pewien, ┐e te┐ chcecie odpocz▒µ od swoich komputer≤w(bo komputer w takie piΩkne dni nie ci▒gnie, a┐ tak jak w ciemne zimne deszczowe jesienne i zimowe wieczory. Jak w poprzedniej czΩ╢ci zajmiemy siΩ pisaniem programu, kt≤ry sko±czymy po wakacjach. A gdy go sko±czymy bΩdziemy mieli gotowy zar▒bisty programik w kt≤rym bΩdziemy mogli zapisywaµ swoje dane i wiadomo╢ci. W tej czΩ╢ci kursu poznamy jedn▒ z metod zapisywania i odczytywania danych. Zn≤w ulepszymy nasz program. Przetestujemy go. Dodamy co╢ jeszcze i to wszystko! W ko±cu s▒ wakacje! Gdy przeczytasz ten artyku│ i go przeanalizujesz p≤jd╝ sobie nad wodΩ pop│ywaµ. Odpocznij troszkΩ!

om≤wienie:

zapis:

ChDir App.Path ' przeniesienie katalogu do katalogu w kt≤rym jest nasza aplikacje
ChDrive App.Path 'przeniesienie katalogu na dysk w kt≤rym jest nasza aplikacja
Set fs = CreateObject("Scripting.FileSystemObject") 'nadanie zmiennej fs warto╢ci tworzenia obiektu
Set a = fs.CreateTextFile("ust.txt", True) 'okre╢lenie, ┐e zmienna a r≤wna siΩ zmiennej fs z warto╢ci▒ tworzenia obiektu i okre╢lenie, ┐e obiektem stworzonym ma byµ plik ust.txt
a.Writeline (wartosc dla obiektu np. command1.caption) 'zapisanie do obiektu ust.txt danych
a.Close 'zako±czenie zapisywania

odczyt:

ChDir App.Path 'wiadomo
ChDrive App.Path 'wiadomo
G = "ust.txt" 'nadanie zmiennej G warto╢ci ust.txt
Open G For Input As #1 'ustawienie, ┐e otwieranie ma otworzyµ G czyli obiekt ust.txt
Line Input #1, a 'odczytaj nastΩpn▒ liniΩ wiersza
Command1.Caption = a 'wstaw warto╢µ wiersza do kontrolki command1
Close #1 'zako±cz odczyt

praktyka(tworzenie):

1. Otw≤rz nasz projekt.
2. Przejd╝ do okna drugiego(je╢li nie zmieni│e╢ nazwy powinno nazywaµ siΩ form2)
3. Potrzebujemy pewnej kontrolki, ale nie ma jej na przyborniku z kontrolkami co zrobiµ?

Z menu Project wybierz Components..., albo po prostu naci╢nij Ctrl + T.

Przewijaj suwak i znajd╝ kontrolkΩ o nazwie Microsoft Rich Textbox Control.

Zaznacz znacznikiem, ┐e chcesz j▒ dodaµ i naci╢nij na Zastosuj.

4. Dodaj go do formy(kontrolkΩ Rich Textbox) i ustaw jej warto╢ci na nastΩpuj▒ce:

name: rtb1
Appearance: 0 - rtfFlat
ScrollBars: 3 - rtfBoth
Text: "" 'ma byµ pusto wykasuj zawarto╢µ okna warto╢ci w│a╢ciwo╢ci Text
Height: 2535
Width: 8295
Top: 3840
Left: 360
TabIndex: 2
5. Dodaj trzy kontrolki Label i ustaw ka┐d▒ kolejn▒ wed│ug podanych danych:

name: Label1
Height: 375
Width: 3495
Top: 840
Left: 360
Caption: Kontakty
BackStyle: 0 - Transparent

name: Label2
Height: 375
Width: 4575
Top: 840
Left: 4080
Caption: Zadania
BackStyle: 0 - Transparent

name: Label3
Height: 375
Width: 8175
Top: 3480
Left: 360
Caption: Notatki
BackStyle: 0 - Transparent
6. Dodaj dwie kontrolki ListBox i ustaw ich warto╢ci tak jak ni┐ej pokazano:

name: List1
Width: 3615
Height: 2565
Top: 840
Left: 360
Appearance: 0 - Flat
TabIndex: 0

name: List2
Width: 4575
Height: 2565
Top: 840
Left: 4080
Appearance: 0 - Flat
TabIndex: 1
7. Na koniec dodaj do formy jedn▒ kontrolkΩ CommandButton i ustaw jej w│a╢ciwo╢ci:

name: Command1
caption: Zapisz zmiany
Left: 360
Top: 6480
Height: 2535
Width: 8295
TabIndex: 3

Przysz│a pora tchn▒µ ┐ycie w nasz program! Dodajemy kod ╝r≤d│owy:

Do podanych zdarze± wpisz kod ╝r≤d│owy:

Private Sub Form_Load()
Dim fc, dx 'zdefiniuj zmienne
ChDir App.Path 'wiadomo
ChDrive App.Path 'wiadomo
G = "il1.txt" 'nadanie zmiennej G warto╢ci il1.txt.txt
Open G For Input As #1 'ustawienie, ┐e otwieranie ma otworzyµ G czyli obiekt il1.txt
Line Input #1, a 'odczytaj nastΩpn▒ liniΩ wiersza
fc = a 'wstaw warto╢µ zmiennej
For x = fc To 1 Step -1
Line Input #1, a 'odczytaj nastΩpn▒ liniΩ wiersza
List1.AddItem a 'wstaw warto╢µ wiersza do kontrolki List1
Next x
Line Input #1, a 'odczytaj nastΩpn▒ liniΩ wiersza
dx = a 'ustaw warto╢µ zmiennej
For xy = dx To 1 Step -1
Line Input #1, a 'odczytaj nastΩpn▒ liniΩ wiersza
List2.AddItem a 'wstaw warto╢µ wiersza do kontrolki List1
Next xy
Line Input #1, a 'odczytaj nastΩpn▒ liniΩ wiersza
rtb1.Text = a 'wstaw warto╢µ wiersza do kontrolki rtb1
Close #1 'zako±cz odczyt
End Sub
Private Sub List1_Click()
Shell ("start.exe mailto:" + List1.Text), vbHide 'uruchom program pocztowy z formularzem do wysy│ania na adres kt≤ry zosta│ klikniΩty w formie List1
End Sub
Private Sub List2_Click()
MsgBox (List2.Text), 64, "Zadania" 'wy╢wietl okno komunikatu o zawarto╢ci klikniΩtego has│a w List2, a tytu│ tego okna to Zadania
End Sub

Aby program dzia│a│ musisz w│adowaµ ten plik o tej nazwie tam gdzie znajduje siΩ program, a wszystko bΩdzie dzia│aµ. W przeciwnym wypadku wyskoczy b│▒d! Zapisywaniem i dodawaniem nastΩpnych w│a╢ciwo╢ci z pozycji programu zajmiemy siΩ po wakacjach!

To ju┐ koniec do zobaczenia po wakacjach, albo pod ich koniec. »yczΩ wspania│ych wakacji i r≤wnie wspania│ych przyg≤d z VB. Pozdrawiam!
Praca do pobrania(3,97KB)

 

Autor:
Filip Cynarski
filip@webhelp.pl
http://vbgo.prv.pl