用vb制作微信小程序
VB编写简单的计算器程序?
VB编写简单的计算器程序?
对于初学Microsoft Visual Basic的人而言,编写自己的第一个简单程序是非常激动的,那么,现在就来简单的制作一下。
工具/原料
一台电脑
Microsoft Visual Basic 6.0 软件
方法/步骤
1、打开VB新建一个EXE。
怎样给我的vb程序添加帮助程序?
方法一 使用F1键:这种方法最简单,只需如下代码即可:Private Sub Form_Load() amp ##34 #39调用与主程序同目录下的帮助文件,按F1键调用End Sub方法二 使用SendKeys方法:
Private Sub Form_Load() amp ##34 End Sub private Sub CmdHelp_Click() SendKeys #34{F1}#34 #39发送击键到活动窗口 End Sub方法三 使用Shell函数:
private Sub CmdHelp_Click()Shell #34hh.exe #34, vbNormalFocus #为指定的帮助文件,可包含路径。End Sub方法四 使用HtmlHelp函数:先声明如下API:Option ExplicitPrivate Declare Function HtmlHelpA Lib #34hhctrl.ocx#34 (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long #39hwndCaller指定调用者的窗口,pszFile指定要调用的文件,uCommand是发送给 HtmlHelp的命令,dwData是uCommand的参数。 然后在过程中调用:
private Sub CmdHelp_Click()dim i as stringi amp ##34 #39用变量i记录与主程序同目录下的帮助文件HtmlHelpA Form1.hWnd, i, 0, 0End Sub方法五 使用ShellExecute函数:先声明如下API:Option Explicit#39声明API函数用于异步打开一个文档Private Declare Function ShellExecute Lib #34shell32.dll#34 Alias #34ShellExecuteA#34 (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 LongPrivate Const SW_SHOWNORMAL 1然后在过程中调用:
private Sub CmdHelp_Click()dim a as longDim b As Stringb amp ##34 #39用变量b记录与主程序同目录下的帮助文件a ShellExecute (0, #34open#34, b, #34#34, #34#34, SW_SHOWNORMAL)End Sub以上五种方法各有优缺点,从代码的简单上讲,建议使用第二种方法。从功能上讲,建议使用第五种方法,因其不只用于打开CHM帮助文件,还可用同样的格式打开、打印或查找一个文件或文档(参见该API的说明资料)。