VBA单词

Vb Exclamation ['eksklə'meɪʃən] 48 注意Exclamation['eksklə'meɪʃən]Vb Information ['ɪnfə'meiʃən] 64 信息Information['ɪnfə'meiʃən]7.2利用InputBox函数录入['input]Input['input]7.3.1 使用Get Open Filename方法打开对话框[get]开始 ['əupən]打开[fail'neim]文件名；Get[get]Open ['əupən]Filename[fail'neim] Get Save As Filename 另存为7.3.2利用Dialogs['daiəlɔg]对话]属性打开内置对话框如Application.Dialogs(对话框参数).ShowDialog['daiəlɔg]7.4.1 屏蔽是否更新对话框 Ask To Update Links属性是设置文件打开时是否请求更新链接. [ɑ:sk]请求.问 [ʌp'deit]更新 [liŋks]链接Ask [ɑ:sk]Update[ʌp'deit]Links[liŋks]7.4.2屏蔽删除工作表时的警告消息Display Alerts [dis'plei] 陈列 [ə'lə:t]警戒Display[dis'plei]Alerts[ə'lə:t]8.1 用户窗体显示User Form1.Show ['ju:zə]用户 [fɔ:m]结构窗体[ʃəu]显示；User['ju:zə]Form[ʃəu] UserForm_Click是窗体的单击事件；Click[klik] Userform.Show: 窗体的Show方法可以显示并运行窗体Show[ʃəu] Unload UserForm1:可以关闭指定的窗体.也可用Unload Me来关闭窗体. [,ʌn'ləud]关闭Unload[,ʌn'ləud]Me.Caption Me是当前窗体，Caption窗体标题栏显示文字Me [mi:, mi] Caption 标题['kæpʃən] Caption['kæpʃən] (1)     设置背景颜色Back Color [bæk]背景['kʌlə]颜色Back[bæk]Color['kʌlə](2)     添加背景图片Picture ['piktʃə]图片Picture['piktʃə](3)     载入窗体时发生的事件UserForm_Initialize: [i'niʃəlaiz]初始化(在设计对话框时,常常需要对一些控件的属性变量的值等项目进行初始化设置)Initialize[i'niʃəlaiz]8.1.3窗体关闭事件 使用QueryClose[ˈkwiəri]事件程序时,后有两个自变量Cancel和CloseMode; Query['kwiəri] Cancel As Intege 是否禁止关闭窗体.0为可以关闭,其他整数值禁止关闭；Mode[məud] CloseMode As Intege 窗体关闭CloseMode=0,手工关As[æz]8.2 控件插入与使用1、控件尺寸大小随内容多少而变化的属性AutoSize。Auto ['ɔːtəʊ]自动Size[saiz]大小、尺寸2、控件的文本提示用属性ControlTip TextControl[kən'trəul]Tip[tip]Text [tekst]Enabled属性和Locked属性的区别：Enabled属性为False，控件不可选、不可编缉。当Locked属性为True时，控件可以选取，不可以编辑。8.35修改控件显示字体可以通过Font属性设置，字体颜色通过FontColor属性设置。8.4.1 获得焦点和失去焦点1、 获得焦点事件是当控件获得选取焦点时的事件：语法结构如下：Private Sub控件名称 Enter() 代码 End Sub2 、失去焦点事件即光标离开该控件时发生的事件。Private sub 控件名称 Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox3.SetFocus End SubSetFocus方法可以选取指定的对象。8.4.2 鼠标事件1、当鼠标按下发生MouseDown事件：事件结构：Private sub 控件名称 MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) 代码 End Sub2、当鼠标松开发生MouseUP事件：事件结构：Private sub 控件名称 MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) 代码 End Sub3、当鼠标经过事件： 经过按钮事件程序Private sub CommandButton1 MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) CommandButton1.BackColor=&HC00000 End Sub 窗体的鼠标经过事件程序Private sub UserForm MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) UserForm.BackColor=&H8000000F End Sub8.5 常用控件