VB利用GDI+技术显示PNG等格式图形又一方法,通过GDI+创建DC图形场景,然后将图形转入到StdPicture,再从StdPicture中将图形显示到Form窗口,为什么要将图形转入StdPicture呢,不能直接在窗口上显示吗?可以,但本程序是为了能很好地将图形写入数组变量,从而更方便调用图形于其他用途才这么做的,这正是本方法的重点之处。部分代码如下:
Option Explicit
Dim RX1 As Long, RY1 As Long, RX2 As Long, RY2 As Long
Dim ReturnWidth As Long, ReturnHeight As Long
Private Sub Form_Load()
Me.Caption = “显示PNG图片”
Me.AutoRedraw = True
Me.ScaleMode = 3
End Sub
Private Sub Form_Resize()
Me.Cls
Call Image_Scaling(Loadpicture(App.Path & “\1.png”))
End Sub
'图片自动缩略适应Form窗口
Private Sub Image_Scaling(Pic As StdPicture)
If Pic.Width = 0 Then Exit Sub
If (Pic.Width > Me.ScaleWidth Or Pic.Height > Me.ScaleHeight) Then
If Pic.Width / Pic.Height >= Me.ScaleWidth / Me.ScaleHeight Then
ReturnWidth = Me.ScaleWidth - 1
ReturnHeight = Me.ScaleWidth / Pic.Width * Pic.Height
Else
ReturnWidth = Me.ScaleHeight / Pic.Height * Pic.Width
ReturnHeight = Me.ScaleHeight - 1
End If
Else
ReturnWidth = Pic.Width
ReturnHeight = Pic.Height
End If
RX1 = (Me.ScaleWidth - ReturnWidth) / 2 'X
RY1 = (Me.ScaleHeight - ReturnHeight) / 2 'Y
RX2 = RX1 + ReturnWidth
RY2 = RY1 + ReturnHeight
Me.PaintPicture Pic, RX1, RY1, ReturnWidth, ReturnHeight
'Me.Line (RX1, RY1)-(RX2, RY2), RGB(255, 0, 0), B
End Sub
工程包下载地址:https://download.csdn.net/download/ty5858/85032280