VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2005/12/19(Mon) 23:49
投稿者hasimoto
Eメール
URL
タイトルRe^4: MSFlexGridで設定した画像について

> セルをマージしていませんか?

マージ機能は使用したことは有りませんが、プロパティウィンドウで0になっていることを確認
しました。

ところで、フォームをロードした時にセルに画像を設定した時は上手くいくのですが、実は
CSVファイルから読み込めるようにもしていますが、それがまずいんじゃないでしょうか?

以下コード(少し簡略化していますが同様の現象が起きます。)
Form1.MSFlexGrid1.Rows = 1

With Form1.MSFlexGrid1
'   .Visible = False

intFileNo = FreeFile
Open App.Path & "\Data\10.dat" For Input As #intFileNo

lngCountI = 1
Do Until EOF(intFileNo)

Input #intFileNo, a, b, c, d, e
Form1.MSFlexGrid1.AddItem ""
.Row = lngCountI
    .Col = 1: .CellPictureAlignment = flexAlignCenterCenter
            Set .CellPicture = LoadPicture(App.Path & "\test.bmp")
    .RowHeight(lngCountI) = e
lngCountI = lngCountI + 1
Loop
Close #intFileNo

' .Visible = True
End With

eにはセルの高さが格納されています。それでこのようにすると、eが0にしている
時はやはり途中で画像が食い込みます。またeを全て225(255ではなく225の間違いでした)
の時は、とりあえず全て表示されますが、非表示にするとやはり画像が半分残った
形で上のセルに食い込みます。csvファイルから読み込んで画像を設定するとこのような
現象が起きます。スクロールや、ウィンドウの切替え等で、表示が戻ればいいのですが
完全に不自然な形で残っているみたいです。読み込み方に問題は無いような気がするのですが
、一体どうしたらいいんだろう。
お気づきの点がありましたら宜しくお願いします。


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

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -