VB做图象格式转换工具

软件简介：
大家好啊！我是QQ：524828167 今天给大家带来的教程 用VB做图像格式转换工具！
  n1 S. j) o' e7 {( p- a) W 好 教程开始！ 我为了节省大家的时间！我把代码编写好了1~~现在我们来看下 我
顺便制作了个漂亮的界面 呵呵~！
5 a" d2 \/ n* |  z4 r我来给大家解释部分代码的意思
Dim res As Integer
: L  D/ s( R; p" GConst HTCAPTION = 2
; ~' w2 F: P: I" Q% {5 t" X2 g/ R5 lConst 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
- B- v  e* i. b5 v: m
5 G. v2 }$ f6 T  \/ y! I' Z: O: MPrivate Sub Cmd_Cancel_Click()
& _9 d7 h8 Z5 Z& s+ T, x& _ End
End Sub
* Q1 m7 [8 [; R3 e- H5 iPrivate Sub Cmd_OK_Click()
* \$ ]; O: ~" J% i- T$ ~0 X If Combo1.Text =  Then
MsgBox 请您输入转换格式!!, 48, 提示信息
( v0 c& R# H6 L0 H1 K& O 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
: @- O7 a" W! ]9 k  U If Txt_Height   Then h = Val(Txt_Height.Text) Else h = Picture1.ScaleHeight

/ z5 S! a; f/ m/ F If Txt_Width   Then w = Val(Txt_Width.Text) Else w = Picture1.ScaleWidth

w1 = w / 15
2 u" i' d5 V, B4 Q& s# n h1 = h / 15
Picture2.Width = w
Picture2.Height = h
' ?/ h0 M3 H( ]6 O: u Picture1.Scale (0, 0)-(w1, h1)
Picture2.Scale (0, 0)-(w1, h1)
, Q6 ~( d$ S/ D# f5 E6 H For i = 1 To w1
For j = 1 To h1
4 @) y4 u( O* Y' M* y1 H9 I) ` Picture2.PSet (i, j), Picture1.Point(i, j)
Next j
Next i
Picture2.Picture = Picture2.Image
SavePicture Picture2.Image, Text3.Text . 格式转换成功完成!!, 64, 提示信息
& x: Z: G& Y2 V3 o! V& @( H6 q Cmd_OK.Enabled = True
Me.MousePointer = 0
End If
End Sub
9 ?' }( |8 d/ G9 ?Private Sub Cmd_select1_Click()
On Error GoTo X
Common1.Filter = 所有文件(*.*)|*.*
5 d$ }& \) H/ j3 G; N7 t  s Common1.ShowOpen
Text2.Text = Common1.FileName
Image1.Picture = LoadPicture(Text2.Text)
! U$ m7 h! @+ } Picture1.Picture = Image1.Picture
" Y+ k/ r3 Z4 J" X' j Exit Sub
4 e) O4 s4 B8 z0 TX:
1 O) L7 c" h" J7 N' y2 A3 ^: ` MsgBox 无效图片！, 64, 提示信息
& F! ^  Z, d1 {8 h6 u9 u: WEnd Sub
Private Sub Cmd_select2_Click()
  k% r3 \' I5 L# [ Common1.Filter = 所有文件(*.*)|*.*
9 `% W- a; w3 ]$ t Common1.ShowSave
Text3.Text = Common1.FileName
3 }# r( Q! Y5 R. X( M$ hEnd Sub
! g7 G7 t4 j/ q( |4 ?0 |% T* IPrivate Sub Command1_Click()
Picture1.Picture = LoadPicture()
Picture1.Picture = Image1.Picture
8 C/ V! m% }" n$ C3 ]1 `, yEnd Sub

Private Sub Combo1_Click()
  L4 ], M, c4 x  TIf Combo1.Text = *.ico Then
