Visual Basic 6.0 kapana bilem form ekranı

Selamlar,

Anladığım kadarı ile bir projede iki adet form ekranın var. Birimci form ekranında list nesnesi üzerinden bir elemana tıkladığında başka bir form açılacak. Ve o formu bir button ile kapatacaksın. Doğru anladığımı varsayarak anlatayım.

Öncelikle 2 adet formu oluşturalım. Birinci form list nesnesinin yer aldığı main form olacak.
Form1 üzerine bir adet List nesnesi ekle ve List property' sini kullanarak içerisine değer ekle. Oluşturduğumuz List nesnesine çift tıklama ile Form2 ekranını açalım. Bunun için önce Form2 ekranını tasarlayalım.

Form2 de bir adet button ve label nesneleri olsun. Button Form2 yi kapatacak. Label nesnesinde ise çift tıkladığımız kaydı gösterelim.

Şimdi kod kısmına geçelim. Öncelikle Form2 yi kapatmak için button nesnesinin click olayına aşağıdaki kodu yazalım.

Private Sub Command1_Click()
    Unload Me
End Sub

Şimdi Form1 de bir list elemanına tıkladığımızda Form2 yi açacak kodu yazalım.

Private Sub List1_DblClick()
    
    Dim sIndex As Integer
    Dim index As Long
    
    For index = 0 To List1.ListCount - 1
        If List1.Selected(index) = True Then
            sIndex = index
            Exit For
        End If
    Next index
    
    Dim yeni As Form2
    Set yeni = New Form2
    yeni.Label1.Caption = List1.List(sIndex)
    yeni.Show vbModal
    
End Sub

Şimdi kısaca kodu anlatayım. Önce döngü ile list içerisinde seçili olan nesnenin indexini buluyoruz. Daha sonra Form2 nesnesinden bir kopya oluşturuyoruz. Formu sadece açmak isteseydim buna gerek yoktu. Fakat forma değer göndereceğim için bu şekilde yapmam gerekiyor. Form2 nin label alanını setliyorum ve show ile ekranı açıyorum.

Örnek projeyi aşağıdaki linkten indirebilirsin.

http://www.hikmetokumus.com/Download/Sample/VBSample1.rar

Hepsi bu kadar, Başarılar.

1 form ekranım var bu ekranda 2 command 1 listbox 1 internet tarayıcı olucak olucak 1.command buttona tıklayınca item eklnicek ve listbox daki iteme bastığımızda internet sitesi açılıcak 1.button listboxu temizleme olucak

internette gezinmek için. listboxun click özelliğine

webbrowser1.navigate list1.text

listboxu temizlemek için buttonun click olayına ise

list1.clear

tamamda list box da 50 den fazla sekme olcak tek tek sitelere girmesi lazım