VB做图象格式转换工具

软件简介：
  l( y# A6 t5 @6 s6 ?$ D/ e4 z大家好啊！我是QQ：524828167 今天给大家带来的教程 用VB做图像格式转换工具！
好 教程开始！ 我为了节省大家的时间！我把代码编写好了1~~现在我们来看下 我
顺便制作了个漂亮的界面 呵呵~！
% I3 ]' M5 w0 j& m( P我来给大家解释部分代码的意思
0 @% p/ t1 S# b8 M$ q, {! H' aDim res As Integer
Const HTCAPTION = 2
2 O4 X2 M: b* RConst WM_NCLBUTTONDOWN = 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
. K- D3 x2 x5 R
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
3 S" r& p& h7 y, a9 g5 O1 f MsgBox 请选择转换前和转换后的文件路径!!, 48, 提示信息
% n  ^6 z" z1 D Else
$ F% x* L3 I6 w0 X9 P# V Me.MousePointer = 11
1 L  V8 z2 M9 @+ o! y8 ]* m! q1 a 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

( m0 G- U) Y& \* w: F- E4 c( J If Txt_Width   Then w = Val(Txt_Width.Text) Else w = Picture1.ScaleWidth

! M3 N7 d7 P! V w1 = w / 15
h1 = h / 15
Picture2.Width = w
" j; m. Z3 e! k& n, j! }3 r: O* n Picture2.Height = h
Picture1.Scale (0, 0)-(w1, h1)
Picture2.Scale (0, 0)-(w1, h1)
( z8 k2 R. F* k For i = 1 To w1
7 l0 m8 G) ^( f9 E) c/ h For j = 1 To h1
Picture2.PSet (i, j), Picture1.Point(i, j)
Next j
8 I7 Z2 r6 J: B  N9 B, A, D# o Next i
Picture2.Picture = Picture2.Image
SavePicture Picture2.Image, Text3.Text . 格式转换成功完成!!, 64, 提示信息
- M2 H0 w4 L: ^8 m3 o" ^# P Cmd_OK.Enabled = True
Me.MousePointer = 0
End If
0 I" }. a& d& O% t6 eEnd Sub
: V0 O5 o3 @9 W% ]9 L1 G! ]( a, lPrivate Sub Cmd_select1_Click()
On Error GoTo X
7 W& S6 C4 \5 p# P5 W Common1.Filter = 所有文件(*.*)|*.*
- q# H3 a8 v7 b1 L1 h: h# E Common1.ShowOpen
) [; ^& T& F. H! C. l" r: z Text2.Text = Common1.FileName
Image1.Picture = LoadPicture(Text2.Text)
' N% x# `8 l5 b) }' P Picture1.Picture = Image1.Picture
Exit Sub
) B8 L# X& k$ OX:
! s& o4 }% L! M3 H9 g& s MsgBox 无效图片！, 64, 提示信息
" v0 |$ \0 x$ {. q+ M8 }: F5 J/ |End Sub
6 I: Z$ j+ F, m6 y* M1 o; t7 qPrivate Sub Cmd_select2_Click()
1 N. G# r3 w8 Z% C Common1.Filter = 所有文件(*.*)|*.*
Common1.ShowSave
/ _7 `% ^* U, F8 @. {$ Y$ D Text3.Text = Common1.FileName
End Sub
( y4 s4 _' |# A8 V- f4 b2 x! C1 UPrivate Sub Command1_Click()
Picture1.Picture = LoadPicture()
Picture1.Picture = Image1.Picture
) v+ v  E+ X5 a: `7 T& T* Q' pEnd Sub
0 o! r0 v7 ~9 ~! t/ d5 C
Private Sub Combo1_Click()
# L* y; G2 N! LIf Combo1.Text = *.ico Then
Txt_Height.Enabled = False
0 ]0 o9 C/ ~. h* ?0 } Txt_Width.Enabled = False
Combo2.Enabled = True
8 L9 o" c4 |* P* I% q! v0 ]( NElse
' E1 z: t4 y+ g, B* \& ^ Txt_Height.Enabled = True
Txt_Width.Enabled = True
Combo2.Enabled = False
- }# I, ^; j+ r* i9 k8 B Txt_Height.Text =
Txt_Width.Text =
0 N" H5 T! _" ^- v1 LEnd If
( K7 {9 y, M7 |) M2 `% [# l& KEnd Sub
1 n3 X& v  k! e, C* P9 |Private Sub Combo2_Change()
If Combo2.Text = 1616 Then
Txt_Height.Text = 300
: y, \/ [4 A# t Txt_Width.Text = 300
ElseIf Combo2.Text = 3232 Then
' U# f- t1 G2 _/ q Txt_Height.Text = 540
0 Q# A+ M2 y/ |8 p- p/ `6 @- Z- i/ a/ a Txt_Width.Text = 540
ElseIf Combo2.Text = 6464 Then
Txt_Height.Text = 1020
  \8 f/ C, X, Z( T  Z Txt_Width.Text = 1020
End If
End Sub
8 ~- \7 m7 k) a4 D/ W$ d( k3 IPrivate Sub Combo2_Click()
2 Z2 }- d2 x0 G# K5 g" l# _If Combo2.Text = 1616 Then
0 \1 [& w2 d4 G, h8 e9 } Txt_Height.Text = 300
2 o% _0 T& z) w0 ~* z Txt_Width.Text = 300
ElseIf Combo2.Text = 3232 Then
4 l( [& [; w) h; C& Y' _7 D) ~2 e Txt_Height.Text = 540
Txt_Width.Text = 540
0 p8 t' ^0 U' T, w* k6 g ElseIf Combo2.Text = 6464 Then
  H9 f9 q: f/ y, C4 H3 O- c Txt_Height.Text = 1020
; ?1 Z3 P7 z" l* d' P% ~ Txt_Width.Text = 1020
End If
4 I3 C; I" o7 q* D* [/ wEnd Sub
Private Sub Form_Load()
Combo1.AddItem *.ico
Combo1.AddItem *.jpg
7 V) |8 d, {1 ^2 F. h9 X5 D; @Combo1.AddItem *.bmp
* R6 b  {3 T5 K2 Z  J! q# S- z( lCombo1.ListIndex = 0
8 y0 B. [' r9 o5 e- d2 J4 H7 G7 _5 f/ vCombo2.AddItem 1616
! o) b; b& i. LCombo2.AddItem 3232
Combo2.AddItem 6464
; a& \9 m) t5 x+ t- p, J7 wCombo2.ListIndex = 0
End Sub
; g: d/ p  l  c% h" VPrivate Sub Label1_Click()
End
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
! k: }& b9 M$ X# W5 ?0 ^4 v* r: w8 qLabel1.BorderStyle = 1
& g' h  @/ y8 C/ u4 X7 W" V' G' FEnd Sub
Private Sub Pic_BJ_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
2 K- W/ p+ Z9 s6 K( m# M Dim ReturnVal As Long
X = ReleaseCapture()
( F) G, g, [' p/ x0 b ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
2 x' X" f' o* r) z" A& ~ End If
9 T2 @* S3 b0 F5 j+ ^' C6 ZEnd Sub
/ _+ ]) j9 [: NPrivate Sub Pic_BJ_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
! @+ E3 p  r  C- G3 eLabel1.BorderStyle = 0
End Sub
: K" Q, R8 q1 g' C
大家发现语句中用到很多FOR循环！这些循环给图片的转换起到很大的作用！我现在来教大家怎么做！
3 `9 D( A; [& o& s  X( [; X用到的控件有：Microsoft common dialog control 6.0 (SP3)的 （推荐大家使用企业版VB！）
好~现在 这个控件就是使用浏览图片的！！~~大家如果没有就去 工程 部件里面添加！~

4 V7 M5 ~; n. G1 bPrivate Sub Text2_Change()
End Sub
: U0 {) }+ e9 I! q5 YPrivate Sub Text3_Change()
End Sub

大家看到了 这两个控件我没给他们代码！@！是为什么呢？ 我们大家再来研究上面的代码！
我们把这个控件的代码给了Cmd_select2_Click()和CMDSELECT1上面了！利用按钮来支持text的文本
8 m1 }/ l9 S6 E% @* v' f% |+ z！呵呵 好我们再来测试一下！ OK 好！ 我来找个图片 默认是16*16 当然 64*64比较好！~~ 大
4 u+ H. U, p5 w0 A4 H* R9 z# R家看见了吧 我们自己编写个 以后就可以用这个程序改写木马的图标了。。就像熊猫烧香一样！制
' B/ d/ Z; M& ^3 O: s# q5 ], r6 G0作自己的图标！我们也可以把自己的照片放上去 ~~嘎嘎1~呵呵~
! w7 G, d, U" C0 J( X
3 O: J% |# y* t4 ]# n本人联系方式：QQ：524828167 好 教程就到这里了
1 J, ^/ t4 @  J: `+ l, j
祝福大家在新的一天里快快乐乐！
0 l% Y( ~+ b7 t8 Z- `/ r下载地址：

2008-8-19 13:47 上传 VB做图象格式转换工具.rar

下载权限:

版本vip会员

本地下载 检测资源

有些游戏资源需要vip下载开通请点击开通vip