如何初始化静态变量？---马上给分

Question

想定义一个静态变量（用于判断一个执行片断），初始化true,当程序  第一次运行 时改为true(只在一个地方改),以后程序在执行时，这个变量永远为false.

Answer 1

Private Sub Command1_Click()
    Static lb_Flag As Boolean, i As Long
    
    If Not lb_Flag And i = 0 Then
        lb_Flag = True
        i = 1
    End If
    MsgBox lb_Flag
    lb_Flag = False
End Sub

Answer 2

to 射天狼：
  你这样不行
Sub Main()    
    Static lb_Flag As Boolean, i As Long
    
    If Not lb_Flag And i = 0 Then
        lb_Flag = True
        i = 1
        FrmConfig.Show vbModal//我希望他第一次执行的时候运行，相当于安装程序是所作
                              //的配置，以后正常运行是不用显示这个窗体！！
        bFisrtConf = False
    End If
    
    lb_Flag = False    
    frmLogin.Show vbModal
    If Not frmLogin.LoginSucceeded Then
        End
    End If
   
       
    MDIMain.Show
End Sub

Answer 3

我自个想到用 注册表和ini文件，不知如何，谁能提供相应的程序例子！！谢谢

Answer 4

Sub Main()    
    Static lb_Flag As Boolean, i As Long
    。。上面的跟这个有区别吗？

Answer 5

用ini文件，你不是想到了嘛
在ini文件里定义一个参数，初始值为True,程序执行时判断一下这个参数，如果为True,
就执行你的那条语句，然后把这个参数值改为False就可以了。
关于ini文件的写入和读出的方法查一下msdn，不用多说了吧。

Answer 6

Dim lb_flag As Boolean'---窗口级的全局变量Private Sub Command1_Click()
   If lb_flag = True Then
      lb_flag = False
      '------
      '你要实现功能的代码
      '------
   Else
     lb_flag = True
     '---你要实现的功能的代码
   End If
End Sub