- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]keypress listview (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79425)
-- 发布时间：2015/12/31 10:11:00
-- [求助]keypress listview
老师，
For i1 As Integer = 2 To 3 \'希望只循环2-5页面中的部分
For Each bt As object In tab.TabPages(i1).Children
If Typeof bt Is WinForm.ListView Then \'判断控件是否是目录树
Dim lvw As WinForm.ListView = Forms("通用目录树").Controls(bt.name)
If e.KeyCode = Keys.Up Then
lvw.Position = lvw.Position - 1
e.Cancel = True
ElseIf e.KeyCode = Keys.Down Then
lvw.Position = lvw.Position + 1
e.Cancel = True
ElseIf e.KeyCode = Keys.Enter Then
If lvw.Current IsNot Nothing Then
For i=0 To Parts1.Length-1
Tables(ary(0)).Current(Parts1(i)) = lvw.Current(Parts(i))
Next
End If
End If
End If
Next
Next
-- 发布时间：2015/12/31 10:13:00
--
此主题相关图片如下：qq图片20151231100927.png
-- 发布时间：2015/12/31 10:14:00
--
为何点击向下按钮，就选定了 好多 只选定给一个怎么写
-- 发布时间：2015/12/31 10:15:00
--
判断触发事件的控件？你可以这样判断啊
If TypeOf e.Sender Is WinForm.ListView Then
msgbox(e.Sender.parent.Text)
End If
-- 发布时间：2015/12/31 10:22:00
--
没明白啊 老师 您的意思是 我用这个判断一下 那段代码有误是吗
-- 发布时间：2015/12/31 10:30:00
--
上传具体例子，看不懂你什么意思。
-- 发布时间：2015/12/31 10:34:00
--
帮助文档自定义录入界面二 的
3、将TextBox1的KeyDown事件代码设为：
Dim tbl As
Table = Tables("窗口1_Table1")
If e.KeyCode = Keys.Up
Then
tbl.Position = tbl.Position - 1
e.Cancel = True
Elseif e.KeyCode =
Keys.Down Then
tbl.Position = tbl.Position + 1
e.Cancel = True
Elseif e.KeyCode =
Keys.Enter Then
If tbl.Current IsNot
Nothing
Then
e.Form.DropDownBox.Value = tbl.Current("客户ID")
End
If
e.Cancel = True
e.Form.DropDownBox.CloseDropDown()
End
If
[此贴子已经被作者于2015/12/31 10:36:31编辑过]
-- 发布时间：2015/12/31 10:35:00
--
现在下拉的是List View
-- 发布时间：2015/12/31 10:35:00
--
我这就上传例子
-- 发布时间：2015/12/31 10:37:00
--
没看懂你什么意思。上传例子，说明要什么效果。