VB中点击命令按钮后怎么让窗体里图片和文字随机出现啊
若以下回答无法解决问题,邀请你更新回答
展开全部
2. 用 ShowFont 方法显示对话框。下列代码根据用户在“字体”对话框中的选择来设置文本框的字体属性:
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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你去参考下验证码 原理一样的
追问
能不能给编一个示范一下啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询