Çözüldü vb.net listbox bütün itemleri seçme

berke1999x

Katılımcı Üye
26 Haz 2016
476
0
Root@Berke
arkadaşlar yardım edin visual basic listbox 1 deki itemleri bir buton ile hepsini seçmesini istiyorum veya bir programda görmüştüm intagram hesap oluşturucuda , mouse ile hepsini seçip kaydedebiliyordun.
 

PASALII

Katılımcı Üye
22 Ağu 2017
513
0
ÖTÜKEN
ListBox verileri seçip kaydetmekmi?

Kod:
[COLOR=Yellow][B][COLOR=Yellow][B]  Dim dosya As IO.StreamWriter
        Dim sFile As New SaveFileDialog
        sFile.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
        sFile.ShowDialog()
        Dim i As Integer
        [/B][/COLOR][COLOR=Yellow][B][COLOR=Yellow][B]dosya[/B][/COLOR] = New IO.StreamWriter(sFile.FileName)
        For i = 0 To ListBox1.Items.Count - 1
            [/B][/COLOR][COLOR=Yellow][B][COLOR=Yellow][B]dosya[/B][/COLOR].WriteLine(ListBox1.Items.Item(i))
        Next
        [/B][/COLOR][COLOR=Yellow][B][COLOR=Yellow][B]dosya[/B][/COLOR].Close()[/B][/COLOR][/B][/COLOR]
Butona bu kodları ekle direk kaydetsin verileri, seçmekle uğraşma.
 

berke1999x

Katılımcı Üye
26 Haz 2016
476
0
Root@Berke
ListBox verileri seçip kaydetmekmi?

Kod:
[COLOR=Yellow][B][COLOR=Yellow][B]  Dim dosya As IO.StreamWriter
        Dim sFile As New SaveFileDialog
        sFile.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
        sFile.ShowDialog()
        Dim i As Integer
        [/B][/COLOR][COLOR=Yellow][B][COLOR=Yellow][B]dosya[/B][/COLOR] = New IO.StreamWriter(sFile.FileName)
        For i = 0 To ListBox1.Items.Count - 1
            [/B][/COLOR][COLOR=Yellow][B][COLOR=Yellow][B]dosya[/B][/COLOR].WriteLine(ListBox1.Items.Item(i))
        Next
        [/B][/COLOR][COLOR=Yellow][B][COLOR=Yellow][B]dosya[/B][/COLOR].Close()[/B][/COLOR][/B][/COLOR]
Butona bu kodları ekle direk kaydetsin verileri, seçmekle uğraşma.
Teşekkürler.Konu Kapanabilir
 

Drone31

Üye
30 Eyl 2017
249
0
Bu şekilde olacak


JOVr1Q.png

Kodlar

Kod:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 0 To ListBox1.Items.Count - 1


            ListBox1.SetSelected(i, True)
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("deneme")
        ListBox1.Items.Add("den1eme")
        ListBox1.Items.Add("deneme")
        ListBox1.Items.Add("deneme")
        ListBox1.Items.Add("deneme")
    End Sub
End Class
 

berke1999x

Katılımcı Üye
26 Haz 2016
476
0
Root@Berke
Bu şekilde olacak


JOVr1Q.png

Kodlar

Kod:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 0 To ListBox1.Items.Count - 1


            ListBox1.SetSelected(i, True)
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("deneme")
        ListBox1.Items.Add("den1eme")
        ListBox1.Items.Add("deneme")
        ListBox1.Items.Add("deneme")
        ListBox1.Items.Add("deneme")
    End Sub
End Class
Teşekkürler
 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.