MSFlexGrid セルに表示するイメージを縮小するには？

解決

soon 2004-12-01 02:11:50 No: 117911

vbの初心者です。
MSFlexGrid セルにイメージを表示したいです。
Set MSFlexGrid1.CellPictureでセルの中に入れたんですけど大きすぎです。
セルのサイズに合わせて縮小して表示したいですけど、できるんでしょうか？
ちなみにVB6.0を使ってます。

GG 2004-12-01 06:14:08 No: 117912

ピクチャーボックスに縮小して描画したものをセットしてやるとか。

soon 2004-12-01 20:45:25 No: 117913

ピクチャーボックスの代わりにイメージを入れてみました。
If .ColIsVisible(CHECK_COL + 1) Then

If (.RowIsVisible(i) = False) Then Exit For

               If j > Image1.UBound Then
        Load Image1(j)
               End If

  Image1(j).Picture = LoadPicture(D_GazoFile(i))

  .Row = i
               .Col = 3
               Image1(j).Height = .CellHeight
               Image1(j).Width = .CellWidth

Set .CellPicture = Image1(j).Picture

Image1(j).Visible = False
j = j + 1

End If
End If

Stretchの属性もtrueにしたんですけど、やはり縮小できないんです。
また、イメージをpictureboxにpaintpictureメソッドを使って縮小した後に
Set .CellPicture = Picture1(j).Picture したんですけど、今度は画像がまったく見えなくなりました。かなり苦悩してます。

nanashi 2004-12-01 23:23:00 No: 117914

> ピクチャーボックスの代わりにイメージを入れてみました。

PictureBoxじゃないと無理です。

> また、イメージをpictureboxにpaintpictureメソッドを使って縮小した後に
> Set .CellPicture = Picture1(j).Picture したんですけど、
> 今度は画像がまったく見えなくなりました。かなり苦悩してます。

Set .CellPicture = Picture1(j).Image

にして下さい。

soon 2004-12-02 02:22:38 No: 117915

nanashiさん、どうもありがとうございます。
おかげさまで解決できました。Picture1(j).Imageを入れて画像がセルにきれいに表示できました。