tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル MSFlexGrid表示の高速処理
投稿日: 2010/10/03(Sun) 02:23
投稿者オールドルーキー
環境【VB 6.0・OS WinXP】
スキル【初心者レベル】

お世話になります。先日も別件でご質問させて頂きましたが、VB6.0でloto6予想
プログラムを作成してます。当選データ(csvファイル:517行)をMSFlexGridで
表示させているのですが、意図する動作はしていますが処理時間がかなり
掛かります。(10秒弱)

    Dim intRow As Integer
    Dim intCol As Integer
    Dim intFileID As Integer
    Dim strReadData As String
    Dim strColsData() As String
    Dim colData As New Collection

    intFileID = FreeFile                                'ファイル番号取得
    Open gStrFeaverFullFileName For Input As #intFileID '当選データオープン
    Do Until EOF(intFileID)
        Line Input #intFileID, strReadData              'ファイルから1行読込
        colData.Add (strReadData)                       'データセット
    Loop
    Close #intFileID
    With GrdElection
        For intRow = 0 To colData.Count - 1
            If intRow > 1 Then
                .AddItem " ", .Row + 1
            End If
            .Row = intRow
            .RowHeight(intRow) = 300
            strColsData() = Split(colData.Item(intRow + 1), _
                                               Chr(MOJI_CODE_COMMA))
            For intCol = LBound(strColsData) To UBound(strColsData)
                .Col = intCol
                .ColWidth(intCol) = 1000
                If intRow <> 0 And intCol > ANALYSIS_ARRAY_BOUNUS Then
                    .Text = FormatNumber(strColsData(intCol), 0, True, _
                                         False, TristateTrue)
                Else
                    .CellAlignment = flexAlignCenterCenter
                    .Text = strColsData(intCol)
                End If
            Next
        Next
        '*** カレントセルを反転表示 ***
        .FocusRect = flexFocusNone
        .HighLight = flexHighlightAlways
        '*** ソート(降順) ***
        .Col = 0
        .Sort = 2
    End With
    Set colData = Nothing

以上が問題の処理部分なのでが、色々検証しておりますがどの変が悪いのかなかなか
検討がつかず困っております。
お手数ではございますがご教授お願い致します。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。