VB按扭??????????

来源：百度知道 编辑：UC知道 时间：2024/06/15 21:37:39
代码:Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Form_Load()
Command1.Enabled = False
Command2.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If FindWindow(vbNullString, "劲舞团") = 0 Then
Command1.Enabled = False
Command2.Enabled = False
Else
Command1.Enabled = True
Command2.Enabled = False
End If
End Sub
我用VB加了计时器和2个按扭然后加入上面的代码生成EXE,打开后成的EXE,运行劲舞团再看下后成的EXE怎么只有一个按扭可以点击可以用的啊.按扭2根本用不了怎么会事?????????????????????

改成以下代码:
Private Sub Timer1_Timer()
If FindWindow(vbNullString, "劲舞团") = 0 Then
Command1.Enabled = False
Command2.Enabled = False
Else
Command1.Enabled = True
Command2.Enabled = True
End If
End Sub
要把Command2.Enabled = False改成Command2.Enabled = True 才行,不然按钮2还是处于禁用状态!

Command2.Enabled = False 意思就是禁用按钮的，呵呵，怎么可能能用
程序的用途不明，不过可以看出

每秒钟执行一次timer1函数
当劲舞团在运行时Command1（按钮1）可用，Command2（按钮2）不可用
当劲舞团不在运行时Command1（按钮1）不可用，Command2（按钮2）不可用