# 再放100分！寻表格例子！ [问题点数：100分，结帖人vc_love]

收藏
 vc_love vc_love 本版专家分：0 结帖率：100% ---------------------------------|---------------------------------------| |     |     |                    |                                       | | 放  |     |--------------------|---------------------------------------| | 图  |     |                    |                                       | | 片  |     |--------------------|---------------------------------------| |     |     |                    |                                       | |--------------------------------|---------------------------------------| |     |     |                    |                                       | | 放  |     |--------------------|---------------------------------------| | 图  |     |                    |                                       | | 片  |     |--------------------|---------------------------------------| |     |     |                    |                                       | |--------------------------------|---------------------------------------| |     |     |                    |                                       | | 放  |     |--------------------|---------------------------------------| | 图  |     |                    |                                       | | 片  |     |--------------------|---------------------------------------| |     |     |                    |                                       | |--------------------------------|---------------------------------------| 有很多项，要求该表格可以上下翻动显示！ 有人说vsflexgrid可以实现！ 有没有例子？ EMAIL ： mbxxx1@yahoo.com.cn 在线等候！ /***Business text AD***/ /*body {margin:0; padding: 0;font:normal 12px simsun; }*/ .adtxt{text-align:center;} .adtxt ul{margin:5px 0;border-top:1px solid #B9B9B9;border-bottom:1px solid #B9B9B9;background-color:#F2F6FB;padding:5px 0;} .adtxt ul li{display: inline-block;font-size:12px;} .adtxt ul li a{color:#333;} /*a{color: #002D93;text-decoration:none;}*/ /*a:visited{color: #B00;text-decoration:none;}*/ /*a:hover{color: #B00; text-decoration: underline;}*/ 发表于： 2003-09-29 11:09:59 楼主 对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理 回复次数：12
 账号:CSDN官网 昵称:CSDN官网 CSDN推荐
 脆皮大雪糕 脆皮大雪糕 本版专家分：23307 结帖率：100% 蓝花 2017年7月 VB大版内专家分月排行榜第三 怎么又是你，等，我写代码去 回复于： 2003-09-29 11:19:07 #1 得分：80 对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
 vc_love vc_love 本版专家分：0 结帖率：100% chewinggum(口香糖·向星星前进) 谢谢！ 我一直搞VC，最近有项目用到VB，临时抱抱佛脚！要是OK的话，我另开贴再散分！ 回复于： 2003-09-29 11:25:45 #2 得分：0 对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
 林子 林子 本版专家分：1824 结帖率：100% 也写去 回复于： 2003-09-29 11:38:48 #3 得分：0 对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
 脆皮大雪糕 脆皮大雪糕 本版专家分：23307 结帖率：100% 蓝花 2017年7月 VB大版内专家分月排行榜第三 用vb自带的mshflexgrid控件做 temp.bmp是一个图片，路径可以自己设定 Option Explicit Private Sub Form_Load() With MSHFlexGrid1     .Rows = 13     .Cols = 5     .TextMatrix(0, 0) = "C1"     .TextMatrix(0, 1) = "C1"     .TextMatrix(0, 2) = "C2"     .TextMatrix(0, 3) = "C3"     .TextMatrix(0, 4) = "C4"          Dim i As Integer     Dim j As Integer     For i = 0 To 4         .Col = i         .Row = 0         .CellBackColor = &H8000000F         .CellAlignment = 4     Next     .SelectionMode = flexSelectionByRow     .FixedRows = 0     .MergeCells = flexMergeRestrictRows     .MergeRow(0) = True     .ColWidth(0) = 300     .HighLight = flexHighlightAlways     For j = 1 To 12         .TextMatrix(j, 1) = Space(3) & "test" & Str(j)     Next     .MergeCells = 2     .MergeCol(0) = True     For j = 1 To 12 Step 4         For i = 0 To 3         .Col = 0         .Row = i + j         .TextMatrix(i + j, 0) = Chr(127 + j)         .CellForeColor = .CellBackColor         Next     Next          For j = 1 To 12 Step 4         .Col = 0         .Row = j         Set .CellPicture = LoadPicture("c:\temp.bmp")     Next End With LastRow = 1 End Sub 回复于： 2003-09-29 11:44:54 #4 得分：0 对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
 脆皮大雪糕 脆皮大雪糕 本版专家分：23307 结帖率：100% 蓝花 2017年7月 VB大版内专家分月排行榜第三 呵呵，一边工作一边偷偷写你的代码。时间比较紧，有些地方投机取巧了。如果不满意的话我再优化，现在吃饭去了 回复于： 2003-09-29 11:46:26 #5 得分：0 对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
 vc_love vc_love 本版专家分：0 结帖率：100% 谢谢chewinggum(口香糖·向星星前进)，你的代码很好！ 可是有一些地方，我还是不太懂，能不能在关键的地方加一点注释！ 再次谢谢你！ 回复于： 2003-09-29 12:06:49 #6 得分：0 对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
 农夫三拳有点甜 农夫三拳有点甜 本版专家分：3233 结帖率：100% up~! 回复于： 2003-09-29 12:12:57 #7 得分：0 对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
 脆皮大雪糕 脆皮大雪糕 本版专家分：23307 结帖率：100% 蓝花 2017年7月 VB大版内专家分月排行榜第三 TextMatrix(row,col) = string 是给某个表格单元设文本内容 mergeCells = flexMergeRestrictRows MergeRow(0) = True 这两行是说第一行相同内容的单元个可以互相合并 .MergeCells = 2 .MergeCol(0) = True 这两行是说第一列同内容的单元个可以互相合并，哎呀，看到这里才发现上面mergeCells = flexMergeRestrictRows应该改成.MergeCells = 2，这里的这行可以不要     For j = 1 To 12 Step 4         For i = 0 To 3         .Col = 0         .Row = i + j         .TextMatrix(i + j, 0) = Chr(127 + j)         .CellForeColor = .CellBackColor         Next     Next 这个循环体就是我所说的投机取巧的地方了。因为只有相同字符内容的单元格才能合并，而你要求的那几个放图片的格子如果没有文字就没法合并了。所以在那几个单元格里面加上ascii码大于127的字符，这样就不会在你的图片上出现文字。这里有个缺陷，就是Chr(127 + j)可能超出范围，有时间的画必须想办法解决掉，比如可以用多个大于127的字符组成相同字符串实现比较多的单元格合并等等。 其他循环添加单元字符的就不用我说了吧，不明白的话可以把MergeCells = 0 然后看看没合并时的表格数据就能明白了 回复于： 2003-09-29 13:07:31 #8 得分：0 对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
 射天狼 射天狼 本版专家分：61844 结帖率：95% 黄花 2004年7月 VB大版内专家分月排行榜第二2004年4月 VB大版内专家分月排行榜第二2003年10月 VB大版内专家分月排行榜第二 蓝花 2004年9月 Java大版内专家分月排行榜第三2003年9月 VB大版内专家分月排行榜第三 UP~~ 回复于： 2003-09-29 16:23:13 #9 得分：0 对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
 zjcxc--个人微信公共号同名 zjcxc--个人微信公共号同名 本版专家分：15974 结帖率：100% 名人 年度总版至少三次排名前十即授予名人勋章 状元 2005年 总版技术专家分年内排行榜第一2004年 总版技术专家分年内排行榜第一 进士 2006年 总版技术专家分年内排行榜第六2003年 总版技术专家分年内排行榜第八 更多勋章 推荐vsflexgrid 回复于： 2003-09-29 16:46:04 #10 得分：5 对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
 hemeijun81 hemeijun81 本版专家分：683 结帖率：100% up 回复于： 2003-09-29 23:16:11 #11 得分：0 对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
 junwhj junwhj 本版专家分：19458 结帖率：100% 黄花 2002年10月 VB大版内专家分月排行榜第二 蓝花 2002年6月 VB大版内专家分月排行榜第三 可以用FlexCell表格控件，有这方面的例程： http://junwhj.myrice.com 回复于： 2003-09-30 06:56:15 #12 得分：15 对我有用[0] | 丢个板砖[0] | 引用 | 举报 | 管理
 账号:CSDN官网 昵称:CSDN官网 CSDN推荐