| 发表于:2007-03-09 15:15:11 楼主 |
代码如下: private sub command1_click() msgbox "clip = " & mshflexgrid1.clip end sub private sub form_load() with mshflexgrid1 .rows = 4 .cols = 4 .row = 0 .col = 0 .rowsel = 3 .colsel = 3 .clip = vbtab & 1 & vbtab & 2 & vbtab & 3 & vbcr & _ 1 & vbtab & 1 & vbtab & 2 & vbtab & 3 & vbcr & _ 2 & vbtab & 2 & vbtab & 4 & vbtab & 6 & vbcr & _ 3 & vbtab & 3 & vbtab & 6 & vbtab & 9 .row = 1 .col = 1 .rowsel = 1 .colsel = 1 end with command1.caption = "clip " end sub 点击 "clip "按钮以后,弹出的对话框只有clip=后面没有数据,也就是用mshflexgrid1.clip得不到任何数据. |
|
|
|
|