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

الصفحات : 1 2

جربه الان انسخه ولصق مثل ماهو
انت لم تضع system.IO
هذا الكود

كود :

Imports System.IO

Public Class Form1

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

        Try

            Dim TextFile As String

            TextFile = My.Computer.FileSystem.ReadAllText("ãÓÇÑ ÇáãáÝtext.txt")

            For i = 1 To TextFile.Split(vbNewLine).Count

                Controls("TextBox" & i).Text = TextFile.Split(vbNewLine)(i - 1)

            Next

        Catch MUDZ As Exception

     End Try

    End Sub

End Class

واذا كنت تريده دون وضع مسار فهذا الكود

كود :

Imports System.IO

Public Class Form1

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

        Try

            '(f)ضع ملف التكست في ركويست ثم ضع اسمه بدل حرف

            Dim TextFile As String = My.Resources.f

            For i = 1 To TextFile.Split(vbNewLine).Count

                Controls("TextBox" & i).Text = TextFile.Split(vbNewLine)(i - 1)

            Next

        Catch MUDZ As Exception

        End Try

    End Sub

End Class

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

للاسف نفس الخطاء باضبط اشك من النضام ؟؟؟؟؟؟

(26-12-14, 11:12 AM)hassan كتب : [ -> ]للاسف نفس الخطاء باضبط اشك من النضام ؟؟؟؟؟؟

اخوووي اتأكد من الفيجوال بيسك شغال ع وش هل هو شغال ع نيتورك 4 ؟؟؟ او 3.5 اذا كان شغال اقل من اربعه فحطه على 4.5 او 4 وهذا قد يكون سبب
وجرب هذا الكود

كود :

Imports System.IO

Public Class Form1

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

        Try

            '(f)ضع ملف التكست في ركويست ثم ضع اسمه بدل حرف

            Dim TextFile As String = My.Resources.f

            For i = 1 To TextFile.Split(vbNewLine).Count

                Controls("TextBox" & i).Text = TextFile.Split(vbNewLine)(i - 1)

            Next

        Catch MUDZ As Exception

        End Try

    End Sub

End Class

(26-12-14, 11:16 AM)mudz كتب : [ -> ]
(26-12-14, 11:12 AM)hassan كتب : [ -> ]للاسف نفس الخطاء باضبط اشك من النضام ؟؟؟؟؟؟

اخوووي اتأكد من الفيجوال بيسك شغال ع وش هل هو شغال ع نيتورك 4 ؟؟؟ او 3.5 اذا كان شغال اقل من اربعه فحطه على 4.5 او 4 وهذا قد يكون سبب
وجرب هذا الكود

كود :

Imports System.IO Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Try '(f)ضع ملف التكست في ركويست ثم ضع اسمه بدل حرف Dim TextFile As String = My.Resources.f For i = 1 To TextFile.Split(vbNewLine).Count Controls("TextBox" & i).Text = TextFile.Split(vbNewLine)(i - 1) Next Catch MUDZ As Exception End Try End Sub End Class

نفس الخطاء للاسف

(26-12-14, 02:46 PM)hassan كتب : [ -> ]
(26-12-14, 11:16 AM)mudz كتب : [ -> ]
(26-12-14, 11:12 AM)hassan كتب : [ -> ]للاسف نفس الخطاء باضبط اشك من النضام ؟؟؟؟؟؟

اخوووي اتأكد من الفيجوال بيسك شغال ع وش هل هو شغال ع نيتورك 4 ؟؟؟ او 3.5 اذا كان شغال اقل من اربعه فحطه على 4.5 او 4 وهذا قد يكون سبب
وجرب هذا الكود

كود :

Imports System.IO Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Try '(f)ضع ملف التكست في ركويست ثم ضع اسمه بدل حرف Dim TextFile As String = My.Resources.f For i = 1 To TextFile.Split(vbNewLine).Count Controls("TextBox" & i).Text = TextFile.Split(vbNewLine)(i - 1) Next Catch MUDZ As Exception End Try End Sub End Class

نفس الخطاء للاسف

اسمع سوي مثل م اقولك الان

رووح بروجيكت ____,> اخر خيار بعد تلقى خانة (Target Framework)
وش مكتوب فيها وقولي الان أو ارفق المشروع حقك الان

(26-12-14, 02:50 PM)mudz كتب : [ -> ]
(26-12-14, 02:46 PM)hassan كتب : [ -> ]
(26-12-14, 11:16 AM)mudz كتب : [ -> ]
(26-12-14, 11:12 AM)hassan كتب : [ -> ]للاسف نفس الخطاء باضبط اشك من النضام ؟؟؟؟؟؟

اخوووي اتأكد من الفيجوال بيسك شغال ع وش هل هو شغال ع نيتورك 4 ؟؟؟ او 3.5 اذا كان شغال اقل من اربعه فحطه على 4.5 او 4 وهذا قد يكون سبب
وجرب هذا الكود

كود :

Imports System.IO Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Try '(f)ضع ملف التكست في ركويست ثم ضع اسمه بدل حرف Dim TextFile As String = My.Resources.f For i = 1 To TextFile.Split(vbNewLine).Count Controls("TextBox" & i).Text = TextFile.Split(vbNewLine)(i - 1) Next Catch MUDZ As Exception End Try End Sub End Class

نفس الخطاء للاسف

اسمع سوي مثل م اقولك الان

رووح بروجيكت ____,> اخر خيار بعد تلقى خانة (Target Framework)
وش مكتوب فيها وقولي الان أو ارفق المشروع حقك الان

NET.Framework 4.5

المشروع في المرفقات

لقد وجدت خطأ في مكان تعريفات الفورم
المفروض يكون system على كلن عدلت الخطا والمشروع مرفق وشكرا لك Heart

(26-12-14, 03:19 PM)mudz كتب : [ -> ]لقد وجدت خطأ في مكان تعريفات الفورم
المفروض يكون system على كلن عدلت الخطا والمشروع مرفق وشكرا لك

الله يعطيك العافيه مفروض انا الي اشكرك مو انت بس يالله هههههههههه

اخوي بس اذا ممكن كيف عدلت الخطاء عشان استفيد انا

ووش الخطاء

الصفحات : 1 2