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

نسخة كاملة : سؤال عن حفظ ال txt بصيغة ال unicode
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
شكرا اخ ساجد تم بنجاح . واشكرك اخ سعود
مشاركة لاخي اضع هذا الكلاس
كود :
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txtpath.Text.Trim = "" Or body.Text.Trim = "" Then
            MsgBox("تاكد من البيانات", MsgBoxStyle.Critical, "")
            Exit Sub
        End If
        My.Computer.FileSystem.WriteAllText(txtpath.Text, body.Text, False, System.Text.Encoding.Unicode)






    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If My.Computer.FileSystem.FileExists(txtpath.Text) = False Then
            MsgBox("تاكد من مسار الملف في مربع النص الاول", MsgBoxStyle.Critical, "")
            Exit Sub
        End If
        TextBox1.Text = My.Computer.FileSystem.ReadAllText(txtpath.Text, System.Text.Encoding.Unicode)
    End Sub
End Class
جزاك الله خير .

عندي سؤال وهو كيف احفظ الخيارات التى يختارها المستخدم وتكون هى الاساسية عندما يفتح البرنامج ولا يحتاج الا اعادة تحديدها او ضبطها مرة اخرى

لا اعلم هل يحتاج السؤال الى موضوع اخر ام لا . شكرا لكم
ضمن خصائص المشروع اختر تبويب settings
ثم اضف ضبط جديد واعطه اسم يدل على المراد منه ثم انظر اي نوع تريد من type
ويكون القراءة هكذا
my.settings.mykeyname
الصفحات : 1 2