摘要:如何將Base64字串資料轉回圖形
這也是一個MemoryStream的應用之一,不囉嗦,我們直接來瞧瞧程式碼吧~
- Dim Str As String
- Str = _
- "iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8" & _
- "YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEwAA" & _
- "CxMBAJqcGAAAA3VJREFUOE+lU/9P1HUYf+7gjvt87vP17jzsiOsqw7DpKbO7GczU2SGrucpSWc5go8Gw" & _
- "kmE7aGUM5YfAyqhNiRBcWsrS4Dg1mBbZBAszqwV6kJeYfcOYcR73Acbx6s1Rf0HP9tp7772f5/W897xe" & _
- "jw4A/a/gnT4SHMuJVI9uxeO1NXZnVobAm0hRVFJUBtt8Um12MvEcLcx5/umlvqqdKSkGUq1y4p1451oi" & _
- "aTH5Cg42a9NA8PNQWLJnLhB4YyJBtVnJYFlE9qyXci9ejkM /gosWFFWaeL0pKoKUbIjN8W7sbnh91tA" & _
- "nBHMxvvHBgY5NcMlSSKZJZksDxSt+aRnKnrjJhD6ZRptPdNwel4oF0RBR3Jm4dbWc8CVGwzXgYHhGQz9" & _
- "Aezcd6k/2bbczi+p8u5r/+vv736eQaBXw0fdMQT7gIqmWzBZM7NJEHjb6k01n7Z0A8d7ptB+fgKBrzSc" & _
- "/gEoeWNgsKJpZLTzUhxNXRpqjsawo2UaRe9EkPHgxlZRMFlIkSUyGpPlrCfqzviPALs/nsSeNg31HRr2" & _
- "d8XxZnAKJe+NY+WrEaSXaBC3jCHJ9dRxM6cTEzNQFCVBwnEGiytv71lPVRzZVRNYtUuD5xUNrhdjMG2N" & _
- "gvJjMGwegfG+zQHJrJNVC6tLEMxKNSuZyBFnJFHN+7BvXtkM+OcmIRRPQiyeSuCeijhUd0GraCAu0ZQV" & _
- "zxGkppFitZPsuJ9s3tJcT/XNP927gWUM2bVzWLoL8LLTs+PrC0r6MpcscHM/Z2AEDhIFnuavb/Q9XI/x" & _
- "RxuAZ1qAynag7gxQexrwtwH5zcD6A8BD1deuyne675XMzCezBPIdTkr1Fq7a0Bi9XXoMeDkINPYCXSGg" & _
- "40eg8zJwimE/k9ofAEoZ2brXh0KyY9FdsmAiSluzPacsiGjdWeBthiPfAn3MEz3XZ+D2FRzKzd/e8f0I" & _
- "u18DDn0DvPUFsIeRPdsQDqlpGU5S0hfn+A9fiZy6ymzcD1z8DegfBVZu2HY0SUcper2O37StujN8GzjP" & _
- "jBZgOSfDQPG750ZFq2MJiczzsmPhI/Unh8aGNeCnMSBvS3mbXkfifxLrk5KUwsq9nw3HgPA48NrBL0dM" & _
- "knW1xIaZkNBsSqZ5d7sf+6B7IPJkkf8E68pq2bb9O2mF7YTOYLSW1x3ubTxxIcKrqT7RPLex/wChysEH" & _
- "uzPdJAAAAABJRU5ErkJggg=="
- Dim B() As Byte
- B = Convert.FromBase64String(Str)
- Dim MS As IO.MemoryStream
- MS = New IO.MemoryStream(B)
- PictureBox1.Image = Image.FromStream(MS)