作者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