《十一、对话框》由会员分享，可在线阅读，更多相关《十一、对话框（6页珍藏版）》请在金锄头文库上搜索。
1、十一、消息对话框和输入对话框例6:设计一个程序,点击窗体出现如图的消息框.在代码窗口完成如下:Privte Sub Fom_Clik（)as = MsBo（”是找我吗？”, 5, 消息框”）Ed Sub这里ass是设计者自定的变量。运行后，点击窗体就出现这消息框。 在属性窗口分别设置如表：对象属性设置orm1（窗体）Cati例36（名称）Frm1Msgo函数：V提供的消息框函数.这里见到的有：提示信息、图标按钮值和标题信息三个部分.这里是找我吗？为提示信息,消息框”为标题信息;为图标按钮值.图标按钮值是由按钮类型值、图标类型值和缺省活动按钮型值。按钮类型及其对应值消息框上显出的按钮值消息框上显
2、出的按钮值“确定”按钮“确定”和“取消”按钮1“终止(A)”、“重试（R）和“忽略（I)” 按钮2“是（Y）”、“否（N)”和“取消” 按钮3“是（Y)”和“否（)”按钮4“重试（R）和“取消” 按钮5图标类型及其对应值值132484图标缺省活动按钮及其对应值值缺省活动按钮0第一个按钮为缺省活动按钮6第二个按钮为缺省活动按钮512第三个按钮为缺省活动按钮点击不同按钮所返回的值按钮值按钮值“确定按钮1“取消”按钮2“终止(A）”按钮“重试(）”按钮4“忽略（I)”按钮5“是(Y)”按钮6“否（N）按钮点击所选按钮就将返回值赋给所定的变量。可试试看它们的不同情况。Msox函数在VB中还允许将Msg
3、Bo函数写为语句形式。例如: MgBx 是找我吗？ 运行时出现一个消息框，提示信息MsgBox 是找我吗？和一个“确定”按钮。消息框一个特点，必须要用户进行一个选择。例37:将前例14的设计一个设置密码的程序，改成用消息框来处理。则减少一个文本框来显示:“密码正确或错误,增加一个标签框作提示。要求用户在一个文本框中输入密码，然后单击“校验密码”命令按钮，程序将核对，密码一致时出现消息框中显示：“密码正确，是否继续运行?”（并有“是”“否”两按钮选择);密码不一致时出现消息框中显示：“密码错误，请是否重试？”（并有“重试”“取消”两按钮选择）.在属性窗口分别设置如表：对象属性设置For1（窗体）
4、Ction例37（名称)Form1xt1（文本框1)(名称)txtinPasswdhar*txtbel1(标签框)Captio请输入您的密码(名称）Lab1Cad1（命令按钮1）(名称)mdCleaCapto清除Commd2（命令按钮）（名称）CmdChcCapio 校验密码Coad(命令按钮3）（名称)mdExitCptn 退出 在代码窗口完成如下：Privteub CmdEx_ick（）EndEndubPrivat Sb Cdar_Clck(）Txt。Text= ” Txtin。etFcusd ubrivte SbmdChcklik() pa$=Txtn.Text Titl = 密码校验框
5、 n1$ ”密码正确,是否继续运行？” In$ 密码错误，请是否重试？f pass = ssABC Te nswer sgBox（n$， 4 + 64+ 0， Ti$）Els nswr=MsgBox（In2,5+ 32 + 256, Ttle$)End If fnswer =2en End If we 4 Thn TxinTet = TxtinSetFocus En If Inser 6 Then Cdec。Visile = le Cmdclea.isibe= als tinVisibl=al ptio 继续运行程序！ End I If answe = 7Thn EndEd Sub例8：设计一
6、个计算阶乘的程序。界面如右图,一个框架、一个标签框和一个文本框.运行后，在文本框内输入一个整数，按回车键,即求得阶乘的值。在属性窗口分别设置如表：对象属性设置Fom（窗体)ptio例8(名称)ora（框架）（名称)FameCaption请输入一个整数ext（文本框）（名称)Txt1textLabel（标签框1）apion 输入一个整数n(n=2),并按回车键,即可得到从1乘到n的值（!）。(名称）b1 在代码窗口完成如下：rivaSub e1_Kyress（Ascii s Inteer) im n Iteger,i AsItegr，s A Log If Asi = 3 Then s 1 = l
7、(Tex1。ex） For i 1 To n s i NetMsgBox ext.Te ”! =r(s）， 0， 求阶乘”En IfEnd Sb运行后，在文本框内输入一个整数11，按回车键,即看到“求阶乘”的对话框。点击“确定按钮，就可继续输入数求阶乘或退出。例39：设计一个程序，点击窗体出现如图的输入对话框。在代码窗口完成如下:Pite SubFom_Clk（)ass =InputBox（”您的电话号码?”， ”输入对话框”，66668888）End b这里ass$是设计者自定的.运行后,点击窗体就出现一个输入对话框。IputBx函数：VB提供的输入对话框函数。这里见到的有:提示信息、标题信
8、息和文本显示缺省值三个部分。另外还可输入对话框的左边框、上边框的位置,使消失输入对话框出现在指定的位置。运行后可输入文本信息，点击“取消”按钮，消失输入对话框;点击“确定”按钮，将文本信息赋给所定的变量同时消失输入对话框.例0:设计一个输入学生成绩的程序，用输入对话框输入数据,再用消息框来处理是否正确。则减少一个文本框来显示：“密码正确或错误”，输完姓名、语文、数学和英文数据后自动显出总分成绩.界面采用十一个标签框作和二个命令按钮.在属性窗口分别设置如表：对象属性设置Form1(窗体）aptin例40（名称)FomLab1（标签框1）（名称）abel1BakooH00FF8080ackSlOp
9、ueaptn学生成绩情况nt中（大小）四号Lbe（标签框2）（名称）Label2Capton姓名Index0La6(标签框6）（名称)Labelapio总分Iex4Labe7(标签框7）（名称)ael3CaptionrerStye1FeSigleIndexLabe11(标签框）（名称)Label3CaptinBorderStyle1Fixe SingleInex4Comad（命令按钮1）（名称)CmdeCption 运行Cm2（命令按钮2)(名称）Cmxiatin退出 在代码窗口完成如下：Dim inp Srig ： Dim mar (4） As StringPrivat Sb CmGt_li
10、k（)Dim marks（4） As ini smmAs Snglori = 0 To 4 Label3（i)。aptin =Next i ch = h（1) + hr（10）For = 3 Ch1 = ch + ch+ ch Label（i）.Cpton fe =1Title$ = Lael2(i）Captin + 输入框Do Wlefge =1 inp = InutBo Ch$, Tile$， ， 10，4500)If in hen e = 0 i1 MsgBox（”数据:+ np +” 正确吗？, ， 数据核对框） in =7 Then Insgox(重新输入数据吗？， 3， 提示信息框
11、) If in2 Then fa 1 Endf Ee ExitF E If mrk (） = npoop ael（i）Ctio= mr(i) If i 0hn Summ = umm + al（mark（i） ndIfNxt i abel3（4）.aption=t$（umm)End SuPvate ubCmdxitClick(）Endnd Sub自定义对话框自定义对话框是根据实际需要设计的对话框。将窗体的aptin属性为对话框，窗体内安排需要的控件。是否要“最大化”、“最小化命令按钮。通用对话框通常“通用对话框控件不在工具箱中,可从选单栏“工程”中的“部件”,在“部件”窗口中“控件”选项卡上选取“Micrsoft Como Diag Control 6。0” 复选框，再按“确定命令按钮,在工具箱中就出现“通用对话框”的图标。通用对话框提供六种形式的对话框。习题 1设计一个程序，两次用输入对话框分别输入一个整数,用消息对话框输出它们的所有的公约数和最小公倍数。 .设计一个程序，输入某人的工资数,用消息对话框输出发工资要最少的张数钱时，各金额的张数。 3。设计一个程序,用消息对话框输出三个随机四位数。 4设计一个程序，输入长方体的长、宽、高，用消息对话框输出此长方体的体积和表面积。文中如有不足，请您指教！ /
