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を入れて画像がセルにきれいに表示できました。


※返信する前に利用規約をご確認ください。

※Google reCAPTCHA認証からCloudflare Turnstile認証へ変更しました。






  このエントリーをはてなブックマークに追加