绘制一个单行文字
[id(66), helpstring("method DrawText")]
LONGLONG DrawText(DOUBLE dPosX, DOUBLE dPosY, BSTR pszText, DOUBLE dHeight, DOUBLE dRotation, SHORT horizontalMode, SHORT verticalMode);|
参数 |
说明 |
|
DOUBLE dPosX |
文字的位置的X坐标 |
|
DOUBLE dPosY |
文字的位置的Y坐标 |
|
BSTR pszText |
文字内容字符串 |
|
DOUBLE dHeight |
文字高度 |
|
DOUBLE dRotation |
文字的旋转角度 |
|
SHORT horizontalMode |
文字的水平对齐方式,0=kTextLeft,1=kTextCenter,2=kTextRight |
|
SHORT verticalMode |
文字的竖直对齐方式,1=kTextBottom,2=kTextVertMid,3=kTextTop |
返回新增的文字id
例如: VB例子
Private Sub DrawText_Click()
'把颜色改回黑白色
MxDrawX1.DrawColor = 0
'创建一个图层,名为"TextLayer"
MxDrawX1.AddLayer "TextLayer"
'设置当前图层为"TextLayer"
MxDrawX1.LayerName = "TextLayer"
'《---------------------------------------》
'写一个文字,0,1是左对齐.
MxDrawX1.DrawText 0, 1900, "梦想绘图控件3.0 www.mxdraw.com", 100, 0, 0, 1
'《---------------------------------------》
'写一个文字,2,1是右下对齐.
MxDrawX1.DrawColor = 4556677
MxDrawX1.DrawText 3000, 2100, "梦想绘图控件3.0 www.mxdraw.com", 100, -20, 2, 1
'《---------------------------------------》
'按指定样式绘制文字
MxDrawX1.AddTextStyle1 "MyTextStyle", "italicc.shx", "gbcbig.shx", 0.7
MxDrawX1.TextStyle = "MyTextStyle"
MxDrawX1.DrawColor = 255
MxDrawX1.DrawText 0, 3000, "梦想绘图控件3.0 www.mxdraw.com", 100, 0, 0, 1
'《---------------------------------------》
'写一个TureType字体
MxDrawX1.AddTextStyle2 "MyTrueTypeStyle", "黑体", 0.7
MxDrawX1.TextStyle = "MyTrueTypeStyle"
MxDrawX1.DrawText 0, 3150, "梦想绘图控件3.0 www.mxdraw.com", 100, 0, 0, 1
MxDrawX1.ZoomAll
MxDrawX1.UpdateDisplay
End Sub