+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [اقتراح] مشروع (/showthread.php?tid=36107)
مشروع - abdallah1522011 - 14-08-20
مشروع عند كتابة اسمك با اللغة العربية يحولها الي لغة هولغريفية(اي لغة المصريين القدماء)
RE: مشروع - عبد الهادي بهاب - 14-08-20
ممكن فكرة بسيطة
نضع مصفوفة بالاحرف العربية
و مصفوفة بالرموز القديمة بحيث يتقابل كل مع ترجمته في نفس الترتيب
و عندها تقوم دالة بالبحث و التعويض
مجرد فكرة
فيه فكرة اخرى نستخدم الخط الهيغلوفي
[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
وهي طريقة لاستخدام الخط دون تثبيته في مجلد الخطوط
النتيجة
