如何將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)

留言

張貼留言

這個網誌中的熱門文章

開啟cshtml檔案時，出現『並未將物件參考設定為物件執行個體』的錯誤訊息

筆者的開發環境為VS2015企業版加上Win10，身為更新控，每次有任何更新(擴充套件等)，都會立馬進行更新的動作；平常也不常寫ASP.Net MVC相關的東東；今天開啟一個專案，想要凱起view(xxxx.cshtml)來查看時，居然出現『並未將物件參考設定為物件執行個體』的錯誤，所有的view都不能看。一想到如果要重灌VS的話，整個背後就開始冷汗直流.. 幸好，找了一下相關資料，在這一篇的討論中有提到相關的狀況 Visual Studio doesn't open cshtml files #276 筆者先測試的方式是刪除ComponentModelCache這個資料夾，節錄原文如下 『Delete the content of %LocalAppData%\Microsoft\VisualStudio\14.0\ComponentModelCache』 之後重新啟動VS之後，就可以開啟cshtml的檔案了，筆記一下以免日後遇到類似的狀況，有google真好 Orz
閱讀完整內容

無法設定中斷點 尚未載入符號檔

圖片
有時候也不知道怎麼搞得，程式(專案)copy來copy去，突然有天設定中斷點之後開始偵錯....噹噹..尚未載入符號檔，中斷點過站不停...平常又很依賴中斷點來偵錯，這下真的是慌了手腳；當下只能用messagebox.show來一步一步看到底是錯在什麼地方.. 今天靜下心來查了一些資料，測試之後真的有效，原來把專案的組態設成了Release，改成Debug之後就可以正常設定中斷點了；現在那台電腦不在手上改天改回Release之後來測試看看是不是會一樣的狀況；下面有些資料可以參考 沒有符號資訊對話方塊 有一點要特別注意，一般使用VB的開發設定時"方案"中如果只有單一專案的話會看不到要怎麼去設定組態，這時候請依照這篇文章的說明" HOW TO：在套用 Visual Basic 開發者設定的情況下管理組建組態 來設定，設定完之後在專案的屬性裡面就可以看的到了，如下圖 如果方案中有多個專案，那麼在方案的屬性中直接就可以看到設定的地方，如下圖
閱讀完整內容

DataGridView欄位計算總合

在 關於DataGridView的問題 這篇問題中，有網友提到了DataGridView總和的部分要如何去做，chhuang大有回覆了一篇，真是太神了，節錄問題與解決方式如下 問題 我想要計算DetailDataGridView金額的總計 還有就是以蛋糕為例 5*30=150 計算好填回金額內 然後總計的270元 我要寫入另外的textbox內 例如： 商品 數量 單價 金額 -------------------------------------------------- 牛奶 1 20 20 咖啡 2 50 100 蛋糕 5 30 150 總計 270 元 使用VB2005 解答 private void Form1_Load(object sender, EventArgs e) { DataTable dt = new DataTable(); dt.Columns.Add("C1", typeof (string)); dt.Columns.Add("C2", typeof (int)); dt.Columns.Add("C3", typeof (int)); dt.Columns.Add("C4", typeof(int)); dt.Columns["C4"].Expression = "C2 * C3"; dt.Rows.Add("牛奶", 1, 20); dt.Rows.Add("咖啡", 2, 50); dt.Rows.Add("蛋糕", 5, 30); dataGridView1.DataSource = dt; textBox1.Text = dt.Compute("Sum(C4)", null).ToString(); } 相關參考 DataTable.Compute 方法 DataColumn.Expr
閱讀完整內容