vb简单代码,VB简单的计算机制作加法程序代码

vb简单代码,VB简单的计算机制作加法程序代码详细介绍

本文目录一览： 简单的VB代码.....

Function
opentable(byval
txtPath
as
string)
'【功能：建立数据库连接；状态：完成】
Set
conn
=
New
ADODB.Connection
conn.CursorLocation
=
adUseClient
conn.Open
"PROVIDER=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
txtPath
&
";"
Set
res
=
New
ADODB.Recordset
End
Function
Function
closetable()
'【功能：关闭数据库连接；状态：完成】
conn.Close
End
Function
set
res=new
adodb.recordset
res.Open
"select
管理用户,登录密码
from
管理员信息
where
管理用户=
'"
&
Me.管理用户
&
"'
and
登录密码='"
&
Me.登录密码
&
"'"
If
Not
res.EOF
Then
If
rs.Fields("登录密码")
=
Me.登录密码
Then
adlogin
=
True
End
If

用VB做一个简单的加减乘除的计算器，代码是什么？

'界面设置如图
' 代码如下
'已增加操作数正确性验证及 除数不能为0验证
Private Sub Command1_Click()
If IsNumeric(Text1.Text) And Text1.Text "" And IsNumeric(Text2.Text) And Text2.Text "" Then
Select Case Combo1.ListIndex
Case 0
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Case 1
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Case 2
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Case 3
If Val(Text1.Text) 0 Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Else
MsgBox "除数不能为0", , "错误"
End If
End Select
Else
MsgBox "请输入操作数", , "错误"
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem "+"
Combo1.AddItem "-"
Combo1.AddItem "*"
Combo1.AddItem "/"
Combo1.ListIndex = 0
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Command1.Caption = "计算"

End Sub
Dim YSF% '定义运算符
Dim S1#, S2# '定义运算中的两个数值
Dim ZT% '定义状态
Dim FH As Boolean '定义符号
Dim XSD As Boolean '定义运算符
Dim CD1%, CD2% '定义与符号有关的两个字符串长度
Dim M1#, M2#, M3#, M4#, M5# '定义用于记忆功能的5个变量
'给运算符赋值，以便在计算结果。
If ZT = 1 Then
Select Case Index
Case 0
YSF = 1
Case 1
YSF = 2
Case 2
YSF = 3
Case 3
YSF = 4
End Select
If M = 1 Then
Label1 = M1
ElseIf M = 2 Then
Label1 = M2
ElseIf M = 3 Then
Label1 = M3
ElseIf M = 4 Then
Label1 = M4
End If
S1 = Val(Label1)
Label1 = ""
ZT = 2
'给XSD和FH从新赋值，以便下一个数能添加小数点
XSD = False
FH = False
End If
'给运算符赋值，以便在计算结果。
If ZT = 1 Then
Select Case Index
Case 0
YSF = 1
Case 1
YSF = 2
Case 2
YSF = 3
Case 3
YSF = 4
End Select
If M = 1 Then
Label1 = M1
ElseIf M = 2 Then
Label1 = M2
ElseIf M = 3 Then
Label1 = M3
ElseIf M = 4 Then
Label1 = M4
End If
S1 = Val(Label1)
Label1 = ""
ZT = 2
'给XSD和FH从新赋值，以便下一个数能添加小数点
XSD = False
FH = False
End If
'给运算符赋值，以便在计算结果。
If ZT = 1 Then
Select Case Index
Case 0
YSF = 1
Case 1
YSF = 2
Case 2
YSF = 3
Case 3
YSF = 4
End Select
If M = 1 Then
Label1 = M1
ElseIf M = 2 Then
Label1 = M2
ElseIf M = 3 Then
Label1 = M3
ElseIf M = 4 Then
Label1 = M4
End If
S1 = Val(Label1)
Label1 = ""
ZT = 2
'给XSD和FH从新赋值，以便下一个数能添加小数点
XSD = False
FH = False
End If
'给运算符赋值，以便在计算结果。
If ZT = 1 Then
Select Case Index
Case 0
YSF = 1
Case 1
YSF = 2
Case 2
YSF = 3
Case 3
YSF = 4
End Select
If M = 1 Then
Label1 = M1
ElseIf M = 2 Then
Label1 = M2
ElseIf M = 3 Then
Label1 = M3
ElseIf M = 4 Then
Label1 = M4
End If
S1 = Val(Label1)
Label1 = ""
ZT = 2
'给XSD和FH从新赋值，以便下一个数能添加小数点
XSD = False
FH = False
End If
顺序是+-*/
Dim op1 As Byte
Dim ops1&, ops2&
Dim res As Boolean

