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.
Follow along with the video below to see how to install our site as a web app on your home screen.
Not: This feature may not be available in some browsers.
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