投稿日 | : 2005/12/20(Tue) 11:24 |
投稿者 | : hasimoto |
Eメール | : |
URL | : |
タイトル | : Re^6: MSFlexGridで設定した画像について |
不手際があり申し訳有りませんでした。
環境win98se,VB6
自分のコードは複雑なので同じ現象が生じるシンプルなコードを作成しました。
コピーペーストで実行できます。
-------------------------------------------------
Private Sub Command1_Click()
Dim e As String
Dim lngCountI As Long
Dim intFileNo As Integer 'ファイルNo
Form1.MSFlexGrid1.Rows = 1
With Form1.MSFlexGrid1
intFileNo = FreeFile
Open App.Path & "\test.dat" For Input As #intFileNo
lngCountI = 1
Do Until EOF(intFileNo)
Input #intFileNo, 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
End With
End Sub
-------------------------------------------------
Private Sub Form_Click()
With MSFlexGrid1
.RowHeight(2) = 1 '6 以下なら見えない
End With
End Sub
-------------------------------------------------
そしてカレントフォルダにtest.datを作成して中身を以下のようにします。
"225"
"225"
"225"
"225"
"225"
"0"
"225"
"225"
"225"
"225"
"0"
"0"
"0"
-------------------------------------------------
すると画像を読み込んだ時0の位置で、そしてフォームをクリックした時にも
同様の現象が起きます。