To bob008(冻冬) 
什么控件?
我想要代码,因为这是一个很小的细节,用控件的话是不是太麻烦了!
我想应该有api吧

解决方案 »

  1.   

    CheckMenuRadioItem VB声明 
    Declare Function CheckMenuRadioItem Lib "user32" Alias "CheckMenuRadioItem" (ByVal hMenu As Long, ByVal un1 As Long, ByVal un2 As Long, ByVal un3 As Long, ByVal un4 As Long) As Long 
    说明 
    指定一个菜单条目被复选成“单选”项目。与单选钮相似,一个特定的组中只能有一个项目被选中。这个组别既可按位置定义,也可按菜单ID定义。复选的项目会显示一个圆形的样式复选符号(●),而不是一个标准的复选符号(√) 
    返回值 
    Long,非零表示成功,零表示失败。会设置GetLastError 
    参数表 
    参数 类型及说明 
    hMenu Long,菜单句柄 
    un1 Long,组内第一个位置或菜单ID 
    un2 Long,组内最后一个位置或菜单ID 
    un3 Long,欲复选的位置或菜单ID 
    un4 Long,下述标志之一 :如un1,un2,un3引用菜单条目的位置(第一个肯定在位置0处),就设为MF_BYPOSITION;如它们引用的是菜单ID,则设为MF_BYCOMMAND 
    注解 
    在vb里使用:由这个函数做出的改动可以正常发挥作用,但不会由vb菜单的checked属性反映出来