VB 2010 Dinamik Menü Oluşturma Sorunu

VB 2010 Dinamik Menü Oluşturma Sorunu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Soruları ve Cevapları (https://accesstr.net/forum-visual-basic-net-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: VB 2010 Dinamik Menü Oluşturma Sorunu (/konu-vb-2010-dinamik-menu-olusturma-sorunu.html)

VB 2010 Dinamik Menü Oluşturma Sorunu - sokrates11 - 15/02/2015

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]

Yukarıdaki vb6 kodlarını vb 210' da nasıl yapabiliriz..
Teşekkürler....

Cvp: VB 2010 Dinamik Menü Oluşturma Sorunu - sokrates11 - 16/02/2015

[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ı

Yukarıdaki vb6 kodlarını vb 210' da nasıl yapabiliriz..
Teşekkürler....

Biraz geliştirdim.

[Resim: do.php?img=4740]

Cvp: VB 2010 Dinamik Menü Oluşturma Sorunu - C*e*l*o*y*c*e - 17/02/2015

MsgBox("merhaba" & aktifsozluk.Name & "tuşuna bastınız.")
şeklinde deneğin

Cvp: VB 2010 Dinamik Menü Oluşturma Sorunu - sokrates11 - 17/02/2015

(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.