【实例简介】
【实例截图】
【核心代码】
Option Explicit
Private Sub Form_Load()
Dim arrData() As Byte
Dim objBase64 As BASE64
Dim strText As String
Dim strOutFile As String
Open App.Path & "\65136.txt" For Binary As #1
strText = Input$(LOF(1), 1)
Close
Set objBase64 = New BASE64
If (objBase64.Decoding(arrData, strText)) Then
strOutFile = App.Path & "\OutPic.bmp"
Open strOutFile For Binary As #1
Put #1, 1, arrData
Close
Set picDisp = LoadPicture(strOutFile)
End If
Set objBase64 = Nothing
End Sub
Private Sub Form_Resize()
picDisp.Width = ScaleWidth
picDisp.Height = ScaleHeight
End Sub