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

السلام عليكم ورحمة الله وبركاته
اخواني المرجوا تعديل الكود الموجود في الصورة.
لقد قمت بعمل function لقراءة ملف تكست سطر سطر
كما في الصورة محاط بإطار ازرق
المشكلة تكمن في الكود المحاط بإطاراحمر اريد كود بديل له :confused: اوتعديل لfunction بأكمله
وجزاكم الله خيرا
ارجو ان يكون طلبي واضح

بالتوفيق للجميع

وعليكم السلام ورحمة الله وبركاته
أخي الكريم الكود المرفق مكتوب بـ VB6
والدوت نت تميزت باختصار الكود
فإليك هذا الكود الذي يعطي نفس النتيجة ولكن في سطر واحد فقط

كود :

Private Function LoadTips(ByVal FileName As String) As String()

        Return System.IO.File.ReadAllLines(FileName)

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ListBox1.Items.AddRange(LoadTips("اسم الملف"))

    End Sub

الكود السابق يقوم عند الضغط على Button1 باستدعاء الوظيفة LoadTips مع تمرير متغير اسم الملف FileName
وبعدها يقوم بإضافة الناتج في ListBox1

بالتوفيق

السلام عليكم ورحمة الله
بارك الله فيك وزادك من علمه
الكود السابق يقوم بإضافة محتوى الملف بأكمله الى اللست
وأنا ما اريده هو عند الضغط على الزر يقوم بإضافة سطر من الملف وعند الضغط مرة اخرى ينتقل الى سطر اخر وهكذا....

هل تقصد بأنك تريد تحميل سطر عشوائي عند كل مرة تضغط فيها على الزر أم بالتزتيب؟

السلام عليكم ورحمة الله وبركاته

sooriaty03 كتب :هل تقصد بأنك تريد تحميل سطر عشوائي عند كل مرة تضغط فيها على الزر أم بالتزتيب؟

بارك الله فيك اخي هذا ما اقصده Big Grin

لو ممكن مثال على تحميل سطر عشوائي ومثال اخر على تحميل سطر بالترتيب وعرضها في label
وجزاك الله خيرا Cool

السلام عليكم ورحمة الله وبركاته

تفضل مثال كامل

كود :

Public Class Form1

    Private Tips As New List(Of String)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        LoadTips("Azkar.dl")

    End Sub

    Private Function LoadTips(ByVal filename As String) As Boolean

        If IO.File.Exists(filename) Then

            Tips = Split(IO.File.ReadAllText(filename).Trim, vbNewLine).ToList

            Return True

        End If

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        DisplayTip()

    End Sub

    Private Sub DisplayTip()

        If Tips.Count > 0 Then

            Dim indx As Integer = CInt((Tips.Count - 1) * Rnd() + 1)

            Me.Label1.Text = Tips.Item(indx - 1)

        End If

    End Sub

End Class

السلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمة الله
بارك الله فيك اخي@@أبورائد@@هذا ما اقصده100*100
وجزاك الله خيرا وزادك من علمه
بقيت مشكلة اخرى يتم عرض المعلومة على شكل رموز غير مفهومة:confused:كما في الصورة
[ATTACH=CONFIG]1610[/ATTACH]

3amo كتب :
السلام عليكم ورحمة الله
بارك الله فيك اخي@@أبورائد@@هذا ما اقصده100*100
وجزاك الله خيرا وزادك من علمه
بقيت مشكلة اخرى يتم عرض المعلومة على شكل رموز غير مفهومة:confused:كما في الصورة
[ATTACH=CONFIG]1610[/ATTACH]

السلام عليكم ورحمة الله وبركاته

أغلب الظن يعود لترميز النص داخل الملف Azkar.dl
الحل: قم بفتح الملف بالمفكرة ثم [حفظ بإسم..] واختر الترميز [UTF-8] قبل ان تضغط على [حفظ]

السلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمة الله وبركاته

إقتباس :أغلب الظن يعود لترميز النص داخل الملف azkar.dl
الحل: قم بفتح الملف بالمفكرة ثم [حفظ بإسم..] واختر الترميز [utf-8] قبل ان تضغط على [حفظ]

تم حل المشكل كما قلت اخي

@@أبورائد@@

جزاك الله عنا كل خير
وفقك الله الى ما يحبه ويرضاه
اللهم اجعل هذا العمل في ميزان حسناته
بالتوفيق