可以了,谢谢你,顺便还问你个问题,我font按纽是设置获取系统的字体大小,颜色之类,send按纽是将Text1里面的字发送到Picture1中,颜色、大小可以发送,但是就是这个Name不行,帮我看看,提示实时错误'380' '系统字体 Private Sub font_Click() Text1.font.Name = CommonDialog1.FontName End Sub
'Picture1控件上显示的字体 Private Sub send_Click() Picture1.FontName = Text1.FontName End Sub