14-08-20, 01:24 PM
(آخر تعديل لهذه المشاركة : 14-08-20, 01:58 PM {2} بواسطة عبد الهادي بهاب.)
ممكن فكرة بسيطة
نضع مصفوفة بالاحرف العربية
و مصفوفة بالرموز القديمة بحيث يتقابل كل مع ترجمته في نفس الترتيب
و عندها تقوم دالة بالبحث و التعويض
مجرد فكرة
فيه فكرة اخرى نستخدم الخط الهيغلوفي
egypt0.zip (الحجم : 31.05 ك ب / التحميلات : 21)
الان افتح مشورعا جديدا
ضع فيه ليبال لعرض النتائج
ضع textbox مربع نص لادخال النص الذي تريد
------ لا يقبل الا الحروف الاجنبية -------
الان ضع زر
الان في صفحة الكود ضع الكود التالي:
حتى يعمل الكود ضع الخط بعد تحميله في مجلد Debug
وهي طريقة لاستخدام الخط دون تثبيته في مجلد الخطوط
النتيجة
نضع مصفوفة بالاحرف العربية
و مصفوفة بالرموز القديمة بحيث يتقابل كل مع ترجمته في نفس الترتيب
و عندها تقوم دالة بالبحث و التعويض
مجرد فكرة
فيه فكرة اخرى نستخدم الخط الهيغلوفي
egypt0.zip (الحجم : 31.05 ك ب / التحميلات : 21)
الان افتح مشورعا جديدا
ضع فيه ليبال لعرض النتائج
ضع textbox مربع نص لادخال النص الذي تريد
------ لا يقبل الا الحروف الاجنبية -------
الان ضع زر
الان في صفحة الكود ضع الكود التالي:
PHP كود :
Public Class Form1
Dim privateFonts As New Drawing.Text.PrivateFontCollection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
privateFonts.AddFontFile(Application.StartupPath & "\egyptian.ttf")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = TextBox1.Text
Label1.Font = New Font(privateFonts.Families(0), 26, FontStyle.Bold)
End Sub
End Class
حتى يعمل الكود ضع الخط بعد تحميله في مجلد Debug
وهي طريقة لاستخدام الخط دون تثبيته في مجلد الخطوط
النتيجة
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك

