大家好啊！··我是QQ：524828167 今天给大家带来的教程 用VB做图像格式转换工具！
好 教程开始！ 我为了节省大家的时间！我把代码编写好了1~~现在我们来看下 我

顺便制作了个漂亮的界面 呵呵~！

我来给大家解释部分代码的意思

Dim res As Integer

Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As '设置变量 常量。Any) As Long

Private Sub Cmd_Cancel_Click()
End
End Sub

Private Sub Cmd_OK_Click()
If Combo1.Text = "" Then
MsgBox "请您输入转换格式!!", 48, "提示信息"
ElseIf Text2.Text = "" Or Text3.Text = "" Then
MsgBox "请选择转换前和转换后的文件路径!!", 48, "提示信息"
Else
Me.MousePointer = 11
Cmd_OK.Enabled = False
Dim i, j, w, h, w1, h1, k As Integer
If Txt_Height <> "" Then h = Val(Txt_Height.Text) Else h = Picture1.ScaleHeight

If Txt_Width <> "" Then w = Val(Txt_Width.Text) Else w = Picture1.ScaleWidth

w1 = w / 15
h1 = h / 15
Picture2.Width = w
Picture2.Height = h
Picture1.Scale (0, 0)-(w1, h1)
Picture2.Scale (0, 0)-(w1, h1)
For i = 1 To w1
For j = 1 To h1
Picture2.PSet (i, j), Picture1.Point(i, j)
Next j
Next i
Picture2.Picture = Picture2.Image
SavePicture Picture2.Image, Text3.Text & "." & Mid(Combo1.Text, 3, Len(Combo1.Text) - 1)
MsgBox "格式转换成功完成!!", 64, "提示信息"
Cmd_OK.Enabled = True
Me.MousePointer = 0
End If
End Sub

Private Sub Cmd_select1_Click()
On Error GoTo X
Common1.Filter = "所有文件(*.*)|*.*"
Common1.ShowOpen
Text2.Text = Common1.FileName
Image1.Picture = LoadPicture(Text2.Text)
Picture1.Picture = Image1.Picture
Exit Sub
X:
MsgBox "无效图片！", 64, "提示信息"
End Sub

Private Sub Cmd_select2_Click()
Common1.Filter = "所有文件(*.*)|*.*"
Common1.ShowSave
Text3.Text = Common1.FileName
End Sub

Private Sub Command1_Click()
Picture1.Picture = LoadPicture()
Picture1.Picture = Image1.Picture
End Sub

Private Sub Combo1_Click()
If Combo1.Text = "*.ico" Then
Txt_Height.Enabled = False
Txt_Width.Enabled = False
Combo2.Enabled = True
Else
Txt_Height.Enabled = True
Txt_Width.Enabled = True
Combo2.Enabled = False
Txt_Height.Text = ""
Txt_Width.Text = ""
End If
End Sub

Private Sub Combo2_Change()
If Combo2.Text = "16×16" Then
Txt_Height.Text = 300
Txt_Width.Text = 300
ElseIf Combo2.Text = "32×32" Then
Txt_Height.Text = 540
Txt_Width.Text = 540
ElseIf Combo2.Text = "64×64" Then
Txt_Height.Text = 1020
Txt_Width.Text = 1020
End If
End Sub

Private Sub Combo2_Click()
If Combo2.Text = "16×16" Then
Txt_Height.Text = 300
Txt_Width.Text = 300
ElseIf Combo2.Text = "32×32" Then
Txt_Height.Text = 540
Txt_Width.Text = 540
ElseIf Combo2.Text = "64×64" Then
Txt_Height.Text = 1020
Txt_Width.Text = 1020
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "*.ico"
Combo1.AddItem "*.jpg"
Combo1.AddItem "*.bmp"
Combo1.ListIndex = 0
Combo2.AddItem "16×16"
Combo2.AddItem "32×32"
Combo2.AddItem "64×64"
Combo2.ListIndex = 0
End Sub

Private Sub Label1_Click()
End
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 1
End Sub

Private Sub Pic_BJ_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Dim ReturnVal As Long
X = ReleaseCapture()
ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
End Sub

Private Sub Pic_BJ_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 0
End Sub

大家发现语句中用到很多FOR循环！这些循环给图片的转换起到很大的作用！我现在来教大家怎么做！
用到的控件有：Microsoft common dialog control 6.0 (SP3)的 （推荐大家使用企业版VB！）

好~现在 这个控件就是使用浏览图片的！！~~大家如果没有就去 工程 部件里面添加！~

Private Sub Text2_Change()

End Sub

Private Sub Text3_Change()

End Sub

大家看到了 这两个控件我没给他们代码！@！是为什么呢？ 我们大家再来研究上面的代码！

我们把这个控件的代码给了Cmd_select2_Click()和CMDSELECT1上面了！利用按钮来支持text的文本

！呵呵· 好我们再来测试一下！ OK 好！ 我来找个图片 默认是16*16 当然 64*64比较好！~~ 大

家看见了吧 我们自己编写个 以后就可以用这个程序改写木马的图标了。。就像熊猫烧香一样！制
0作自己的图标！我们也可以把自己的照片放上去 ~~嘎嘎1~呵呵·~

本人联系方式：QQ：524828167 好 教程就到这里了

祝福大家在新的一天里快快乐乐！

• [VIP专用软件 - 电信高速下载][非高级会员不可下载]
• [VIP专用软件 - 双线高速下载][非高级会员不可下载]

• ☉ Delphi编程教学系列（新世纪网安基地VIP教程）
• ☉ virtualpc中的linux如何连上Internet
• ☉ ProE 2.0安装视频
• ☉ 学会利用系统自身资源
• ☉ JSP开发之一Servlet基础
• ☉ 内网架设DNS服务器详解
• ☉ 心动吧桌面图之serv-U反弹
• ☉ 小解TTL的妙用
• ☉ 免费的网络电脑
• ☉ 略施小计吓跑不怀好意的菜鸟

• ☉ 由于私服程序的特殊性，它非常容易被杀毒误报，所以自2011年1月起本站所有软件都不在做杀毒查杀，请下载后自行检测查杀！
• ☉ 为了达到最快的下载速度，推荐使用 迅雷5 下载本站软件。
• ☉ 本站软件均为WinRAR3.7版本压缩，所以请一定升级到WinRAR3.7或最新版才能正常解压本站提供的软件!
• ☉ 如果您发现下载链接错误，或内容与分类不匹配，请点击报告错误。正确报错10个我们将送您VIP会员！
• ☉ 如发现本站软件需要解压密码，均为：www.9876543210sf.com