表格控件第三版

tom789

这次更新的内容不多，多了删除行删除列功能，调整行列的宽度高度值功能，插入功能，但极其耗费精力。因为要考虑到合并单元格，比如删除的行贯穿合并单元格中间，插入的值贯穿合并单元格中间，要调整的行列贯穿合并的单元格，使得这三个操作复杂起来。写表格控件真累，这次不打算更新了。一来精力能力有限，二来确实没什么思路写下去了。有心的人根据这个框架应该还能再写下去。 自制表格控件第三版(20120726).rar (208.53 KB, 下载次数: 820)

2012-7-26 23:14 上传

点击文件名下载附件
阅读权限: 10

tom789

麻烦肯定的，我都着磨好久才动手的，也不知有没有bug。加油哈哈。

Jen

支持进一步更新使其实用化。像Flexcell一样棒。

earnest

很好的资料

Jen

你的画分割线相关的编码（pDrawTmpLine）可能会导致内存泄露，闪烁很厉害，写的比较随便。100ms的间隔会减少闪烁，但可能导致不能Pixel to Pixel改变。
Excel的分割线就不闪。Flexcell的分割线也不闪，而且最小改变是Pixel为单位。不知道是怎样做到的。

1. ScreenDC = GetDC(0)
   
2.     OldDrawMode = SetROP2(ScreenDC, R2_XORPEN)
   
3.     hPen = CreatePen(0, 4, RGB(150, 150, 150))
   
4.     hOldPen = SelectObject(ScreenDC, hPen)
   
5. 
   
6. 
   
7.     Case WM_MOUSEMOVE
   
8.         '100毫秒响应一次消息
   
9.         If GetTickCount - t < 100 Then
   
10.             SetROP2 ScreenDC, OldDrawMode
    
11.             SelectObject ScreenDC, hOldPen
    
12.             DeleteObject hPen
    
13.             ReleaseDC 0, ScreenDC
    
14.             Exit Sub
    
15.         Else
    
16.             t = GetTickCount
    
17.         End If
    
18.         
    
19. ‘。。。
    
20. Call pDrawTmpLine(ScreenDC, p1.x, p1.y, p2.x, p2.y)    '擦除线
    
21. ’。。。
    
22. Call pDrawTmpLine(ScreenDC, p1.x, p1.y, p2.x, p2.y)    '擦除线
    
23. 
    
24. 
    
25.     SetROP2 ScreenDC, OldDrawMode
    
26.     SelectObject ScreenDC, hOldPen
    
27.     DeleteObject hPen
    
28.     ReleaseDC 0, ScreenDC

复制代码

tom789

Jen 发表于 2013-1-16 21:56
你的画分割线相关的编码（pDrawTmpLine）可能会导致内存泄露，闪烁很厉害，写的比较随便。100ms的间隔会减少 ...

你还在研究表格控件啊,真正实用的表格控件太难写了,有时间还是研究其它控件吧...那个写滴答表格控件的人写了六年多...可见确实不简单

Jen

tom789 发表于 2013-1-16 23:39
你还在研究表格控件啊,真正实用的表格控件太难写了,有时间还是研究其它控件吧...那个写滴答表格控件的人写 ...

是很难。不会写的，也没有能力写。只是感兴趣而已。
在屏幕上画线而不是在UC上画，画下一条线，再擦上条线，怎样才能不闪？ @jjcsoft 你怎么看？

tom789

Jen 发表于 2013-1-17 01:07
是很难。不会写的，也没有能力写。只是感兴趣而已。
在屏幕上画线而不是在UC上画，画下一条线，再擦上 ...

说下我的思路。当改变列宽度时，时时记录分割线横坐标，同时设置一个布尔变量用于指示当前正在改变宽度，注意在需要的时候复位其值。紧着在重画过程中就跟句布尔变量的不同画控件。为假正常画，为真，只画分隔线。你可以试看看