在线请教:关于DRAWTEXTEX 函数
API函数申明和类型定义就不写了,以下是我的调用代码,但是在矩形中就是写不出字,
Private Sub Command1_Click()
Dim DrawRect As RECT
Dim FillName As String
Dim DrawPoint As DRAWTEXTPARAMS
Dim result As Long
DrawRect.Bottom = 70
DrawRect.Left = 80
DrawRect.Right = 200
DrawRect.Top = 10
Call FrameRect(Picture1.hdc, DrawRect, lPen)
FillName = "How are you!"
DrawPoint.cbSize = 5
DrawPoint.iLeftMargin = 1
DrawPoint.iRightMargin = 1
DrawPoint.iTabLength = 0
DrawPoint.uiLengthDrawn = Len(FillName)
Call DrawTextEx(Picture1.hdc, FillName, Len(FillName), DrawRect, DT_CENTER, DrawPoint)
End Sub