VB如何添加进程，VB添加进程问题

添加进程。 目前我所知道的有两种方法，一种是lz项目“添加过程（p），另一种是直接在**中添加，如：

option explicit

private sub command1_click()call newpro '调用该过程。

end sub

public sub newpro() '公共呼叫范围可以有或没有它。

msgbox "这是您新添加的流程"

end sub

如有任何问题，欢迎询问，满意！

过程是由程序调用的子程序，分为函数过程和子程序过程，函数过程由关键字 function 标识，如：

public[ private] 函数名称（参数列表）作为返回类型。

前两个是公共的 [ private] 二进制函数 body end 函数

例如：public function sum （ start as long ， end as long ） as long

sum = start + end '返回函数的值。

return '返回调用过程的结束函数

函数过程的调用是变量 = 函数名称（参数）。

示例：value = sum （15,45）。

子程序过程是 public [ private] 子程序名称（参数列表）。

程序正文。 end sub

子例程的调用与称为程序（参数）的函数的调用略有不同。

添加流程（即声明）的位置可以是表单模块。

也可以制造标准模块。

描述不清楚，你不知道你需要做什么。 但至少需要在**中加入command2，如何执行负色？ 我真的做不到，加一句。

private sub command2_click()command1_click

end sub

command1 单击事件以确定触发了哪个按钮。 这是最起码的，没有一句话怎么可能**？

如果你不在command2中写**，点击后怎么能达到目标？

为什么不使用简单的。

为什么你不能在 command2 中写 **。

当您单击按钮 1 时，这是自动单击按钮 2。

private sub command1_click()command2_click

end sub

进程是程序运行和调用的子例程。

它分为函数过程和子程序过程。

函数过程由 function 关键字标识。

如。 public[ private] 函数名称（参数列表）作为返回类型。 '前两个也是公共的 [ 私有的]。

函数体。 end function

例。 public function sum ( start as long , end as long ) as long

sum = start + end '返回函数的值。

return '返回到调用过程。

end function

对函数过程的调用是。

变量 = 函数名称（参数）。

例。 value = sum （15,45） 子程序进程是。

public [ private] 子程序名称（参数列表）程序主体。 end sub

子例程的调用方式与函数略有不同。

调用程序（参数）。

添加流程（即声明）的位置可以是表单模块。

也可以制造标准模块。

n 是调用函数时需要传递的参数，即序列的第 n 项，所以最好声明如下： public function fib（byval n as integer） as long

此函数的返回值是斐波那契数列的第 n 项。 至于 fib（n-2），它不是一个数组，而是一个递归参数，也就是说，如果调用 fib（5），那么函数是通过调用 fib（4）、fib（3） 来计算的。

函数通常不与数据关联，因此最好在声明时包含 byval

public function fib(byval n as double) as double

正确的表达式是：public function fib（n as double） as double，其中省略了 n 的类型定义。 该函数将定义 n 视为默认数据类型。

所以它被过度定义了。 但是，最好在函数的定义中添加类型说明。

这是一个递归调用，n 是函数的参数，嘿。

若要创建新项目，请单击菜单：项目部件 - 选择：Microsoft 通用对话框控件

将 command1 和 commondialog1 添加到窗体中，并将以下内容复制到窗口中：

private sub command1_click() '文件随即打开。

on error resume next '设置错误处理。

dim openfilename as string

with commondialog1

cancelerror = true

initdir = "c:\"

filter = "位 ** 件 （*..）bmp)|*

bmp|jpeg(*.jpg;*.jpeg;*.

jpe;*.jfif)|*jpg;*.

jpeg;*.jpe;*.jfif|gif(*.

gif)|*gif|tif(*.tif;*.

tiff)|*tif;*.tiff|所有文档|*.

.filterindex = 2

允许使用长文件名。

showopen

if = 32755 then exit sub '如果按下取消按钮，您将退出该过程。

openfilename = .filename '获取要打开的文件的名称。

loadpicture(openfilename)

end with

end sub

private sub form_load()

选择**"end sub

你可以自己写一行。

私有函数函数名称（参数作为数据类型）作为数据类型。

然后，只要您按回车键，它就会自动跟随下方。

end function

然后将您自己的添加到这两行中。

您可以直接在其他进程中调用此函数。

在**栏下方的单独行中输入函数过程，然后调用它。

在菜单中的“项目 - 添加表单”。

工程 - >添加模块 - > 正常。

会有一个窗口，这叫做"模块"

你以后会经常用到这些东西，这里可以定义一些全局变量和函数，然后你可以以任何形式使用它。

在模块中写入 **。

option explicit

public function rndnum() as integer'注意前面必须有一个 public，这个函数是一个全局函数。

rndnum = int(rnd * 5) +1end function

然后写在按钮的事件中。

private sub command1_click()msgbox rndnum

end sub

双击一个按钮，然后将该按钮的名称更改为所需进程的名称。

添加一个模块，并在具有 public 的模块中定义它。

在模块中定义它，并将其用作公共。

私有子过程名称 （）。

end sub

或公共子进程名称 （）。

end sub

函数类似于一个过程，它也是一个单独的程序，用于完成一个特定的函数**，它由一组符合VB语法的语句组成，它与过程的不同之处在于函数可以向调用者返回一个值，自定义函数过程的格式如下：

publicl private][static]函数、过程名称（[参数表列表]）、[as type]。

局部变量常量的定义。

语句块“函数名 = 返回值。

exit function]

函数名称 = 返回值。

语句块] 结束函数

功能：定义功能过程。

注意：（1）函数和结束函数是函数的开始和结束标志。

2） public：表示函数是 “public”，private：表示函数是"私人"。

3）参数表列：变量名[as type][，变量名[as type]......

as type]用于指示函数返回值的类型。

4） 【退出功能】：表示退出功能进程。

5）构建1函数的方法与构建它的过程相同。