تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال غير صعب علي اخواني اعضاء المنتدي
#1
لدي ملف تكست في مجلد البرنامج مكون من ثلاث اسطر كما هو موضح 
ولدي في الفورم ليست بوكس اريد ان اعرض ما بداخل ملف التكست داخل الليست بوكس بنفس الترتيب
وعند الضغط علي زر بوتن معين يعمل سلكت عشوائي علي احد الصفوف الموجوده كيف اخواني

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


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة: سعود
#2
والله ما فاهم السؤال كويس أخي لاكن انا تخيلت سؤالك بطريقة معقده أنت تقصد

     
كود :
 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
الرد }}}
تم الشكر بواسطة: bakriano30@yahoo.com , سعود , ابراهيم ايبو
#3
(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 تلقائي الي هما الثلاث اسطر بنفس الترتيب وعند الضغط علي البوتن يتم اختيار صف عشوائي من الثلاث اسطر
الرد }}}
تم الشكر بواسطة: سعود , ابراهيم ايبو
#4
كود :
           Dim readedFile() As String = File.ReadAllLines(مسار الملف المطلوب)
           For Each line As String In readedFile
               ListBox1.Items.Add(line)
           Next

تفضل أخي 
الرد }}}
تم الشكر بواسطة: سعود , ابراهيم ايبو
#5
اخي هل قصدك انك تريد عرض ما داخل ملف ال 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)
[صورة مرفقة: p_1583w56341.gif]
الرد }}}
تم الشكر بواسطة: bakriano30@yahoo.com , سعود , ابراهيم ايبو
#6
(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)
اخي انا اريد ان اضع مسار الملف ويتم جلب ما بداخله داخل الليست بوكس
الرد }}}
تم الشكر بواسطة: سعود , ابراهيم ايبو
#7
مثال لملف نصي باسم t.txt
PHP كود :
 Private Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles 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.ObjectAs System.EventArgsHandles Timer1.Tick
        Me
.Top -= 20
    End Sub

    Private Sub Form1_Move
(sender As ObjectAs System.EventArgsHandles 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.ObjectAs System.EventArgsHandles Button1.Click
        MsgBox
(ListBox1.Items(Int(Rnd() * ListBox1.Items.Count)))
 
   End Sub 
الرد }}}
#8
(15-08-19, 11:53 PM)سعود كتب :
مثال لملف نصي باسم t.txt
PHP كود :
 Private Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles 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.ObjectAs System.EventArgsHandles Timer1.Tick
        Me
.Top -= 20
    End Sub

    Private Sub Form1_Move
(sender As ObjectAs System.EventArgsHandles 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.ObjectAs System.EventArgsHandles Button1.Click
        MsgBox
(ListBox1.Items(Int(Rnd() * ListBox1.Items.Count)))
 
   End Sub 
شكرا جدا اخ سعود هذا هو المطلوب ولكن اريد بدل المسج بوكس يعمل سليكت ع السطر بدل ما يطلع في مسج بوكس
الرد }}}
تم الشكر بواسطة: سعود , ابراهيم ايبو
#9
إقتباس :شكرا جدا اخ سعود هذا هو المطلوب ولكن اريد بدل المسج بوكس يعمل سليكت ع السطر بدل ما يطلع في مسج بوكس
PHP كود :
       ListBox1.SelectedIndex Int(Rnd() * ListBox1.Items.Count

معلش عندي مشكلة الفوائد الهامشية مثل ماتشوفون بالكودSmileSmileSmileSmile
الرد }}}
تم الشكر بواسطة: bakriano30@yahoo.com , ابراهيم ايبو
#10
(16-08-19, 12:05 AM)سعود كتب :
إقتباس :شكرا جدا اخ سعود هذا هو المطلوب ولكن اريد بدل المسج بوكس يعمل سليكت ع السطر بدل ما يطلع في مسج بوكس
PHP كود :
       ListBox1.SelectedIndex Int(Rnd() * ListBox1.Items.Count

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

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



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم