UC知道vb关开坐标的问题
来源：百度知道 编辑：UC知道 时间：2024/06/03 11:36:57
Private Sub Form_click()
Dim mystr As String
mystr = "什么是太阳和月亮呢"
Picture1.Top = (Form1.ScaleHeight - Picture1.Height) / 2
Picture1.Left = (Form1.ScaleWidth - Picture1.Width) / 2
Picture1.CurrentX = Picture1.ScaleLeft + Picture1.Width / 2 - Picture1.TextWidth(mystr) / 2
Picture1.CurrentY = Picture1.Height / 2 - Picture1.TextHeight(mystr) / 2 '1020
Picture1.Print mystr
End Sub
高手帮忙看一下,为什么 执行后没有完全居中啊,差一点 ,看见坐标有点晕啊
Dim mystr As String
mystr = "什么是太阳和月亮呢"
Picture1.Top = (Form1.ScaleHeight - Picture1.Height) / 2
Picture1.Left = (Form1.ScaleWidth - Picture1.Width) / 2
Picture1.CurrentX = Picture1.ScaleLeft + Picture1.Width / 2 - Picture1.TextWidth(mystr) / 2
Picture1.CurrentY = Picture1.Height / 2 - Picture1.TextHeight(mystr) / 2 '1020
Picture1.Print mystr
End Sub
高手帮忙看一下,为什么 执行后没有完全居中啊,差一点 ,看见坐标有点晕啊
显示字符、绘图，坐标要全部使用 Scale ：
Dim mystr As String
mystr = "什么是太阳和月亮呢"
Picture1.Top = (Form1.ScaleHeight - Picture1.Height) / 2
Picture1.Left = (Form1.ScaleWidth - Picture1.Width) / 2
Picture1.AutoRedraw = True
Picture1.Scale (-90, 4)-(-8, 10)
Picture1.CurrentX = Picture1.ScaleLeft + Picture1.ScaleWidth / 2 - Picture1.TextWidth(mystr) / 2
Picture1.CurrentY = Picture1.ScaleTop + Picture1.ScaleHeight / 2 - Picture1.TextHeight(mystr) / 2
Picture1.Cls
Picture1.Print mystr