按键精灵制作单选框源码

按键精灵制作单选框源码

运行环境：分辨率：1024x768 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.00.9460

@tq02vnc    2011/11/13

Event Form1.CheckBox1.Click  
    call 单选(1)  
End Event  
Event Form1.CheckBox2.Click  
    call 单选(2)  
End Event  
Event Form1.CheckBox3.Click  
    call 单选(3)  
End Event  
Event Form1.CheckBox4.Click  
    call 单选(4)  
End Event  
  
Sub 单选(xx)  
    If xx <>1 Then   
        Form1.CheckBox1.Value =0  
    End If  
  
    If xx <> 2 Then   
        Form1.CheckBox2.Value =0  
    End If  
  
    If xx <> 3 Then   
        Form1.CheckBox3.Value =0  
    End If  
  
    If xx <> 4 Then   
        Form1.CheckBox4.Value = 0  
    End If  
End Sub