none
急~~~用vb6來做圖片合併該怎麼做? RRS feed

  • 問題

  • 用兩張136x104的圖上下合併成一張寬136x高208的圖該怎麼做?
    圖不要用paintpicture的做法,而是把一個個pixel讀進去的方法~~
    該怎麼寫呢??靜待大家的回應~謝謝~
    2009年12月6日 下午 04:46

解答

  • Dim i As Integer, j As Integer
    
    For i = 0 To 135
    
        For j = 0 To 103
            Me.Picture3.PSet (i, j), Me.Picture1.Point(i, j)
            Me.Picture3.PSet (i, 104 + j), Me.Picture2.Point(i, j)
        Next
    
    Next

    使用PaintPicture,效能會好很多...
    2009年12月7日 上午 01:03

所有回覆

  • Dim i As Integer, j As Integer
    
    For i = 0 To 135
    
        For j = 0 To 103
            Me.Picture3.PSet (i, j), Me.Picture1.Point(i, j)
            Me.Picture3.PSet (i, 104 + j), Me.Picture2.Point(i, j)
        Next
    
    Next

    使用PaintPicture,效能會好很多...
    2009年12月7日 上午 01:03
  • 謝謝…效果還好!!不過我會再修改看看…如果我有問題我會再請教您的~非常感謝
    2009年12月7日 下午 04:42