查看: 10  |  回复: 0
  VB6 的#If Win32 Then居然看不到变量Win32
楼主
发表于 昨天 19:46

新建From1(窗体),新建Command1-2(按钮CommandButton),代码:

Private Sub Command1_Click()
    #If Win32 Then
        Debug.Print Win32
        MsgBox 32
    #ElseIf Win16 Then
        Debug.Print Win16
        MsgBox 16
    #End If
End Sub

Private Sub Command2_Click()
    #If Win16 Then
        Debug.Print Win16
        MsgBox 16
    #ElseIf Win32 Then
        Debug.Print Win32
        MsgBox 32
    #End If
End Sub

不管按哪个按钮,运行结果:

都是弹出显示 32,Debug不会显示任何信息,包括True或Flase。


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2025 MaNongKu.com