Foxtable(狐表)用户栏目专家坐堂 → [求助]如何让CheckedListBox复选框具有多态


  共有2599人关注过本帖树形打印复制链接

主题:[求助]如何让CheckedListBox复选框具有多态

帅哥哟,离线,有人找我吗?
小美菜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:646 积分:4887 威望:0 精华:0 注册:2016/1/16 22:42:00
[求助]如何让CheckedListBox复选框具有多态  发帖心情 Post By:2021/3/9 11:01:00 [只看该作者]

如何让CheckedListBox中每个复选框具有多态?如,全部选中时为对勾,部分选中时为斜杠,未选时为空框

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105486 积分:536421 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/9 11:03:00 [只看该作者]

没有办法

 回到顶部
帅哥哟,离线,有人找我吗?
小美菜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:646 积分:4887 威望:0 精华:0 注册:2016/1/16 22:42:00
  发帖心情 Post By:2021/3/10 10:38:00 [只看该作者]

哦,请问蓝老师,1、如何在textbox控件输入时有时我是通过按钮输入,如何确定插入点也就是光标所在位置
                       2、下列代码检查多遍,没什么问题,可是报错说没有为MainDc指定参数,提示为GetDicKeyVal = Nothing
Public Function GetDicKeyVal(MainDc As Dictionary(Of String,Object) , ParamArray Args() As Object) As Object
  GetDicKeyVal = Nothing 
  Dim n As Integer = ubound(Args)
  If n < 0 Then Exit Function
  If DicContainsKey(MainDc,Args) Then
     Try 
        Select Case n 
           Case 0: GetDicKeyVal =  MainDc(Args(0))
           Case 1: GetDicKeyVal =  MainDc(Args(0))(Args(1))
           Case 2: GetDicKeyVal =  MainDc(Args(0))(Args(1))(Args(2)) 
           Case 3: GetDicKeyVal =  MainDc(Args(0))(Args(1))(Args(2))(Args(3)) 
           Case 4: GetDicKeyVal =  MainDc(Args(0))(Args(1))(Args(2))(Args(3))(Args(4)) 
           Case 5: GetDicKeyVal =  MainDc(Args(0))(Args(1))(Args(2))(Args(3))(Args(4))(Args(5)) 
           Case 6: GetDicKeyVal =  MainDc(Args(0))(Args(1))(Args(2))(Args(3))(Args(4))(Args(5))(Args(6))
           Case 7: GetDicKeyVal =  MainDc(Args(0))(Args(1))(Args(2))(Args(3))(Args(4))(Args(5))(Args(6))(Args(7))
           Case 8: GetDicKeyVal =  MainDc(Args(0))(Args(1))(Args(2))(Args(3))(Args(4))(Args(5))(Args(6))(Args(7))(Args(8))
           Case 9: GetDicKeyVal =  MainDc(Args(0))(Args(1))(Args(2))(Args(3))(Args(4))(Args(5))(Args(6))(Args(7))(Args(8))(Args(9))
        End Select 
     Catch ex As Exception
       OutputInfo(True,"[GetDicKeyVal]获取键值出错->" & ex.ToString)
     End try
  End If
End Function


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105486 积分:536421 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/10 11:14:00 [只看该作者]

1、http://www.foxtable.com/webhelp/topics/0761.htm

2、那些是vb的用法,不适合vb.net
Public Function GetDicKeyVal(MainDc As Dictionary(Of String,Object) , ParamArray Args() As Object) As Object
  Dim n As Integer = ubound(Args)
  If n < 0 Then return nothing
  If DicContainsKey(MainDc,Args) Then
     Try 
        Select Case n 
           Case 0: return  MainDc(Args(0))
           Case 1: return  MainDc(Args(0))(Args(1))
……
        End Select 
     Catch ex As Exception
       OutputInfo(True,"[GetDicKeyVal]获取键值出错->" & ex.ToString)
     End try
  End If
return nothing
End Function

 回到顶部
帅哥哟,离线,有人找我吗?
小美菜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:646 积分:4887 威望:0 精华:0 注册:2016/1/16 22:42:00
  发帖心情 Post By:2021/3/10 11:18:00 [只看该作者]

谢谢,一会改下,这是第二次出现,上次出现好久了,忘记是怎么改的了

 回到顶部
帅哥哟,离线,有人找我吗?
小美菜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:646 积分:4887 威望:0 精华:0 注册:2016/1/16 22:42:00
  发帖心情 Post By:2021/3/10 17:17:00 [只看该作者]

第一条不得对呀,蓝老师,输出都是零

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105486 积分:536421 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/10 17:18:00 [只看该作者]

什么东西?没看懂

 回到顶部