"كود استعرض الخطوط"

مغلق

بدأه galg في 19 فبراير 2008 · 4 رد · 754 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#119 فبراير 2008 في 02:52 صاحب الموضوع

لدي كود يقوم باستعراض الخطوط التي بالجهاز لكن المشكله في بعض الخطوط تأتي صيغتها غير معروفه فالبرنامج يقفل على طول

ابي اذا مريت على خط صيغته غير معروفه..يعطيني مسج يقول ان الخط صيغته غير معروفه

الكود

Private Sub cmdCollectFonts_Click()

' جعل مؤشر الفارة في وضع ساعات رملية

Screen.MousePointer = 11

' اخفاء زر احصاء الخطوط<< هنا غيرت اختفاء الزر الى عدم تفعيله

cmdCollectFonts.Enabled = False

lblSample.Caption = "من فضلك انتظر"

' تحديث للفورم و رسم زرم الامر مرة اخرى

Me.Refresh

For x = 1 To Screen.FontCount

cmdCollectFonts.Enabled = True

lstFonts.AddItem Screen.Fonts(x)

lstFonts.Refresh

Next x

lblSample.Caption = "Semple مثال"

' عودة الي شكل مؤشر الفأرة مرة اخرى

Screen.MousePointer = 0

End Sub

وفي اللست بوكس التي ستأتي قائمة الخطوط فيها

Private Sub lstFonts_Click()

' كيفية تغير الخط داخل الليبول بتغير الخط المختار

lblSample.FontName = lstFonts.Text

End Sub

في انتظاركم

تم تعديل هذه المشاركة بواسطة galg في 19 فبراير 2008 في 02:56

#219 فبراير 2008 في 16:32

هذي اول مشاركه لي ولا احد جاااوب علي..؟؟

العلم ليس احتكاااااار

#319 فبراير 2008 في 16:51

كيف يتم معرفة الملف الخارجي به خطأ أم لا !!!

علي فكرة ، يمكن التحايل قليلاً علي البرمجة بحيث أن يتم عرض رسالة تعطي رسالة خطأ معينة بأن الملف المحدد ليس هو المطلوب !!!

مثال للتوضيح أكثر ، نفرض أننا لدينا عنصر Image ونرغب في عرض نافذة ( Open ) للمستخدم بحيث أن يحدد الصورة المناسبة للبرنامج ، ولكن عند تحميل الصورة بالكود التالي :

Image1.Picture = LoadPicture('C:\Pic.dat')

فوجأت بأنه حدث خطأ رقم ( 481 ) ، تحت رسالة ( Invaled Picture ) !!!

يمكنني من خلال هذا الرقم أو أي رقم آخر يحدث أثناء تحميل ملف الصورة أعرض للمستخدم رسالة تفيد بأن ملف الصورة غير سليم ، أنظر المثال التالي :

Private Sub Command1_Click()
	On Error Resume Next
	With CommonDialog1
		.FileName = ""
		.Filter = "All Files(*.*)|*.*"
		.ShowOpen
		If(.FileName = "")Then Exit Sub
		Image1.Picture = LoadPicture(.FileName)
		If(Err.Number <> 0)Then
			MsgBox "الصورة المحددة غير مطابقة لمواصفات الصور القياسية",vbOkOnly,"خطأ"
			Exit Sub
		End If
	End With
End Sub

وعلي الفكرة السابقة يمكنك إستخدامها علي نفس المشاكل الأخري ، علي سبيل مشكلة نوع الخط يمكن إنشاء عنصر Label ومنحة نوع الخط الحالي في عملية الـ Loop ، وفي حالة حدوث أي خطأ نتجاهل هذا النوع ولم ندرجة في الـ ComboBox من أساسة .

شكراً أخي الكريم ، وربنا يوفق كل طالب علم ،

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook