您的位置：程序门 -> vb -> 基础类

关于mshflexgrid控件的右键问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

关于mshflexgrid控件的右键问题[已结贴,结贴人:xvwqny]

发表于：2007-06-23 14:22:47 楼主

右键选择mshflexgrid控件中任意一条纪录的时候怎么能让相应的这条纪录也变亮，就象是用左键选择那样。我有一段程序，但不知道应该怎么改。

程序如下：
private sub mshflexgrid1_mousedown（button as integer, shift as integer, x as single, y as single)

if button = 2 then
gengx = mshflexgrid1.textmatrix（mshflexgrid1.mouserow, 1)
label3 = gengx
datashow.popupmenu popm
end if

end sub

发表于：2007-07-04 09:32:181楼得分:0

小弟跪求了，帮帮忙吧！！

发表于：2007-07-04 10:06:552楼得分:0

'为flexgrid右键选中并单击声明的api
public declare function sendmessage lib "user32 " alias "sendmessagea " （byval hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as long
public const wm_lbuttondown = &h201

private sub msfeventrecord_mouseup（button as integer, shift as integer, x as single, y as single)
'事件队列右键菜单
if button = 2 then
dim l as long
l = y * &h10000 or x
l = l / 15
sendmessage msfeventrecord.hwnd, wm_lbuttondown, mk_lbutton, byval l
popupmenu fmdimain.mu_eventlist
end if
end sub

发表于：2007-07-04 10:20:323楼得分:20

private sub modhfgrid1_mousedown（button as integer, shift as integer, x as single, y as single)
if button = 2 then
modhfgrid1.row = modhfgrid1.mouserow
modhfgrid1.colsel = modhfgrid1.cols - 1
gengx = modhfgrid1.textmatrix（modhfgrid1.mouserow, 1)
text1.text = gengx
end if
end sub

发表于：2007-07-04 10:22:094楼得分:0

运行的时候，“public const wm_lbuttondown = &h201”出错了！

发表于：2007-07-04 10:25:305楼得分:0

还是xiaolei1982（小磊)厉害！！！

发表于：2007-07-04 10:41:406楼得分:0

我还有一点不明白的是，为什么不能选中的任意一行的第一列为什么没有变亮呢，xiaolei1982（小磊)大哥，可以给小弟解释一下吗？

发表于：2007-07-04 14:40:137楼得分:0

这个应该是控件本身这样设计的，没必要追究它吧。所有表格控件都是这个现象

下一篇：vb 还原不同名数据库
上一篇：vb6。0中怎么使用简写的系统路径呢？