checkbox类模块陷入死循环

tonywalker

大佬见好，小弟这有个死循环的事，有四个checkbox1到4，写入类模块click事件；需求实现，点击其中一个checkbox后，其余编号checkbox的value值均为false，恶心的是，在设置其他编号checkbox的value为false时，又会执行click事件，这就陷入循环了；目前我已经使用checkbox类模块的mouse up事件去规避click事件循环，确实在分步运行的时候可行，但在实际运行时，checkbox它。。。。它不显示啊，就是那个勾没有了，无语死了。。。
请问，checkbox的类模块如何写啊，拜谢拜谢!!!

ggmmlol

你用错控件了。
既然4个控件的关系是互斥的，那就应当使用“单选按钮”，而不是“复选框”。

tonywalker

ggmmlol 发表于 2023-11-13 11:29
你用错控件了。
既然4个控件的关系是互斥的，那就应当使用“单选按钮”，而不是“复选框”。

大佬啊，这个是这样的，上述应用场景需要用到单选、多选的，所以选项按钮并不适用；目前，4个clikc事件分开来写click事件，即不使用类模块能实现的，但写成类模块之后，就不会了。。。

寻找阳光的向日

类模块批量创建Ck的，都想着的也用类写一个click事件，我现在用类写的好有一个小bug，就是点击下一个ck时，上一个ck没有被取消，但是程序不进入死循环，想要的效果也是正确的，那个小bug有时间在优化一下，希望有大神写一个没有bug的给参考一下

tonywalker

寻找阳光的向日 发表于 2023-11-13 11:58
类模块批量创建Ck的，都想着的也用类写一个click事件，我现在用类写的好有一个小bug，就是点击下一个ck时， ...

哥们，我说的死循环不是代码真的进入死循环，而是逻辑进入死循环了，你现在的情况我也能做到的。。。

山菊花

参考帖子：
https://club.excelhome.net/forum ... 39&pid=11369044

tonywalker

我成功啦~该帖已完结，代码见下方，以便吧里其他需要的人

Public WithEvents mycheckbox As MSForms.CheckBox

Private Sub mycheckbox_Click()
If sh = "" Then '设置公共变量，初始为nothing
sh = Val(Right(mycheckbox.Name, 1)) '获取实际点击cb的编号
End If
With 试卷主页
    For i = 1 To 4 '遍历所有cb编号
        '若编号不等实际点击编号，且cb值为TRUE时，将其设置为false
        If i <> sh And .Controls("checkbox" & i).Value = True Then
            .Controls("checkbox" & i).Value = False
        '设置false时，会进入第二个循环，循环完毕后又会进入第一个循环，第一个循环需退出
            Exit For
        End If
    Next
    sh = "" '重新将公共变量设置为nothing
End With
End Sub

tonywalker

山菊花 发表于 2023-11-13 18:00
参考帖子：
https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1677039&pid=1136904 ...

感谢大大大大佬回复，嗑了一天半，总算搞定了~

tonywalker

tonywalker 发表于 2023-11-13 13:23
哥们，我说的死循环不是代码真的进入死循环，而是逻辑进入死循环了，你现在的情况我也能做到的。。。

兄弟，快回来看看，我搞定啦，回来瞅瞅啊

tonywalker

第一步应该是想办法在局域网搭建个人网站；第二步将对应物料库存转换成二维码，其实就是扫码进入局域网搭建的网站，在网站上进行信息修改？？