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.
bu c# için vb.nette hata veriyor
olmuyor direk sonuncuyu seçiyorŞunu bir dener misin
Kod:Dim i As Integer = 0 For i = 0 To ListBox1.Items.Count ListBox1.SetSelected(i, True) Next End Sub
[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]
Teşekkürler.Konu KapanabilirListBox verileri seçip kaydetmekmi?
Butona bu kodları ekle direk kaydetsin verileri, seçmekle uğraşma.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]
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ürlerBu şekilde olacak
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
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.