[求助]列表视图问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]列表视图问题

共有2703人关注过本帖树形打印复制链接主题：[求助]列表视图问题

pcxjxjhkw

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00

[求助]列表视图问题 发帖心情

Post By：2015/7/16 17:13:00 [只看该作者]

列表视图中的行在拖动时，如何实现，给一个提示？

有两个列表视图，将其中一个的行拖动到另一个视图中，在拖动时（还未拖动到另一个视图中）【BeforeDragRow事件中】，显示提示，是否已存在

如果用消息框可以实现，我现想用提示信息

如下的代码未能实现，其提示信息未能在拖动时实时显示

Dim lvw As WinForm.ListView = e.Form.Controls("个人收藏菜单")

If lvw.Rows.Contains(e.Row.Name) = True Then ''如果已收藏此菜单

e.Sender.Current.ToolTipText = "已添加"

' MessageBox.Show("【" & e.Row.Text & "】已添加!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)

' e.Cancel = True

End If

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/16 17:16:00 [只看该作者]

Dim txt As WinForm.ListView = e.Form.Controls("ListView1")
txt.ShowToolTip("请输入六位数的邮政编码!")

http://www.foxtable.com/help/topics/2686.htm

pcxjxjhkw

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00

Post By：2015/7/16 17:20:00 [只看该作者]

老师，你的方法是控件提示信息，不是列表视图的当前行。

e.Sender.Current.ShowToolTip("已添加") 报错，未找到该属性

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/16 17:45:00 [只看该作者]

listview不能这样提示

Dim lbl As WinForm.Label
lbl = e.Form.CreateControl("lable1", ControlTypeEnum.Label)
lbl.Text = "Foxtable"
lbl.Left = System.Windows.Forms.Cursor.Current.Position.X - e.Form.baseform.left
lbl.Top = System.Windows.Forms.Cursor.Current.Position.Y - e.Form.baseform.Top
lbl.width = 0
lbl.height = 0
e.Form.AddControl(lbl)
lbl.ShowToolTip("请输入六位数的邮政编码!")

pcxjxjhkw

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00

Post By：2015/7/16 18:46:00 [只看该作者]

当停止拖动时，如何让它自动消失呢？

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/16 18:52:00 [只看该作者]

呃，http://www.foxtable.com/help/topics/2686.htm

pcxjxjhkw

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00

Post By：2015/7/16 18:59:00 [只看该作者]

已解决，还是分享出来

MouseUp

If e.Button = MouseButtons.Left Then ''如果松开的是左键

If e.Form.ExistControl("提示") = True Then ''如果存在该控件

e.Form.Controls("提示").HideToolTip

End If

pcxjxjhkw

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00

Post By：2015/7/16 19:48:00 [只看该作者]

lbl.Left = System.Windows.Forms.Cursor.Current.Position.X - e.Form.baseform.left
lbl.Top = System.Windows.Forms.Cursor.Current.Position.Y - e.Form.baseform.Top

新问题：窗口直接预览或在模式下测试通过，但当是并列窗口时，上两句代码报错——未将对象引用设置到对象的实例

大红袍

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/16 19:55:00 [只看该作者]

mouseMove事件

vars("left") = e.X
vars("top") = e.Y

显示代码

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim lbl As WinForm.Label
lbl = e.Form.CreateControl("lable1", ControlTypeEnum.Label)
lbl.Text = "Foxtable"
lbl.Left = vars("left") + lvw.left
lbl.Top = vars("top") + lvw.Top
lbl.width = 0
lbl.height = 0
e.Form.AddControl(lbl)
lbl.ShowToolTip("请输入六位数的邮政编码!")

pcxjxjhkw

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00

Post By：2015/7/16 20:08:00 [只看该作者]

位置不正确！

下一主题 >> << 上一主题

总数 16 1 2 下一页

主题：[求助]列表视图问题