基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：78630559

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

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