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

[chung1206]

版大，您那個方法對我來說可能太深奧了點，我試不出來，想請教一下，我可不可以在picturebox裡拉八個image排列好，然後下

for i=0 to 7
image1.picture=loadpicture(commonDialog1.FileName)
next i

但它好像還是只載入一張而已，不知道那裡出了問題？謝謝。

[mini]

作者: chung1206

版大，您那個方法對我來說可能太深奧了點，我試不出來，想請教一下，我可不可以在picturebox裡拉八個image排列好，然後下

for i=0 to 7
image1.picture=loadpicture(commonDialog1.FileName)
next i

但它好像還是只載入一張而已，不知道那裡出了問題？謝謝。

你的圖都是載到同一個image1.picture裡
當然結果就是如此
如果你的 image 0~7是用 陣列方式生成
那可改成

for i=0 to 7
    image(i).picture=loadpicture(commonDialog1.FileName)
next i

作者: chung1206

剛才使用了Image實現了我想要的動作，但現在問題來了，我做了八個Image分別命名為Image1(0)~Image(7)，但不知道該怎麼將這八格內的圖通通存在一個jpg檔內？謝謝。

所以才推薦使用API的方法
因為你用八個Image卻要拼成一張圖
雖然不是不可能
但個人不會 ...

如果一開始是印在一個pictureBox上
那存檔就很容易了

其實不會很難只要你拿一張紙
在上面大改畫出你要的版面
就可以很容易搞清楚座標的方程式了
因為你也沒有詳細講出你的專案條件 (比如 載入的圖是固定8張嗎？)
所以才只能點到為止

個人寫程式比較懶 (以前學校教：是要你畫流程圖，軟體寫好玩的畢業後誰管你這麼多...)
都是用腦子迴響式邏輯，想到什麼就加什麼
所以時常碰到死胡同
此時只要拿一張紙畫一畫通常就可走出胡同
(雖然畫出的結果不一定是對的)
所以你可以試試

[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]

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

[chung1206]

作者: mini

你的圖都是載到同一個image1.picture裡
當然結果就是如此
如果你的 image 0~7是用 陣列方式生成
那可改成

for i=0 to 7
    image(i).picture=loadpicture(commonDialog1.FileName)
next i

所以才推薦使用API的方法
因為你用八個Image卻要拼成一張圖
雖然不是不可能
但個人不會 ...

如果一開始是印在一個pictureBox上
那存檔就很容易了

其實不會很難只要你拿一張紙
在上面大改畫出你要的版面
就可以很容易搞清楚座標的方程式了
因為你也沒有詳細講出你的專案條件 (比如 載入的圖是固定8張嗎？)
所以才只能點到為止

個人寫程式比較懶 (以前學校教：是要你畫流程圖，軟體寫好玩的畢業後誰管你這麼多...)
都是用腦子迴響式邏輯，想到什麼就加什麼
所以時常碰到死胡同
此時只要拿一張紙畫一畫通常就可走出胡同
(雖然畫出的結果不一定是對的)
所以你可以試試

感謝大大，我的功能需求很簡單，我載入的圖片只有一張大約2吋照
片這麼大，載入一張後我想自動排列成您下面做好的八張的樣式，然
後可以存檔，就如此而已，謝謝。