不必要自己去一点点做的。vb提供了一个通用对话框控件,可以很方便的做出你要的东西。步骤是:1.选择“工程”>“部件”命令,加载Microsoft Common Dialog Control 6.0部件(如图所示),工具箱上会出现通用对话框图标。2.设置属性。添加到窗体上,右击选择“属性”进行相关设置。3.编写事件过程。
字体对话框需要设置的相关属性代码如下(按默认添加的控件名为:CommonDialog1):
Commondialog1.flags=cdlCFBoth Or cdlCFEffects
Commondialog1.ShowFont
把上面的代码粘贴到你需要打开字体对话框的地方,比如"Private sub Command1_click() .... End sub"中间,这样当你单击Command1命令按钮时,就会弹出字体对话框。不过要想实现进一步的功能,还需添加相应的代码才行。