(32)下列程序的功能是调用字体对话框来设置文本框中的字体,单击Command1按钮弹出对话框,进行相应的字体,字号等的设置,然后单击“确定”按钮退出对话框,则将发生哪些变化。
Private Sub Commandl_Click()
CommandDialog1.CancelError=True
CommandDialog1.Flags=3
On Error Resume Next
CommandDialog1.ShowFout
Txet1.Font.Name=CommandDialog1.FontName
Txet1.Font.Size=CommandDialog1.FontSize
Txet1.Font.Bold=CommandDialog1.FontBold
Txet1.Font.Italic=CommandDialog1.FontItalic
Txet1.Font.Underline=CommandDialog1.FontUnderline
Txet1.FontStrikethru=CommandDialog1.FontStrikethru
Txet1.FontColor=CommandDialog1.FontColor
End Sub
订单号:
遇到问题请联系在线客服
订单号:
遇到问题请联系在线客服