5ActiveX控件.ppt

1、第5章ActiveX控件,第1章,第2页,教学目的,会使用VB的常用控件及高级控件,第3页,VB控件分为两类： 默认情况下，VB工具箱内都是标准控件 通过“部件”对话框添加的均为ActiveX控件,5.1 ActiveX控件,第4页,ActiveX是Microsoft对于一系列策略性面向对象程序技术和工具的称呼，其中主要的技术是组件对象模型（COM）。 ActiveX是Microsoft为抗衡Sun Microsystems的JAVA技术而提出的，此控件的功能和java applet功能类似。 组件的一大优点就是可以被大多数应用程序再使用（这些应用程序称为组件容器）。一个COM组件（Activ

2、eX控件）可由不同语言的开发工具开发。,5.1 ActiveX控件,第5页,第三方软件生产者开发的ActiveX控件通常以文件的形式存放，其扩展名为.ocx。 有些ActiveX控件，因为没有安装文件，所以必须童工动手操作将控件加入到“部件”对话框列表中。,5.1 ActiveX控件,第6页,在应用程序的输入界面常会遇到需要输入日期的文本框。 VB提供了一种选择日期的控件日历控件。 “部件”/“控件”/“Microsoft Calendar Control 8.0”。,5.2 日历控件,第7页,5.2 日历控件,第8页,编写程序，通过日历控件获得日期。 1）在窗体中画一个日历控件。 2）双击C

3、alendar1打开代码编辑器窗口，编写： Private Sub Calendar1_Click() MsgBox 您选择的日期是： & vbCrLf & Me.Calendar1.Value End Sub 注： vbCrLf 代表回车换行,5.2.1 通过日历控件获得日期,第9页,5.2.1 通过日历控件获得日期,Me.Calendar1.Value，日历控件的Value属性用来获取被选择的日期，该控件常用属性还有year、month、day，分别用来获取被选择日期的年、月、日。,第10页,Calendar控件有几个独有的事件。 1）NewYear事件，当日历控件中的年份被更改时触发。

4、2）NewMonth事件，当日历控件中的月份被更改时触发。 3）更改日期时会先后触发事件：BeforeUpdate和AfterUpdata EX:2-日历控件独有事件 补充：MsgBox函数返回值的常量 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 终止 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否,5.2.2 日历控件独有的事件,第11页,VB通用对话框CommonDialog控件提供了一组给予Windows的标准对话框界面。 此通用对话框有6中类型：Open、Save as、 Font、Color、Print等。 通过设置

5、CommonDialog控件的Action属性可以显示指定类型的对话框。,5.3 通用对话框控件,第12页,Action属性 Show方法 说明 1 ShowOpen 显示文件打开对话框。 2 ShowSave 显示另存为对话框。 3 ShowColor 显示颜色对话框。 4 ShowFont 显示字体对话框。 5 ShowPrinter 显示打印机对话框。 6 ShowHelp 显示帮助对话框。 如： CommonDialog.Action=1 等价于 CommonDialog.ShowOpen,5.3 通用对话框控件,第13页,添加CommonDialog控件。,5.3 通用对话框控件,第

6、14页,设计一个图片预览程序，使用打开对话框定位图片位置。,5.3.1 使用打开对话框,第15页,程序设计：窗体、图像框image、通用对话框 Private Sub cmdOpen_Click() cd1.ShowOpen 显示打开对话框 img1.Picture = LoadPicture(cd1.FileName) 给图像框添加图片 End Sub cd1.FileName属性值会自动设置为图片的完整路径。,5.3.1 使用打开对话框,第16页,右击“CommonDialog控件”选择“属性”： 过滤器：所有文件（*.*）| *.*| JPG文件（*.JPG）| *.JPG| bmp文件

7、（*.bmp）| *.BMP在打开对话框中的文件类型中出现。,5.3.1 使用打开对话框,第17页,*.*、*.JPG）、 *.BMP称为过滤器。 通用格式： 描述符1|过滤器1|描述符2|过滤器2| “|”被称为管道符。,5.3.1 使用打开对话框,第18页,“打开/另存为”对话框的常用属性。 DialogTitle：用于设置对话框的标题。 FileName：用于设置对话框中“文件名称”的默认值，并返回用户所选中的文件名（包括路径和扩展名） InitDir：用于设置初始文件目录 Filter：用于设置显示文件的类型,5.3.1 使用打开对话框,第19页,设计一个调用“保存”对话框的程序。 1

8、）标题显示为“保存对话框试验”。 2）默认保存路径为”D:SQBT” 3）文件名栏中显示的默认文件名为“呵呵” 4）文件类型列表中能够选择mp3文件、mid文件和wma文件，默认显示mid文件。,5.3.2 使用保存对话框,第20页,Private Sub Command1_Click() cd1.DialogTitle = 保存对话框试验 cd1.InitDir = d:sqbt cd1.FileName = 呵呵 cd1.Filter = mp3文件| *.mp3|mid文件| *.mid|wma文件| *.wma cd1.FilterIndex = 2 cd1.ShowSave End

9、Sub,5.3.2 使用保存对话框,第21页,5.3.2 使用保存对话框,第22页,作业：练习使用打开、保存对话框,程序运行如下 Tabindex属性,第23页,作业：练习使用打开、保存对话框,程序运行如下,第24页,作业：练习使用打开、保存对话框,程序运行如下,第25页,作业：练习使用打开、保存对话框,程序运行如下,第26页,设计一个调用“颜色”对话框的程序。,5.3.3 使用颜色对话框,第27页,设计一个调用“颜色”对话框的程序。 Private Sub Form_Click() cd1.ShowColor Me.BackColor = cd1.Color MsgBox cd1.Color

10、 End Sub cd1.Color属性，该属性返回用户在“颜色”对话框中颜色的数字值。如：红色是255,5.3.3 使用颜色对话框,第28页,要显示“字体”对话框，首先要设置Flag属性。 属性 取值 描述 cdlCFScreenFonts1屏幕字体 cdlCFPrinterFonts2打印机字体 cdlCFBoth3两者皆有 cdlCFEffects256 出现删除线、下划线、颜色元素,5.3.4 使用字体对话框,第29页,执行如下语句： Cd1.Flags=3 Cd1.showFont,5.3.4 使用字体对话框,第30页,执行如下语句： Cd1.Flags=3+256 Cd1.show

11、Font,5.3.4 使用字体对话框,第31页,执行如下语句： Private Sub cmdOpenFont_Click() cd1.Flags = 3 cd1.ShowFont Text1.FontName = cd1.FontName If cd1.FontBold = True Then Text1.FontBold = True End If Text1.FontSize = cd1.FontSize cd1.Flags = 256 End Sub,5.3.4 使用字体对话框,第32页,5.3.4 使用字体对话框,第33页,打印对话框常用属性： 属性 描述 复制Copies 用于设置

12、打印份数 最小Min 用于设置可打印的最小页数 最大Max 用于设置可打印的最大页数 起始页FromPage 用于要打印的起始页数 终止页TopPage 用于要打印的终止页数 方向Orientation 用于确定以纵向还是横向模式打印文档 调用打印对话框：cd1.ShowPrinter cd1.Action = 5,5.3.5 使用打印对话框,第34页,所有类型的对话框都有一个“取消”按钮。 原代码： Private Sub Form_Click() cd1.ShowColor Me.BackColor = cd1.Color MsgBox cd1.Color End Sub 该代码，在点击颜

13、色对话框上的“取消”按钮时，窗体颜色变黑。,5.3.6 对单击“取消”按钮的处理,第35页,Private Sub Form_Click() cd1.CancelError = True On Error GoTo ErrHandler cd1.ShowColor Me.BackColor = cd1.Color MsgBox cd1.Color ErrHandler: End Sub 代码如上，则单击颜色对话框中“取消”时，程序运行正确,5.3.6 对单击“取消”按钮的处理,第36页,程序中用到了CommonDialog控件的CancelError属性，如果该属性被设置为True，当用户单击

14、“取消”按钮时，就会产生一个错误。 程序中语句： On Error GoTo ErrHandler 就是捕获这以错误的语句，它的作用是出现错误立即跳转到ErrHandler:标号处。这样，执行程序时就跳过了不该执行的语句。 其它对话框中的“取消”按钮，也使用该方法解决。,5.3.6 对单击“取消”按钮的处理,第37页,RichTextBox控件除了具有标准TextBox控件所具有的功能之外，还具有更高级的指定格式，实现某些特定功能。,5.4 RichTextBox控件,第38页,如：TextBox控件里面当改变字体、字号时所有文字的字体、字号都会改变，而RichTextBox控件可以只改变所选

15、择的文字的字体、字号，而其它未被选中的文字字体和字号不改变。 RichTextBox控件在文字编辑方面功能强大，控件名称的前缀是rtf。,5.4 RichTextBox控件,第39页,EX：使用RichTextBox控件编写一个超级文本编辑器，在文本区可以自由设置所选文字的字体、字号和字体颜色。,作业 RichTextBox控件,第40页,关键代码： 窗体load事件，字体组合框： cboFontName.AddItem 宋体 cboFontName.AddItem 黑体“ cboFontName.AddItem 隶书“ cboFontName.AddItem 幼圆 cboFontName.L

16、istIndex = 0 将组合框第一项“宋体”显示到文本区,作业 RichTextBox控件,第41页,关键代码： 窗体load事件，字号组合框： cboFontSize.AddItem 10 cboFontSize.AddItem 20 cboFontSize.AddItem 30 cboFontSize.AddItem 40 cboFontSize.ListIndex = 0 将组合框第一项“10”显示到文本区,作业 RichTextBox控件,第42页,关键代码： 窗体load事件，RichTextBox控件初始： rtfDOC.Font.Name = 宋体 rtfDOC.Font.S

17、ize = 10将RichTextBox控件字体设为“宋体”，字号设置为“10”，与组合框内容相符,作业 RichTextBox控件,第43页,RichTextBox控件常用属性： 1）FileName属性 返回或设置装入RichTextBox控件的文件名。 RichTextBox1.FileName = App.Path & 工作总结.rtf“ 通过FileName属性将程序根目录下RTF格式的文件加载到控件当中。,5.4 RichTextBox控件,第44页,RichTextBox控件常用属性：,5.4 RichTextBox控件,第45页,RichTextBox控件常用属性： 2）Loc

18、ked属性 返回或设置RichTextBox控件是否能够被编辑。 RichTextBox1.Locked = True 程序启动时， RichTextBox控件处于被锁定状态，无法向控件输入字符信息。,5.4 RichTextBox控件,第46页,RichTextBox控件常用属性： 3）MultiLine属性 返回或设置一个值，指明RichTextBox控件是否接收和显示多行正文。 MultiLine属性= True 允许多行形式输入正文。,5.4 RichTextBox控件,第47页,RichTextBox控件常用属性： 4）Text属性 返回或设置包含在对象中的文本。,5.4 RichT

19、extBox控件,第48页,RichTextBox控件常用方法： 1）LoadFile方法 向RichTextBox控件加载一个.rtf文件或文本文件。 RichTextBox1.LoadFile (App.Path & /工作总结.rtf) 2）SaveFile方法 格式：object.SaveFile pathname,filetype 把RichTextBox控件的内容存入文件。 RichTextBox1.SaveFile App.Path & /1.rtf, 0 0代表存为.rtf，1代表存为文本文件,5.4 RichTextBox控件,第49页,DatatTimePicker控件用以

20、提供格式化的日期字段。,5.5 DataTimePicker控件,第50页,1）DayOfWeek属性 返回或设置一个值，指出当前为星期几的数值。 Select Case DTPicker1.DayOfWeek Case 1 Label1.Caption = 选择的日期为星期日“ . Case 7 Label1.Caption = 选择的日期为星期六 End Select,5.5 DataTimePicker控件,第51页,1）DayOfWeek属性,5.5 DataTimePicker控件,第52页,2）Month属性 返回或设置一个值，指出当前的月份。 Select Case DTPick

21、er1.Month Case 1 Label1.Caption = 选择的月份为一月“ Case 12 Label1.Caption = 选择的月份为十二月 End Select,5.5 DataTimePicker控件,第53页,2）Month属性,5.5 DataTimePicker控件,第54页,MonthView 控件可以用来创建一个能够让用户通过日历风格的界面查看和设置日期信息的应用程序。,5.6 MonthView控件,第55页,1)MultiSelect属性 返回或设置一个值，决定是否可以一次选择多个日期。 MonthView1.MultiSelect = True,5.6 Mo

22、nthView控件,第56页,2)Year属性 Label1.Caption = 今年是： & MonthView1.Year & 年 。,5.6 MonthView控件,第57页,树形视图控件通常用其显示有目录结构的内容。 图形列表控件，主要用于存放图形文件。,5.7 树形视图控件与图像列表控件,第58页,创建树形视图控件TreeView 控件。,5.7.1 TreeView控件,第59页,设置树形视图的外观，主要用到Style（8种值：0-7）和LineStyle属性（2种:0、1）。 注意：只有将控件的style属性设置为有连接线时linestyle属性才会起效果。,5.7.1 设置树形

23、视图的外观,第60页,图像列表（ImageList）控件在程序运行时不可见。,5.7.2 图像列表控件,第61页,ImageList控件作为图片的容器主要用来给其他控件提供图标，比如树形视图控件。 链接TreeView控件和ImageList控件 1）右击TreeView控件，选择“属性”。 2）选择“通用”选项卡，“图像列表”栏。,5.7.2 图像列表控件,第62页,只能通过程序实现，要用到Node对象（视图中每一个节点都是一个Node对象）。 Private Sub Form_Load() Dim nt As Node Set nt = TreeView1.Nodes.Add(, , root, 大陆, 1) Set nt = TreeView1.Nodes.Add(root, tvwChild, , 孙南, 1) Set nt = TreeView1.Nodes.Add(root, tvwChild, naying, 那英, 1),5.7.3 给树形视图添加内容,第63页,Set nt = TreeView1.Nodes.Add(naying, tvwChild, , 雾里看花, 1) Set nt = TreeView1.Nodes.Add(, , root1, 港台, 1) Set nt = TreeView1.Nodes.Add(root1, tvwChild, ,