老师:您好!
我窗口Afterload的代码是For i As Integer = 1 To 2
Dim a As System.Windows.Forms.Control = e.Form.Controls("comboBox" & i).BaseControl
AddHandler a.MouseWheel, AddressOf MyMouseWheel
Next
内部函数
Dim sender As system.object = Args(0)
Dim e As System.Windows.Forms.MouseEventArgs = Args(1)
Dim s As object
For i As Integer = 1 To 2
s = Forms("窗口1").Controls("comboBox" & i)
Dim idx As Integer = s.items.IndexOf(sender.Text)
If e.Delta < 0 Then
If idx > -1 Then
If idx < s.items.count - 1 Then
sender.Text = s.items(idx+1)
End If
Else
sender.Text = s.items(0)
End If
Else
If idx > -1 Then
If idx > 0 Then
sender.Text = s.items(idx-1)
End If
Else
sender.Text = s.items(s.items.count-1)
End If
End If
提示:
.NET Framework 版本:2.0.50727.8789
Foxtable 版本:2018.10.9.1
错误所在事件:自定义函数ImyMouseWheel
详细错误信息:
调用的目标发生了异常。
InvalidArgument=“-1”的值对于“index”无效。
参数名: index
请老师指教!!!
谢谢!!!