Skip to main content

AccessTr.neT


VB 2010 Dinamik Menü Oluşturma Sorunu

VB 2010 Dinamik Menü Oluşturma Sorunu

Video #1
Merhabalar. VB6'da Bir Sözlük Programı projesi oluşturdum. Şimdi bu projemi VB 2010' taşımak istiyorum. Ancak epey fark var ikisi arasında.
Sorum Şu: accsess veri tabanından kod ile menüde "Aktif Sözlük Seç" menüsüne verileri nasıl getirebilirim.


vb6 kodları:


Kod:
baGlan
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from aktif", veritabani, adOpenDynamic, adLockOptimistic
sayi = rs.RecordCount


If rs!aktifmi = True Then
aktif = rs!Caption
End If

   
Dim i As Integer
       For i = 1 To sayi * 2
           Load mnuSubitem(i)
           
           If (i Mod 2) = 0 Then
               mnuSubitem(i).Caption = "-"
           Else
               
               mnuSubitem(i).Caption = rs.Fields(3).Value
               rs.MoveNext
               
           End If
           
           
       Next
mnuSubitem(0).Visible = False
Unload mnuSubitem(sayi * 2)

Veritabanı ve Form Yapısı

[Resim: do.php?img=4738]
[Resim: do.php?img=4739]
Yukarıdaki vb6 kodlarını vb 210' da nasıl yapabiliriz..
Teşekkürler....
Cevapla
#2
[attachment=22075 yazdı: sokrates11 pid='123164' dateline='1423956375']Merhabalar. VB6'da Bir Sözlük Programı projesi oluşturdum. Şimdi bu projemi VB 2010' taşımak istiyorum. Ancak epey fark var ikisi arasında.
Sorum Şu: accsess veri tabanından kod ile menüde "Aktif Sözlük Seç" menüsüne verileri nasıl getirebilirim.


vb6 kodları:








Kod:
baGlan
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from aktif", veritabani, adOpenDynamic, adLockOptimistic
sayi = rs.RecordCount


If rs!aktifmi = True Then
aktif = rs!Caption
End If

   
Dim i As Integer
       For i = 1 To sayi * 2
           Load mnuSubitem(i)
           
           If (i Mod 2) = 0 Then
               mnuSubitem(i).Caption = "-"
           Else
               
               mnuSubitem(i).Caption = rs.Fields(3).Value
               rs.MoveNext
               
           End If
           
           
       Next
mnuSubitem(0).Visible = False
Unload mnuSubitem(sayi * 2)

Veritabanı ve Form Yapısı

[Resim: do.php?img=4738]
[Resim: do.php?img=4739]
Yukarıdaki vb6 kodlarını vb 210' da nasıl yapabiliriz..
Teşekkürler....


Biraz geliştirdim.


[Resim: do.php?img=4740]
.rar WindowsApplication3.rar (Dosya Boyutu: 128,14 KB | İndirme Sayısı: 9)
Cevapla
#3
MsgBox("merhaba" & aktifsozluk.Name & "tuşuna bastınız.")
şeklinde deneğin
Cevapla
#4
(17/02/2015, 00:42)C*e*l*o*y*c*e yazdı: MsgBox("merhaba" & aktifsozluk.Name & "tuşuna bastınız.")
şeklinde deneğin

Bu Aktif Sözlük Menüsüne tıklayınca çalışıyor.
Benim isteğim; Sözlük-1, Sözlük-2 ya da Sözlük -3 e basınca,
Sözlük-1 Seçtiniz, Sözlük-2 Seçtiniz Ya da sözlük-2'ye basınca sözlük-2 seçtiniz şeklinde olmasıdır..
Bunun da dinamik olmasıdır.
Çünkü Sözlük isimleri veri tabanından gelecek.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task