VB做图象格式转换工具

软件简介：
& N. _6 f  M5 A' a大家好啊！我是QQ：524828167 今天给大家带来的教程 用VB做图像格式转换工具！
% h. B/ p  M  x7 C1 V5 I 好 教程开始！ 我为了节省大家的时间！我把代码编写好了1~~现在我们来看下 我
( Y4 @  n4 t- Y' A顺便制作了个漂亮的界面 呵呵~！
" R9 t2 p2 K: F8 R3 u6 `我来给大家解释部分代码的意思
( |) ]8 E# b1 p$ ~% D/ s- BDim res As Integer
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = user32 () As Long
* ~4 ~  Y! j0 j/ dPrivate 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()
( d# @- x  e9 `; x: { End
End Sub
Private Sub Cmd_OK_Click()
9 ~# F0 h) m% d% K; J If Combo1.Text =  Then
, u( F, ~1 ~, m' ]5 {0 B MsgBox 请您输入转换格式!!, 48, 提示信息
- i4 ^* A) |$ z5 L4 A$ ^5 l ElseIf Text2.Text =  Or Text3.Text =  Then
MsgBox 请选择转换前和转换后的文件路径!!, 48, 提示信息
( E0 |, H) i9 Z( H5 r6 N Else
- Q% j  D& l" ^& i4 p+ x9 N Me.MousePointer = 11
( w+ h  {# u" e& W: Z Cmd_OK.Enabled = False
* d; B% D7 q# N4 T' X Dim i, j, w, h, w1, h1, k As Integer
% l3 ^3 \" V3 `2 L. _ If Txt_Height   Then h = Val(Txt_Height.Text) Else h = Picture1.ScaleHeight

6 t/ d" K8 n( {7 }) x. y If Txt_Width   Then w = Val(Txt_Width.Text) Else w = Picture1.ScaleWidth

w1 = w / 15
, k0 J4 v% D3 I4 O) ~; ` h1 = h / 15
Picture2.Width = w
Picture2.Height = h
Picture1.Scale (0, 0)-(w1, h1)
Picture2.Scale (0, 0)-(w1, h1)
) s; ~) u! Y" x6 J For i = 1 To w1
* W4 o! n5 I5 ~, G2 D! k: Z 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 . 格式转换成功完成!!, 64, 提示信息
. K% Z( N% l4 R Cmd_OK.Enabled = True
Me.MousePointer = 0
End If
! w  o- K6 s8 @/ p8 e5 GEnd Sub
1 c! u8 r9 \; C; {8 z1 iPrivate Sub Cmd_select1_Click()
" j5 \! ~- w; n/ r& mOn Error GoTo X
# {& h9 l& N+ t+ p% P Common1.Filter = 所有文件(*.*)|*.*
- k0 I& Z3 H* ]$ X& N* U Common1.ShowOpen
Text2.Text = Common1.FileName
/ x2 V, V" \7 D* O( @/ D) F! r Image1.Picture = LoadPicture(Text2.Text)
Picture1.Picture = Image1.Picture
6 p3 r: y# ?/ c; v; ~. y9 H4 e* c Exit Sub
X:
MsgBox 无效图片！, 64, 提示信息
. K$ X  B0 v5 M" S4 @End Sub
Private Sub Cmd_select2_Click()
Common1.Filter = 所有文件(*.*)|*.*
  s4 Y! s* ^. q Common1.ShowSave
; P# f, s* e% m$ J$ M Text3.Text = Common1.FileName
- K  f) c# ^' M1 N3 AEnd Sub
Private Sub Command1_Click()
. M* f) T5 ]( Q Picture1.Picture = LoadPicture()
8 d1 X* a- P, I- D4 h Picture1.Picture = Image1.Picture
" y% v8 x+ l# }" R0 m5 r6 ZEnd Sub
. B( U$ D1 e3 |. s. F
$ E6 q% Q) ?, @  m" Q8 }Private Sub Combo1_Click()
If Combo1.Text = *.ico Then
' g/ T5 n% ]+ B# s5 L. W Txt_Height.Enabled = False
Txt_Width.Enabled = False
# G, F9 I" h! _! `. \* q3 X Combo2.Enabled = True
Else
6 o: Q/ G2 M8 }4 r& V0 C# ] Txt_Height.Enabled = True
Txt_Width.Enabled = True
Combo2.Enabled = False
Txt_Height.Text =
Txt_Width.Text =
End If
End Sub
- V' l" I9 h! k! f0 TPrivate Sub Combo2_Change()
If Combo2.Text = 1616 Then
Txt_Height.Text = 300
/ S; \1 D* W2 M1 J, I: @7 ~ Txt_Width.Text = 300
ElseIf Combo2.Text = 3232 Then
Txt_Height.Text = 540
! q% M% W8 X$ }5 P9 A  e5 g/ v# Z Txt_Width.Text = 540
) P9 H0 I( M6 @ ElseIf Combo2.Text = 6464 Then
9 _  \0 a1 w) P+ L, q  D Txt_Height.Text = 1020
, ?4 [2 u/ f( \8 e- u( B Txt_Width.Text = 1020
End If
End Sub
2 y* o3 S: V- |! Z9 N1 pPrivate Sub Combo2_Click()
  r: r5 x  X8 k& R* pIf Combo2.Text = 1616 Then
Txt_Height.Text = 300
Txt_Width.Text = 300
- Z9 t% A$ F1 b7 ]  [5 q& B ElseIf Combo2.Text = 3232 Then
Txt_Height.Text = 540
Txt_Width.Text = 540
ElseIf Combo2.Text = 6464 Then
( g6 z5 c6 t8 C, Z0 ` Txt_Height.Text = 1020
Txt_Width.Text = 1020
9 ^4 h4 p) r# _8 n4 Y1 u End If
8 ?, e7 @* v! e6 Y, oEnd Sub
Private Sub Form_Load()
  _# O8 l3 {8 H5 h8 D' l4 \Combo1.AddItem *.ico
Combo1.AddItem *.jpg
& o% ?' a  ^0 y6 E5 U, A- d* k4 bCombo1.AddItem *.bmp
Combo1.ListIndex = 0
3 H6 P5 w3 k: [( q0 x3 fCombo2.AddItem 1616
4 s6 m% n# |+ M% @Combo2.AddItem 3232
Combo2.AddItem 6464
. i) B, `. a- X1 E8 Z' v: [Combo2.ListIndex = 0
End Sub
  d8 n. V6 }, G) H0 }- [# @$ L5 wPrivate Sub Label1_Click()
2 S( G/ R: M3 jEnd
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 1
End Sub
$ h! x# i! e9 ]Private Sub Pic_BJ_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
" C8 Q) m6 n7 y7 CIf Button = 1 Then
Dim ReturnVal As Long
X = ReleaseCapture()
, b* Z8 _# Z1 _+ w; c* a3 z ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
  d, W, D( \- T1 X3 b  B End If
End Sub
. l4 `) |* Y7 t- {, }4 m: T- c3 x; ]9 s3 _Private Sub Pic_BJ_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
3 H8 q8 m, C& b; O, G- K+ ?Label1.BorderStyle = 0
# D/ ?' l/ m+ D$ {+ CEnd Sub
  a: y0 }/ ]/ E
! ^) w0 u  @) s& Z4 F* ]大家发现语句中用到很多FOR循环！这些循环给图片的转换起到很大的作用！我现在来教大家怎么做！
用到的控件有：Microsoft common dialog control 6.0 (SP3)的 （推荐大家使用企业版VB！）
8 Y! i3 J( F4 C6 I好~现在 这个控件就是使用浏览图片的！！~~大家如果没有就去 工程 部件里面添加！~
- A# H4 p* h, n& V# j
Private Sub Text2_Change()
. x8 Y$ P9 n) R" L  A2 B) ^End Sub
' w' Q5 a2 G: u" b) _0 ]% \% P  SPrivate Sub Text3_Change()
& S6 B* \3 X2 l( K2 HEnd Sub

大家看到了 这两个控件我没给他们代码！@！是为什么呢？ 我们大家再来研究上面的代码！
我们把这个控件的代码给了Cmd_select2_Click()和CMDSELECT1上面了！利用按钮来支持text的文本
; L$ I- U( ~  n3 N3 I！呵呵 好我们再来测试一下！ OK 好！ 我来找个图片 默认是16*16 当然 64*64比较好！~~ 大
$ l# T) c7 B% a, ?+ Y' I: B2 m2 ]家看见了吧 我们自己编写个 以后就可以用这个程序改写木马的图标了。。就像熊猫烧香一样！制
0作自己的图标！我们也可以把自己的照片放上去 ~~嘎嘎1~呵呵~

* C$ t. a- |  i5 x6 ], M4 V本人联系方式：QQ：524828167 好 教程就到这里了

- d: O' L8 ]" w4 i/ r% ] 祝福大家在新的一天里快快乐乐！
* D- d1 d- G5 l$ B下载地址：

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

文件大小:

未知

下载次数:

0

下载权限:

版本vip会员

VIP专享 检测资源

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

VIP专享,点击开通vip

确认