タイトル : 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 |