以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何让CheckedListBox复选框具有多态  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161180)
--  作者：小美菜
--  发布时间：2021/3/9 11:01:00
--  [求助]如何让CheckedListBox复选框具有多态
如何让CheckedListBox中每个复选框具有多态？如，全部选中时为对勾，部分选中时为斜杠，未选时为空框
--  作者：有点蓝
--  发布时间：2021/3/9 11:03:00
--  
没有办法
--  作者：小美菜
--  发布时间：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
--  作者：有点蓝
--  发布时间：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
--  作者：小美菜
--  发布时间：2021/3/10 11:18:00
--  
谢谢，一会改下，这是第二次出现，上次出现好久了，忘记是怎么改的了
--  作者：小美菜
--  发布时间：2021/3/10 17:17:00
--  
第一条不得对呀，蓝老师，输出都是零
--  作者：有点蓝
--  发布时间：2021/3/10 17:18:00
--  
什么东西？没看懂