一个简单vb程序的设计

添加一个按钮控件，用来激活颜色选择对话框

添加一个通用对话框控件，用来显示颜色选择对话框

单击按钮后，选择颜色确定就可以了

注意，添加通用对话框控件前要在部件中添加Microsoft common dialog60

修改后完全代码如下

Option Explicit

Dim paintnow As Boolean

Private Sub Command1_Click()

CommonDialog1ShowColor

ForeColor = CommonDialog1Color

End Sub

Private Sub Form_Load()

DrawWidth = 5

ForeColor = RGB(0, 0, 0)

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then

paintnow = True

End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If paintnow Then

PSet (X, Y)

End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

paintnow = False

End Sub

Shell 函数

执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

语法

Shell(pathname[,windowstyle])

Shell 函数的语法含有下面这些命名参数：

部分 描述

pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。

Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。

windowstyle 命名参数有以下这些值：

常量 值 描述

vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。

VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。

VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。

VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。

VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。

VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。

说明

如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。

注意 缺省情况下，Shell 函数是以异步方式来执行其它程序的。也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。

打开网页

Shell "explorerexe >

是6，上例中‘VB’是两个字符，‘程序设计’是四个字符，所以选择6。

len在VB里就是测量一个字符串中含有字符的数量。

例如len("ABC1234")的值是7，len("他今年专14岁")的值是6。

len(x)返回字符串变属量x的长度，即x含有字符的个数。

扩展资料：

在VBA中，Len 函数的功能为返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。

LEN函数语法

Len(string | varname)

Len 函数的语法有下面这些部分：

string：任何有效的字符串表达式。如果 string 包含 Null，会返回 Null。

以上就是关于一个简单vb程序的设计全部的内容，包括:一个简单vb程序的设计、用VB设计一个程序、VB中 表达式Len(“ VB程序设计“ )的值是_______。 A、4 B、6 C、8 D、11等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！