试试这段程序(MSFG为控件) Public Sub MSFG_MouseUp(.....) Dim x1,y1,x2,y2 with msfg x1=.col:y1=.row:x2=.colsel:y2=.rowsel if x1>x2 then swap x1,x2 if y1>y2 then swap y1,y2 .visible=false for i = x1 to x2 .col=i For j= y1 to y2 .row=j .cellbackcolor=rgb() next next .visible=true end with end sub 一句话,就是先使其不可见,刷新内存后再使其可见。
Public Sub MSFG_MouseUp(.....)
Dim x1,y1,x2,y2
with msfg
x1=.col:y1=.row:x2=.colsel:y2=.rowsel
if x1>x2 then swap x1,x2
if y1>y2 then swap y1,y2
.visible=false
for i = x1 to x2
.col=i
For j= y1 to y2
.row=j
.cellbackcolor=rgb()
next
next
.visible=true
end with
end sub
一句话,就是先使其不可见,刷新内存后再使其可见。