vb代码大全
vb编程代码大全
1.数值型函数：
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值直接表示：&Hxx 最大8位
oct(num): 返回八进制值直接表示：&Oxx 最大8位
sqr(num): 返回平方根 num>0
int(num): 取整 int=99; int=100
fix(num): 取整 fix=99; fix=99
round(num,n): 四舍五入取小数位 round,3)= 中点数值四舍五入为近偶取整 round,1)= log(num): 取以e为底的对数 num>0
exp(n): 取e的n次幂通常用 num^n
sin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num)
字符串函数：
len(str)：计算字符串长度中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串
vb编程代码大全
vb编程代码大全
Visual Basic (VB) 是一种广泛用于软件开发的高级编程语言，可以用于开发 Windows 应用程序、Web 应用程序、数据库应用程序等。在本文中，将介绍一些常用的 VB 编程代码，帮助初学者快速入门和提高编程水平。
一、基本数据类型
1. 整型数据
在 VB 中，整型数据可以使用 Integer 类型表示，范围为 -32,768 到32,767。定义整型变量的代码如下：
```
Dim num As Integer
num = 10
```
2. 浮点数据
浮点数据可以使用 Single 或 Double 类型表示，分别表示单精度浮点数和双精度浮点数。定义浮点变量的代码如下：
```
Dim num As Single
num = 3.14
3. 字符串数据
字符串数据可以使用 String 类型表示，可以存储文本数据。定义字符串变量的代码如下：
```
Dim str As String
str = "Hello, World!"
```
二、控制流程
1. If...Then...Else 语句
If...Then...Else 语句用于根据条件执行不同的代码块。例如：
```
Dim num As Integer
num = 10
If num > 0 Then
MsgBox("Num is positive.")
Else
MsgBox("Num is negative.")
End If
2. For 循环
For 循环用于重复执行一段代码。例如：
```
For i = 1 To 10
MsgBox(i)
vb编程代码大全
v b编程代码大全(共3页) -本页仅作为预览文档封面，使用时请删除本页-
vb编程代码大全
1.数值型函数：
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值直接表示：&Hxx 最大8位
oct(num): 返回八进制值直接表示：&Oxx 最大8位
sqr(num): 返回平方根 num>0
int(num): 取整 int=99; int=100
fix(num): 取整 fix=99; fix=99
round(num,n): 四舍五入取小数位 round,3)= 中点数值四舍五入为近偶取整 round,1)= log(num): 取以e为底的对数 num>0
exp(n): 取e的n次幂通常用 num^n
sin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num);
atn(num)
字符串函数：
len(str)：计算字符串长度中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
vb常用代码大全
移动无标题栏的窗体
dim m（borderstyle=none）
ouseX as integer
dim mouseY as integer
dim moveX as integer
dim moveY as integer
dim down as boolean
form_mousedown: ’mousedown事件down=true
mouseX=x
mouseY=y
form_mouseup: ’mouseup事件
down=false
form_mousemove
if down=true then
moveX=me。left-mouseX+X
moveY=me.top—mouseY+Y
me.move moveX，moveY
end if
*＊*＊＊*＊***＊*＊**＊＊*****＊＊＊*****＊＊＊＊*＊*＊****＊闪烁控件
比如要闪烁一个label（标签）
添加一个时钟控件间隔请根据实际需要设置 enabled属性设为true
代码为：label1。visible=not label1。visible *＊＊＊＊******＊**＊＊＊**＊*＊*＊＊**＊＊＊*＊＊**＊****＊*＊
禁止使用 Alt+F4 关闭窗口
Private Declare Function DeleteMenu Lib "user32" （ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long ） As Long
Private Declare Function GetMenuItemC ount Lib ”user32”（ByVal hMenu As Lon g） As Long
vb编程代码大全
vb编程代码大全
1.数值型函数：
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值直接表示：&Hxx 最大8位
oct(num): 返回八进制值直接表示：&Oxx 最大8位
sqr(num): 返回平方根num>0
int(num): 取整int(99.8)=99; int(-99.2)=100
fix(num): 取整fix(99.8)=99; fix(-99.2)=99
round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2
log(num): 取以e为底的对数num>0
exp(n): 取e的n次幂通常用num^n
sin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num)
2.字符串函数：
len(str)：计算字符串长度中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
VB编程常用代码大全
VB编程常用代码大全
1.数值型函数：
abs（num）: 返回绝对值
sgn(num): num>0 1；num=0 0; num<0 -1；判断数值正负
hex(num): 返回十六进制值直接表示：＆Hxx 最大8位
oct（num)：返回八进制值直接表示：&Oxx 最大8位
sqr（num）：返回平方根num>0
int(num）：取整int（99.8)=99; int（—99。2)=100
fix（num）：取整fix(99.8）=99; fix（—99。2）=99
round(num，n）：四舍五入取小数位round（3。14159，3)=3.142 中点数值四舍五入为近偶取整round(3。25,1）=3.2
log（num): 取以e为底的对数num>0
exp(n): 取e的n次幂通常用num^n
sin(num)：三角函数，以弧度为值计算（角度＊Pai)/180=弧度con（num）; tan(num)；atn（num）
2.字符串函数:
len（str)：计算字符串长度中文字符长度也计为一！
mid(str,起始字符,[读取长度］）：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str，nlen）：从右边起截取nlen长度子字符串
Lcase（str）：字符串转成小写
Ucase（str）：字符串转成大写
trim（str)：去除字符串两端空格
Ltrim（str)：去除字符串左侧空格
Rtrim（str)：去除字符串右侧空格
replace（str，查找字符串，替代字符串,[起始字符,替代次数,比较方法]):替换字符串
vb编程代码大全.doc
vb编程代码大全
1.数值型函数：
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值直接表示：&Hxx 最大8位
oct(num): 返回八进制值直接表示：&Oxx 最大8位
sqr(num): 返回平方根num>0
int(num): 取整int(99.8)=99; int(-99.2)=100
fix(num): 取整fix(99.8)=99; fix(-99.2)=99
round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2
log(num): 取以e为底的对数num>0
exp(n): 取e的n次幂通常用num^n
sin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num)
2.字符串函数：
len(str)：计算字符串长度中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串
vb编程代码大全
vb编程代码大全
1.数值型函数：
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值直接表示：&Hxx 最大8位
oct(num): 返回八进制值直接表示：&Oxx 最大8位
sqr(num): 返回平方根num>0
int(num): 取整int(99.8)=99; int(-99.2)=100
fix(num): 取整fix(99.8)=99; fix(-99.2)=99
round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2
log(num): 取以e为底的对数num>0
exp(n): 取e的n次幂通常用num^n
sin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num)
2.字符串函数：
len(str)：计算字符串长度中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
vb编程代码大全.doc
vb编程代码大全
1.数值型函数：
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值直接表示：&Hxx 最大8位
oct(num): 返回八进制值直接表示：&Oxx 最大8位
sqr(num): 返回平方根num>0
int(num): 取整int(99.8)=99; int(-99.2)=100
fix(num): 取整fix(99.8)=99; fix(-99.2)=99
round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2
log(num): 取以e为底的对数num>0
exp(n): 取e的n次幂通常用num^n
sin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num)
2.字符串函数：
len(str)：计算字符串长度中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串
VB常用代码大全
VB³£ÓôúÂë´óÈ«.txtÈÃÈËÏëÄî¶øËÀ£¬ÊÇıɱµÄÖÁ¸ß¾³½ç£¬¾ÍÁ¬·¨Ò½Ò²¼ø¶¨²»³öËÀÒò¡£¡£¡£¡£¡£¡£
#define __LLF_VB_GUI__
#include "vb.h"
//Sub Output( ByRef( msg As String ) ) { //why can't replace ',' ? Sub Output( ByRef( msg , String ) ) { //must add '{' now .
Call Print( msg ); //must add ';' .
End_Sub
Sub Main() {
If False Or False Then
Call Output( "That's True!\n" ); //must add ';' .
Else
Call Output( "That't False!\n" ); //must add ';'.
End_If
int i = 0;
//For( i, 0 To 10 ) //why can't replace ',' ?
For( i, 0, 10 )
Print( i );
Next
Pause();
End_Sub
#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__
#define __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__
#include
inline void Print(const char *msg){ printf(msg); }
VB编程常用代码大全
VB编程常用代码大全
1.数值型函数：
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值直接表示：&Hxx 最大8位
oct(num): 返回八进制值直接表示：&Oxx 最大8位
sqr(num): 返回平方根num>0
int(num): 取整int(99.8)=99; int(-99.2)=100
fix(num): 取整fix(99.8)=99; fix(-99.2)=99
round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2
log(num): 取以e为底的对数num>0
exp(n): 取e的n次幂通常用num^n
sin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num);
tan(num); atn(num)
2.字符串函数：
len(str)：计算字符串长度中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0）
vb编程代码大全
v b编程代码大全(总5页) --本页仅作为文档封面，使用时请直接删除即可--
--内页可以根据需求调整合适字体及大小--
vb编程代码大全
1.数值型函数：
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值直接表示：&Hxx 最大8位
oct(num): 返回八进制值直接表示：&Oxx 最大8位
sqr(num): 返回平方根 num>0
int(num): 取整 int=99; int=100
fix(num): 取整 fix=99; fix=99
round(num,n): 四舍五入取小数位 round,3)= 中点数值四舍五入为近偶取整 round,1)= log(num): 取以e为底的对数 num>0
exp(n): 取e的n次幂通常用 num^n
sin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num)
2.字符串函数：
len(str)：计算字符串长度中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
vb编程代码大全
vb编程代码大全
1、数值型函数:
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值直接表示:&Hxx 最大8位
oct(num): 返回八进制值直接表示:&Oxx 最大8位
sqr(num): 返回平方根num>0
int(num): 取整int(99、8)=99; int(-99、2)=100
fix(num): 取整fix(99、8)=99; fix(-99、2)=99
round(num,n): 四舍五入取小数位round(3、14159,3)=3、142 中点数值四舍五入为近偶取整round(3、25,1)=3、2
log(num): 取以e为底的对数num>0
exp(n): 取e的n次幂通常用num^n
sin(num): 三角函数,以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num)
2、字符串函数:
len(str):计算字符串长度中文字符长度也计为一！
mid(str,起始字符,[读取长度]):截取字符串中间子字符串
left(str,nlen):从左边起截取nlen长度子字符串
right(str,nlen):从右边起截取nlen长度子字符串
Lcase(str):字符串转成小写
Ucase(str):字符串转成大写
trim(str):去除字符串两端空格
Ltrim(str):去除字符串左侧空格
Rtrim(str):去除字符串右侧空格
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法]):替换字符串
vb编程代码大全
vb 编程代码大全
1.数值：
abs(num): 返回
sgn(num): num>0 1; num=0 0; num<0 -1; 判断数值正负
hex(num): 返回值直接表示：&Hxx 最大8 位
oct(num): 返回值直接表示：&Oxx 最大8 位
sqr(num): 返回num>0
int(num): 取整int=99; int=100
fix(num): 取整fix=99; fix=99
round(num,n): 四舍五入取小数位round,3)= 中点数值四舍五入为近偶取整
round,1)=
log(num): 取以e 为底的num>0
exp(n):取e的n次幕通常用num A n
sin(num):，以为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num) len(str) ：计算字符串长度中文字符长度也计为一！mid(str,起始字符,［读取长度］):截取字符串中间子字符串left(str,nlen) ：从左边起截取nlen 长度子字符串right(str,nlen) :从右边起截取nlen 长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成
trim(str) ：去除字符串两端空格
Ltrim(str) ：去除字符串左侧空格
Rtrim(str) ：去除字符串右侧空格
replace(str,查找字符串，替代字符串,［起始字符，替代次数，比较方法］):替换字符串
注：默认值：起始字符1；替代次数不限；比较方法区分大小写( 0)
VB代码大全
隐藏form1：
form1.hide
显示form1：
form1.show
--------------------------------------------------------------------------------------------- 退出程序时，弹出窗口提示是否要退出：
Private Sub Form_Unload(Cancel As Integer)
Dim iAnswer As Integer
iAnswer = MsgBox("真要退出吗?", vbYesNo)
If iAnswer = vbNo Then
Cancel = True
Else
End
End If
End Sub
---------------------------------------------------------------------------------------------- 只能用任务管理器关闭程序的代码：
Private Sub From_Unload(Cancel As Integer)
Cancel = true
End Sub
------------------------------------------------------------------------------------------------ 点击command1打开33IQ网：
Dim strURL
Private Sub Command1_Click()
strURL = ""
Shell "explorer.exe " & strURL, 1
VB编程常用代码大全(精品)
VB编程常用代码大全
ＶB编程常用代码大全
１.数值型函数：
ａｂｓ(nuｍ)：返回绝对值
sgn(num): ｎum>０１; nｕm＝0 0; nuｍ＜0 -1；判断数值正负
hex(ｎum)：返回十六进制值直接表示:&Ｈxx 最大８位oｃｔ(ｎｕｍ): 返回八进制值直接表示:&Oxx 最大8位sqｒ(ｎum): 返回平方根ｎｕm>0
int(num）: 取整 iｎt（9９．８)=9９； iｎt(-99.2)=100 fix(ｎｕm): 取整fix(９９.8）=９9; ｆix(-99.2)＝99 round(ｎum,n)：四舍五入取小数位rouｎd(3.１4１５9，3)=3．14２中点数值四舍五入为近偶取整 rｏund(3.２５,1)=３.2
lｏｇ(num): 取以e为底的对数 nｕm>0
exp(n): 取ｅ的ｎ次幂通常用 num＾n
sｉn(nｕm): 三角函数,以弧度为值计算 (角度*Pai)/1８
0=弧度 con(num); taｎ(ｎuｍ); aｔn(ｎuｍ)
2.字符串函数:
leｎ(ｓtr)：计算字符串长度中文字符长度也计为一!
miｄ(str,起始字符,[读取长度])：截取字符串中间子字符串
left(ｓtr,nlen)：从左边起截取nleｎ长度子字符串
ｒight(sｔr，ｎleｎ)：从右边起截取nlen长度子字符串Lcase(stｒ）:字符串转成小写
Ｕcase(str）:字符串转成大写
triｍ(str):去除字符串两端空格
Ltｒim（str）：去除字符串左侧空格
Ｒtrim(str):去除字符串右侧空格
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
用VB5实现窗口图象缩放、滚动技巧
成都理工学院计算机工程系
洪志全
---- Visual Basic 是Windows 平台中最常用的应用软件开发语言, 窗口图像缩放、滚动是图像处理、多媒体数据库等应用软件开发中的基本功能。本文将介绍如何用VB 5.0 实现地窗口图像缩放和滚动技巧, 供读者在各种语言系统开发中参考。
---- 一、获取图像
---- 本文所介绍的图像缩放并没有对真正的图像进行缩放, 而是复制一幅窗口图像的真实画面, 对这个窗口图像附本进行局部缩放和滚动, 获取窗口图像可使用Windows 的API 函数来实现。具体来说, 实现窗口图像缩放、滚动需要用GetDeskTopWindow() 函数获取桌面窗口句柄, 再通过GetDC() 函数转换为描述表句柄, 则用BitBlt() 函数把桌面图像复制到任意图形容器控件中, 桌面图像复制完成后, 再用ReleaseDC 释放窗口描述表, 各API 函数的具体使用方法参见本文的例子程序。
---- 本文所用的API 函数包含在WIN95/98 的GDI32.DLL 和USER32.DLL 动态链接库中, 在使用时可通过VB5.0 的TEXT VIEWER 复制到所开发的应用程序中。
---- 二、图像缩放
---- 图像缩放显示的基本原理就是把原图像的一部分缩放后再送入窗口的图形容器控件中, 在VB 中可用内部命令PaintPicture 来进行, 语法格式为:
PaintPicture Pic,DestX,DestY,DestWidth,
DestHeight,ScrX,ScrY,ScrWidth,ScrHeight
---- 其中,Pic 为图片对象, 如图形控件对象等;
DestX,DestY为目标图像起始坐标;
DestWidth,DestHeight为目标图像幅面尺寸;
ScrX,ScrY为源图像起始坐标;
ScrWidth,ScrHeight为源图像剪裁尺寸。
---- 该命令就是把一个源图像资源任意复制到指定的区域, 其功能相当于API 函数的BitBlt, 但使用更简单, 若复制时改变源图像的ScrWidth,ScrHeight 或目标图像的DestWidth,DestHeight 可使复制后的图像尺寸发生变化, 实现窗口图像的缩放显示。若ScrWidth,ScrHeight 或
DestWidth,DestHeight 为负值还可实现窗口图像的水平、垂直反转显示。因此, 在把源图像送入目标图形容器控件时, 若改变源图像的幅面尺寸, 即可实现图像的缩放处理。
---- 三、图像滚动
---- 当载入图像尺寸大于图形控件窗口时, 为了便于浏览、选取必须对窗口图像滚动操作。窗口图像滚动可通过水平滚动控件HScroll 和垂直滚动控件VScroll 来实现, 通过控件的改变值HScroll.Value 和VScroll.Value 来控制PaintPicture 命令中的源图像坐标ScrX 和ScrY, 即可实现窗口图像的滚动操作。
---- 四、图像缩放、滚动实现
---- 本文可对非压缩BMP 位图进行缩放、滚动, 非压缩BMP 位图的宽度和高度在文件开始11H 后的8 个字节。若读者需要对其它图像格式( 如JPG,TIF 等) 进行缩放操作, 可根据本文介绍的方法对找出相应的图像高度和宽度即可, 具体实现步骤如下:
---- 1. 执行“File >Projects” 创建一新项目APPIMG.VBP, 在FORM 窗口中创建PictureBox、CommandButton、HScroll、VScroll 等对象, 调整各自位置, 并设置各对象的属性如下:
Form:Name = AppImage,ScaleMode = 1
PictureBox:Name = ImageWin, Appearance = 1-3D, ScaleMode = 3
CommandButton:Name = ZoomIn, Caption="Zoom In"
CommandButton:Name = ZoomOut, Caption="Zoom Out"
CommandButton:Name = ExitButton, Caption="Exit"
---- 2. 双击FORM 窗口, 并将下面程序输入到Form 对象的Load 事件中。该程序用于读取图像的宽度和高度, 初始化常用参数, 载入窗口图像, 并将图像复制到FORM 窗口的PictureBox 图形控件容器中显示。
Private Sub Form_Load()
Dim FileName As String
FileName = "C:\SAMP.BMP"
Open FileName For Binary As #1
Get #1, 19, ImageWidth: Get #1, , ImageHeight
'读取位图的宽度和高度
Close #1
DW = 15 * ImageWidth - ImageWin.Width
'将像点转换为Twip(微点)
DH = 15 * ImageHeight - ImageWin.Height
ImageWin.Width = 15 * ImageWidth
ImageWin.Height = 15 * ImageHeight
AppImage.AutoRedraw = True
AppImage.Caption = FileName
'改变Form窗标题
HScroll1.SmallChange = 100
'设置滚动最小步距
VScroll1.SmallChange = 100
DX = ImageWin.Width: DY = ImageWin.Height
'设置复制图像尺寸
SX = ImageWin.Width: SY = ImageWin.Height
AMP = 1'设置缩放比例为1
sWin = GetDesktopWindow()
'获取桌面窗口句柄
sDC = GetDC(sWin)
'转换为描述表句柄
hd = BitBlt(ImageWin.hdc, 0, 0, Image.Width,
Image.Height, sDC, 0, 0, &HCC0020)
hd = ReleaseDC(sWin, sDC)'释放窗口描述表
AppImage.ImageWin = LoadPicture(FileName)
'载入图像显示
End Sub
---- 3. 在General 对象的Declaration 过程中声明本程序所使用的WIN95 API 函数和和过程, 以及各事件程序所使用的全局变量等。
Private Declare Function BitBlt Lib "gdi32"
(ByVal hDestDC As Long, ByVal X As Long,
ByVal Y As Long, ByVal nWidth As Long, ByVal
nHeight As Long, ByVal hSrcDC As Long,
ByVal xSrc As Long, ByVal ySrc As Long,
ByVal dwRop As Long) As Long
Private Declare Function GetDC Lib "user32"
(ByVal hwnd As Long) As Long
Private Declare Function
GetDesktopWindow Lib "user32" () As Long
Private Declare Function ReleaseDC Lib "user32"
(ByVal hwnd As Long, ByVal hdc As Long) As Long
Dim sWin, sDC, hd
Dim ImageWidth As Long, ImageHeight As Long
Dim DX, DY, SX, SY, PX, PY, DW, DH, MX, MY, X0, Y0, AMP
---- 4. 双击ImageWin 对象, 并在MouseMove 事件和Mouse_down 事件中输入下面程序, 用于窗口图形的拖动滚动处理。