إظهار أشكال الخطوط لمعرفتها مسبقا

السلام عليكم

رغم أن هنالك شيء من المخلفات,,, منها على سبيل المثال أن الطلب لم يلحق بنصوص برمجية ( كود ) حتى يتولد هنالك أحساس إن

السؤال أُتبع بمثابرة لا إتكاليه.. المهم الطريقة كالتالي:

   Private Sub Form1_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load
		Try

			Me.Show()

			'Get the installed font collections.
			Dim installedFonts As New System.Drawing.Text.InstalledFontCollection

			'Get an array of the system's font famillies.
			Dim fontFamilies() As FontFamily = installedFonts.Families

			'Display the font families
			With Me.cboxFonts

				.BeginUpdate()

				For Each fontfamiliy As FontFamily In fontFamilies
					.Items.Add(fontfamiliy.Name)
				Next

				.EndUpdate()

				.SelectedIndex = 0

			End With

		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
	End Sub

	Private Sub cboxFonts_SelectedIndexChanged( _
	ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles cboxFonts.SelectedIndexChanged

		Dim f As New Font(cboxFonts.Text, 12, Drawing.FontStyle.Bold)
		Me.Label1.Font = f

	End Sub

و الله الموفق.

GetFonts.rar

السلام عليكم

الله يعطيك العافية أخي الشهاب على الإفادة !

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

أتمنى يكون مفيد !

:rolleyes:

أكرر شكري للأخ الشهاب الحارق بارك الله فيك وجزاك خيراً

وإن شاء الله نجرب طريقتكم !

نسألكم الدعاء

ودمتم موفقين ؛؛

Text.zip

السلام عليكم

مثال جيد و محاولة طيبه و عضو أطيب,, السلام عليكم.

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

مشكور أخي الكريم ، الشهاب الحارق على إفادتك وبارك الله فيك .

قمت بعمل تجربة على الكود الذي أقترحته ، وهو لا يختلف كثيراً عن ما كتبته .

لكن كانت هناك مشكلة مشتركة بيننا في كتابة هذا الكود كما إتضح لي أثناء تجربة الكود .

وهذه المشكلة في قراءة بعض الخطوط .

مثل الخط المسمى Wingdings وهي موجودة في أغلب أجهزة الكمبيوتر

فعندما يقوم بقراءة ملف الخط المسمى (Wingdings) فإن الكود يتوقف عن العمل .

وأيضاً هناك خطوط غير عربية ولا أعرف ماهي وأعتقد أنها هندية أو صينية أو يابانية .....

فإنها لا تظهر لي أشكال هذه الخطوط ، ولا تتغير أبداً ، لذلك لا أستطيع ان اتعامل معها

وقد قمت بإرفاق المحاولات ،،،

نأمل منكم الاطلاع عليها ، كما آمل من جميع الأخوان المشاركة وتفعيل الموضوع

وبارك الله فيكم ، وأفاد علمكم الأمة الأسلامية

ودمتم سالمين ،،،

أخوكم

WindowsApplication1.zip

اقتباس

لكن كانت هناك مشكلة مشتركة بيننا في كتابة هذا الكود كما إتضح لي أثناء تجربة الكود .

وهذه المشكلة في قراءة بعض الخطوط .

مثل الخط المسمى Wingdings وهي موجودة في أغلب أجهزة الكمبيوتر

فعندما يقوم بقراءة ملف الخط المسمى (Wingdings) فإن الكود يتوقف عن العمل .

أما هذه فلا, هذا النوع من الخط يسمى Symbol أي رموز وليست خطوط مقروءة .

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

ولكنني لم أتمكن من قراءة الرموز وما هي الطريقة التي تسمح لي يقراءة الرموز أيا كانت هذه الرموز

وشكراً ،،،،،،،،،

هل من إجابة ، فانا محتاج لحل هذه المعضلة .

:( :( :(

أخوني الكرام ،،،،

هل يوجد أحد بيعرف طريقة قراءة الرموز وملفات الخطوط للغات الأخرى .

لو سمحتم :blink: :blink: