如何绘制一个单行文字？

• 回答：

  主要用到函数说明：

  
  

  _DMxDrawX::DrawText

  
  

  绘制一个单行文字。详细说明如下：

  
  

  参数	说明
  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

  
  

  实现代码说明：

  
  

          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