Txt_Height.Enabled = False
Txt_Width.Enabled = False
8 k' I/ ~& K3 j) U Combo2.Enabled = True
Else
( U1 v* T+ e- `5 C, F7 b* g Txt_Height.Enabled = True
" P$ E& M( U" j7 l9 h: C Txt_Width.Enabled = True
, @' G5 D4 V3 y1 c* E& X, b Combo2.Enabled = False
Txt_Height.Text =
Txt_Width.Text =
7 S' v1 n) N7 j8 H! V, t8 @' AEnd If
2 l" C2 H0 P1 LEnd Sub
Private Sub Combo2_Change()
If Combo2.Text = 1616 Then
  N0 `+ {3 P) X2 M9 E  b6 g! T# ?9 a5 j Txt_Height.Text = 300
+ b( C$ H3 [! n" c Txt_Width.Text = 300
: G' _4 }4 u2 |; `: z* ~/ e3 B ElseIf Combo2.Text = 3232 Then
Txt_Height.Text = 540
Txt_Width.Text = 540
; @( C: [+ J& e& N1 _* R7 Z( A ElseIf Combo2.Text = 6464 Then
Txt_Height.Text = 1020
Txt_Width.Text = 1020
End If
End Sub
( x9 n* j4 r8 f" {+ P+ vPrivate Sub Combo2_Click()
5 Y, k4 \, {- T. t, `8 y, PIf Combo2.Text = 1616 Then
Txt_Height.Text = 300
Txt_Width.Text = 300
; k( y5 I# ~# Q9 w: x ElseIf Combo2.Text = 3232 Then
Txt_Height.Text = 540
Txt_Width.Text = 540
6 W* \$ m4 ^# W- Q0 L( D ElseIf Combo2.Text = 6464 Then
Txt_Height.Text = 1020
- g) {$ H* r, x* Z Txt_Width.Text = 1020
0 {( G! l1 d: d8 N) h End If
: ~2 M1 x5 }) s3 T8 pEnd Sub
7 V" x- o4 p9 o: P! zPrivate Sub Form_Load()
Combo1.AddItem *.ico
Combo1.AddItem *.jpg
Combo1.AddItem *.bmp
Combo1.ListIndex = 0
Combo2.AddItem 1616
Combo2.AddItem 3232
; }* W- u* D# v' p+ M3 vCombo2.AddItem 6464
. K+ {4 X$ y% d3 K. }8 L2 k' S' ?/ ]7 hCombo2.ListIndex = 0
End Sub
: n3 m1 Y& P5 b4 M! C+ yPrivate Sub Label1_Click()
End
, D* d2 _0 S- P+ zEnd Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 1
5 A7 Z1 `; g2 Q1 u  `End Sub
Private Sub Pic_BJ_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
* |" L( Q5 n2 m" r2 A! y+ nIf Button = 1 Then
% ^% C7 W$ Z0 m& k! T% c, q4 Q Dim ReturnVal As Long
X = ReleaseCapture()
ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
0 v, ]6 ]0 W( c2 M End If
  U6 R! ]# h7 @1 V; }7 w' kEnd Sub
Private Sub Pic_BJ_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 0
End Sub
9 u+ I3 g( t' M5 q6 a) O# m
大家发现语句中用到很多FOR循环！这些循环给图片的转换起到很大的作用！我现在来教大家怎么做！
用到的控件有：Microsoft common dialog control 6.0 (SP3)的 （推荐大家使用企业版VB！）
1 n4 L% z3 r: u0 h. J好~现在 这个控件就是使用浏览图片的！！~~大家如果没有就去 工程 部件里面添加！~
8 W  J: Y# t! A1 O. f. @! w
Private Sub Text2_Change()
End Sub
9 D6 g& G% e$ v' g3 ^: L6 i4 OPrivate Sub Text3_Change()
- |7 y, o: r' y) @2 i4 a+ fEnd Sub

大家看到了 这两个控件我没给他们代码！@！是为什么呢？ 我们大家再来研究上面的代码！
我们把这个控件的代码给了Cmd_select2_Click()和CMDSELECT1上面了！利用按钮来支持text的文本
1 f" j7 I+ s; N- M$ J1 c4 X$ `！呵呵 好我们再来测试一下！ OK 好！ 我来找个图片 默认是16*16 当然 64*64比较好！~~ 大
& q4 Q0 L1 s8 D  i家看见了吧 我们自己编写个 以后就可以用这个程序改写木马的图标了。。就像熊猫烧香一样！制
8 F) o, {. n; Q7 k5 ^. P  m0作自己的图标！我们也可以把自己的照片放上去 ~~嘎嘎1~呵呵~
: Y# z: q* F! m5 r
/ J/ X$ K0 `3 h本人联系方式：QQ：524828167 好 教程就到这里了
! x7 t6 R1 S  Y+ O* N: b. f
祝福大家在新的一天里快快乐乐！
4 N5 s0 Y1 r( n下载地址：

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

下载权限:

版本vip会员

本地下载 检测资源   提取码: 需要终身vip或更高权限

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