第七章高级控件.pptVIP

第七章 高级控件;Type cp wp As Single hp As Single tp As Single lp As Single End Type;Dim ap() As cp Sub ai() Dim i As Integer For i = 0 To Controls.Count - 1 With ap(i)’处理同一对象的不同成分 .wp = Controls(i).Width / Form1.ScaleWidth .hp = Controls(i).Height / Form1.ScaleHeight .lp = Controls(i).Left / Form1.ScaleWidth .tp = Controls(i).Top / Form1.ScaleHeight End With Next i End Sub;Private Sub Form_Load() ReDim ap(0 To Controls.Count - 1) ai End Sub Private Sub Form_Resize() Dim i As Integer For i = 0 To Controls.Count - 1 Controls(i).Move ap(i).lp * Form1.ScaleWidth, ap(i).tp * Form1.ScaleHeight, ap(i).wp * Form1.ScaleWidth, ap(i).hp * Form1.ScaleHeight Next i End Sub;高级控件的使用以及相关实例 一、公用对话框控件：CommonDialog 1、添加该控件的方法： “工程”中选“部件”打开 选择“控件” 选择“Microsoft Common Dialog Control6.0” 单击“确定”，公用对话框即添加至工具箱 2、功能以及使用 方法：ShowOpen:打开文件对话框 ShowSave：另存为对话框 ShowColor: 颜色对话框 ShowFont：字体对话框 ShowPrinter:打印对话框 ShowHelp:调用Windows帮助对话框;功能对应的属性： （1）Action: 0:无操作 1:打开文件对话框 2：另存为对话框 3: 颜色对话框 4：字体对话框 5:打印对话框 6:调用Windows帮助对话框 （2）Dialogtitle:对话框标题 （3）CancelError:出错信息;与ShowOpen、ShowSave方法相关的属性：　　●FileName属性：返回或设置所选文件的路径和文件名，如果在使用Show方法以前使用FileName属性，则设定了对话框的默认文件名；如果是在以后使用则返回选择的文件名。　　使用语法是： CommonDialog.Filename[=pathname] 　　●Filter属性：返回或设置在对话框的类型列表框中所显示的过滤器(也就是限定打开或保存为的文件类型)，它的使用语法是：　　对象名.Filter [= 描述文字1 |过滤标示1 |描述文字2 |过滤标示2]例如：CommonDialog1.filter=“文本文件(*.txt)|*.txt|word文档文件(*.doc)|*.doc” 　　;其中描述文字为任意文字，而 过滤标示则采用*.文件后缀(例如：*.bmp)的格式，描述文字和过滤标示之间用“|”隔开。　　●DefaultExt属性：为该对话框返回或设置缺省的文件扩展名，也就是当我们没有指定打开或保存的文件类型时，按DefaultExt属性所设置的扩展名为默认值。 ●MaxFilesize属性：用于设定打开的文件名（包括目录）的最大长度（1-32）KB,默认值为256。 ;与ShowFont方法相关的属性： ● 对象名.ShowFont 或者 对象名.Action=4 ●Flags属性设置： cdlCFScreenFonts--------屏幕字体 cdlCFPrinterFonts-------打印机字体 cdlCFBoth------------以上两者都