Private Sub Command1_Click(i As Integer)
If Not res Then
Label1.Caption = Label1.Caption & i
Else
Label1.Caption = i
res = False
End If
End Sub
Private Sub Command2_Click()
Label1.Caption = ""
End Sub
Private Sub Command3_Click()
ops2 = Label1.Caption
Select Case op1
Case 0
Label1.Caption = ops1 + ops2
Case 1
Label1.Caption = ops1 - ops2
Case 2
Label1.Caption = ops1 * ops2
Case 3
Label1.Caption = ops1 / ops2
End Select
res = True
End Sub
Private Sub Command4_Click(j As Integer)
ops1 = Label1.Caption
op1 = j
Label1.Caption = ""
End Sub
Private Sub Command5_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
res = False
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub
我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数、第二个数、结果。
我们现在要text也要拉出三个，把了text里面text1、text2、text3全部删掉。
我们现在要把command拉出四个，把里面command1-4都给成+-*/
现在我们现在要双击+，我们开始进行输入代码
在里面我们现在要：text3.text=val(text1.text)+val(text2.text)
我们要把这个（text3.text=val(text1.text)+val(text2.text)）复制，把里面+号分别改成-*/
如图，就像这样就可以了，可以行径了，如果你在哪个代码里弄错了，你看一下还要哪些没有拉出来，或者你哪个代码输错了。
感谢观看。

VB如何编写简单弹出对话框的代码？

直接用MSGBOX函数即可。不需要控件。代码如下：Private Sub Command1_Click()
x = MsgBox("确定要退出吗？", vbYesNo, "提示")
If x = vbYes Then
End
End If
End Sub 希望能帮助到你 不懂请追问。
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) '点程序窗体上的X退出
Dim QueDing As Integer
Beep
QueDing = MsgBox("你真的确定要退出本程序吗？", vbYesNo + vbQuestion, "关闭窗口提示")
If QueDing = vbYes Then
End
Else
Cancel = 1
End If
End Sub
Private Sub Command1_Click() '点退出按钮退出 Form_QueryUnload 0, 0
End Sub
直接用MSGBOX函数即可。不需要控件。代码如下:Private Sub Command1_Click()
x = MsgBox("确定要退出吗？"， vbYesNo， "提示")
If x = vbYes Then
End。
N = 0
Do While N < 7
T = Int(31 * Rnd) + 1
Flg = False
For J = 1 To N
If A(J) = T Then Flg = True: Exit For
Next
If Not Flg Then N = N + 1: A(N) = T
直接用MSGBOX函数即可。不需要控件。代码如下：Private Sub Command1_Click()x = MsgBox("确定要退出吗？", vbYesNo, "提示")If x = vbYes ThenEndEnd IfEnd Sub
VB的系统特性：
1.工程限制：
实际文本之前最多只能有256 个空格的前导，在一个逻辑行中最多只能有25 个续行符。
2.过程、类型和变量：
对每个模块的过程数没有限制。每个过程可包含至多64K 的代码。如果过程或模块超过这一限制，Visual Basic 便产生编译时间错误。如果遇到这种错误，可将特别大的过程分割成若干个较小的程，或将模块级声明移到另一模块，来避免此类错误发生。Visual Basic 用表来保存代码中的标识符名(变量、过程、常量等)。每个表限于64K。
3.动态链接库声明表：
每个窗体和代码模块使用一个描述动态链接库入口点的结构的表。每个结构约40 个字节，表的大小限于64K，形成每个模块大约有1500 个声明。
4.工程名表：
整个应用程序用一张包含所有名称的表。这些名称包括：常量名、变量名、自定义的类型定义名、模块名、DLL 过程声明名。对工程名表总大小没有限制，但是区分大小写的条目不得超过32K。如果超过了32K 的限制，可以在不同的模块中重新使用private 标识符以限制区分大小写的条目数到达32K。
5.输入表：
在不同的模块中每引用一个标识符，便在输入表中创建一个条目。每一个这样的入口最小是24 字节，但限于64K，这样每个模块大约可以有2000 个引用。

vb的最简单代码

