ذخیره و بازیابی مشخصات فونت

[(سیدشریفی)]

باسلام
من بادستور زیر مشخصات فونت را داخل یک فایل متنی ذخیره میکنم .

Dim My_Font As Drawing.Font

Dim My_W As StreamWriter = New StreamWriter(My_FileName)

My_Font = FontDialog1.Font
My_W.WriteLine(My_Font)

My_W.Close()
ولی موقعی که با دستور زیر این مشخصات را در یک متغییر میخوانم نام فونت همیشه Microsoft Sans Serif میباشد در حالیکه وقتی به داخل فایل متنی نگاه میکنم میبینم نام فونت همان فونت مورد نظر من میباشد .

Dim My_R As StreamReader = New StreamReader(My_FileName)

My_Font = New Drawing.Font(My_R.ReadLine, My_Font_Size)

My_R.Close()
لطفا کمک کنید .
:(

[Farhad.B.S]

زمانی که توسط متد WriteLine فونت مورد نظر رو در فایل مینویسید ، کلیه مشخصات فونت در فایل ذخیره میشند (سایز - نام - ... ) .
شما در این مورد فقط لازمه که نام فونت رو داخل فایل بنویسید :

Dim My_Font As Drawing.Font

Dim My_W As StreamWriter = New StreamWriter(My_FileName)

My_Font = FontDialog1.Font
My_W.WriteLine(My_Font.Name)

My_W.Close()


در صورتی که بخواید کلیه مشخصات فونت مورد نظر رو (یا هر آبکجت دیگه ای رو) داخل یک فایل یا memory stream نگهداری کنید و سپس اونها رو به صورت همان آبجکت های اولیه بازیابی کنید میتونید از کلاس های درنظر گرفته شده برای Serialization استفاده کنید.

[(سیدشریفی)]

آقا فرهاد ممنون از جوابتون
من تک تک مشخصات فونت را ذخیره و بازیابی کردم مشکل حل شد .
:)