none
連續出現的圖片 RRS feed

  • 問題

  • 產生一張1216 *576圖,需分割成32張圖片;32張裡的每一張為200*200;而200*200裡頭的160*160為分割出來的顯示圖片;而(200*200)-(160*160)此剩餘部份皆留白,用VB6該怎麼做呢?麻煩了~謝謝~
    2010年3月23日 下午 04:28

解答

所有回覆

  • 你走錯地方了, 這個應該去外包網標個價碼看有沒有人要幫你寫才對.
    2010年3月23日 下午 04:56
  • HI,

    您可以參考以下的做法並加以修改:

    VB6 Split one picture into multiple picture boxes.

    • 已標示為解答 Lolota Lee 2010年3月30日 上午 05:50
    2010年3月24日 上午 04:09
  •     Dim i As Integer, j As Integer
        Dim f_name As String
        
        f_name = "d:\1.jpg"
        Me.Picture1.Picture = LoadPicture(f_name) 
        Picture2.Width = (200 + 4) * 15
        Picture2.Height = (200 + 4) * 15
        Picture2.AutoRedraw = True
        
        For i = 0 To 7
            For j = 0 To 3
                Picture2.Cls
                Picture2.PaintPicture Picture1.Picture, 0, 0, 160 * 15, 160 * 15, i * 160 * 15, j * 160 * 15, 160 * 15, 160 * 15, vbSrcCopy
                SavePicture Me.Picture2.Image, "d:\" & CStr(i) & CStr(j) & ".bmp"
                DoEvents
            Next
        Next

    在論壇發問並貼上程式,不懂再回覆,這樣能夠獲得比較多的幫助...
    2010年3月31日 上午 02:20
  • 謝謝你!我先試試看~~

    2010年4月1日 上午 07:02