Private Sub cmdChangeImage_Click()
; @ b3 D; a2 R# ] 1、GetFileDialog模块,是一个通用的用API实现的文件存取对话框,非常有价值
- Y8 X! g0 {: J K0 z, U 调用方式:: L1 _- L$ D- k% z H
ap_GetFileDialog(访问方式, 默认文件名, 对话框标题, 文件类型)
5 I0 P& b* p( F9 d) P 访问方式: True ---- 读取文件 False ---- 写入文件' v4 E& j7 K$ V% \. I. a/ l4 v( b
默认文件名:指定对话框打开时,文件名文本框的文件名
0 \, _. c$ I/ b* ?3 R 对话框标题:指定对话框的标题
b3 Z; X6 G4 r, h. u5 y 文件类型: 指定选取的文件的类型(扩展名)& n ~+ [! E) t/ D; E7 [% R
返回包含路径的文件名
' b0 h' ?" o4 X 例如:
0 p3 R4 L! F$ O! T2 D strPath = ap_GetFileDialog(True, "LOGO.BMP", "选择指定的图片", _* l1 T; n) N* h( N6 c( E
"位图文件 (*.bmp)" & Chr(0) & "*.bmp" & Chr(0) _
+ m- A5 a. [; E4 C* O* N# B: X8 R & "JPEG 文件 (*.jpg)" & Chr(0) & "*.jpg" & Chr(0) _; W0 r4 W6 @/ O2 H- j
& "GIF 文件 (*.gif)" & Chr(0) & "*.gif" & Chr(0))
$ C) d" ?3 K( I4 e 选取类型为.bmp .jpg .gif的文件
) u/ C, Z( R2 \! j# W+ v 2、CMDIWindow类
. a) j) a& {/ }0 ^& C0 X 支持三种文件:.bmp .jpg .gif
+ H; O. X: E' t0 f6 X- U# Q& y DrawMode属性:1 - 平铺 2 - 居中 3 - 左上角 4 - 右下角 5 - 拉伸
$ _1 Q4 C3 B0 V% \8 _ 但是通过程序验证,平铺、左上角、右下角没什么问题;居中,小图片没问题,大图片时变成了左下角;拉伸,是从左下角开始的。 |