接到做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磅字。还望高人指点一下。先谢谢了。
只有让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磅字。还望高人指点一下。先谢谢了。
DT_CENTER中部对齐
DT_VCENTER中部对齐
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么?