- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 双击列头的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77976)
-- 发布时间：2015/11/30 0:37:00
-- 双击列头的问题
自定义了双击列头的事件,但是在双击某列边缘自动调整列宽时,也响应双击列头的事件,如何避免响应?
-- 发布时间：2015/11/30 7:05:00
--
Public Sub CaptionDoubleClick(sender As Object, e As System.EventArgs)
Dim t As Table = CurrentTable
If t.Rows.Count > 1 Then
Dim str As String = t.RowSel & t.ColSel & sender.RowSel & sender.ColSel
If t.RowSel = 0 AndAlso sender.RowSel = t.Rows.Count AndAlso str <> "00" & t.Rows.Count & t.Cols.Count Then \'双击的是列标题
QAT.Items("双击列标题排序").PerformClick \'切换升降序
ElseIf t.ColSel = 0 AndAlso sender.ColSel = t.Cols.Count AndAlso str <> "00" & t.Rows.Count & t.Cols.Count Then \'双击的是行标题
ElseIf str = "00" & t.Rows.Count & t.Cols.Count Then \'双击的是全选区
End If
ElseIf t.Rows.Count = 1 Then \'一行数据时,双击三个区域都表现为双击全选区
Else
End If
End Sub
[此贴子已经被作者于2015/11/30 7:08:06编辑过]
-- 发布时间：2015/11/30 9:54:00
--
如下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:双击列标题事件.table |
-- 发布时间：2015/12/1 1:21:00
--
强!
