按键精灵制作单选框源码

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

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