منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

لدي ملف تكست في مجلد البرنامج مكون من ثلاث اسطر كما هو موضح 
ولدي في الفورم ليست بوكس اريد ان اعرض ما بداخل ملف التكست داخل الليست بوكس بنفس الترتيب
وعند الضغط علي زر بوتن معين يعمل سلكت عشوائي علي احد الصفوف الموجوده كيف اخواني

---

(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

اقصد ان لدي ملف text مرفق مع المشروع الملف يحتوي علي ثلاث اسطر كما هو موضح بالصوره ولدي فورم بها بوتن وليست بوكس اريد عند تحميل الفورم في الفورم لود 
استدعاء محتوي ملف text تلقائي الي هما الثلاث اسطر بنفس الترتيب وعند الضغط علي البوتن يتم اختيار صف عشوائي من الثلاث اسطر

اخي هل قصدك انك تريد عرض ما داخل ملف ال Text في الليست بوكس ؟

---

اذا كان هذا قصدك تفضل الكود

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


---

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

الله ينور يا اخ سعود اخر شئ طلب صغير انا اسف لو عايز السطر اللي اتعمل عليه سليكت ده يظهر في تكست بوكس كيف