zoukankan      html  css  js  c++  java
  • GDI为操作系统安装新字体

    Imports System.Drawing.Text
    Public Class Form1
        Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal Msg As UInteger, ByVal wParam As Integer, ByVal lParam As Integer) As Long
        Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
        Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long

        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            Const WM_FONTCHANGE As Integer = &H1D
            Const HWND_BROADCAST As Integer = &HFFFF

            Dim InFont As New InstalledFontCollection
            Dim IsInstalledBarCodeFont As Boolean = False
            For Each k In InFont.Families
                If k.Name = "C39HrP36DmTt" Then
                    IsInstalledBarCodeFont = True
                    Exit For
                End If
            Next
            If IsInstalledBarCodeFont = False Then
                Dim Ret As Long
                Dim Res As Long
                Dim Ret2 As Long

                FileCopy(CurDir() & "C39HrP36DmTt.TTF", "C:WindowsFontsC39HrP36DmTt.TTF")
                Ret = AddFontResource("C:WindowsFontsC39HrP36DmTt.TTF")
                Res = SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
                Ret2 = WriteProfileString("fonts", "C39HrP36DmTt.TTF" + " (TrueType)", "C39HrP36DmTt.TTF")
            End If
            Me.Close()
        End Sub
    End Class

  • 相关阅读:
    C#wenbbrowser浏览器的详细用法
    js 通过window.external 调用 winform中的方法
    找到webbrowser中的控件句柄发送消息-转
    设置ie cookie 转
    XML的SelectNodes使用方法以及XPath --转
    JQuery AJAX 提交js数组
    Java数据库访问:DBHelper类
    调试运行过程中,位于try-catch中的异常代码是否中断的选项
    Eclipse中配置Tomcat并创建Web项目
    TypeScript: 应用级别的JavaScript开发
  • 原文地址:https://www.cnblogs.com/longjin2018/p/11737582.html
Copyright © 2011-2022 走看看