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

タイトル オブジェクト変数またはWithブロック変数が宣言されていません。
投稿日: 2008/04/06(Sun) 17:21
投稿者tea
フォーム(frmMain)からユーザーコントロール(PlayersGrid)内のMSFlexGridを
操作するためのコードなのですが、ユーザーコントロール内にある以下のコー
ドをフォーム(frmMain)内でも記述しました。
また、以下のDim MSFlexGrid As MSFlexGridは後から追加したもので、これが
ないとMSFlexGridの変数を宣言するようエラーが出たので追加しました。

フォーム(frmMain)内の以下の箇所でCALLして呼び出したいのですが、「オブジ
ェクト変数またはWithブロック変数が宣言されていません。」というエラーが出
ます。

Googleで「オブジェクト変数」で検索して調べてみたんですが、どうにもオブジ
ェクトとインスタンスがはっきりとはわからないんです。

基本的なことかもしれませんが教えてください。
よろしくお願いします。

Private Function FFoulPlayerOnJournal(CIndex)
Dim i As Integer
Dim MSFlexGrid As MSFlexGrid
Dim oRT As PlayersGridRedrawTrans
Dim PlayersGrid As PlayersGrid
    
    Set oRT = CreateRedrawTrans()
    
    CIndex = CIndex - 1
        
    With Game.Team(ab).Player(CIndex)
        If .FoulCount < bbPlayerFoulMax Then
            .Foul ("F")
            Call PlayersGrid.setFFoulResultColor(Enabled)
        End If
    End With
    
End Function

Private Function CreateRedrawTrans() As PlayersGridRedrawTrans
Dim MSFlexGrid As MSFlexGrid

    Set CreateRedrawTrans = Nothing

    If MSFlexGrid.Redraw = False Then Exit Function←ココでエラーとなります。
    
    Set CreateRedrawTrans = New PlayersGridRedrawTrans

    CreateRedrawTrans.StopRedraw MSFlexGrid
End Function

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

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