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

2025-02-11 01:03:56

推荐回答（1个）

回答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.ValueVScroll1.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")

最新问答

奥数题，答得好我会追加分，谢谢了

下一站幸福小说版

潮汕风俗辈分大的人可以跪拜辈分小的死者吗?

我是赣州到武汉的求大侠帮助从武昌火车站到武汉第二看守所应该怎么走.谢谢心里感谢

福建南平市羊口镇婚礼的聘礼一般要多少？

我想问一下,成考当年毕业,能不能报考一级建造师.

公安人员被检察院做出相对不起诉的决定后，是否会被辞退？急！！

数字印刷与数码印刷的区别？

司马迁在《史记·货殖列传》中为30多为春秋以来的著名大商人立传。这表明他 A．肯定“工商食官”政策

写一篇题目是爸爸是世界上最帅的男人的抒情散文