110,548
社区成员
发帖
与我相关
我的任务
分享
Imports System.Drawing
Module Module1
Sub Main()
Dim img As New List(Of Image)
img.Add(Image.FromFile("D:\Old\_old\D\5265847638_525279bf46[1].jpg"))
img.Add(Image.FromFile("D:\Old\_old\D\5265847638_525279bf46[1].jpg"))
img.Add(Image.FromFile("D:\Old\_old\D\5265847638_525279bf46[1].jpg"))
Dim w = img(0).Width
Dim h = img(0).Height
Dim i As New Bitmap(w, h * img.Count)
Dim g As Graphics = Graphics.FromImage(i)
For k = 0 To img.Count - 1
g.DrawImage(img(k), 0, k * h, w, h)
Next
i.Save("D:\Old\_old\D\a.jpg", Imaging.ImageFormat.Jpeg)
g.Dispose()
End Sub
End Module