tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re^5: Image動的に配置
投稿日： 2010/04/02(Fri) 21:30
投稿者： 魔界の仮面弁士
> 私が勘違いかもしれないですが、
勘違いとは、何に対してでしょうか?


> Vixの場合、或いはPMBの場合、
> 一覧図の表示どうなっているのでしょうか。
流石に、細かい実装については作った人でないと分かりませんので、
実際の動作や使用しているライブラリなどから、御自身で判断してみてください。

なお ViX では、高速化のために読み込んだ画像情報を .VIX ファイルとして
キャッシュしているようですね。


とりあえず、手抜き実装の縮小表示サンプルを挙げておきます。
処理速度等は無視して、VB6 の標準機能のみで実装しています。

Option Explicit

'画像のあるフォルダ
Private Const folder As String = "C:\Sample\Pictures\"

'表示する画像の数
Private Const ColumnCount As Long = 4
Private Const RowCount As Long = 4

Private Sub Form_Resize()
    Refresh
End Sub

Private Sub Form_Paint()
    ScaleHeight = RowCount
    ScaleWidth = ColumnCount
    Dim s As String
    s = Dir(folder & "*.jpg")
    If s = "" Then
        Print "画像がありません。"
        Exit Sub
    End If
    Dim x As Long, y As Long
    For y = 0 To RowCount - 1
        For x = 0 To ColumnCount - 1
            If s = "" Then
                Exit Sub
            End If
            Dim p As Picture
            Set p = LoadPicture(folder & s)
            PaintPicture p, x, y, 1, 1
            CurrentX = x
            CurrentY = y
            Print s
            s = Dir()
        Next
    Next
End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。