16,555
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim MyPicture As New Bitmap(Application.StartupPath & "\ch4.png", True)
Dim pThumbnail As Image = MyPicture.GetThumbnailImage(100, 100, Nothing, New IntPtr())
e.Graphics.DrawImage(pThumbnail, 10, 10, pThumbnail.Width, pThumbnail.Height)
End Sub