首先，初來乍到，自我介紹一下，我是做硬體的，不是做軟體的，對VB只是自己看書學了一點，所以不是很懂。
最近，想用VB做一個電子圖章，大部分可以搞定，就是怎么能讓圖章背景透明這塊搞不定（就像實際圖章那樣，
有字的部分覆寫，沒字的部分透明），網上也找了很久，還是沒搞定，所以特來請教高手大神，如能解我困惑，
將不勝感激，功德無量啊
問題如圖：（
圖傳不上來）附上原始碼：
Option Explicit
'Private Declare Sub keybd_event Lib "user32" (ByVal bvk As Byte, ByVal scan As Byte, ByVal dwflags As Long, ByVal dwextrainfo As Long)
'Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Private Sub CopyCmd_Click()
Clipboard.Clear
Clipboard.SetData Picture1.Image
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub Form_Load()
Text1(1).Text = Format(Date, "yyyy/mm/dd")
'Picture1.BackColor = RGB(255, 255, 255)
Picture1.Scale (-1000, 1000)-(1000, -1000)
'Picture1.Circle ((Picture1.Left + (Picture1.Width / 2)), (Picture1.Top + (Picture1.Height / 2))), Picture1.Width / 2, RGB(255, 0, 0)
Picture1.Circle (0, 0), 960
Picture1.Line (-900, 250)-(950, 250)
Picture1.Line (-900, -250)-(950, -250)
Picture1.ForeColor = RGB(0, 0, 0)
Picture1.CurrentX = -690
Picture1.CurrentY = 600
Picture1.Print Text1(0).Text
Picture1.CurrentX = -860
Picture1.CurrentY = 160
Picture1.Print Text1(1).Text
Picture1.CurrentX = -480
Picture1.CurrentY = -360
Picture1.Print Text1(2).Text
End Sub
uj5u.com熱心網友回復：
想把圖片用VB.NET加個水印轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/98231.html
標籤：API