投稿日	： 2004/03/31(Wed) 11:48
投稿者	： おじん
ＵＲＬ	：
タイトル	： GDIリソースが減っていく、、、

小さな（３２ピクセル）画像イメージを多く（１０９個）使って表示している
のですが、テスト実行を３回行うと「リソースが不足〜」のコメントがでます。
パソコンを再起動すれば復帰しますが、何か気分がよくありません。
画像が関連するソース部分例は次のとおりです。よくないところ、または回避
方法を教えてください。
Win98　VB6(SP6)　memory 128M

画像を読みこむ　画像名例は、　1A.gif, 2B.gif, 3C.gif,,,,,
                       gTbl(n).sign に　A,B,C,,などがセットしてある
    Dim n%
    For n = 0 To 108
        gifName = App.Path & "\" & CStr(n + 1) & gTbl(n).sign & ".gif"
        If n > 0 Then
            Load Picture2(n): Picture2(n).Visible = True
        End If
        Set Picture2(n).Picture = LoadPicture(gifName)
    Next n

読み込んだ画像を表示する    gTbl(n).X gTbl(n).Y に表示する座標位置が
　　　　　　　　　　　　　　セットされている
    Dim n, w&, h&, c&
    
    w = Picture2(0).Width / Screen.TwipsPerPixelX
    h = Picture2(0).Height / 15
    c = GetPixel(Picture2(0).hdc, 0, 0)
    For n = 0 To 108
        TransparentBlt Picture1.hdc, gTbl(n).X, gTbl(n).Y, w, h, _
            Picture2(n).hdc, 0, 0, w, h, c
    Next n
    Picture1.Refresh

まだテストはしていませんが、設計時点でPicture2(n)のPicutreに画像を
セットしても「リソース不足〜」は起こるのでしょうか？

よろしくお願いいたします。

★ - GDIリソースが減っていく、、、 - おじん 03/31-11:48No.8550
• Re: GDIリソースが減っていく、、、 - 魔界の仮面弁士 03/31-14:18 No.8553
  • Re^2: GDIリソースが減っていく、、、 - おじん 03/31-14:28 No.8554
  • Re^2: 回避はできたが、、、 - おじん 03/31-16:05 No.8556
    • Re^3: 解決しました - おじん 04/02-14:21 No.8576