احتاج مساعده

saly soso كتب:

احتاج كود لفتح ملف نصي داخل textboxوالتحقق اذا كان هذا الملف من امتداد txtوغير ذلك لا يعرض محتوياته في textbox

بإفتراض أنك سوف تستخدم أداة OpenFileDialog لديك هذا الكود

        OpenFileDialog1.Filter = "Text Files|*.txt"
        OpenFileDialog1.ShowDialog()

        If (OpenFileDialog1.FileName.EndsWith(".txt")) Then
            Dim sRead As New System.IO.StreamReader(OpenFileDialog1.FileName)

            TextBox1.Text = sRead.ReadToEnd()
            sRead.Close()
        Else
            TextBox1.Text = "Not Valid File!"
        End If

من خلال هذا السطر

        OpenFileDialog1.Filter = "Text Files|*.txt"

بإمكانك أن تضمن أن الديالوج لن يسمح للمستخدم بإختيار إلا ملفات .txt

في المقابل

بالكود، من خلال هذا السطر

        If (OpenFileDialog1.FileName.EndsWith(".txt")) Then

ستضمن أن أسم الملف ينتهي ب .txt

باقي الأسطر تهتم بقراءة الملف ووضعه في مربع النص