منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] ما الخطاء في هاذا الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] ما الخطاء في هاذا الكود (/showthread.php?tid=11000)

الصفحات: 1 2

RE: ما الخطاء في هاذا الكود - mudz - 25-12-14

جربه الان انسخه ولصق مثل ماهو
انت لم تضع 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

RE: ما الخطاء في هاذا الكود - ممدوح الخطيب - 25-12-14

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

RE: ما الخطاء في هاذا الكود - hassan - 26-12-14

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

RE: ما الخطاء في هاذا الكود - mudz - 26-12-14

(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


RE: ما الخطاء في هاذا الكود - hassan - 26-12-14

(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

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

RE: ما الخطاء في هاذا الكود - mudz - 26-12-14

(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)
وش مكتوب فيها وقولي الان أو ارفق المشروع حقك الان

RE: ما الخطاء في هاذا الكود - hassan - 26-12-14

(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


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

RE: ما الخطاء في هاذا الكود - mudz - 26-12-14

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

RE: ما الخطاء في هاذا الكود - hassan - 26-12-14

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

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


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

ووش الخطاء