(15-08-19, 09:53 PM)bakriano30@yahoo.com كتب : لدي ملف تكست في مجلد البرنامج مكون من ثلاث اسطر كما هو موضح 
ولدي في الفورم ليست بوكس اريد ان اعرض ما بداخل ملف التكست داخل الليست بوكس بنفس الترتيب
وعند الضغط علي زر بوتن معين يعمل سلكت عشوائي علي احد الصفوف الموجوده كيف اخواني

(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

(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)

(15-08-19, 11:53 PM)سعود كتب :

مثال لملف نصي باسم t.txt

PHP كود :

 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 


إقتباس :شكرا جدا اخ سعود هذا هو المطلوب ولكن اريد بدل المسج بوكس يعمل سليكت ع السطر بدل ما يطلع في مسج بوكس

(16-08-19, 12:05 AM)سعود كتب :

إقتباس :شكرا جدا اخ سعود هذا هو المطلوب ولكن اريد بدل المسج بوكس يعمل سليكت ع السطر بدل ما يطلع في مسج بوكس

PHP كود :

       ListBox1.SelectedIndex = Int(Rnd() * ListBox1.Items.Count) 


---

معلش عندي مشكلة الفوائد الهامشية مثل ماتشوفون بالكود