[ツリー表示へ] [ワード検索] [Home]
タイトル ： MSFlexGridにテキスト名簿を読み込んだ際に同時に番号をつけたいんです。 投稿日 ： 2008/02/22(Fri) 17:03 投稿者 ： tea
| VB6.0 WinXP Pro メモ帳などで事前に名簿（最小５名、最大１８名）を用意しておいて、それを読み込ん でMSFlexGridの３列目に順に表示させているんですが、名簿を読み込む際にMSFlexGrid の２列目に先頭の番号を４から順に２１までの番号を人数分だけ自動（一緒に）で表示 させたいんです。２１未満の場合は番号欄は空白のままです。 以下の箇所のどこかに新たな記述を行えばいいんじゃないかとは思うんですが、わから ないんです・・・。 どうか、よろしくお願いします。 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の２列目）は空白のまま UniformNumberString = "" End If End Property |
をクリックするとツリー全体を一括表示します） - MSFlexGridにテキスト名簿を読み込んだ際に同時に番号をつけたい.. - tea 08/02/22-17:03No.11517