为什么要有 hwnd 你要干什么,做 textbox 那也不一定要hwnd按你的说法这样应该没有问题的 private sub picture1_paint() picture1.cls picture1.currentX=(picture1.scalewidth-picture1.textwidth("ok"))/2 picture1.currenty=(picture1.scaleheight-picture1.textheight("ok"))/2 picture1.print "ok" end sub 这样无论什么变化,都会显示 ok 在中间当然你还可以用 TextOut和GrawText 但代码相对繁琐
当然不是用标签这么简单。
VB里好象没有这种方法.
你要干什么,做 textbox 那也不一定要hwnd按你的说法这样应该没有问题的
private sub picture1_paint()
picture1.cls
picture1.currentX=(picture1.scalewidth-picture1.textwidth("ok"))/2
picture1.currenty=(picture1.scaleheight-picture1.textheight("ok"))/2
picture1.print "ok"
end sub
这样无论什么变化,都会显示 ok 在中间当然你还可以用 TextOut和GrawText
但代码相对繁琐
picture1.currenty=2000
picture1.print "ok"
要在中间输出,可以通过计算后得到currentx及currenty,然后再用print方法