| 发表于：2007-04-22 10:39:23 楼主 |
请教各位高手，如何修改如下代码可以加快制表速度？27行*50列, 表格在另一窗体中显示,
private sub 表格_load（byval sender as system.object, byval e as system.eventargs) handles mybase.load
ctbox2.text = 20
ctbox3.text = 20
end sub
private sub lnbox_textchanged（byval sender as system.object, byval e as system.eventargs) handles lnbox.textchanged
'-----------行数设置----------------
if isnumeric（lnbox.text) = false or lnbox.text = "0 " then
lnbox.text = " "
exit sub
end if
givfrm.ctgridview.rowcount = lnbox.text
end sub
private sub ctbox1_textchanged（byval sender as system.object, byval e as system.eventargs) handles ctbox1.textchanged
'-----------------列数设置------------
if isnumeric（ctbox1.text) = false or ctbox1.text = "0 " then
ctbox1.text = " "
exit sub
end if
givfrm.ctgridview.columncount = ctbox1.text
call columwidth（)
end sub
private sub ctbox2_textchanged（byval sender as system.object, byval e as system.eventargs) handles ctbox2.textchanged
'-----------------行宽设置------------
if isnumeric（ctbox2.text) = false then
ctbox2.text = " "
exit sub
end if
if ctbox2.text < clng（10) then exit sub
dim crows as integer
while crows < givfrm.ctgridview.rowcount
givfrm.ctgridview.rows（crows).height = ctbox2.text '设定行宽
crows += 1
end while
end sub
private sub ctbox3_textchanged（byval sender as system.object, byval e as system.eventargs) handles ctbox3.textchanged
'-----------------列宽设置------------
call columwidth（)
end sub
private sub columwidth（)
'-----------------列宽设置------------
if isnumeric（ctbox3.text) = false or ctbox3.text < "10 " then
ctbox3.text = " "
exit sub
end if
dim scolumn as integer
while scolumn < givfrm.ctgridview.columncount
givfrm.ctgridview.columns（scolumn).width = ctbox3.text '设定列宽
scolumn += 1
end while
end sub |
|
|
|
|
