Visual Basic 6 Kurs

More documents

Recommendations

Info

Aby móc korzystać z tego obiektu należy z komponentów (Ctrl+T) wybrać 'Microsoft Windows Common Controls 5.0 (SP2) Obiekty dodajemy do drzewa przez funkcje Nodes TreeView1.Nodes.Add [Relacja],[TypRelacji],[Klucz],[WyświetlanyTekst],[Obrazek],[ZaznaczonyObrazek] Dodanie kilku obiektów: TreeView1.Nodes.Add , , , "Tekst 1" TreeView1.Nodes.Add , , , "Tekst 2" TreeView1.Nodes.Add , , , "Tekst 3" TreeView1.Nodes.Add , , , "Tekst 4" Dodanie pod obiektów do listy jest proste, po pierwsze musimy nadać jakiś Klucz obiektowi matce: TreeView1.Nodes.Add , , "Matka", "Tekst 1" Teraz aby dodać pod obiekt który będzie rozwinięciem Matki należy użyć Relacji jako klucza i podać typ relacji: TreeView1.Nodes.Add "Matka", tvwChild, , "Tekst 2" TreeView1.Nodes.Add , , "Matka", "Tekst 1" TreeView1.Nodes.Add "Matka", tvwChild, , "Tekst 2" TreeView1.Nodes.Add "Matka", tvwChild, , "Tekst 3" TreeView1.Nodes.Add "Matka", tvwChild, , "Tekst 4" Każdy z pod elementów także może być matką innych elementów, wystarczy nadać mu klucz TreeView1.Nodes.Add , , "Matka", "Tekst 1" TreeView1.Nodes.Add "Matka", tvwChild, , "Tekst 2" TreeView1.Nodes.Add "Matka", tvwChild, "TezJestemMatka", "Tekst 3" TreeView1.Nodes.Add "Matka", tvwChild, , "Tekst 4" 44
TreeView1.Nodes.Add "TezJestemMatka", tvwChild, , "Tekst 3.1" TreeView1.Nodes.Add "TezJestemMatka", tvwChild, , "Tekst 3.2" Elementy z listy są standardowo 'zwinięte' aby rozwinąć listę należy użyć EnsureVisible TreeView1.Nodes.Add , , "Matka", "Tekst 1" TreeView1.Nodes.Add "Matka", tvwChild, , "Tekst 2" TreeView1.Nodes.Add "Matka", tvwChild, "TezJestemMatka", "Tekst 3" TreeView1.Nodes.Add "Matka", tvwChild, , "Tekst 4" TreeView1.Nodes.Add "TezJestemMatka", tvwChild, "PokazMnie", "Tekst 3.1" TreeView1.Nodes.Add "TezJestemMatka", tvwChild, , "Tekst 3.2" TreeView1.Nodes("PokazMnie").EnsureVisible Opcje: TreeView1.Nodes.Remove (Index) - usuwa wybraną pozycje z drzewa o wybranym Indeksie lub kluczu: TreeView1.Nodes.Remove (4) - usunie 4 element z listy TreeView1.Nodes.Remove ("TezJestemMatka") - usunie element o kluczu 'TezJestemMatka' TreeView1.Nodes.Clear - czyści całe drzewo TreeView1.SelectedItem.Text - przechowuje tekst zaznaczonego elementu Obrazki Obrazki dodajemy na prawie identycznej zasadzie jak do obiektu ListView. Najpierw umieśćmy na formie obiekt ImageList Teraz kliknijmy na ImageList1 prawym myszki i wybierzmy Properties. W zakładce General ustawmy wielkość obrazków na 16x16, w Images dodajmy kilka przygotowanych przez nas obrazków 45
Page 1 and 2: autorzy: Krystian Ł. Kamil R. wzno
Page 3: 45. Indeksowanie obiektów.........
Page 6 and 7: 1.Zmienne-co to takiego? 3. Zmienne
Page 8 and 9: Typ Prefix Integer % Long & Single
Page 10 and 11: Misc Name Określa nazwę kontrolki
Page 12 and 13: 2 - anuluj 3 - przerwij 4 - ponów
Page 14 and 15: Najważniejszymi właściwościami
Page 16 and 17: Na stronie kursu: http://visual.bas
Page 18 and 19: Jeżeli chcemy na jednej formie ust
Page 20 and 21: Line rysuje prostą linie 17. Opera
Page 22 and 23: pop = wyraz Like "T" Teraz otrzymam
Page 24 and 25: If (warunek) Then Instrukcje1 Else
Page 26 and 27: 4.Case Instrukcja Case służy do s
Page 28 and 29: Pętla jest wykonywana do momentu,
Page 30 and 31: Procedura publiczna dla wszystkich
Page 32 and 33: A = Macierz (5,26) 6.Tablice dynami
Page 34 and 35: Unload Co - wyłącza forme 26. Lis
Page 36 and 37: Linia 23 - jeżeli klikłeś w list
Page 38 and 39: Tryb wyświetlania elementów wybie
Page 40 and 41: ListView1.SmallIcons = ImageList1 G
Page 42 and 43: edytowanej kolumny (w tym zdarzeniu
Page 46 and 47: Aby obrazki były powiązane z Tree
Page 48 and 49: należy na końcu linijki z procedu
Page 50 and 51: Zmieni nazwę folderu z aaa na bbb,
Page 52 and 53: Private WFD As WIN32_FIND_DATA Priv
Page 54 and 55: wygląda to tak: On Error Goto Wyst
Page 56 and 57: Private Sub Command1_KeyDown(KeyCod
Page 58 and 59: Spowoduje otwarcie pliku readme.txt
Page 60 and 61: Private Sub m1_Click() End Sub Pomi
Page 62 and 63: czegoś takiego. Właściwość odp
Page 64 and 65: przyciskowi Style na 5, a potem mo
Page 66 and 67: Zwraca ilość jednostek które min
Page 68 and 69: 46. Przeciąganie obiektów http://
Page 70 and 71: Private Sub Form_Load() PSet (10, 1
Page 72 and 73: Form1.FontBold = True Przekrzywieni
Page 74 and 75: Pamiętajmy aby druga funkcja była
Page 76 and 77: Powyższy przykład łączy pole1 i
Page 78 and 79: BitBlt(Picture3.hDC, 0, 0, 100, 100
Page 80 and 81: Dim Wyraz() As String Tekst = "to j
Page 82 and 83: Przykład zastosowania (część ba
Page 84 and 85: With Command1 .Caption = "Tekst" .L
Page 86 and 87: MouseUp(Button As Integer, Shift As
Page 88 and 89: tak żeby kwadracik przy Visible by
Page 90 and 91: dzielenie \ dzielenie całkowite Mo
Page 92 and 93: End Sub Private Sub VScroll1_Change
Page 94 and 95:
Private Declare Function BitBlt Lib
Page 96 and 97:
Dim Wynik As Integer Wynik = 8 / 0
Page 98 and 99:
zapisywał dane otrzymane z formula
Page 100 and 101:
otwarte, inaczej kontrolka zwróci
Page 102 and 103:
ustawionym multiline oraz pionowym
Page 104 and 105:
anonimowych logować, na takie zdar
Page 106 and 107:
Akcja = 20 If Winsock1.State = 7 Th
Page 108 and 109:
drw-rw-rw- 1 user group 0 May 15 11
Page 110 and 111:
Przydało by się dać użytkowniko
Page 112 and 113:
End Sub Usuwanie folderu to zwykłe
Page 114 and 115:
Oczywiście OdNowa: deklarujemy zar
Page 116 and 117:
wykorzystanie znaku ; (druga pogrub
Page 118 and 119:
- Accept: akceptowanie_plikow - Ref
Page 120 and 121:
A = B = 505 B = reszta = 25 Reszta
Page 122 and 123:
Trzecie sortowanie nic w naszych li
Page 124 and 125:
jednej z naszych połówek i tak do
Page 126 and 127:
Na stronie kursu: http://visual.bas
Page 128 and 129:
Printer.Print ";];];];];]" Printer.
Page 130 and 131:
Printer.CurrentX = MLewy ' 8 Printe
Page 132 and 133:
Dim Wyrazy As String Wyrazy = "" Di
Page 134 and 135:
Printer.Print "" End If If Pozycja
Page 136 and 137:
Teraz możemy już rysować kwadrat
Page 138 and 139:
Printer.Circle (2000, 2000), 1500,
Page 140:
Picture1.BackColor = RGB(150, 170,
show all

Visual Basic 6 Kurs

Create successful ePaper yourself

Delete template?

Save as template?