1) .
2) .
3) 4.2-3.
.
4) Label1, , .
5) Label, . .
6) ListBox .
7) Label, .
8) Button .
9) , , . 4.4.2-5.
4.4.2-5
Form1 | Text | 4.2-3 |
Label1 | Font | Times New Roman, Bold (), 12-point (12 ) |
Name | Label1 | |
Text | ||
Label2 | Name | Label2 |
Text | ||
Label3 | AutoSize | False |
BorderStyle | Fixed3D | |
ForeColor | Red() | |
Name | Label3 | |
Text | () | |
ListBox1 | Name | ListBox1 |
Button1 | Name | Button1 |
Text | () |
(. 4.4.2-8).
. 4.4.2-8. .4.2-3
10) .
Form1_Load().
11) :
ListBox1.ltems.Add("England"): ListBox1.ltems.Add("Germany") ListBox1.ltems.Add("Mexico"): ListBox1.ltems.Add("ltaly") |
12)
Add() ListBox.
13)
Form1.vb[]
, ListBox1
, .
ListBox1.SelectedIndexChanged().
14) , ,
:
Label3.Text = ListBox1.Text Select Case ListBox1.Selectedlndex Case 0 Label3.Text ="Hello, programmer" Case 1 Label3.Text ="Hallo, programmierer" Case 2 Label3.Text ="Hola, programador" Case 3 Label3.Text ="Ciao, programmatore" End Select |
Text . , , ListBox1.Text, , . Select Case.
ListBox1.SelectedIndex, . SelectedIndex ; 0 (), 1, 2 . SelectedIndex, Select Case , , .
|
|
15) .
Button1_Click().
End (. 4.4.2-9).
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) HandlesMyBase.Load ListBox1.Items.Add("England"): ListBox1.Items.Add("Germany") ListBox1.Items.Add("Mexico"): ListBox1.Items.Add("Italy") End Sub Private Sub Button1_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs) Handles Button1.Click End End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender _ As System.Object, ByVal e As System.EventArgs) _ Handles ListBox1.SelectedIndexChanged Label4.4.Text = ListBox1.Text Select Case ListBox1.SelectedIndex Case 0 Label4.4.Text = "Hello, programmer" Case 1 Label4.4.Text = "Hallo, programmierer" Case 2 Label4.4.Text = "Hola, programador" Case 3 Label4.4.Text = "Ciao, programmatore" End Select End Sub End Class |
. 4.4.2-9. 4.2-3
16) , . .
17) , ,
.
18)
.
19)
.
. 4.4.2-10 .
20) , .
. 4.4.2-10. 4.2-3,