这个属于菜鸟作品 我搞了一下午 希望对大家有用 画好有点复制然后到QQ里按CTRL+V就可以了另外 因为是菜鸟作品 源代码也没什么好隐瞒的 就发给大家看看好了^-^ 望各位顶顶呀 呵呵噢 忘了说了 这个东西可以在QQ上画画~~``或修改简单的图片 [upload=rar]viewFile.asp?ID=348576[/img]-------------------------------------------------------------------------------------------------------------------源代码:Option ExplicitDim ax As LongDim ay As LongDim bx As LongDim by As LongDim cx As LongDim cy As LongDim a As LongPrivate Sub Command1_Click()Picture1.Picture = LoadPicture("") bx = 0 by = 0 cx = Picture1.ScaleWidth cy = Picture1.ScaleHeightEnd SubPrivate Sub Command2_Click() If bx Y Then cy = Y End IfElseIf Button = 2 ThenPicture1.ForeColor = &H80000009Picture1.Line (ax, ay)-(X, Y)ax = Xay = YEnd IfEnd SubPrivate Sub Form_Load()Drive1.Drive = "c" Picture1.AutoRedraw = True Picture1.DrawWidth = 3 Command1_Click End Sub
3662
9
[upload=rar]viewFile.asp?ID=348576[/img]-------------------------------------------------------------------------------------------------------------------源代码:Option ExplicitDim ax As LongDim ay As LongDim bx As LongDim by As LongDim cx As LongDim cy As LongDim a As LongPrivate Sub Command1_Click()Picture1.Picture = LoadPicture("") bx = 0 by = 0 cx = Picture1.ScaleWidth cy = Picture1.ScaleHeightEnd SubPrivate Sub Command2_Click() If bx Y Then cy = Y End IfElseIf Button = 2 ThenPicture1.ForeColor = &H80000009Picture1.Line (ax, ay)-(X, Y)ax = Xay = YEnd IfEnd SubPrivate Sub Form_Load()Drive1.Drive = "c" Picture1.AutoRedraw = True Picture1.DrawWidth = 3 Command1_Click End Sub
