sorry
'alle volte per essere conciso scrivo quasi niente
'a livello di modulo ho scritto:
Public Type KERNINGPAIR
wFirst As Long
wSecond As Long
iKernAmount As Long
End Type
Public Declare Function GetKerningPairs Lib "gdi32" Alias "GetKerningPairsA" (ByVal hdc As Long, ByVal cpairs As Long, lpkrnpair As KERNINGPAIR) As Integer
'---------------------------
'semplice tasto command
'VISlettere è una picture box
'valori di ritorno dopo click
'la variabile aaa =-1
'bbb=0
'ccc=0
'ddd=0
'dovrebbeero invece essere 909 valori di coppie di caratteri
'con i relativi valori di crenatura
Private Sub Command5_Click()
Dim aaa As Long
Dim bbb As Long
Dim ccc As Long
Dim ddd As Long
Dim lpkrnpair As KERNINGPAIR
Dim cpairs As Long
Dim PLUTO As Integer
dim eee as long
'On Error GoTo ERRATO
Me.vislettere.FontName = "arial"
PLUTO = GetKerningPairs(Me.vislettere.hdc, cpairs, lpkrnpair)
eee = cpairs
aaa = GDI_ERROR
bbb = lpkrnpair.wFirst
ccc = lpkrnpair.wSecond
ddd = lpkrnpair.iKernAmount
Exit Sub
ERRATO:
Stop
End Sub
|