vb灰色按扭?

来源：百度知道 编辑：UC知道 时间：2024/09/22 05:36:36
我用VB编个按扭是灰色的，生成EXE后进入指定一个游戏按扭就会变成可以用了，也就是说按扭是灰色的进入游戏就不是灰色的了。怎么做？
QQ音速游戏啊

'在窗体上添加控件command1，timer1(interval=100),然后复制下面代码，运行即可看到效果。
'====窗体代码部分====
Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim GameTitle As String

Private Sub Form_Load()
GameTitle = InputBox("请输入游戏窗体的标题", "提示")
End Sub

Private Sub Timer1_Timer()
If FindWindow(vbNullString, GameTitle) <> 0 Then
Command1.Enabled = True '找到游戏就不是灰色的
Else
Command1.Enabled = False '找不到游戏就是灰色的
End If
End Sub

什么乱七八糟的，什么游戏？你自己写的游戏？

用它的Enabled属性