15-08-19, 09:53 PM (آخر تعديل لهذه المشاركة : 15-08-19, 09:55 PM {2} بواسطة bakriano30@yahoo.com.)
لدي ملف تكست في مجلد البرنامج مكون من ثلاث اسطر كما هو موضح
ولدي في الفورم ليست بوكس اريد ان اعرض ما بداخل ملف التكست داخل الليست بوكس بنفس الترتيب
وعند الضغط علي زر بوتن معين يعمل سلكت عشوائي علي احد الصفوف الموجوده كيف اخواني
(15-08-19, 09:53 PM)bakriano30@yahoo.com كتب : لدي ملف تكست في مجلد البرنامج مكون من ثلاث اسطر كما هو موضح
ولدي في الفورم ليست بوكس اريد ان اعرض ما بداخل ملف التكست داخل الليست بوكس بنفس الترتيب
وعند الضغط علي زر بوتن معين يعمل سلكت عشوائي علي احد الصفوف الموجوده كيف اخواني
والله ما فاهم السؤال كويس أخي لاكن انا تخيلت سؤالك بطريقة معقده أنت تقصد
كود :
Dim openfiledialog As New OpenFileDialog
If openfiledialog.ShowDialog = DialogResult.OK Then
Dim readedFile() As String = File.ReadAllLines(openfiledialog.FileName)
For Each line As String In readedFile
ListBox1.Items.Add(line)
Next
End If
(15-08-19, 11:11 PM)Arquan_Grave كتب : والله ما فاهم السؤال كويس أخي لاكن انا تخيلت سؤالك بطريقة معقده أنت تقصد
كود :
Dim openfiledialog As New OpenFileDialog
If openfiledialog.ShowDialog = DialogResult.OK Then
Dim readedFile() As String = File.ReadAllLines(openfiledialog.FileName)
For Each line As String In readedFile
ListBox1.Items.Add(line)
Next
End If
اقصد ان لدي ملف text مرفق مع المشروع الملف يحتوي علي ثلاث اسطر كما هو موضح بالصوره ولدي فورم بها بوتن وليست بوكس اريد عند تحميل الفورم في الفورم لود
استدعاء محتوي ملف text تلقائي الي هما الثلاث اسطر بنفس الترتيب وعند الضغط علي البوتن يتم اختيار صف عشوائي من الثلاث اسطر
15-08-19, 11:36 PM (آخر تعديل لهذه المشاركة : 15-08-19, 11:38 PM {2} بواسطة mohamedahmed1.)
اخي هل قصدك انك تريد عرض ما داخل ملف ال Text في الليست بوكس ؟
اذا كان هذا قصدك تفضل الكود
كود :
On Error Resume Next
Dim openfile As New OpenFileDialog
ListBox1.Items.Clear()
openfile.Title = "Text |*.txt"
openfile.ShowDialog()
Dim txtline() As String = IO.File.ReadAllLines(openfile.FileName)
ListBox1.Items.AddRange(txtline)
(15-08-19, 11:36 PM)mohamedahmed1 كتب : اخي هل قصدك انك تريد عرض ما داخل ملف ال Text في الليست بوكس ؟
اذا كان هذا قصدك تفضل الكود
كود :
On Error Resume Next
Dim openfile As New OpenFileDialog
ListBox1.Items.Clear()
openfile.Title = "Text |*.txt"
openfile.ShowDialog()
Dim txtline() As String = IO.File.ReadAllLines(openfile.FileName)
ListBox1.Items.AddRange(txtline)
اخي انا اريد ان اضع مسار الملف ويتم جلب ما بداخله داخل الليست بوكس
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.Top = My.Computer.Screen.WorkingArea.Bottom Me.Left = My.Computer.Screen.WorkingArea.Right - Me.Width ListBox1.Items.AddRange(My.Computer.FileSystem.ReadAllText(CurDir() & "\t.txt", System.Text.Encoding.UTF8).Split(vbNewLine)) End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Me.Top -= 20 End Sub
Private Sub Form1_Move(sender As Object, e As System.EventArgs) Handles Me.Move If Me.Bottom <= My.Computer.Screen.WorkingArea.Bottom Then Timer1.Stop() : Me.Top = My.Computer.Screen.WorkingArea.Bottom - Me.Height End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click MsgBox(ListBox1.Items(Int(Rnd() * ListBox1.Items.Count))) End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.Top = My.Computer.Screen.WorkingArea.Bottom Me.Left = My.Computer.Screen.WorkingArea.Right - Me.Width ListBox1.Items.AddRange(My.Computer.FileSystem.ReadAllText(CurDir() & "\t.txt", System.Text.Encoding.UTF8).Split(vbNewLine)) End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Me.Top -= 20 End Sub
Private Sub Form1_Move(sender As Object, e As System.EventArgs) Handles Me.Move If Me.Bottom <= My.Computer.Screen.WorkingArea.Bottom Then Timer1.Stop() : Me.Top = My.Computer.Screen.WorkingArea.Bottom - Me.Height End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click MsgBox(ListBox1.Items(Int(Rnd() * ListBox1.Items.Count))) End Sub
شكرا جدا اخ سعود هذا هو المطلوب ولكن اريد بدل المسج بوكس يعمل سليكت ع السطر بدل ما يطلع في مسج بوكس