Recently, want to use VB to do a electronic stamp, most can be done, that is, how can let stamp background transparent this make uncertain (like the actual stamp,
No word part of the word part of the covered, transparent), find it online for a long time and still didn't get, so consult ace have come to the great god, like to solve my confusion,
Will be appreciated, major
Problem as shown in figure: (
figure do not go up) Attached source:
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 ()
The Clipboard. The Clear
Clipboard. SetData Picture1. Image
End Sub
Private Sub Exit_Click ()
Unload Me
End Sub
Private Sub Form_Load ()
Text1 (1). The 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
The Picture1. Print Text1 (0). The Text
Picture1. CurrentX=- 860
Picture1. CurrentY=160
Picture1. Print Text1 (1). The Text
Picture1. CurrentX=- 480
Picture1. CurrentY=- 360
Picture1. Print Text1. (2) the Text
End Sub
CodePudding user response:
Want to take picture with VB.NET add a watermark