VB用户界面设计课件

用户界面设计,常用控件通用对话框菜单设计多重窗体鼠标和键盘应用程序向导综合应用,常用控件,一、单选按钮、复选框和框架1、单选按钮(OptionButton),重要属性Caption按钮上显示的文本Value表示单选按钮的状态：True-被选定False-未被选定重要事件Click事件单击后使Value属性为True,例：单选按钮示例PrivateSubOption1_Click()Label1.Caption=教师EndSubPrivateSubOption2_Click()Label1.Caption=学生EndSubPrivateSubOption3_Click()Label1.Caption=其他EndSub,Value属性值为整型，表示复选框的状态：0vbUnchecked未选定1vbChecked被选定2vbGrayed灰色并显示一个选中标记。,2、复选框(CheckBox),例：复选框示例PrivateSubCheck1_Click()IfCheck1.Value=1ThenLabel1.Caption=喜欢学习ElseLabel1.Caption=不喜欢学习EndIfEndSub,PrivateSubCommand1_Click()Text1.Font.Name=IIf(Option1,宋体,黑体)Text1.Font.Bold=IIf(Check1=1,True,False)Text1.Font.Italic=IIf(Check2=1,True,False)Text1.Font.Strikethrough=IIf(Check3=1,True,False)Text1.Font.Underline=IIf(Check4=1,True,False)EndSub,例：通过单选按钮和复选框设置文本框的字体,3、框架(Frame),先建立框架，然后将各控件放置其中。Caption属性框架上的标题文本,例1：框架用法示例,PrivateSubCommand1_Click()EndEndSubPrivateSubList1_Click()Text1.Text=List1.TextEndSub,例2：摆出如下效果即可，具体代码实现在下一页。,PrivateSubCheck1_Click()Combo1.Enabled=NotCombo1.EnabledText1.Enabled=NotText1.EnabledEndSubPrivateSubCheck2_Click()Option1.Enabled=NotOption1.EnabledOption2.Enabled=NotOption2.EnabledEndSub,PrivateSubCombo1_LostFocus()当焦点离开组合框时组合框的LostFocus事件被触发，利用该事件过程将用户输入的计算机品牌添加到组合框中。添加到组合框的新项目不能永久保存，下次运行该程序中看不到上次保存的项目。flag=FalseFori=0ToCombo1.ListCount-1IfCombo1.List(i)=Combo1.TextThenflag=TrueExitForEndIfNextIfNotflagThenCombo1.AddItemCombo1.TextEndIfEndSub,PrivateSubCommand1_Click()IfCheck1.Value=1ThenList1.AddItemCombo1List1.AddItemText1EndIfIfCheck2.Value=1ThenIfOption1ThenList1.AddItemWindows2000ElseList1.AddItemWindows98EndIfEndIfEndSub,PrivateSubForm_Load()Combo1中的选项已在设计状态通过List属性设计Combo1.Enabled=FalseText1.Enabled=FalseOption1.Enabled=FalseOption2.Enabled=FalseEndSub,二、滚动条和进度条,滚动条(ScrollBar)通常附在窗体上协助观察数据或确定位置，也可作为数据输入工具。进度条(ProgressBar)用来指示事务处理的进度。滚动条有水平和垂直两种；进度条没有水平垂直之分,1、滚动条属性,Value滑块当前位置的值(缺省为0)Min滑块最小位置值(缺省为0)Max滑块最大位置值SmallChange单击滚动条两端的箭头时，Value属性(滑块位置)改变值LargeChange单击滚动条的空白区域时，Value属性改变值,2、滚动条事件,Scroll当拖动滑块时触发Changed改变Value属性时触发,例1:计算018之间某个数阶乘，数据由滚动条获得。,PrivateSubHScroll1_Change()DimiAsInteger,sAsDoubles=1n=HScroll1.ValueIfn0ThenFori=1Tons=s*iNextiEndIfLabel2.Caption=nmin设为0,四、定时器,定时器以一定的时间间隔产生Timer事件属性Enabled为False时定时器不产生Timer事件Interval触发Timer事件的时间间隔(ms)事件定时器控件只有一个Timer事件产生Timer事件条件Enabled=True;Interval0,例1:设计一个倒计时应用程序,注：设计时enabled为false;interval为1000,DimtAsIntegerSubCommand1_Click()t=60*Val(Text1.Text)Timer1.Enabled=TrueEndSubSubTimer1_Timer()Dimm,sAsIntegert=t-1m=Int(t/60)s=tMod60Label1.Caption=minterval为1000,例3:用一个定时器控制蝴蝶在窗体内的飞舞,PrivateSubcmdEnd_Click()EndEndSubPrivateSubTimer1_Timer()StaticImaBmpAsIntegerImaMain.MoveImaMain.Left+20,ImaMain.Top-5IfImaMain.Top=0ThenImaMain.Left=0ImaMain.Top=1320EndIfIfImaBmpThenImaMain.Picture=ImaOpenWings.PictureElseImaMain.Picture=ImaCloseWings.PictureEndIfImaBmp=NotImaBmpEndSub,通用对话框,VB提供了一组基于Windows的标准对话框。利用通用对话框控件可在窗体上创建打开文件、保存文件、颜色、字体、打印等对话框。,通用对话框仅用于应用程序与用户之间进行信息交互，是输入输出的界面，不能真正实现文件打开、文件存储、设置颜色、字体设置、打印等操作，如果想要实现这些功能则需要编程实现。,引例：通过打开文件对话框，选择一个BMP位图文件，在图形框中显示该图片。,PrivateSubCommand1_Click()利用showopen显示打开文件对话框，也可以使用语句commondialog1.action=1CommonDialog1.ShowOpen利用loadpicture函数把图片装入图形框中Picture1.Picture=LoadPicture(CommonDialog1.FileName)EndSub,通用对话框的载入方法：工程部件MicrosoftCommonDialogControl6.0部件。,通用对话框的基本属性和方法,Action属性和Show方法打开对话框,Action属性只能在程序中赋值,DialogTiltle属性设置通用对话框标题CancelError属性True：选择取消按钮，Err.Number设置为32755(cdCancel)。False：选择取消按钮，没有错误警告。,一、打开文件对话框,由ShowOpen方法来实现重要属性:(1)FileName文件名称，包含路径(2)FileTitle文件名，不包含路径(3)Filter确定所显示文件的类型例：TextFiles|*.txt|所有文件|*.*显示文本文件和所有文件(4)FilterIndex文件列表中指定某类型文件(5)InitDir初始化路径,例：编写一个简单的文本文件编辑程序,PrivateSubCommand1_Click()CommonDialog1.Action=1Text1.Text=OpenCommonDialog1.FileNameForInputAs#1打开文件进行操作DoWhileNotEOF(1)LineInput#1,inputdata读一行数据Text1.Text=Text1.Text+inputdata+vbCrLfLoopClose#1关闭文件EndSub,二、保存文件对话框,由ShowSave方法来实现与打开文件对话框的属性基本相同，特有的属性是DefaultExt属性，用于设置缺省的扩展名。,例：为另存为命令按钮编写代码，保存文本框内的信息。SubCommand1_Click()CommonDialog1.ShowSave打开文件供写入数据OpenCommonDialog1.filenameForOutputAs#1Print#1,Text1.Text保存文件Close#1关闭文件EndSub,三、颜色对话框,由ShowColor方法打开颜色对话框重要属性Color，它返回或设置选定的颜色,设置文件框前景颜色,例：为颜色命令按钮编写事件过程，设置文本框的前景色。SubCommand1_Click()CommonDialog1.ShowColorText1.ForeColor=CommonDialog1.ColorEndSub,四、字体对话框,由ShowFont方法来实现,Font获取选择的字体Color选定的颜色,显示字体对话框前必须设置Flags属性，否则将发生不存在字体错误。,“字体”对话框flags属性设置值,cdlCFEffects不能单独使用，应与其它常数一起进行“or”运算使用，因为它的作用仅仅是在对话框上附加删除线和下划线复选框以及颜色组合框,例：为字体按钮编写设置文本框字体的过程。,PrivateSubCommand1_Click()CommonDialog1.Flags=cdlCFBothOrcdlCFEffectsCommonDialog1.ShowFontText1.FontName=CommonDialog1.FontNameText1.FontSize=CommonDialog1.FontSizeText1.FontBold=CommonDialog1.FontBoldText1.FontItalic=CommonDialog1.FontItalicText1.FontStrikethru=CommonDialog1.FontStrikethruText1.FontUnderline=CommonDialog1.FontUnderlineText1.ForeColor=CommonDialog1.ColorEndSub,PrivateSubcmdFont_Click()OnErrorResumeNextCommonDialog1.Flags=cdlCFBothOrcdlCFEffectsCommonDialog1.ShowFontIfCommonDialog1.FontNameThenText1.FontName=CommonDialog1.FontNameText1.FontSize=CommonDialog1.FontSizeText1.FontBold=CommonDialog1.FontBoldText1.FontItalic=CommonDialog1.FontItalicText1.FontStrikethru=CommonDialog1.FontStrikethruText1.FontUnderline=CommonDialog1.FontUnderlineEndSub,PrivateSubcmdOpen_Click()CommonDialog1.CancelError=TrueOnErrorGoTonofileCommonDialog1.ShowOpenText1.Text=OpenCommonDialog1.FileNameForInputAs#1DoWhileNotEOF(1)LineInput#1,inputdataText1.Text=Text1+inputdata+vbCrLfLoopClose#1ExitSubnofile:IfErr.Number=32755ThenMsgBox按取消按钮ElseMsgBox其它错误EndIfEndSub,PrivateSubcmdSaveas_Click()OnErrorResumeNextCommonDialog1.ShowSaveOpenCommonDialog1.FileNameForOutputAs#1Print#1,Text1Close#1EndSubPrivateSubcmdColor_Click()OnErrorResumeNextCommonDialog1.ShowColorText1.ForeColor=CommonDialog1.ColorEndSub,PrivateSubcmdPrint_Click()OnErrorResumeNextCommonDialog1.Action=5Fori=1ToCommonDialog1.CopiesPrinter.PrintText1.TextNextiPrinter.EndDocEndSubPrivateSubcmdQuit_Click()EndEndSub,例：通用对话框应用示例,菜单设计,菜单有下拉式菜单和弹出菜单(单击鼠标右键)下拉式菜单的组成结构：,一、菜单编辑器,分隔线:在标题栏输入一个连字符“-”标题热键：前面加&。如，输入“新建(&N)”，则菜单显示“新建(N)”，N为热键。快捷键：直接在菜单编辑器中选取即可注：一级标题不能加复选项,工具菜单编辑器,菜单项常用属性：,例:制作下拉菜单,Name菜单项的控制名，在程序代码中使用Text菜单项上显示的标题文本Enabled用于控制菜单项是否可被选择Visible决定菜单项是否可见ShortCut设置菜单项的快捷键Checked控制菜单项左边是否显示“”菜单项的事件Click为菜单项编写程序,PrivateSubFileExit_Click()EndEndSubPrivateSubFileNew_Click()Text1.Text=EndSubPrivateSubFileOpen_Click()CommonDialog1.ShowOpen或用Action=1Text1.Text=OpenCommonDialog1.FileNameForInputAs#1打开文件进行读操作DoWhileNotEOF(1)LineInput#1,inputdata读一行数据Text1.Text=Text1.Text+inputdata+vbCrLfLoopClose#1关闭文件EndSub,文本框属性设置：Multiline:trueScrollbars:3-both,二、弹出菜单,独立于窗体菜单栏而显示在窗体内的浮动菜单显示位置取决于单击鼠标键时的位置设计过程与普通菜单相同,在设计下拉菜单的同时增加一列快捷菜单的设置，并把要作为快捷菜单一列的“可见”勾选去掉。菜单弹出的方法：对象.PopupMenu菜单名,标志,x,y说明：标志，表示弹出的位置和触发的键例：为上例文本框配置弹出菜单SubText1_MouseDown()IfButton=2ThenPopupMenuEditMenuEndSub,说明：button=2表示单击鼠标右键；edit为编辑菜单名。,增加一列的快捷菜单的name,多重窗体,指一个应用程序中有多个并列的普通窗体，每个窗体有自己的界面和代码，完成不同的功能。一、添加窗体工程添加窗体(或在工程资源管理器中单击右键添加)同一工程不能有相同名称的窗体。二、设置启动对象工程属性(或在工程资源管理器中单击右键工程属性)三、窗体语句,Load语句装入窗体到内存(不显示)Load窗体名称Unload语句从内存删除窗体Unload窗体名称或UnloadMe,Show方法显示窗体窗体名称.Show模式模式为0：关闭才能对其它窗体进行操作模式为1：可以同时对其它窗体进行操作Hide方法隐藏窗体窗体名称.Hide,四、不同窗体数据的存取,直接访问另一个窗体上的控件数据另一个窗体名.控件名.属性Text1=Val(Form2.Text1)+Val(Form2.Text2)访问另一个窗体中的全局变量另一个窗体名.全局变量名,例：多重窗体应用:输入学生五门课程的成绩，计算总分及平均分并在不同窗体内显示。,模块代码：PublicsMath,sPhysics,sChemistry,sChinese,sEnglishAsSingle,PrivateSubCommand1_Click()Form1.Hide隐含主窗体Form2.Show显示Form2窗体EndSubPrivateSubCommand2_Click()Form1.Hide隐含主窗体Form3.Show显示Form2窗体EndSubPrivateSubCommand3_Click()EndEndSub,PrivateSubcmdReturn_Click()sMath=Val(txtMath.Text)sPhysics=Val(txtPhysics.Text)sChemistry=Val(txtChemistry.Text)sChinese=Val(txtChinese.Text)sEnglish=Val(txtEnglish.Text)Form2.HideForm1.ShowEndSub,PrivateSubcmdReturn_Click()Form3.HideForm1.ShowEndSubPrivateSubForm_Activate()DimsTotalAsSinglesTotal=sMath+sPhysics+sChemistry+sChinese+sEnglishtxtAverage.Text=sTotal/5txtTotal.Text=sTotalEndSub,一、鼠标鼠标事件：由用户操作鼠标而引发的能被各种对象识别的事件。Click、DblClick事件MouseDown按下任意一个鼠标按钮时被触发MouseUp释放任意一个鼠标按钮时被触发MouseMove移动鼠标时被触发,鼠标和键盘,三个鼠标事件过程如下：SubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle),参数说明：1、button参数指示用户按下或释放了哪个鼠标按钮，其值的意义如下表：,例：当button=2或button=vbRightButton时，表示用户按下或释放了鼠标右键。,2、X,Y表示当前鼠标的位置,例1:显示鼠标器指针所指的位置。,PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Text1.Text=XText2.Text=YEndSub,例2：设计一个最简单的画图程序。程序运行时，按住鼠标右键移动画圆，按住鼠标左键移动画线。,在通用中写如下代码：DimDrawstateAsBooleanDimPreXAsSingleDimPreYAsSingle,PrivateSubForm_Load()Drawstate=FalseEndSub,PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then当鼠标左键被按下时，把DrawState设为True，表示落笔开始画线Drawstate=True设置画图状态PreX和PreY保存线条的起点PreX=XPreY=