VB中用滚动条浏览图片的代码

都设置为true就是这只他的自动重画，自动适应大小。然后双击图片控件。代码窗口自动进入。在右上角选择scroll，change和scroll同时都要，两个都写进代码（PictureLeft = -（HScrollValue / HScrollMax） * PictureWidth）。最后运行一下，如图滑动滚动条，就可以看到全部的图像了。

步骤1：新建一窗体，添加一按钮组【Command1（0）】、【Command1（1）】、【Command1（2）】，一个对话框【CommonDialog1】（COMDLG3OCX）以及一个图片框【Picture1】。

给个示例，图片地址自己改一下。使用Image控件，让控件来自己调整。

接着，加上水平和垂直滚动条，默认名字分别为：HScroll1，VScroll1；以后加载图像到Picture2上，就能了；最后，在窗体中引入其他控件：一个按钮（Command），默认名为Command1和一个Microsoft Common Dialog Control，默认名为CommonDialog1。

可以参考的思路：用image控件数组存放多个图片，autoresize=True，这样Image控件的大小就是图片的大小。然后将image控件按顺序摆放。滚动条控制Image控件的位置。

vb中single与double

double表示双精度，single表示单精度，顾名思义，都存在精度问题，它们的运算结果也必然是一定精度的近似值。双精度型变量占用8个字节，能表示范围是-7*10^308 ~~7*10^308的数，有效位为15位。

因为single和double占用的内存长度不同，single是4字节，double是8字节，所以single能表示最大精度是小数点后约六位，double能表示的精度是小数点后14位，1+1=20000002384186因为这个式子里都是single，那么结果中小数点后六位之前是准确的，六位以后就是不准确的。

integer：只能表示整数，不能有小数点，正负数都可以，最大32767。Long：也只能表示整数，正负都可以，最大2147483648。single：单精度，可以有小数点，最大长度是8位。double：双精度，可以有小数点，最大长度是16位。currency：专门用来表示货币的。

Single数据类型Single（单精度浮点型）变量存储为 IEEE 32 位（4 个字节）浮点数值的形式，它的范围在负数的时候是从 -402823E38 到 -401298E-45，而在正数的时候是从 401298E-45 到 402823E38。Single 的类型声明字符为感叹号 （！）。

vb中refresh作用?

Refresh 方法用于强制全部重绘一个窗体或控件（也就是刷新了）。一般在下列情况下使用 Refresh 方法：在另一个窗体被加载时显示一个窗体的全部。更新诸如 FileListBox 控件之类的文件系统列表框的内容。更新 Data 控件的数据结构。Refresh 方法不能用于 MDI 窗体，但能用于 MDI 子窗体。

refresh是程序员主动调用的，重绘图形的一个方法。而autodraw是设定一个值，指示是否自动进行图形重绘。另外说明一下，如果你在VB编的程序中用了一些绘图方法，如Line、Circle，然后你用别的窗口遮盖你的程序窗体，再把遮盖的窗口移开，如果autodraw为false，那么移开之后，那原来被遮盖的部分变成了空白。

Refresh方法用于强制全部重绘一个窗体或控件，这里表示的是强制重绘Shape1控件。

AdodcRefresh 是刷新的意思 AdodcRecordSource 是连接的意思 AdodcRecordSource = select * from 成绩表 where 姓名 like & TextText & and 专业 like & TextText & 是连接查寻语句。

首先，这两个方法都是通过data控件实现本地与数据库关联的操作，区别在于：update的作用是放弃本地操作对数据库的更改，而refresh是把数据库的内容重新加载到本地系统。朋友。

所谓重绘，是指当窗体或控件最小化，或被遮挡以后，再显示的时候，会将被遮挡的部分重新画出来。

VB死循环怎么办?

VB死循环按Ctrl+C或Ctrl+Break可以结束循环，返回编程界面。为防止不能退出循环，强行结束程序而造成损失，建议运行程序前先保存程序。重新进入程序编辑界面后，要仔细检查程序代码，排除造成死循环的逻辑错误后，重新调试。

ctrl+break，然后停止。或者 在VB的工具-选项-环境-启动程序时：选中保存改变，这样就不会有没有保存的问题了。

用 Exit Do 退出（结束）死循环。VB死循环主要有两种形式第一种Do While True 语句Loop第二种Do 语句Loop While True以下程序在一个死循环中不停生成1到10000之间的随机数。

从而导致死循环。从你的代码来开，这句代码也毫无任何意义，去掉这一句，就可以键入与字符串中任意一个字符相同的字母，那么label1标签字体就会变换颜色。重点：FormautoRedraw 必须设定为True FormKeypreview 必须设定为True Timer1控件的，Interval属性请设定一个100~1000以内的整数。

所有语言死循环的原理就是因为没有满足结束条件造成的，比如 While True Print 死循环Wend 由于while条件是一个永真表达式，所以这个循环就是一个死循环。

请教VB高手preserve的用法?

1、在用 Preserve 关键字时，只能改变多维数组中最后一维的上界；如果改变了其它维或最后一维的下界，那么运行时就会出错。

2、VB中“Preserve”是系统关键字 配合redim来使用 重定义数组大小后，仍保留原数组内容。

3、先引用MSDN的原文：如果使用了Preserve关键字，就只能重定义数组最末维的大小，且根本不能改变维数的数目。例如，如果数组就是一维的，则可以重定义该维的大小，因为它是最末维，也是仅有的一维。不过，如果数组是二维或更多维时，则只有改变其最末维才能同时仍保留数组中的内容。

4、ReDim 用于为动态数组变量重新分配存储空间。可选项修饰符 Preserve 当仅更改最后一个维度的大小时，用来保留现有数组中的数据。B项错在改变了第一维度的大小，而不是最后一维。

5、在使用ReDim重新申明数组时，最为常见的关键字就是“Preserve”。“Preserve”的作用是表明在重新申明数组时，是否要在重新申明的数组中复制原数组中的元素。Dim a（）ReDim Preserve a（1 To 2）ReDim Preserve a（4 To 6）下标改变，没法对应复制原数组的元素。

vb怎么设置快捷键?

在程序里，可以通过给按钮设置 &A 之类的标题，将快捷方式设置为ALT+A。2，或者用API，拦截按钮，判断是否为自己程序的快捷键，如果是，执行对应的程序。

打开“菜单编辑器”。选取该菜单项。在“快捷键”组合框中选取功能键或者键的组合。要删除快捷键赋值，应选取列表顶部的 （none）。

制作菜单的时候在菜单编辑器对话框中的Shortcut下拉 列表框 中可以设置快捷键，但是快捷键的制定也仅仅可以选择Shortcut下拉列表框中的所提供的快捷键。

分类： 电脑/网络 程序设计 其他编程语言 问题描述：如何使用vb制作一个自定义组合键快捷键的程序。作用：在写字板中使F2键具有复制的功能（按下F2＝按下Ctrl+c）F3具有粘贴的功能。可以是对指定的进程有效也可以是全局的。

在菜单编辑器里面设置。这是设置菜单时用的。打开方式为 工具--菜单编辑器。通过键盘响应也可得到。知道 alt 和 P 的 ASCII 码 ，再适当地编一些代码就行了。我只知道这些。