tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルMSFlexGridにテキスト名簿を読み込んだ際に同時に番号をつけたいんです。
記事No11517
投稿日: 2008/02/22(Fri) 17:03
投稿者tea
VB6.0 WinXP Pro

メモ帳などで事前に名簿(最小5名、最大18名)を用意しておいて、それを読み込ん
でMSFlexGridの3列目に順に表示させているんですが、名簿を読み込む際にMSFlexGrid
の2列目に先頭の番号を4から順に21までの番号を人数分だけ自動(一緒に)で表示
させたいんです。21未満の場合は番号欄は空白のままです。

以下の箇所のどこかに新たな記述を行えばいいんじゃないかとは思うんですが、わから
ないんです・・・。
どうか、よろしくお願いします。

Option Explicit

'ユーザー定義型変数を宣言
Private Type UPlayer
    Parent As Team
    IsDirty As Boolean

    UniformNumber As Long
    Name As String
    IsCaptain As Boolean
    IsStartingMember As Boolean
    IsPlayIn As Boolean
    GetTimeout As Boolean
    
    'トピックの最小から最大まで'
    TopicCount(bbTopicTypeCountMin To bbTopicTypeCountMax) As Long
    'ファウルの最小から最大まで'
    FoulType(bbPlayerFoulMin To bbPlayerFoulMax) As String
    ThrowOutFoulCount As Long
End Type

'mpに代入
Private mp As UPlayer

'選手背番号欄に番号を入れる。または空白にする。
Public Property Get UniformNumberString() As String

    'もし、MSFlexGridのセルに氏名が登録されている場合
    If IsRegisted Then
        'mp.UniformNumberを代入
        UniformNumberString = CStr(mp.UniformNumber)
    'MSFlexGridのセルに氏名が登録されていないセルがある場合
    Else
        '選手背番号欄(MSFlexGridの2列目)は空白のまま
        UniformNumberString = ""
    End If
End Property

[ツリー表示へ]
タイトルRe: MSFlexGridにテキスト名簿を読み込んだ際に同時に番号をつけたいんです。
記事No11519
投稿日: 2008/02/23(Sat) 00:28
投稿者花ちゃん
> メモ帳などで事前に名簿(最小5名、最大18名)を用意しておいて、それを読み込ん
> でMSFlexGridの3列目に順に表示させているんですが、名簿を読み込む際にMSFlexGrid

どこでどのようにして読み込んでいるのですか?

> 以下の箇所のどこかに新たな記述を行えばいいんじゃないかとは思うんですが、わから
> ないんです・・・。
普通は、読み込み表示設定しているところでするのではないでしょうか?

このプログラムは、ご自分で作ったのではないのですか? 
ご自分で作ったものならどこで何をしているか、解るはずでは。
ご自分で作ったのではないのなら、作られた方に聞いた方がいいいのでは。

[ツリー表示へ]
タイトルRe^2: MSFlexGridにテキスト名簿を読み込んだ際に同時に番号をつけたいんです。
記事No11520
投稿日: 2008/02/23(Sat) 10:28
投稿者tea
花ちゃんさん、回答ありがとうございます。
実は最初は自分でコツコツ作っていたんですが、ある方が大幅に作り直してくれたん
です。その後音信不通となり、自分でコードが読めなくなってしまって・・・。
よくコードを見直して、それから再度質問させていただきます。

> どこでどのようにして読み込んでいるのですか?
>
> > 以下の箇所のどこかに新たな記述を行えばいいんじゃないかとは思うんですが、わから
> > ないんです・・・。
> 普通は、読み込み表示設定しているところでするのではないでしょうか?
>
> このプログラムは、ご自分で作ったのではないのですか? 
> ご自分で作ったものならどこで何をしているか、解るはずでは。
> ご自分で作ったのではないのなら、作られた方に聞いた方がいいいのでは。

[ツリー表示へ]