Re: [VB6 ] 有邊框的字體

看板Visual_Basic作者fumizuki (矇面加菲獅)時間18年前 (2007/01/09 19:53)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/3 (看更多)

※ 引述《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