VB中有没有什么方法可以结素一段程序

来源：百度知道 编辑：UC知道 时间：2024/05/15 04:47:21
我的form1中有一段程序我只希望他运行一次
当这段程序运行过一次以后就不会在次运行．
请问有没有什么办法啊
能不能具体点啊 那个全局变量要怎么设啊
还有就是怎么调用他的时候设置成Ture啊？

设置一个全局变量..比如RunFirst

在formload时.将此变量置为false

在运行那个代码前判断此RunFirst是否为false,如果是的话,运行,且置它为true..

补充:
===================================
Dim Runfirst As Boolean

Private Sub Command1_Click()
If Runfirst = False Then
MsgBox "你这是第1次点我吧!"
Runfirst = True
Else
MsgBox "紧点个么事呀!!"
End If
End Sub

Private Sub Form_Load()
Runfirst = False
End Sub

在模块开头的声明段中使用public声明比如： public myflag as integer .
设置一个全局变量，比如是myflag，默认初始化为myflag=0，当执行你那段程序的时候把myflag设置成1，然后在你那段程序那里检测，如果是1那么自动退出那段函数。