VB.NETでGetGlyphOutlineを使用するには (ID:146037)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

以下の宣言でどうでしょう？

Imports System.Runtime.InteropServices

Public Declare Function GetGlyphOutline Lib "gdi32" Alias "GetGlyphOutlineA" _
        (ByVal hdc As Integer, ByVal uChar As Integer, ByVal fuFormat As Integer, _
        <MarshalAs(UnmanagedType.Struct)> ByRef lpgm As GLYPHMETRICS, _
        ByVal cbBuffer As Integer, ByVal lpBuffer As IntPtr, _
        <MarshalAs(UnmanagedType.Struct)> ByRef lpmat2 As MAT2) As Integer

<StructLayout(LayoutKind.Sequential)> Public Structure GLYPHMETRICS
        Public gmBlackBoxX As Integer
        Public gmBlackBoxY As Integer
        Public gmptGlyphOrigin As POINTAPI
        Public gmCellIncX As Integer
        Public gmCellIncY As Integer
    End Structure

<StructLayout(LayoutKind.Sequential)> Public Structure POINTAPI
        Public x As Integer
        Public y As Integer
    End Structure

<StructLayout(LayoutKind.Sequential)> Public Structure MAT2
        Public eM11 As FIXED
        Public eM12 As FIXED
        Public eM21 As FIXED
        Public eM22 As FIXED
    End Structure

<StructLayout(LayoutKind.Sequential)> Public Structure FIXED
        Public fract As Integer
        Public Value As Integer
    End Structure

←解決時は質問者本人がここをチェックしてください。

戻る