哦，请问蓝老师，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
加好友 
发短信
Post By：2021/3/9 11:01:00 [只看该作者]
