作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 有边框的字体
时间Tue Jan 9 19:53:11 2007
※ 引述《Berger927 (rabbit)》之铭言：
: 我用 picture.print 输入文字，但我想让字体有边框，我该怎摸做？
: 我不想上下左右来回移动个8次贴图，因为我放在回圈中，资源会吃的太凶。
: 不知道有没有比较快速的方法达成这个效果？
: 在此先谢过～ ^^
Private Sub Command1_Click()
'效果一
'输出文字的原点
x = 300: y = 30
'要输出的文字
s1 = "Visual Basic"
'边框的原点
X1 = x - 15
Y1 = y - 15
X2 = x + Picture1.TextWidth(s1) + 15
Y2 = y + Picture1.TextHeight(s1) + 15
'先绘出边框
Picture1.Line (X1, Y1)-(X2, Y1)
Picture1.Line -(X2, Y2)
Picture1.Line -(X1, Y2)
Picture1.Line -(X1, Y1)
'再绘出文字
Picture1.CurrentX = x
Picture1.CurrentY = y
Picture1.Print s1
End Sub
Private Sub Command2_Click()
'效果二
'输出文字的原点
x = 300: y = 600
'要输出的文字
s1 = "Visual Basic"
For i = 1 To Len(s1)
'边框的原点
X1 = x - 15
Y1 = y - 15
X2 = x + Picture1.TextWidth(Mid(s1, i, 1)) + 15
Y2 = y + Picture1.TextHeight(Mid(s1, i, 1)) + 15
'先绘出边框
Picture1.Line (X1, Y1)-(X2, Y1)
Picture1.Line -(X2, Y2)
Picture1.Line -(X1, Y2)
Picture1.Line -(X1, Y1)
'再绘出文字
Picture1.CurrentX = x
Picture1.CurrentY = y
Picture1.Print Mid(s1, i, 1)
x = x + Picture1.TextWidth(Mid(s1, i, 1)) + 60
'字距=4*15
Next
End Sub
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.68.49