VB按扭???????

来源：百度知道 编辑：UC知道 时间：2024/05/26 06:25:51
我用VB编个按扭是不可点击的，生成EXE后进入指定一个游戏按扭就会变成可以用了，就是说按扭是不可用的,进入游戏按扭激活了,就变成可以点击的了。怎么做?

'在窗体上加入command1(要激活的按钮),timer1(interval=100),然后在窗体代码区复制下面代码，运行，就可看到效果。
'注意必须修改的部分

'====窗体代码部分====
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Timer1_Timer()
If FindWindow(vbNullString, "仙剑奇侠传") <> 0 Then '在此修改为你的游戏窗口标题
Command1.Enabled = True
Else
Command1.Enabled = False
End If

End Sub

先在编的时候把按钮的可用不可用的属性设为false
在用代码设置进入游戏的时候这个属性为true

设form1为你编辑的窗口,form2为你的游戏窗口.
Private Sub Command2_Click()
Form2.Show
End Sub

Private Sub Form_Activate()
If Form2.Visible = True Then Command1.Enabled = True

End Sub

Private Sub Form_Load()
Command1.Enabled = False
End Sub