|
分類:[.NET 全般]
高さと巾の寸法が異なる文字を、今までVB6では、
Windows API 関数の
Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" _
(ByVal h As Long, ByVal w As Long, ByVal E As Long, ByVal O As Long, _
ByVal w As Long, ByVal i As Long, ByVal u As Long, ByVal s As Long, _
ByVal c As Long, ByVal OP As Long, ByVal cp As Long, ByVal q As Long, _
ByVal PAF As Long, ByVal F As String) As Long
を使って、
'論理フォントの作成
h = 12 '文字高さ
w = 6 '文字巾
a = 30 '文字表示回転角(度)
fnt = "ＭＳ 明朝"
wei = 1 '太さ
iit = 0 'イタリック
iund = 0 'アンダーライン
istr = 0 , 打ち消し線
FontToUse = CreateFont(h, w, a, 0, wei, iit, iund, istr, 1, 0, _
0, 0, 0, fnt)
とかしてましたが、VBNetではどうするのでしょうか？
VB6と同様に、このAPIを使おうとしましたが、エラー(↓)になります。
------------------------------------------------------------------------
PInvoke 関数 'DatMj_090814!DatMj_090814.mUtsml::CreateFont' がスタックを
不安定にしています。PInvoke シグネチャがアンマネージ ターゲット シグネチ
ャに一致していないことが原因として考えられます。呼び出し規約、および
PInvoke シグネチャのパラメータがターゲットのアンマネージ シグネチャに一
致していることを確認してください。
------------------------------------------------------------------------
？？？自分の知識ではさっぱり・・
ご存知の方、よろしくご教示お願いします。
|