网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,074贴子：1,166,220
  • 8回复贴，共1页

怎么保存picture1中画出来的图片？

'这是提取exe自身的图标
DrawIcon Picture1.hdc, 0, 0, ExtractIcon(App.hInstance, "D:\Visual Basic 6.0\Microsoft Visual Studio\VB98\VB6.EXE", 0)
'我不知道它是什么方法画出来的。用下面的方法保存下来的是一个空白图片。请大神们帮帮忙吧，谢谢！
SavePicture Picture1.Image, "D:\rjglq\tubiao\VB6.jpeg"


测试了一下，是能存的，不过貌似存成了 BMP 格式......
测试的时候发现 drawicon 绘制完后需要对 PictureBox 刷新一下才有显示，而且要把 AutoRedraw 设置为 True


2025-10-20 06:20:56
广告
不感兴趣
开通SVIP免广告
救命啦，怎么没人来帮我啊！！！


SavePicture Picture1.Picture, "D:\rjglq\tubiao\VB6.jpeg"


就这么几行代码啊！
Option Explicit
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Sub Command1_Click()
DrawIcon Picture1.hdc, 0, 0, ExtractIcon(App.hInstance, "D:\Visual Basic 6.0\Microsoft Visual Studio\VB98\VB6.EXE", 0)
End Sub
Private Sub Command2_Click()
SavePicture Picture1.Image, "D:\rjglq\tubiao\VB6.BMP"
'SavePicture Picture1.Picture, "D:\rjglq\tubiao\VB6.jpeg"
End Sub
Private Sub Form_Click()
Picture1.Picture = LoadPicture("")
End Sub


Option Explicit
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Dim lngIcon
Private Sub Command1_Click()
lngIcon = ExtractIcon(App.hInstance, "C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE", 0)
DrawIcon Picture1.hdc, 0, 0, lngIcon
End Sub
Private Sub Command2_Click()
Picture1.AutoRedraw = True
DrawIcon Picture1.hdc, 0, 0, lngIcon
SavePicture Picture1.Image, "c:\test.bmp"
End Sub


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 8回复贴，共1页
分享到: