تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة: @@أبورائد@@
#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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video [VB.NET] كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر elhon.tec 1 60 09-12-16, 03:36 AM
آخر رد: elhon.tec
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 3 77 08-12-16, 09:07 PM
آخر رد: محمد كريّم
  [VB.NET] اضافة التاريخ في الطباعة في الريبورت فيور hglogtd 8 97 08-12-16, 08:35 PM
آخر رد: ابراهيم النعيمي
  اضافة عمود من نوع image ل bound datagridview noway 1 73 17-11-16, 12:08 PM
آخر رد: Genius Live
  كيف يمكن اضافة مجموعة حقول الي datagridview والتعديل عليها مباشرتا dark1459 2 73 15-11-16, 10:30 PM
آخر رد: السرور
  اضافة الاصناف جديد بشرط %Eman% 5 238 09-11-16, 01:39 PM
آخر رد: walkady
  كيف يمكن الذهاب لصف جديد فى الداتا جريد فيو walkady 0 69 06-11-16, 11:31 PM
آخر رد: walkady
Thumbs Up اضافة كود جمع و طرح في داتا قريد ص hglogtd 4 104 27-10-16, 03:15 AM
آخر رد: hglogtd
  اضافة الليست بوكس علي هيئة تيكست اللي قاعدة البيانات makky 3 163 16-10-16, 06:09 PM
آخر رد: makky
  اضافة وقت الى وقت Mohamed20 5 128 02-10-16, 04:51 AM
آخر رد: ممدوح

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


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