İlk önce 3 adet form oluşturulur.Daha sonra form1’e aşağıdakiler eklenir:
Form1’e eklenir:
2 adet commandbutton eklenir.
Sonra aşağıdaki kodlar yazılır:
Private Sub Command1_Click()
Form1.Visible = False
Form2.Visible = True
End Sub
Private Sub Command2_Click()
Form1.Visible = False
Form3.Visible = True
End Sub
Form2’ye eklenir:
28 adet picturebox,1 adet list box,1 adet text,2 adet label eklenir.
Sonra aşağıdaki kodlar yazılır:
Private Sub Form_Load()
List1.AddItem "Elma"
List1.AddItem "Köpek"
List1.AddItem "Nisan"
List1.AddItem "Ağustos"
List1.AddItem "Kitap"
List1.AddItem "Fil"
List1.AddItem "Ekmek"
List1.AddItem "Balık"
List1.AddItem "Yılan"
List1.AddItem "Şişe"
List1.AddItem "Kutu"
List1.AddItem "Araba"
List1.AddItem "Bilgisayar"
List1.AddItem "Kapı"
List1.AddItem "Fare"
List1.AddItem "Gece"
List1.AddItem "Top"
List1.AddItem "Yaşlı"
List1.AddItem "Kurşun Kalem"
List1.AddItem "Ev"
List1.AddItem "Görmek"
List1.AddItem "Yüzmek"
List1.AddItem "Zürafa"
List1.AddItem "Zaman"
List1.AddItem "Genç"
List1.AddItem "Güzel"
List1.AddItem "Ayı"
List1.AddItem "Ağaç"
End Sub
Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Text1.Text = "Apple"
Picture1.Visible = True
Picture1.Picture = LoadPicture("elma.jpg")
Case 1
Text1.Text = "Dog"
Picture2.Visible = True
Picture2.Picture = LoadPicture("köpek.jpg")
Case 2
Text1.Text = "April"
Picture3.Visible = True
Picture3.Picture = LoadPicture("nisan.jpg")
Case 3
Text1.Text = "August"
Picture4.Visible = True
Picture4.Picture = LoadPicture("ağustos.jpg")
Case 4
Text1.Text = "Book"
Picture5.Visible = True
Picture5.Picture = LoadPicture("kitap.jpg")
Case 5
Text1.Text = "Elephant"
Picture6.Visible = True
Picture6.Picture = LoadPicture("fil.jpg")
Case 6
Text1.Text = "Bread"
Picture7.Visible = True
Picture7.Picture = LoadPicture("ekmek.jpg")
Case 7
Text1.Text = "Fish"
Picture8.Visible = True
Picture8.Picture = LoadPicture("balık.jpg")
Case 8
Text1.Text = "Snake"
Picture9.Visible = True
Picture9.Picture = LoadPicture("yılan.jpg")
Case 9
Text1.Text = "Bottle"
Picture10.Visible = True
Picture10.Picture = LoadPicture("şişe.jpg")
Case 10
Text1.Text = "Box"
Picture11.Visible = True
Picture11.Picture = LoadPicture("kutu.jpg")
Case 11
Text1.Text = "Car"
Picture12.Visible = True
Picture12.Picture = LoadPicture("araba.jpg")
Case 12
Text1.Text = "Computer"
Picture13.Visible = True
Picture13.Picture = LoadPicture("bilgisayar.jpg")
Case 13
Text1.Text = "Door"
Picture14.Visible = True
Picture14.Picture = LoadPicture("kapı.jpg")
Case 14
Text1.Text = "Mouse"
Picture15.Visible = True
Picture15.Picture = LoadPicture("fare.jpg")
Case 15
Text1.Text = "Night"
Picture16.Visible = True
Picture16.Picture = LoadPicture("gece.jpg")
Case 16
Text1.Text = "Ball"
Picture17.Visible = True
Picture17.Picture = LoadPicture("top.jpg")
Case 17
Text1.Text = "Old"
Picture18.Visible = True
Picture18.Picture = LoadPicture("yaşlı kadın.jpg")
Case 18
Text1.Text = "Pencil"
Picture19.Visible = True
Picture19.Picture = LoadPicture("kalem.jpg")
Case 19
Text1.Text = "See"
Picture20.Visible = True
Picture20.Picture = LoadPicture("görmek.jpg")
Case 20
Text1.Text = "Swim"
Picture21.Visible = True
Picture21.Picture = LoadPicture("yüzmek.jpg")
Case 21
Text1.Text = "Giraffe"
Picture22.Visible = True
Picture22.Picture = LoadPicture("zürafa.jpg")
Case 22
Text1.Text = "Time"
Picture23.Visible = True
Picture23.Picture = LoadPicture("zaman.jpg")
Case 24
Text1.Text = "Young"
Picture25.Visible = True
Picture25.Picture = LoadPicture("çocuk.jpg")
Case 25
Text1.Text = "Beautiful"
Picture26.Visible = True
Picture26.Picture = LoadPicture("güzel kadın.jpg")
Case 26
Text1.Text = "Bear"
Picture27.Visible = True
Picture27.Picture = LoadPicture("ayı.jpg")
Case 27
Text1.Text = "Tree"
Picture28.Visible = True
Picture28.Picture = LoadPicture("ağaç.jpg")
End Select
End Sub
Form3’e eklenir:
28 adet picturebox,1 adet list box,1 adet text,2 adet label eklenir.
Sonra aşağıdaki kodlar yazılır:
Private Sub Form_Load()
List1.AddItem "Apple"
List1.AddItem "Dog"
List1.AddItem "April"
List1.AddItem "August"
List1.AddItem "Book"
List1.AddItem "Elephant"
List1.AddItem "Bread"
List1.AddItem "Fish"
List1.AddItem "Snake"
List1.AddItem "Bottle"
List1.AddItem "Box"
List1.AddItem "Car"
List1.AddItem "Computer"
List1.AddItem "Door"
List1.AddItem "Mouse"
List1.AddItem "Night"
List1.AddItem "Ball"
List1.AddItem "Old"
List1.AddItem "Pencil"
List1.AddItem "House"
List1.AddItem "See"
List1.AddItem "Swim"
List1.AddItem "Giraffe"
List1.AddItem "Time"
List1.AddItem "Young"
List1.AddItem "Beautiful"
List1.AddItem "Bear"
List1.AddItem "Tree"
End Sub
Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Text1.Text = "Elma"
Picture1.Visible = True
Picture1.Picture = LoadPicture("elma")
Case 1
Text1.Text = "Köpek"
Picture2.Visible = True
Picture2.Picture = LoadPicture("köpek")
Case 2
Text1.Text = "Nisan"
Picture3.Visible = True
Picture3.Picture = LoadPicture("nisan")
Case 3
Text1.Text = "Ağustos"
Picture4.Visible = True
Picture4.Picture = LoadPicture("ağustos")
Case 4
Text1.Text = "Kitap"
Picture5.Visible = True
Picture5.Picture = LoadPicture("kitap")
Case 5
Text1.Text = "Fil"
Picture6.Visible = True
Picture6.Picture = LoadPicture("fil")
Case 6
Text1.Text = "Ekmek"
Picture7.Visible = True
Picture7.Picture = LoadPicture("ekmek")
Case 7
Text1.Text = "Balık"
Picture8.Visible = True
Picture9.Picture = LoadPicture("balık")
Case 8
Text1.Text = "Yılan"
Picture9.Visible = True
Picture9.Picture = LoadPicture("yılan")
Case 9
Text1.Text = "Şişe"
Picture10.Visible = True
Picture10.Picture = LoadPicture("şişe")
Case 10
Text1.Text = "Kutu"
Picture11.Visible = True
Picture11.Picture = LoadPicture("kutu")
Case 11
Text1.Text = "Araba"
Picture12.Visible = True
Case 12
Text1.Text = "Bilgisayar"
Picture13.Visible = True
Picture13.Picture = LoadPicture("bilgisayar")
Case 13
Text1.Text = "Kapı"
Picture14.Visible = True
Picture14.Picture = LoadPicture("kapı")
Case 14
Text1.Text = "Fare"
Picture15.Visible = True
Picture15.Picture = LoadPicture("fare")
Case 15
Text1.Text = "Gece"
Picture16.Visible = True
Picture16.Picture = LoadPicture("gece")
Case 16
Text1.Text = "Top"
Picture17.Visible = True
Picture17.Picture = LoadPicture("top.jpg")
Case 17
Text1.Text = "Yaşlı"
Picture18.Visible = True
Picture18.Picture = LoadPicture("yaşlı")
Case 18
Text1.Text = "Kurşen Kalem"
Picture19.Visible = True
Picture19.Picture = LoadPicture("kalem")
Case 19
Text1.Text = "Görmek"
Picture20.Visible = True
Picture20.Picture = LoadPicture("görmek")
Case 20
Text1.Text = "Yüzmek"
Picture21.Visible = True
Picture21.Picture = LoadPicture("yüzmek")
Case 21
Text1.Text = "Zürafa"
Picture22.Visible = True
Picture22.Picture = LoadPicture("zürafa")
Case 22
Text1.Text = "Zaman"
Picture23.Visible = True
Picture23.Picture = LoadPicture("saat_2.jpg")
Case 24
Text1.Text = "Genç"
Picture25.Visible = True
Picture25.Picture = LoadPicture("çocuk")
Case 25
Text1.Text = "Güzel"
Picture26.Visible = True
Picture26.Picture = LoadPicture("güzel bayan")
Case 26
Text1.Text = "Ayı"
Picture27.Visible = True
Picture27.Picture = LoadPicture("ayı")
Case 27
Text1.Text = "Ağaç"
Picture28.Visible = True
Picture28.Picture = LoadPicture("ağaç")
End Select
End Sub
EVET BU KADAR Xy a p i m sizlere iyi günler diler
uğur yılmaz
gattar555@gmail.com