14-11-16, 11:24 PM
السلام عليكم ورحمة الله
لو سمحتم طلبي هو كود حفظ النص المكتوب داخل listBOX
جربت كود حفظ من TextBox عم يحفظ بس المستند يطلع فارغ
ارجوا منكم مساعدتي
وشكرا
14-11-16, 11:24 PM
14-11-16, 11:37 PM
تفضل اخي الكريم
ListBox1.Items.Add(TextBox2.Text)
ListBox1.Items.Add(TextBox2.Text)
14-11-16, 11:42 PM
(14-11-16, 11:37 PM)dark1459 كتب : [ -> ]تفضل اخي الكريم
ListBox1.Items.Add(TextBox2.Text)
مشكور اخي ولكن ليس هذا ماطلبت
طلبي هو حفظ النص منListBox الى مستند نصي
14-11-16, 11:55 PM
ممكون تشوف الرابط
http://stackoverflow.com/questions/27322...opening-it
http://stackoverflow.com/questions/27322...opening-it
15-11-16, 12:01 AM
تفضل اخي الكريم :
Dim x As Long
For x = 0 To ListBox1.Items.Count - 1
TextBox2.Text = ListBox1.Items(x).ToString
Next
وهكذا عندما تريد اضافة اكثر من text
Dim x As Long
For x = 0 To ListBox1.Items.Count - 1
TextBox2.Text = ListBox1.Items(x).ToString
Next
وهكذا عندما تريد اضافة اكثر من text
15-11-16, 12:19 AM
كما اشار لك الاخ سعود
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim SaveFD As New SaveFileDialog()
SaveFD.Filter = "TXT Files (*.txt*)|*.txt"
If SaveFD.ShowDialog() = DialogResult.OK Then
Dim sb As New System.Text.StringBuilder()
For Each o As Object In ListBox1.Items
sb.AppendLine(o)
Next
System.IO.File.WriteAllText(SaveFD.FileName, sb.ToString())
End If
End Sub
15-11-16, 12:20 AM
(14-11-16, 11:55 PM)سعود كتب : [ -> ]ممكون تشوف الرابط
http://stackoverflow.com/questions/27322...opening-it
بارك الله فيك اخي الكود الي في الرابط ينقصو امتداد txt وقد قمت بالتعديل عليه وتم بنجاح
جزاك الله عني خيرا
وهذا الكود لكي يستفيد منه غيري
كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim dz As New SaveFileDialog
dz.Filter = "TEXT File|*.txt"
dz.FileName = "new list.txt"
If dz.ShowDialog() = DialogResult.OK Then
Using Writer = New StreamWriter(dz.FileName)
For Each o As Object In ListBox1.Items
Writer.WriteLine(o)
Next
End Using
End If
End Sub(15-11-16, 12:19 AM)ابو ليلى كتب : [ -> ]كما اشار لك الاخ سعود
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim SaveFD As New SaveFileDialog()
SaveFD.Filter = "TXT Files (*.txt*)|*.txt"
If SaveFD.ShowDialog() = DialogResult.OK Then
Dim sb As New System.Text.StringBuilder()
For Each o As Object In ListBox1.Items
sb.AppendLine(o)
Next
System.IO.File.WriteAllText(SaveFD.FileName, sb.ToString())
End If
End Sub
مشكور اخي ابو ليلى بارك الله فيك وجزاك الله خير
15-11-16, 04:00 AM
كود اخر
كود :
Io.File.writealltext("c:\a.txt",string.join(vbnewline,listbox1.items.cast(of string).toarray))