14-08-20, 01:15 PM
14-08-20, 01:24 PM
ممكن فكرة بسيطة
نضع مصفوفة بالاحرف العربية
و مصفوفة بالرموز القديمة بحيث يتقابل كل مع ترجمته في نفس الترتيب
و عندها تقوم دالة بالبحث و التعويض
مجرد فكرة
فيه فكرة اخرى نستخدم الخط الهيغلوفي
[attachment=25448]
الان افتح مشورعا جديدا
ضع فيه ليبال لعرض النتائج
ضع textbox مربع نص لادخال النص الذي تريد
------ لا يقبل الا الحروف الاجنبية -------
الان ضع زر
الان في صفحة الكود ضع الكود التالي:
حتى يعمل الكود ضع الخط بعد تحميله في مجلد Debug
وهي طريقة لاستخدام الخط دون تثبيته في مجلد الخطوط
النتيجة
نضع مصفوفة بالاحرف العربية
و مصفوفة بالرموز القديمة بحيث يتقابل كل مع ترجمته في نفس الترتيب
و عندها تقوم دالة بالبحث و التعويض
مجرد فكرة
فيه فكرة اخرى نستخدم الخط الهيغلوفي
[attachment=25448]
الان افتح مشورعا جديدا
ضع فيه ليبال لعرض النتائج
ضع 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
وهي طريقة لاستخدام الخط دون تثبيته في مجلد الخطوط
النتيجة