自己写的小软件 可以画画 然后贴到QQ上 或者 修改简单的图片 希望对大家有用这个东西是菜鸟级的作品 本来我在电脑诊所发过 不过还是觉得发这里比较合适不要嘲笑我哈`~~~~~```` ^-^ 用法 画好后点复制 再到QQ里点CTRL+V就可以了~~`我把源代码也拿出来 反正是菜鸟作品 拿出来也没关系 哪位共同爱好者也可以多多指教下嘛 [upload=rar]viewFile.asp?ID=349396[/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
1855
0
[upload=rar]viewFile.asp?ID=349396[/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
