809
社区成员
发帖
与我相关
我的任务
分享
VERSION 5.00
Begin VB.Form frmQRCode
Caption = "QRCode"
ClientHeight = 5520
ClientLeft = 60
ClientTop = 510
ClientWidth = 9675
BeginProperty Font
Name = "Fixedsys"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 368
ScaleMode = 3 'Pixel
ScaleWidth = 645
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdColor
Caption = "Color"
Height = 495
Left = 4200
TabIndex = 2
Top = 4920
Width = 1215
End
Begin VB.PictureBox picColor
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 4620
Left = 4920
ScaleHeight = 4620
ScaleWidth = 4620
TabIndex = 1
Top = 120
Width = 4620
End
Begin VB.PictureBox picMono
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 4620
Left = 120
ScaleHeight = 4620
ScaleWidth = 4620
TabIndex = 0
Top = 120
Width = 4620
End
End
Attribute VB_Name = "frmQRCode"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdColor_Click()
picColor.Cls
picColor.Line (4, 4)-(154, 154), vbRed, BF
picColor.Line (154, 4)-(304, 154), vbGreen, BF
picColor.Line (4, 154)-(154, 304), vbBlue, BF
picColor.Line (154, 154)-(304, 304), vbMagenta, BF
picColor.PaintPicture picMono.Image, 0, 0, , , , , , , vbSrcPaint
End Sub
Private Sub Form_Load()
Dim pic As StdPicture
Set pic = LoadPicture(App.Path & "\Mono.jpg")
picMono.AutoRedraw = True
picMono.PaintPicture pic, 0, 0
picColor.AutoRedraw = True
picColor.ScaleMode = vbPixels
End Sub