VB 怎么添加函数

发布网友 发布时间：2023-05-17 03:34

我来回答

共5个回答

热心网友 时间：2023-09-11 14:30

装好VB都带有API浏览器(某些版本的VB没有，比如精简版)。

在开始菜单 -> 程序 -> Visual Basic 6.0 xxx版 -> Visual Basic 6.0 xxx版工具 -> API 文本浏览器，打开API浏览器。

第一次打开需要载入API的列表。在API浏览器的文件菜单 -> 加载文本文件，然后选中"WIN32API.TXT"这个文件，这个文件的API是最常用的。

为了方便，在API浏览器的视图菜单，把"加载最后文本"勾选上，下次就不用去加载手动加载文本了。

API浏览器可以查询的API类型有 常数、声明、类型。

查询API选择声明，你输入 ShellExecute 后，然后双击列表中的ShellExecute，单击复制按钮就可以把该声明复制到剪切板。

热心网友 时间：2023-09-11 14:31

Private
Function
平方（参数
As
Double）
As
Double
Return
参数^2

'
这里随便写公式
End
Function
Private
Sub
Button1_Click(ByVal
Sender
As
System.Object,
ByVal
e
As
......)
MessageBox.Show(平方(随便一个数值))
End
Sub
这样你点击按钮就会出现随便那个数值的平方值

热心网友 时间：2023-09-11 14:31

在开始菜单中，选“程序”，找到VB6的安装项，其中有一个VB的工具叫“API文本浏览器”，运行它。
在“文件”中找到“加载文本文件...”，选择“WIN32API.TXT”，在查找框中输入“ShellExecute”，就可以在可用项中找到它了，选中它，再点击“添加”，在选定项中就出现了该函数的声明。再点击“复制”就可以复制到粘贴板上，在VB中粘贴就可以用了。

热心网友 时间：2023-09-11 14:32

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
原型:
HINSTANCE ShellExecute(
HWND hwnd, //父窗口句柄
LPCTSTR lpOperation, //操作,"open","print","explore"
LPCTSTR lpFile, //文件名,前面可加路径
LPCTSTR lpParameters, //参数
LPCTSTR lpDirectory, //默认文件夹
INT nShowCmd //显示方式
);

热心网友 时间：2023-09-11 14:32

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long