昨日は Kivi にコードを提供する時間がなかったので、今日補完します。これは初心者のためにいくつかの VB と Kivi のために提供するもので、必要な場合はダウンロードして確認してください。VB6 は非常に古いツールですが、現在の理系の学生にはまだ必要です。
これは非常にシンプルな VB フォームアプリケーションで、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 を使用することができます。ここでは直接代入を使用していますが、初心者のために便利です。Kivi も含まれています！
詳細については、次を参照してください：http://www.bianceng.cn/Programming/vb/200705/557.htm