base64编码 vba_vb图片转base64编码

【实例简介】

【实例截图】

【核心代码】

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