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

  • 相关阅读:
    [spring] SpEL
    [spring学习2] 装配
    [spring] proxyMode
    [spring] @PropertySource
    [一些问题] 在vscode中添加jar库
    [spring] ApplicationContext相关问题
    gradle 打包
    [spring学习1] IoC容器
    spring快速开始
    准备要写的笔记备忘录
  • 原文地址:https://www.cnblogs.com/longjin2018/p/11737582.html
Copyright © 2011-2022 走看看