疑問 - VB6.0載入圖檔自動排列

[mini]

以下是隨手做的 (右邊的SPictureBox本來是隱藏的，為了展示所以Visible設為 True)


(由圖可看出 StretchBlt 的縮放效果不佳...^^")

Private Sub Command1_Click()
Dim x As Long
Dim y As Long
Dim w As Long
Dim h As Long
Dim i As Integer
Dim D As Single '縮放值

    D = 1 / 2 '縮小成二分之一
    
   TPictureBox.AutoRedraw = True '宣告TPictureBox "圖的方法" 是存在於 記憶體的影像 內
    For i = 0 To 7
        SPictureBox.Picture = LoadPicture("r:\" & i & ".jpg")

        w = SPictureBox.ScaleWidth * D
        h = SPictureBox.ScaleHeight * D
        
        StretchBlt TPictureBox.hDC, x, y, w, h, SPictureBox.hDC, 0, 0, SPictureBox.ScaleWidth, SPictureBox.ScaleHeight, SRCCOPY
        
        x = x + SPictureBox.ScaleWidth * D '下一張的 X座標是接在前一張的最右邊緣

             '*當滿足第一排排滿四張後...
        If i = 3 Then
            y = y + SPictureBox.ScaleHeight * D '第二排的圖 Y座標固定是...
            x = 0 'X重新歸零
              End If
    Next i
    TPictureBox.Refresh '將TPictureBox刷新一次，使 記憶體的影像(陣列圖) 正確顯示於上
    
End Sub

[vbstudents1]

順便問一下mini大大要如何知道每一行已經有四張圖片而自動換行?

[mini]

作者: vbstudents1

順便問一下mini大大要如何知道每一行已經有四張圖片而自動換行?

If i = 3 Then
編號 0~7 那 編號3 就是 第四張圖

其實如果考量每張圖可能 長寬size不同的話
程式碼還有很大的改良空間

[vbstudents1]

對ㄚ大大如果圖片尺寸不同就很麻煩了~~~呵呵~~