学习编程遇到点小问题，请教下各位大侠，小弟写了如下程序想让要输入的“你好”居中显示，结果字却显示在图片框右下角的位置，经过多次尝试，发现如果把picture1.fontsize=48这一行去掉就居中了，可是怎么能让字保持48号大小又居中显示呀？
Private Sub Form_Click()
Dim txth As Integer, txtw As Integer
Picture1.FontSize = 48
Picture1.ForeColor = RGB(255, 0, 0)
txth = TextHeight("你好")
txtw = TextWidth("你好")
Picture1.Print "你好"
Picture1.CurrentX = (Picture1.ScaleWidth - txtw) / 2
Picture1.CurrentY = (Picture1.ScaleHeight - txth) / 2
Picture1.Print "你好"
End Sub

我想,要默认值才能居中吧.(不感肯定,没看过这方面的资料)
如果你想实现上述居中的效果,不妨:
Picture1.CurrentX = (Picture1.ScaleWidth - txtw) / 2
Picture1.CurrentY = (Picture1.ScaleHeight - txth) / 2
将 2 改改,以达到你想要的效果.

路过  看过

不如直接用label

[此贴子已经被Joforn于2007-7-4 23:43:57编辑过]

楼上做广告?

把Label 放在Picture1中，
Label 和Picture1 宽度一样设置字体还不简单。

那你看ＬＺ代码哪写错了呢？

Private Sub Form_Click()
Dim txth As Single, txtw As Single
Picture1.FontSize = 48
Picture1.ForeColor = RGB(255, 0, 0)

Picture1.Print "你好"
Picture1.Scale (-10, -10)-(10, 10)
txth = Picture1.TextHeight("你好")
txtw = Picture1.TextWidth("你好")
Picture1.CurrentX = -txth / 2
Picture1.CurrentY = -txtw / 2
Picture1.Print "你好"
End Sub
你这样看看

Private Sub setPicText(InPic As PictureBox, InText As String)
Dim txth As Single, txtw As Single
InPic.AutoRedraw = True
InPic.Appearance = 0
InPic.BorderStyle = 0
InPic.BackColor = 100031
InPic.FontSize = 12
InPic.Font.Name = "宋体"
InPic.Font.Bold = True
InPic.ForeColor = vbBlack
Picture1.Scale (-10, -10)-(10, 10)
txth = Picture1.TextHeight(InText)
txtw = Picture1.TextWidth(InText)
Picture1.CurrentX = -txtw / 2
Picture1.CurrentY = -txth / 2
Picture1.Print InText
End Sub

Private Sub Form_Click()
Dim txth As Single, txtw As Single
Picture1.FontSize = 48
Picture1.ForeColor = RGB(255, 0, 0)
Picture1.Scale (-10, -10)-(10, 10)
txth = Picture1.TextHeight("你好")
txtw = Picture1.TextWidth("你好")
Picture1.CurrentX = -txth / 2
Picture1.CurrentY = -txtw / 2
Picture1.Print "你好"
End Sub
这样没问题,符合LZ的要求;楼上能给解释下吗?