Sitemize reklam vermek için [email protected] adresine mail atabilirsiniz
For Advertising Contact [email protected]


[VB] listboxla ilgili güzel bir örnek

JoJoPaPi

Level 8
TM Üye
Ticaret - 0%
0   0   0
Katılım
29 Mar 2009
Konular
697
Mesajlar
2,980
Beğeniler
120
MmoLira
0
DevLira
0
#1
listboxla ilgili güzel bir örnek
Private Sub Command1_Click()
Dim sayi1 As Integer
Dim sayi2 As Integer
Dim sayi3 As Integer
Dim sayi4 As Integer
Dim sayi5 As Integer
Dim sayi6 As Integer
sayi1 = Val(Text1.Text)
sayi2 = Val(Text2.Text)
sayi3 = Val(Text3.Text)
sayi4 = Val(Text4.Text)
sayi5 = Val(Text5.Text)
sayi6 = Val(Text6.Text)
Select Case List1.ListIndex
Case o
ort = (sayi1 + sayi2 + sayi4) / 3
Case 1
ort = (sayi1 + sayi2 + sayi4 + sayi5) / 4
Case 2
ort = (sayi1 + sayi2 + sayi3 + sayi4 + sayi5) / 5
Case 3
ort = (sayi1 + sayi2 + sayi3 + sayi4 + sayi5 + sayi6) / 6
End Select
Label8.Caption = ort
End Sub

Private Sub Form_Load()
List1.AddItem "2 sınav 1sözlü"
List1.AddItem "2 sınav 2 sözlü"
List1.AddItem "3 sınav 2 sözlü"
List1.AddItem "3 sınav 3 sözlü"
End Sub

Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Label1.Visible = True
Text1.Visible = True
Label2.Visible = True
Text2.Visible = True
Label3.Visible = False
Text3.Visible = False
Label4.Visible = True
Text4.Visible = True
Label5.Visible = False
Text5.Visible = False
Label6.Visible = False
Text6.Visible = False
Case 1
Label1.Visible = True
Text1.Visible = True
Label2.Visible = True
Text2.Visible = True
Label3.Visible = False
Text3.Visible = False
Label4.Visible = True
Text4.Visible = True
Label5.Visible = True
Text5.Visible = True
Label6.Visible = False
Text6.Visible = False
Case 2
Label1.Visible = True
Text1.Visible = True
Label2.Visible = True
Text2.Visible = True
Label3.Visible = True
Text3.Visible = True
Label4.Visible = True
Text4.Visible = True
Label5.Visible = True
Text5.Visible = True
Label6.Visible = False
Text6.Visible = False
Case 3
Label1.Visible = True
Text1.Visible = True
Label2.Visible = True
Text2.Visible = True
Label3.Visible = True
Text3.Visible = True
Label4.Visible = True
Text4.Visible = True
Label5.Visible = True
Text5.Visible = True
Label6.Visible = True
Text6.Visible = True
End Select
End Sub
 
Üst