接到做LED显示的CASE,在客户要求要让显示的标语上下左右居中,没办法求救如下:
只有让LED显示BMP图片才能让标语文字上下左右居中,于是我写了如下代码:
Private Sub Command1_Click()Picture1.Font = Text1.FontPicture1.FontSize = Text1.FontSizePicture1.FontName = Text1.FontName
MsgBox Picture1.FontNamePicture1.Width = 640 / 96 * 72 * 20Picture1.Height = 48 / 96 * 72 * 20
Picture1.ScaleMode = 3xxxx = Picture1.TextHeight(Text1.Text)
yyyy = Picture1.TextWidth(Text1.Text)xxx = (640 - yyyy) / 2
yyy = (48 - xxxx) / 2MsgBox xxxPicture1.CurrentX = xxx
Picture1.CurrentY = yyy
Picture1.Print Text1.Text
End Sub
LED是 640X48的规格,现在的情况是上下好象还是不能居中的,使用宋体,26磅字。还望高人指点一下。先谢谢了。

解决方案 »

  1.   

    DrawText
    DT_CENTER中部对齐
    DT_VCENTER中部对齐
      

  2.   

    没有仔细看,只看到这一点:
    MsgBox Picture1.FontNamePicture1.Width = 640 / 96 * 72 * 20Picture1.Height = 48 / 96 * 72 * 20   '不是480而是48么?
    Picture1.ScaleMode = 3xxxx = Picture1.TextHeight(Text1.Text)
    yyyy = Picture1.TextWidth(Text1.Text)xxx = (640 - yyyy) / 2
    yyy = (48 - xxxx) / 2    '不是480而是48么?
      

  3.   

    是48,我想在程序中模拟led屏幕大小。picturebox的大小就是led屏幕的大小。