求教各位高手，在Picture上如何写字，谢谢！！！

Question

求教各位高手，在Picture上如何写字，谢谢！！！
我在Picture上画了一个框框，我想在框里写上字如“你好“
另请教如何改变线条的粗细，谢谢！！！
Me.Show
Picture1.Line (300, 500)-(Picture1.Width - 300, 500), vbRed
Picture1.Line (300, 1000)-(Picture1.Width - 300, 1000), vbRed
Picture1.Line (300, 500)-(300, 1000), vbRed
Picture1.Line (Picture1.Width - 300, 500)-(Picture1.Width - 300, 1000), vbRed

Answer 1

'画框只要一句就够了
Picture1.Line (300, 500)-(Picture1.Width - 300, 1000), vbRed ,BPicture1.FontSize = 9
Picture1.FontName = "宋体"
Picture1.CurrentX = (Picture1.Width - textwidth("你好")) / 2
Picture1.CurrentY = 750
Picture1.Print "你好"'如何改变线条的粗细
Picture1.DrawWidth

Answer 2

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

Answer 3

谢谢viena(维也纳nn-实心木头人):在求教您b起和作用
1：为何子不能在框框中央
2：化多个表格如何画，谢谢！！！

Answer 4

b表示换方框，给出的坐标不再是直线的起点和终点，而是方框的左上角和右下角
Picture1.CurrentX
Picture1.CurrentY
子可以写在任何地方，
是字的左上角的坐标，你要算出来啊

Answer 5

textwidth("你好")是字的宽度
textHeight("你好")得到高度

Answer 6

Picture1.Line (300, 500)-(Picture1.Width - 300, 1000), vbRed ,BF表示是实心的，有填充，该手的都被维也纳说了！！呵呵