求助，如何加快改变 MSFlexGrid 背景色的速度

2010-09-15 03:00:33 156 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ring2004 墨衍会员 · AI 创作全网分发关注 + 加入社区

实战测评：4大搜索API（You.com/Tavily/Exa/Perplexity）谁更适合你的AI项目？附Python调用代码本文实战测评了You.com、Tavily、Exa和Perplexity四大搜索API在AI项目中的集成应用，详细对比了它们的技术特性和Python调用方法。针对LLM实时数据需求，You.com的优化设计表现突出，支持32k大上下文窗口和快速响应。文章提供了完整的代码示例和场景化选型建议，帮助开发者高效集成搜索API到AI项目中。阅读详情

我用的是下面的方法，我现在MSFlexGrid1 里有60条数据时，给每列填充背景色就很慢了，是否有更高效快捷的方法，谢谢！

With MSFlexGrid1 '改变列的背景色

For K = 1 To .Cols - 1
If K = 8 Or K = 10 Or K = 12 Or K = 14 Or K = 15 Or K = 16 Then
.Col = K
For J = 1 To .Rows - 1
.Row = J
.CellBackColor = &HFEFBDE '改变背景色
Next J
End If
Next K

End With

...全文

电子元器件-三极管终终篇：三极管工作原理详解、参数/手册详解、开关应用详解、Ib电流研究、开关应用实例三极管工作原理与应用摘要三极管是一种电流控制器件，通过小基极电流控制大集电极电流。其内部结构由高掺杂发射区、薄低掺杂基区和中等掺杂集电区组成，形成NPN或PNP结。三极管有三种工作状态：截止区：发射结和集电结均反偏，无放大作用放大区：发射结正偏，集电结反偏，Ic=βIb 饱和区：两结均正偏，Ic不再随Ib增大作为开关使用时，需确保三极管深度饱和（Vce≈0.2V）。设计要点包括：基极电阻计算确保Ib足够大集电极电阻控制Ic 基极加下拉电阻提高抗干扰 NPN管作地开关，PNP管作电源开关典型应用阅读详情

ring2004

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

jhone99 2010-09-16

打赏
举报

Dim a() As String



a = Split("8,10,12,14,15,16", ",")



With MSFlexGrid1 '改变列的背景色



    For K = 0 To UBound(a)

        .Col = a(i)

        

        For J = 1 To .Rows - 1

            .Row = J

            .CellBackColor = &HFEFBDE '改变背景色

        Next J

    Next K



End With

ring2004 2010-09-16

打赏
举报

谢谢，帅呆了。。。。

yachong 2010-09-16

打赏
举报

[Quote=引用 12 楼 ring2004 的回复:]
additem方法我昨天下午刚试用的，我刚才已经结账了，^_^
十分感谢！

另外，改变颜色的方法有点问题，填充到最后一列时，只是第一个单元格被填充颜色，下面的单元格都是被选中的深蓝色。。。。。。
With MSFlexGrid1
.Redraw = False'这个可以快一点
.FillStyle = flexFillRepeat '设置这个属性，一次改变一行、一列
F……
[/Quote]
在填充完了以后随便改变一下row或者col就行了
比如：
....
Next k
.row=0 '加上这一句
.Redraw = True
....

ring2004 2010-09-16

打赏
举报

additem方法我昨天下午刚试用的，我刚才已经结账了，^_^
十分感谢！

另外，改变颜色的方法有点问题，填充到最后一列时，只是第一个单元格被填充颜色，下面的单元格都是被选中的深蓝色。。。。。。
With MSFlexGrid1
.Redraw = False'这个可以快一点
.FillStyle = flexFillRepeat '设置这个属性，一次改变一行、一列
For k = 1 To .Cols - 1
If k = 8 Or k = 10 Or k = 12 Or k = 14 Or k = 15 Or k = 16 Then
.Col = k
.Row = 1
.RowSel = .Rows - 1
.CellBackColor = &HFEFBDE '改变背景色
End If
Next k
.Redraw = True
End With

ring2004 2010-09-16

打赏
举报

太强悍了！上次你帮我搞定的，谢谢！

yachong 2010-09-16

打赏
举报

[Quote=引用 9 楼 ring2004 的回复:]
这种很实际的功能为什么MSFlexGrid不留一个方法，一次改变一列的颜色。。。。真是遗憾
[/Quote]
有的，可以一次改变一列

    With MSFlexGrid1

        .Redraw = False'这个可以快一点

        .FillStyle = flexFillRepeat '设置这个属性，一次改变一行、一列

        For k = 1 To .Cols - 1

            If k = 8 Or k = 10 Or k = 12 Or k = 14 Or k = 15 Or k = 16 Then

                .Col = k

                .Row = 1

                .RowSel = .Rows - 1

                .CellBackColor = &HFEFBDE '改变背景色

            End If

        Next k

        .Redraw = True

    End With

这个代码用的时间是你原来的十分之一左右
楼主上一个帖子既然用additem解决了，是不是该给分了？
俺很久没捞到分了呢

ring2004 2010-09-16

打赏
举报

这种很实际的功能为什么MSFlexGrid不留一个方法，一次改变一列的颜色。。。。真是遗憾

ttsffgg 2010-09-16

打赏
举报

上次,你试图逐单元格填充数据,解决方法是用additem取代,或者直接绑定数据库
但这次你要逐单元格设置颜色,那就没办法替代了~~~~

总会有绕不开
.Col
.Row
这两个属性的时候~~~

ring2004 2010-09-16

打赏
举报

To overown:
上次的问题，填充数据用additem可以非常快地显示出来。
VB code
With MSFlexGrid1
.Rows = 1
Do While Not rs_flex3.EOF
.additem "" & vbtab & rs_flex3.Fields("team_nm") & vbtab & rs_flex3.Fields("worker_id") & vbtab & rs_flex3.Fields("worker_nm") & vbcrlf
rs_flex3.MoveNext
Loop
End With

ring2004 2010-09-16

打赏
举报

To jhone99:用了你的方法，和我的那段代码运行速度是一样的.....不过仍然感谢！

ttsffgg 2010-09-16

打赏
举报

....上次问这个好像也是楼主!

ttsffgg 2010-09-16

打赏
举报

MSFlexGrid1
只要是有这两行
.Col = K
.Row = J
永远快不起来

jhone99 2010-09-16

打赏
举报

Private Sub Command1_Click()

    Dim a() As String

    Dim K As Integer

    Dim J As Integer

    

    a = Split("8,10,12,14,15,16", ",")

    

    With MSFlexGrid1 '改变列的背景色

        For K = 0 To UBound(a)

            .Col = a(K)

            

            For J = 1 To .Rows - 1

                .Row = J

                .CellBackColor = &HFEFBDE '改变背景色

            Next J

        Next K

    End With

    

End Sub

求助，如何加快改变 MSFlexGrid 背景色的速度

相关推荐