利用Combobox來選擇字型

Note:.net framework 2.0 , Windows Form
一般在使用Word之類的文書編輯軟體時在選擇字體的時候，可以在Combobox裡面看到字體的樣式，那在程式裡面怎麼做呢？下面我們來看看完成圖以及程式碼

不過這程式還有些問題，有些字型沒有辦法描繪，還沒有去找問題，先用try..catch去避開，參考看看嚕
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.DrawMode = DrawMode.OwnerDrawVariable
        Dim oneFontFamily As FontFamily
        For Each oneFontFamily In FontFamily.Families
            ComboBox1.Items.Add(oneFontFamily.Name)
        Next
    End Sub

    Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
        Dim g As Graphics = e.Graphics
        Try
            g.DrawString(ComboBox1.Items.Item(e.Index), _
                     New Font(ComboBox1.Items.Item(e.Index).ToString, 10), _
                     Brushes.Black, e.Bounds.X, e.Bounds.Y)
        Catch ex As Exception
           
        End Try
    End Sub
相關參考

留言

張貼留言

這個網誌中的熱門文章

開啟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
閱讀完整內容