Za začetek ustvarimo nov projekt in ga poimenujmo.
V mojem primeru je to Objekti.
|
|||||
 |
|||||
|
|||||
Za najboljše delovanje kode, pa spremenite lastnosti okna 1 v naslednje:
|
|||||
|
|||||
Zdaj bomo ustvarili gumb, ki bo povzročil, da se bo ustvarila panela. Zdaj uporabite te podatke:
|
|||||
|
|||||
Zdaj smo uredili statični del okna. Zdaj bomo prešli na kodo. Dvakrat kliknite na Button1. Najprej vpišite:
'Ustvari spremenljivko which Dim which As Integer = 0 Poglejte na sliko, kam vpisati. |
|||||
|
|
|
|||||
V kodo za Button1 pa vnesete:
'Spremenljivka b pomeni nova panela Dim b As New Panel 'Novi paneli določi lokacijo b.Location = New System.Drawing.Point(12, (which * 62) + 12) which += 1 'Določi ime nove panele b.Name = "Panel" & which 'Določi stil nove panele b.BorderStyle = BorderStyle.FixedSingle 'Določi velikost nove panele b.Size = New System.Drawing.Size(317, 50) b.TabIndex = which + 2 'Določi barvo nove panele b.BackColor = Color.LightSteelBlue Me.Controls.Add(b) AddHandler b.Click, AddressOf deneme |
|||||
|
|||||
Vendar to ni dovolj? Tukaj mora biti tudi ime in status. Zato za prejšnjo kodo vpišite tole:
'Spremenljivka c pomeni nov Label Dim c As New Label 'Določi lokacijo c spremenljivki c.Location = New System.Drawing.Point(40, 4) 'Spremenljivki določi naj sama določa velikost (glede na tekst) c.AutoSize = True 'Določi spremenljivko font in katere črke so to Dim font As New Font("Trebuchet MS", 10, FontStyle.Regular) 'Določi črke c.Font = font 'Določi barvo c.ForeColor = Color.DarkRed 'Določi tekst c.Text = "Tekst od panele" & which AddHandler c.MouseMove, AddressOf altciz AddHandler c.MouseLeave, AddressOf altciz_kaldir 'Določi spremenljivko d kot nov Label Dim d As New Label 'Določi lokacijo d spremenljivke d.Location = New System.Drawing.Point(45, 22) 'Spremenljivki določi naj sama določa velikost (glede na tekst) d.AutoSize = True 'Določi tekst spremenljivke d.Text = "Podtekst od panele" & which b.Controls.Add(c) b.Controls.Add(d) c.Visible = True b.Visible = True |
|||||
|
|||||
No zdaj pa 'razhroščimo' program. Dobili boste te napake:
AddHandler b.click, AddressOf deneme AddHandler AddHandler c.MouseMove, AddressOf altciz AddHandler c.MouseLeave, AddressOf altciz_kaldir |
|||||
|
|||||
Te kode določijo dogodke za vaše objekte, zato moramo tudi tem določiti funkcijo. Pred kodo End Class kliknete dvakrat tipko Enter in vpišete naslednjo kodo:
Private Function deneme(ByVal sender As System.Object, ByVal e As System.EventArgs) MsgBox(sender.Name) Return vbNull End Function Private Function altciz(ByVal sender As System.Object, ByVal e As System.EventArgs) sender.font = New Font("Trebuchet MS", 10, FontStyle.Bold) Cursor = Cursors.Hand Return vbNull End Function Private Function altciz_kaldir(ByVal sender As System.Object, ByVal e As System.EventArgs) sender.font = New Font("Trebuchet MS", 10, FontStyle.Regular) Cursor = Cursors.Default Return vbNull End Function Za večjo ločljivost kliknite tukaj. |
|||||
|
|||||
V redu. Zdaj smo program ustvarili in ga moramo le še preizkusiti.
Za konec pa vam povem, da če ste uporabili možnost 'kopiraj & prilepi ' ste porabili 10 minut, če pa ste v kodo pogledali podrobno, ste pa porabili vsaj 1 uro. Če vam kaj ne bo jasno, pa pišite na forum. |
|||||
