昨天沒有時間把給 Kivi 的代碼發上來，今天補上，僅僅是提供給一些 VB 的初學者和 Kivi 同學，如果需要大家可以下載下來看看，VB6 是個很老的工具了，不過現在本科的理科同學學還是有需要的
這是一個非常簡單的 VB Form 應用要求分別使用 windows 的系統自帶字體對話框和自己製作一個字體對話框實現對一個文本區域的文本的字體的修改，要求自己製作的能夠實現 Windows 自帶的字體對話框的功能。
字體對話框大家應該用過，可以實現對某個 VB 控件顯示的字體的字體名、字號、加粗
傾斜等顯示效果的修改，通常大家使用的比較多，所以界面我就不截圖了，為了方便
kivi 學習所以源代碼的註釋比較詳細，如果大家看過了還有不懂的話，可以直接留言
我一般晚間會給大家回復
源代碼下載地址：
http://www.lidaren.com/code/DemoFontDialog.zip
特殊代碼說明：
Private Sub btn_comm_Click()
cmdDlg.Flags = 1 ' 設置 Flags 標誌表示 ****
cmdDlg.ShowFont ' 顯示系統字體對話框
txtBox.Font.Name = cmdDlg.fontName ' 字體名稱
txtBox.Font.Bold = cmdDlg.FontBold ' 加粗？
txtBox.Font.Size = cmdDlg.FontSize ' 字體大小
txtBox.Font.Italic = cmdDlg.FontItalic ' 傾斜？
txtBox.Font.Underline = cmdDlg.FontUnderline ' 下劃線？
txtBox.Font.Strikethrough = cmdDlg.FontStrikethru ' 刪除線
End Sub
這裡我加了 * 的這一行，在顯示 VB 字體對話框之前一定要設置 flags 的參數，否則會出現
系統找不到字體的錯誤。
Flags 屬性可以是下面的 Visual
Basic 常數
cdlCFScreenFonts（屏幕字體）
cdlCFPrinterFonts（打印機字體）
cdlCFBoth（既可以是屏幕字體又可以是打印機字體）
另外很郁悶的是 VB 當中沒有定義 Font 這個對象，大家可以使用 Object，這裡我
用的是直接賦值，方便 VB 初學者，Kivi included！
具體大家可以參閱：http://www.bianceng.cn/Programming/vb/200705/557.htm