插入三个文本框a1、a2、a3来接收输入的三个数，插入一个按钮a4来执行操作，最后用三个文本框来显示结果。
Private Sub a4_Click()
Dim v1, v2, v3, t As Single
v1 = a1.Value
v2 = a2.Value
v3 = a3.Value
If (v1 < v2) Then
t = v1
v1 = v2
v2 = t
End If
If (v1 < v3) Then
t = v1
v1 = v3
v3 = t
End If
If (v2 < v3) Then
t = v2
v2 = v3
v3 = t
End If
a1.Value = v1
a2.Value = v2
a3.Value = v3
End Sub

简单VB代码编写

首先先设计完界面（省略），然后编写一个通用的颜色函数：
sub
colorchange(r
as
integer,g
as
integer,b
as
integer)
label1.backcolor=rgb(r,g,b)
end
sub
然后双击每个水平滚动条，在里边都写这样的代码：
colorchange(cint(hs1.value),cint(hs2.value),cint(hs3.value))
大致给你一个思路，看看如何？相信自己思考会写出。

VB简单的计算机制作加法程序代码

dim
a
,b,s
a=val(inputbox("请输入一个数字"))
b=val(inputbox("请输入另一个数字"))
if
b<>0
then
msgbox
a
&
"+"
&
b
&
"="
&
a+b
&vbcrlf
& a
&
"-"
&
b
&
"="
&
a-b
&vbcrlf
& a
&
"*"
&
b
&
"="
&
a*b
&vbcrlf
& a
&
"/"
&
b
&
"="
&
a/b
&vbcrlf
else
msgbox
a
&
"+"
&
b
&
"="
&
a+b
&vbcrlf
& a
&
"-"
&
b
&
"="
&
a-b
&vbcrlf
& a
&
"*"
&
b
&
"="
&
a*b
&vbcrlf
& "除数为0,无法计算除法运算"
end
if
添加3个TEXT，和1个COMMAND按钮，把下面代码复制即可
Private
Sub
Command1_Click()
Text3
=
Val(Text1)
+
Val(Text2)
End
Sub
其中Text1和Text2是你要输入的两个加数，command是把两个数相加，text3是结果

求5个简单VB代码（好的话追加50分）

