أريد كود تغيير الخط في الText

كود لتغيير الخط

Private Sub Command1_Click()
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
End Sub

كود حفظ الصوره

Private Sub Command1_Click()
SavePicture Picture1.Picture, "C:\MyPicture.Bmp"
End Sub

شكرا لك أخي الكريم

هو أنا قبل ما أطرح السؤال اخترعت الكود الأول و لكنه لم ينجح في كود آخر

و كود الصورة بالنسبة لي أهم شيءء ال Flags و اللواحق

وضح أكثر

عفوا أخي الكريم على الرد المختصر أنا أقصد أن كود الخط لم ينجح معي أريد كود يجمع كل شيء الخط و الحجم و اللون هناك كود غير هذه الكودات البسيطة ..

أما يالنسبة للصورة فأنا كنت أريده كامل من الFlags مرورا بال Filter ولواحق عديدة مثل Gif و JPG..

شكرا لك

إيــاس

ممكن يا جماعة هو بصراحة أنا مستعجل

اخي بانسبة للطلب الأول

CommonDialog1.flags=&h3
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName

بالنسبة للطلب الثاني

CommonDialog1.filter="gif(*.gif)|*.gif| jpg files(*.jpg)|*.jpg"

CommonDialog1.filename=""
CommonDialog1.showsave
savepicture picture1.picture,commondiolog1.filename

أخي الكريم mostafazidani شكرا لك على الكودات الجميلة و لكن ممكن بعض التعديل:

الكود الأول عندك تبع الخط قمت بإضافة الحجم إليه عن طريق FontSize و لكن حصلت معي مشكلة في الكود وهو أن الخط لا يظهر عربي إلا إذا كان في الأصل لا يكتب إلا بالعربي مثلا خطArial لو دخلت قائمة الخطوط الناتجة في البرنامج من الكود السابق ثم غيرت الترميز إلى Arabic لا يظهر الخط عربي بل رموز غير مفهومة هل ممكن تعدل لي الكود أو تعرف مامشكلته ربما بالflags

الكود الثاني : هذا هو الكود و لكن ممكن بعد إذنك تضيف إيضا لاحقة الbmb لأني لا أعرف ترميزها ..

شكرا لك و لا ننسى الأخ Sheriff_Ghost2010

إيـاس

CommonDialog1.filter="gif(*.gif)|*.gif| jpg files(*.jpg)|*.jpg||bmp files
(*.bmp)|*.bmp"

تفضل أخي إياس هذا الكود إن شاء هو الحل الأكيد لطلبك الأول

وهو يظهر مربع حوار التابع للخط ثم يعطيك الحرية التامة ماذا تريد بالضبط ؟!

يعني عند إختيار اسم الخط وحجمه وهل هو عريض أم مائل أم تحته خط سوف يتم تنفيذ كل ما تريد

تفضل إليك هذا الكود :

CommonDialog1.CancelError = True
On Error GoTo Errhander:
CommonDialog1.Flags = cdlCFBoth
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
Text1.FontUnderline = CommonDialog1.FontUnderline
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Errhander:

أرجوا الدعاء لي ولوالدي

جزاك الله خيرا فهاد على هذا الكود الرائع

السلام عليكم..

شكرا لكم إيها الإخوة الكرام على الاهتمام

أخي الكريمail_fahad777 شكرا على الكود الجميل ولكن المشكلة لم تحل أهم شيء الترميز بالعربي الذي لم يظهر بعد غريب بالفعل لاحظ ماذا حصل معي عندما نقلت هذه الرموز الغير مفهومة و التي هي بالأصل كلمات عربية إلى Text في فورم ثانية ظهرت الكتابة عربية مفهومة ولم تظهر رموز .و قلت ربما تكون المشكلة في الText فنسخت الText الموجودة في الForm الأخرى فبقيت المشكلة كما هي ..

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

و شكرا لكم مسبقا ..

إيــاس

هذا مثال للتوضيح سيوضح المشكلة ..

Text font.zip

?????????????????????????????????

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!