تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اضافة خط جديد الى النظام
#1
السلام عليكم ورحمة الله
اريد الاستعلام عن وجود خط معين فى خطوط النظام
اذا لم اجده اقوم بوضعه ضمن الخطوط
الرد }}}
تم الشكر بواسطة:
#2
جلب كل الخطوط الموجوده عندك على الجهاز وعرضها في لست بكس :

كود :
    Dim allFonts As New Drawing.Text.InstalledFontCollection
        Dim fontFamilies() As FontFamily = allFonts.Families()

        For Each Fnt In allFonts.Families
            ListFonts.Items.Add(Fnt)
        Next

وبعدها أبحث في اللست وشوف حل لمشكلتك
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد }}}
تم الشكر بواسطة: @@أبورائد@@
#3
جزاك الله خيرا

باقى الان طريقة تثبيت الخط على الجهاز

لقيت الكود ده لكنه ملخبط شويه

كود :
<DllImport("gdi32")> _
    Public Shared Function AddFontResource(ByVal lpFileName As String) As Integer
    End Function

    <DllImport("user32.dll")> _
    Public Shared Function SendMessage(ByVal hWnd As Integer, ByVal Msg As UInteger, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    End Function

    <DllImport("kernel32.dll", SetLastError:=True)> _
    Shared Function WriteProfileString(ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Integer
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Ret As Integer
        Dim Res As Integer
        Dim FontPath As String
        Const WM_FONTCHANGE As Integer = &H1D
        Const HWND_BROADCAST As Integer = &HFFFF
        FontPath = WinFontDir & "\" & FontFileName
        Ret = AddFontResource(FontPath)
        Res = SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
        Ret = WriteProfileString("fonts", FontName & " (TrueType)", FontFileName)
    End Sub
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافه سجل row جديد سلام و محبه2090 0 96 02-03-24, 11:04 PM
آخر رد: سلام و محبه2090
  اضافة ادوات لفيجوال بيسك خالد20 10 1,976 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  جعل النظام يعمل بجميع مقاسات الشاشه Owz 7 528 08-08-23, 07:36 PM
آخر رد: Owz
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61
  [سؤال] كيفية اضافة في اكثر من جدول ahmed_king2023 0 364 29-07-23, 12:03 PM
آخر رد: ahmed_king2023
  [VB.NET] مشكلة عدم الوصول Registry النظام MOHAMMED ALZWI 2 419 15-06-23, 09:01 PM
آخر رد: MOHAMMED ALZWI
  اقتناص حدث تحديث او حذف او اضافة ملف ابو محمد محمد محمد 6 560 21-04-23, 05:49 PM
آخر رد: ابو محمد محمد محمد
  [VB.NET] مشكلة في الوصول لــ Registry النظام MOHAMMED ALZWI 1 300 26-03-23, 12:26 PM
آخر رد: sanyor77
  [سؤال] كيفية اضافة اكثر من ثلاث معاملات الى عامل التشغيل بواسطة If asmarsou 7 1,167 26-02-23, 11:34 PM
آخر رد: asmarsou
  مشكلة فى اضافة عناصر فى الداتا جريد فيو خالد كامل1 14 1,616 16-02-23, 03:10 AM
آخر رد: خالد كامل1

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم