第七、八章 常用控件和界面设计.ppt
上传人:sy****28 上传时间:2024-09-10 格式:PPT 页数:123 大小:3.6MB 金币:16 举报 版权申诉
预览加载中,请您耐心等待几秒...

第七、八章 常用控件和界面设计.ppt

第七、八章常用控件和界面设计.ppt

预览

免费试读已结束,剩余 113 页请下载文档后查看

16 金币

下载此文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

1.标准控件内部控件,工具箱上的控件20个,是工具箱上的常住成员。2.ActiveX控件ActiveX部件:是可以重复使用的编程代码和数据,是由用ActiveX技术创建的一个或多个对象所组成。ActiveX部件文件:扩展名OCX,在Windows的System32目录中。3.可插入对象Windows应用程序的对象;可插入对象可以添加到工具箱上;同标准控件一样使用。例如:MicrosoftExcel工作表。7.1.1单选钮、复选框和框架1.重要属性Caption属性:文本标题Alignment属性:按钮的对齐方式0:控件钮在左边,标题显示在右边1:控件钮在右边,标题显示在左边Value属性:按钮是否被选中,默认属性单选钮(逻辑型)检查框(数值型)True:选定0--Unchecked:未被选定False:未选定1--Checked:选定2--Grayed:灰色Style属性:按钮的样式0--Standard:标准方式1--Graphical:图形方式2.事件:Click,GotFocus,LostFocus等因为单击时自动改变状态,故不需要编写过程。3.方法:Move,SetFocus,Refresh等例7.1用单选钮和复选框设置文本框的字体。PrivateSubCheck1_Click()Text1.Font.Bold=NotText1.Font.BoldEndSubPrivateSubCheck2_Click()Text1.Font.Italic=NotText1.Font.ItalicEndSubPrivateSubCheck3_Click()Text1.Font.Strikethrough=NotText1.Font.StrikethroughEndSubPrivateSubCheck4_Click()Text1.Font.Underline=NotText1.Font.UnderlineEndSubPrivateSubOption1_Click()Text1.Font.Name="宋体"EndSubPrivateSubOption2_Click()Text1.Font.Name="黑体"EndSub7.1.2框架(Frame)框架的重要属性:(1)Caption属性:框架标题,默认属性。(2)Enabled属性False:标题呈灰色,不允许对框架内对象操作。(3)Visible属性True:框架及其控件可见。False:框架及其控件被隐含起来。事件:Click、DblClick,一般不需要编写框架的事件过程。例7.2框架用法示例。PrivateSubCommand1_Click()Text1.Font.Name=IIf(Option1.Value,"宋体","黑体")Text1.Font.Size=IIf(Option3.Value,8,12)EndSubPrivateSubCommand2_Click()EndEndSub7.1.3列表框和组合框1、列表框和组合框重要属性2、常用方法3、重要事件4、应用PrivateSubCommand1_Click()List1.AddItemText1.TextText1.Text=""EndSubPrivateSubCommand2_Click()List1.RemoveItemList1.ListIndexEndSubPrivateSubCommand3_Click()Text1.Text=List1.TextText1.SetFocusEndSubPrivateSubCommand4_Click()List1.List(List1.ListIndex)=Text1.TextText1.Text=""EndSubPrivateSubCommand1_Click()List1.ClearIfCheck1.Value=1ThenList1.AddItemCombo1.TextList1.AddItemText1.TextEndIfIfCheck2.Value=1ThenIfOption1.Value=TrueThenList1.AddItem"Windows2000"ElseList1.AddItem"Windows98"EndIfEndIfEndSubPrivateSubForm_Load()Combo1.AddItem"方正"Combo1.AddItem"联想"Combo1.AddItem"惠普"EndSubPrivateS