Question

关于VB（Visual Basic）编程语言程序的问题

1.如何控制让竖条的滚动条VScroll1由下往上滚动；
2.如何改变滚动条VScroll1的背景颜色（假如随着滚动条的移动颜色逐渐由白色变为红色）；
3.如何使滚动条VScroll1到达最大值（顶端）时，自动停止，并在自动停止的同时，显示Picture1（Image1）的图片；
4.如何往Picture1（Image1）里添加照片（图片）；
5.If VScroll1.Value + VScroll1.Max / 100 <= VScroll1.Max Then
VScroll1.Value = VScroll1.Value + VScroll1.Max / 100
Else
VScroll1.Value = 0用这个让滚动条自动滚动的代码可以使其完成上述功能的同时，进行改进吗？

Answer 1

1.
直接改变VScroll1.Value，如：
Private Sub Timer1_Timer()
VScroll1.Value = VScroll1.Value + 1
End Sub
2.
用RGB函数（根据VScroll1.Value）

RGB 函数

返回一个 Long整数，用来表示一个 RGB 颜色值。

语法

RGB(red, green, blue)

RGB 函数的语法含有以下这些命名参数：

部分 描述
red 必要参数；Variant (Integer)。数值范围从 0 到 255，表示颜色的红色成份。
green 必要参数；Variant (Integer)。数值范围从 0 到 255，表示颜色的绿色成份。
blue 必要参数；Variant (Integer)。数值范围从 0 到 255，表示颜色的兰色成份。

说明

可以接受颜色说明的应用程序的方法和属性期望这个说明是一个代表 RGB 颜色值的数值。一个 RGB 颜色值指定红、绿、蓝三原色的相对亮度，生成一个用于显示的特定颜色。

传给 RGB 的任何参数的值，如果超过 255，会被当作 255。

下面的表格显示一些常见的标准颜色，以及这些颜色的红、绿、蓝三原色的成份：

颜色 红色值 绿色值 兰色值
黑色 0 0 0
兰色 0 0 255
绿色 0 255 0
青色 0 255 255
红色 255 0 0
洋红色 255 0 255
黄色 255 255 0
白色 255 255 255

3.
Private Sub Form_Load()
Image1.Visible = False
End Sub

Private Sub Timer1_Timer()
if VScroll1.Value<VScroll1.Max then
VScroll1.Value = VScroll1.Value + 1
else
Image1.Visible =True
End Sub
4.
Image1的Picture属性或用Image1.Picture=loadPicture("图片的路径")
LoadPicture 函数

将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。

语法

LoadPicture([filename], [size], [colordepth],[x,y])

LoadPicture 函数语法有下列部分：

部分 描述
filename 可选的。字符串表达式指定一个文件名。可以包括文件夹和驱动器。如果未指定文件名，LoadPicture 清除图象或 PictureBox 控件。
size 可选变体。如果 filename 是光标或图标文件，指定想要的图象大小。
colordepth 可选变体。如果 filename 是一个光标或图标文件，指定想要的颜色深度。
x 可选变体，如果使用 y ，则必须使用。如果 filename 是一个光标或图标文件，指定想要的宽度。在包含多个独立图象的文件中，如果那样大小的图象不能得到时，则使用可能的最好匹配。只有当 colordepth 设为 vbLPCustom 时，才使用X 和 Y值。For icon files 255 is the maximum possible value
y 可选变体，如果使用 x， 则必须使用。如果 filename 是一个光标或图标文件，指定想要的高度。在包含多个独立图象的文件中，如果那样大小的图象不能得到时，则使用可能的最好匹配。For icon files 255 is the maximum possible value

设置值

size 的设置值为：

常量 值 描述

vbLPSmall 0 系统小图标。
vbLPLarge 1 系统大图标，由视频驱动程序决定。
vbLPSmallShell 2 外壳小图标大小，由“控制面板”中的 Display Properties 对话框中 Appearance 选项卡上的 Caption Buttons 的大小设置决定。
vbLPLargeShell 3 外壳大图标大小，由“控制面板”中的 Display Properties 对话框中 Appearance 选项卡上的图标大小设置决定。
vbLPCustom 4 自定义大小，由 x 和 y 参数提供值。

colordepth 的设置值为：

常量 值 描述

vbLPDefault 0 如果使用指定文件，则为最佳可用匹配。
vbLPMonochrome 1 2 色。
vbLPVGAColor 2 16 色。
vbLPColor 3 256 色。

说明

Visual Basic 可以识别的图形格式有：位图 (.bmp) 文件、图标 (.ico) 文件、光标 (.cur) 文件，行程编码 (.rle) 文件、元 (.wmf) 文件、增强的元文件 (.emf), GIF(.gif) 文件以及 JPEG (.jpg) 文件。

赋值不带参数的 LoadPicture 将清除窗体、图片框及图象控件中的图形。

为了加载在 PictureBox 控件和 Image 控件中显示的图形或加载作为窗体背景的图形，必须将 LoadPicture 的返回值赋给要显示该图片的对象的 Picture 属性。例如：

Set Picture = LoadPicture("PARTY.BMP")
Set Picture1.Picture = LoadPicture("PARTY.BMP")

如果要将图标赋予窗体，则要把 LoadPicture 函数的返回值赋给 Form 对象的 Icon 属性：

Set Form1.Icon = LoadPicture("MYICON.ICO")

图标也可以被赋予除 Timer 控件和 Menu 控件外的其它控件的 DragIcon 属性，例如：

Set Command1.DragIcon = LoadPicture("MYICON.ICO")

使用 LoadPicture 可将图形文件载入到系统剪贴板，如下所示：

Clipboard.SetData LoadPicture("PARTY.BMP")