欢迎访问服务器技术网-www.fuwuqijishu.com

谁来教我制作这个警告框?

程序设计 fuwuqijishu 2年前 (2022-10-01) 23次浏览 0个评论 扫描二维码

关于窗口和按钮我都会,但是中间的那行字是怎么弄上去的?谁能教教我?的问题

出现您所提供的窗体有两种方法,
方法一,首先新建窗体Form1,并放一CommandButton,将下列代码Copy到代码窗口,运行程序,再点击命令按钮,试试看:
Private Sub Command1_Click()
MsgBox “警告!计算机因嫌你太丑导致系统崩” _
& vbNewLine & “溃,请立即关闭计算机,否则有烧毁” _
& vbNewLine & “的危险,谢谢合作”, vbExclamation + vbOKCancel, “立即关闭计算机”
End Sub
方法二,首先新建窗体Form1,并放一CommandButton,将下列代码Copy到代码窗口,再建一窗体Form2,如你问题中所说,加入一Image1控件、一个Label1控件和两个CommandButton控件,中间的那行字是这样加的,选中Label1控件,按F4出现属性窗口,在Caption属性栏的右边输入“警告!计算机因嫌你太丑导致系统崩溃,请立即关闭计算机,否则有烧毁的危险,谢谢合作!”拖动Label1控件的边框,调整它的外形尺寸,使那些字自动换行。
(Form1窗体中的代码:)
Private Sub Command1_Click()
Me。Hide
Form2。Show
End Sub
不过第二种方法除非你是练习用,实际操作中程序员都会采用第一种方法。

喜欢 (0)
发表我的评论
取消评论
表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

Warning: error_log(/www/wwwroot/fuwiqijishu/wp-content/plugins/spider-analyser/#log/log-2408.txt): failed to open stream: No such file or directory in /www/wwwroot/fuwiqijishu/wp-content/plugins/spider-analyser/spider.class.php on line 2900