Private Sub Command1_Click () '将 Cancel 设置成 True。
CommonDialog1.CancelError = True
On Error GoTo ErrHandler '设置 Flags 属性。
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects '显示“字体”对话框。
CommonDialog1.ShowFont '根据用户的选择来设置文本属性。
Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
Text1.Font.Bold = CommonDialog1.FontBold
BoldText1.Font.Italic = CommonDialog1.FontItalic
Text1.Font.Underline = CommonDialog1.FontUnderline
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.ForeColor = CommonDialog1.Color
Exit Sub
ErrHandler:
'用户按了“取消”按钮。
Exit Sub
End Sub
本回答被提问者采纳
能不能给编一个示范一下啊
VB中怎样单击按钮出现一个图片
用vb编写一个点击按钮随机出现一张图片的软件，例如：窗体上一个picture1和command1的控件。1、有四张图片，他们的后缀名不相同，用户可以问这样写：Dim a$(3)Private Sub Form_Load()Randomize a(0) = "D:\\xuexi.gif"a(1) = "D:\\002.jpg"a(2) = "D:\\房子.png"a(3) = "D:\\4.jp...
设计一个程序当单击窗体时,在窗体上显示任意一幅图片
文后是一个完成上述随机动画的完整演示程序，需要在From1窗体中安放一个图形框Picture1及三个命令按钮Command1－3,然后把下面的代码填入相应的事件处。运行此程序之后,按下按钮1，则在图形框中进行随机文字显示。按下按钮2，则在图形框中随机显示三角锥体。按下按钮3，则退出程序。此程序在Windows95系统...
vb中怎么编写 单击命令按钮,则窗体显示文本框内的内容?
1、首先，双击窗体空白处进入代码窗口。2、然后我们在事件中找到Click事件。3、这个时候开始编写代码测试【Print "我是Click单击属性！"】。4、然我们开始运行测试。5、启动后，我们在窗体空白处单击。6、这个时候我们将可以看到测试的效果。
VB怎么实现预先存好20张图,然后点击command随机跳出其中一张图_百度知...
假设这20张图片的文件名分别为PIC1.JPG~PIC20.JPG，且保存在VB程序的同一文件夹中。在窗体中做一个命令按钮，以及一个Image对象，复制以下代码就可以了：Private Sub Command1_Click()i = Int(Rnd * 20) + 1 Image1.Stretch = True Image1.Picture = LoadPicture(App.Path & "Pic" & i & ...
请教一个VB6.0的编程问题:当命令按钮按下时,如何使文本框中出现随机数...
你可以在按钮的单击事件中用随机函数 在调用 Rnd 之前，先使用无参数的 Randomize，要不然它并不是真正的随机 eg：求1~20间的随机数 Randomize text1.text=Int(Rnd() * 19) + 1
VB 中命令按钮加图标怎么加啊?文字 图标同时显示的命令按钮那种?
将按钮的Style属性设为1-Graphic，再将它的Picture属性设置成你要的图标。在Caption属性里写文字。
vb中单击窗体显示文字双击窗体清楚文本怎么做
一共七步首先，在窗口中添加一个文本框，如下图所示，然后进入下一步。其次，单击文本框，在属性窗口中设置文本框的属性，清除文本，如下图所示，然后进入下一步。接着，将文本框的enabled属性设置为False，如下图所示，然后进入下一步。然后，在表单上添加一个命令按钮，如下图所示，然后进入下一步。
VB单击按钮显示文字
1.首先，添加一个文本框，如下图所示。2.在属性窗口中设置文本框的复制属性，然后清除文本内容，如下图所示。3.文本框的enabled属性设置为false，如下图所示。4.向表单添加命令按钮，如下图所示。5.在属性窗口中，将命令按钮的标题属性设置为“允许访问”，如下图所示。6.双击命令按钮编辑其代码，如...
vb中单击命令按钮触发哪些事件
1、在vb中单击命令按钮触发单击事件，即窗体的Click事件。2、在vb中单击命令按钮触发失去焦点事件，当焦点不在按钮上即发生。3、在vb中单击命令按钮触发键盘按下事件，任意按下任意的键盘即可触发事件。4、在vb中单击命令按钮触发鼠标按下事件，当鼠标按下即可触发的事件，无论是左键还是右键。5、在vb...
VB怎么实现按一个按钮就把文本筐内的文字复制
command1_click事件中写以下代码：clipboard.settext text1.text 全部代码：Private Sub Command1_Click()Clipboard.SetText Text1.Text End Sub