1.移动“我的电脑”窗口到指定位置(添加一个按钮）
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim MyHWND As Long
MyHWND = FindWindow(vbNullString, "我的电脑")
SetWindowPos MyHWND, 0, 200, 200, 1000, 1000, 0
End Sub
2.简单的程序
你先在窗体上建两个按钮（command）。
代码（清除form1的代码后直接粘贴)：
'---------------------------------------
Private Sub Command1_Click()
Print "我成功了!"
Command1.Visible = False
Command2.Visible = True
End Sub
Private Sub Command2_Click()
Me.Cls
Command1.Visible = True
Command2.Visible = False
End Sub
Private Sub Form_Load()
Command1.Caption = "请按我"
Command2.Caption = "清除"
Command2.Visible = False
Me.FontName = "黑体"
Me.FontSize = 20
Me.FontBold = True
Me.FontItalic = True
Me.ForeColor = vbRed
Me.AutoRedraw = True
Me.Caption = "我的第一个应用程序"
End Sub
'----------------------------------
3.打开www.baidu.com主页(添加一按钮）
Private Sub Command1_Click()
Shell "explorer http:\\www.baidu.com"
End Sub
4.列举出所有进程（添加一个按钮，改名为cmdCheck；添加一个listbox，改名为lstPro）
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const MAX_PATH As Integer = 260
Private Const TH32CS_SNAPheaplist = &H1
Private Const TH32CS_SNAPPROCESS = &H2
Private Const TH32CS_SNAPthread = &H4
Private Const TH32CS_SNAPmodule = &H8
Private Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Type MODULEENTRY32
dwSize As Long
th32ModuleID As Long
th32ProcessID As Long
GlblcntUsage As Long
ProccntUsage As Long
modBaseAddr As Byte
modBaseSize As Long
hModule As Long
szModule As String * 256
szExePath As String * 1024
End Type
Private Sub cmdCheck_Click()
Dim i As Long, lPid As Long, FileName As String, TmpStr As String, TmpLong As Long
Dim Proc As PROCESSENTRY32
Dim hSnapShot As Long
Dim Mode As MODULEENTRY32
Dim mSnapshot As Long
Dim lInfoSize As Long, arrInfo() As Byte, lpInfoBlock As Long, arrTemp(4) As Byte
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
lstPro.Clear
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPall, 0)
Proc.dwSize = Len(Proc)
lPid = ProcessFirst(hSnapShot, Proc)
i = 0
Do While lPid <> 0
TmpStr = Trim(Left(Proc.szExeFile, InStr(Proc.szExeFile, Chr(0)) - 1))
TmpLong = InStr(TmpStr, "\")
Do While TmpLong <> 0
TmpStr = Mid(TmpStr, TmpLong + 1)
TmpLong = InStr(TmpStr, "\")
Loop
lstPro.AddItem TmpStr
i = i + 1
lPid = ProcessNext(hSnapShot, Proc)
Loop
CloseHandle hSnapShot
End Sub
5.结束指定名称进程（如QQ.exe）
Option Explicit
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * 260
End Type
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
Private Const TH32CS_SNAPPROCESS = &H2&
Private Sub KillProcess(sProcess As String)
Dim lSnapShot As Long
Dim lNextProcess As Long
Dim tPE As PROCESSENTRY32
lSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
If lSnapShot <> -1 Then
tPE.dwSize = Len(tPE)
lNextProcess = Process32First(lSnapShot, tPE)
Do While lNextProcess
If LCase$(sProcess) = LCase$(Left(tPE.szExeFile, InStr(1, tPE.szExeFile, Chr(0)) - 1)) Then
Dim lProcess As Long
Dim lExitCode As Long
lProcess = OpenProcess(1, False, tPE.th32ProcessID)
TerminateProcess lProcess, lExitCode
CloseHandle lProcess
End If
lNextProcess = Process32Next(lSnapShot, tPE)
Loop
CloseHandle (lSnapShot)
End If
End Sub
Private Sub Form_Load()
Dim Pro As String
Pro = InputBox("insert the process name --(For example 'Ri.exe' but not 'Ri')")
Call KillProcess(Pro)
Print "Done..."
End Sub
1. 如何消除textbox中按下回车时的beep声？
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
End If
End Sub
2.Textbox获得焦点时自动选中。
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
3.防止程序被重复运行
如果不希望应用程序被别人通过多次双击图标而重复运行，导致内存不足或其他意外，可以在Form_Load 中加入以下几行代码：
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox " 程序正在运行，请检查窗口是否被最小化。"
Unload Me
End If
End Sub
这几行语句在窗体加载时运行，判断当前程序是否正在被执行。如果正在执行，弹出信息窗口，同时退出程序。否则，继续运行程序。
这个程序的效果，用运行按钮试运行是看不出来的。要存盘生成.EXE 文件，然后从外面运行它。
4.让程序启动得更快
VB 应用程序加载的时候会首先执行一个叫Form_Load 的过程。如果这个过程的代码太多，就会使程序的启动过程变慢。其实，在Form_Load()的第一行加一条语句：me.show
这条语句的作用是先强行把窗体显示出来，使用户感觉程序的启动速度变快了。
5.使窗体全屏显示
在设计程序的时候，有时我们需要让程序在启动时就全屏显示。仅仅靠更改长和宽的长度吗？否，因为有时在你的电脑上能运行正常的窗体，在别的电脑上却无法正常显示。这种现象的出现可能是你所设置的屏幕分辨率与其他用户的设置不同而引起的。
在Form_Load事件中加入以下代码，可以让你的窗体始终以当前屏幕分辨率全屏显示。
Private Sub Form_Load()
Form1.Top = 0
Form1.Left = 0
Form1.Width = Screen.Width
Form1.Height = Screen.Height
End Sub
}
6.启动Windows时自动启动你的程序
除了修改注册表HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run，还可这样做：新建一个TextBox，
名称为Text1，然后在程序中输入以下代码：
Text1.LinkTopic = "Progman|Progman"
Text1.LinkMode = 2 ' 手动
Text1.LinkExecute "[ShowGroup(启动, 4)]"
Text1.LinkExecute "[AddItem(可执行文件完整路径,)]"
假设你想把 "C:\Progman\1.exe" 作为放在“启动”资源
文件夹的程序（即启动Windows时自动启动的程序），则最后一
行的LinkExecute 应该如下 ：
Text1.LinkExecute "[AddItem(C:\Progman\1.exe)]"
7.显示桌面
新建一个名称为CmdShowDesk的命令按钮，然后在程序中加入以下代码：
Option Explicit
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
Private Sub CmdShowDesk_Click()
Dim retVal As Long
retVal = ShellExecute(Me.hwnd, "Open", "显示桌面.scf", "", "", 1)
End Sub
这下在程序中最小化所有窗口可就方便多了。
8.如何取得文件大小？
VB6 提供了一个新的物件模型，叫做 FSO (File System Object) 物件模型，运用它，我们可以很方便的处理磁盘、资料夹和文件的一些动作。
FSO 物件模型含有好几个物件，其中有一个 File 物件是用来求得文件的相关资讯，在目前这个主题，我们就可以使用 File 物件！它有一个属性是 Size，对文件来说就是指文件的大小 (单位为位元组)。 (注一)
虽然使用 File 物件的 Size 属性就可以求得文件的大小，但是它有以下二个缺点：
1、只能用于 VB6 以后的版本。
2、它不是 VB6 内定的功能，必须另外引用 Scrrun.dll (Microsoft Scripting Runtime) 才可以！
以下的二个方法就可以使用在所有的 VB 版本中 (含 VB6)，而且是 VB 内定的功能：
1、FileLen 函数：返回一个 Long，代表一个文件的长度，单位是位元组。
语法：FileLen(pathname) ’ pathname 是全路径之文件名称
适用：取得一个尚未开启的文件的长度大小 (注二)
2、LOF 函数：返回一个 Long ，单位为位元组，用来代表由 Open 陈述式所开启的文件之大小。
语法：LOF(filenumber) ’ filenumber 是一个文件代码
适用：取得一个已开启的文件的长度大小
注一：File 物件的 Size 属性除了可以求得一个文件的大小，也可以用来取得整个目录的所有文件大小！
注二：使用 FileLen 函数时，如果所指定的文件正在开启中，则所返回的值是这个文件在开启前的大小。
9.如何检查软盘驱动器里是否有软盘？
Dim Flag As Boolean
Flag = Fun_FloppyDrive("A:")
If Flag = False Then MsgBox "A:驱没有准备好，请将磁盘插入驱动器！", vbCritical
’-------------------------------
’函数:检查软驱中是否有盘的存在
’-------------------------------
Private Function Fun_FloppyDrive(sDrive As String) As Boolean
On Error Resume Next
Fun_FloppyDrive = Dir(sDrive) <> ""
End Function
10.如何移除 Form 右上方之『X』按钮？
其实 Form 右上方之三个按钮分别对应到 Form 左上方控制盒 (ControlBox) 中的几个选项 (缩到最小 / 放到最大 / 关闭)，而其中的最大化 (MaxButton) 及最小化 (Minbutton) 都可以直接在 Form 的属性中设定，但是 VB 并没有提供设定『X』按钮的功能！要达到这个功能，必须借助 API：
由于『X』按钮对应到 ControlBox 的关闭选项，所以我们只要移除系统 Menu (就是ControlBox) 的关闭选项即可！您自己可以先看看您现在使用的 Browser 左上方的系统 Menu，【关闭】选项是在第几个，不是第 6 个！是第 7 个，分隔线也算一个！分隔线才是第 6 个！
当我们移除了关闭选项之后，会留下一条很奇怪的分隔线，所以最好连分隔线也一并移除。而 Menu 的 Index 是从 0 开始，分隔线是第 6 个，所以 Index = 5。
修正：为了让程序码在 Windows NT 也能运作正常，将各 Integer 型态改成 Long。 89.05.04
’抓取系统 Menu 的 hwnd
Private Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
’移除系统 Menu 的 API
Private Declare Function RemoveMenu Lib "user32" Alias "RemoveMenu" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
’第一个参数是系统 Menu 的 hwnd
’第二个参数是要移除选项的 Index

求一个简单VB程序代码

Private Sub Command1_Click()Command1.Enabled = FalseCommand2.Enabled = TrueLabel1.Visible = TrueForm1.Caption = "单击“隐藏”按钮隐藏文字"End SubPrivate Sub Command2_Click()Command1.Enabled = TrueCommand2.Enabled = FalseLabel1.Visible = FalseForm1.Caption = "单击“显示”按钮显示文字"End SubPrivate Sub Form_Load()Label1.Caption = "Hello"Label1.Visible = FalseCommand1.Caption = "显示"Command2.Caption = "隐藏"Command2.Enabled = FalseForm1.Caption = "单击“显示”按钮显示文字"End Sub