ExcelVBA用户窗体编程基础 概述 当使用MsgBox函数和InputBox函数不能满足与用户交互的需求时，您能使用用户窗体来自定义对话框。您能使用用户窗体来显示所输入的数据，您甚至能使用用户窗体创建一个完整的用户界面，而不会让用户接触到电子表格本身。 您在Windows对话框中所看到的大多数控件都能在用户窗体中实现——命令按钮，选项按钮，复选框，文本框，组合框——加上一些其它不常用的控件像图像，日历，等等。 本文介绍了用户窗体的基本概念，并介绍了使用用户窗体的常用技术。其中，也讲解了一些最通用的思路。在文章中列举了一个包含所有过程的完整的示例文件，以及实现这些过程的代码，让您能在实践中看到所有工作的基本原理和方法。 本文包含以下内容： ● 基本的用户窗体操作 ● 用户窗体和控件的属性 ● 一个用户窗体的生命周期 ● 用户窗体和控件的事件 ● 问题1：如何在用户窗体间传递数据？ ● 问题2：如何找到我的窗体中的某类控件？ ● 问题3：如何获取数据到列表框中？ ● 问题4：如何为循环创建进度条？ ● 一个完整的用户窗体综合示例 基本的用户窗体操作 ?创建一个窗体。打开VBE编辑器(选择菜单“工具——宏——Visual Basic编辑器”或按Alt+F11组合键)，选择菜单“插入——用户窗体”，或者在工程窗口中单击右键，从弹出的快捷菜单中选择“插入——用户窗体”，即可创建一个窗体。 ?添加控件。当你创建了一个窗体后，将会显示一个名为“控件工具箱”的浮动工具箱(如果没有该工具箱的话，您可以从视图菜单中找到它)，其中显示了最普遍的控件类型。单击您想要的控件，拖动它到您的用户窗体中。 ?更多的控件。有一些更多的可用的控件，您可以在控件工具箱中单击右键，从中选择“附加控件”，您能添加日历、电子表
91: （1）【考点分析】本题考点有ComboBox控件的属性设置，窗体Caption属性。 【解题思路】在窗体上添加控件后，要设置控件的相关属性，使其外观、数据与图示相同。【操作步骤】 步骤1：新建一个窗体，在窗体上添加一个ComboBox控件。 步骤2：设置这个ComboBox控件的名称为Cbo1，Style属性为"1-Simple Combo"，List 值输入北京、天津、上海. 步骤3：设置窗体Caption属性为"使用组合框"。 步骤4：测试并运行程序，关闭程序后按题目要求存盘。 （2）【考点分析】本题考点有：窗体的Caption属性，窗体的单击事件，PictureBox控件的Print方法。 【解题思路】单击窗体，则改变窗体标题和PictureBox控件的显示文本，说明在窗体的Click事件中执行了改变以上相关属性的语句。改变窗体标题可直接对Caption属性赋值，改变PictureBox控件的显示文本可以使用它的Print方法。 【操作步骤】 步骤1：新建工程，设置窗体Capion属性为"程序设计"。 步骤2：在窗体上添加PictureBox控件，设置名称为P1。 步骤3：打开代码编辑窗口，在Form的Click事件下编写如下代码。 参考答案 P1.Print Caption Caption = "Basic" 步骤4：测试并运行程序，关闭程序后按题目要求存盘。 92: （1）【考点分析】本题考点是Image控件的属性、CommandButton控件的Tab属性。 【解题思路】使用图像随着控件的大小而变化，需要设置Image控件的Stretch属性为True。而窗体运行时按回车按即执行按钮的Click事件，需要设置按钮控件的TabIndex属性为0，TabStop属性为True。 【操作步骤】 步骤1：新建一个工程。 步骤2：在窗体上添加一个Image控件，一个Button控件。控件的主要属性设置如下表。 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【考点分析】本题考点是CommonDialog控件的添加使用，菜单的添加和事件设置。 【解题思路】通用对话框是一种ActiveX控件，在一般情况下，启动VB后，在工具箱中没有通用对话框控件。为了把通用对话框控件加到工具箱中，其操作步骤如下：执行"工程"菜单中的"部件"命令，打开"部件"对话框。在对话框中选择"控件"选项卡，然后在控件列表框中，选择"Microsoft Common DialogControl 6.0"。单击"确定"按钮，通用对话框立即被加到工具箱中，通用对话框的属性可以在属性窗口中直接设置。 菜单的添加可以在窗体上右击，选择"菜单编辑器"来创建和修改。 【操作步骤】 步骤1：新建一个工程。如果工具箱中没有通用对话框控件，则通过菜单"工程"-"部件"
第6章控件与用户窗体 范例67 文本框只能输入数值 Private Sub TextBox1_KeyPress(ByVal KeyANSI As MSForms.ReturnInteger) With TextBox1 Select Case KeyANSI Case Asc("0") To Asc("9") Case Asc("-") If InStr(1, .Text, "-") > 0 Or .SelStart > 0 Then KeyANSI = 0 End If Case Asc(".") If InStr(1, .Text, ".") > 0 Then KeyANSI = 0 Case Else KeyANSI = 0 End Select End With End Sub Private Sub TextBox1_Change() Dim i As Integer Dim Str As String With TextBox1 For i = 1 To Len(.Text) Str = Mid(.Text, i, 1) Select Case Str Case ".", "-", "0" To "9" Case Else .Text = Replace(.Text, Str, "") End Select Next End With End Sub
范例68 限制文本框的输入长度 Private Sub TextBox1_Change() TextBox1.MaxLength = 6 End Sub 范例69 验证文本框输入的数据 Private Sub CommandButton1_Click() With TextBox1 If (Len(Trim(.Text))) = 15 Or (Len(Trim(.Text))) = 18 Then Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = .Text Else MsgBox "身份证号码错误，请重新输入!" End If .Text = "" .SetFocus End With End Sub 范例70 文本框回车自动输入 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim r As Integer r = Cells(Rows.Count, 1).End(xlUp).Row With TextBox1 If Len(Trim(.Text)) > 0 And KeyCode = vbKeyReturn Then Cells(r + 1, 1) = .Text .Text = "" End If End With End Sub 范例71 文本框的自动换行 Private Sub UserForm_Initialize() With TextBox1 .WordWrap = True
实践——为窗口添加菜单条和工具条 步骤1：新建工程，以自己的学号命名：如。在建好的java project里，新建可视化类mainFrame，继承自swing包中的JFrame类，窗口自带内容面板名称为“jContentPane”，将窗口的标题改为“主窗体”，修改窗口的属性，将“visiable”属性改为“true”； 步骤2：修改jContentPane，将其“layout”属性改为“null”； 步骤3：下面开始制作菜单，打开可视化编辑区域右侧浮动的组件面板“Palette”，添加菜单条，在“swing menus”页中选中JMenuBar，单击拖动到“mainFrame”，将其命名为“jJMenuBar”； 注意：也可以在“java beans”页面，选中“this-“主窗体”，再进行拖动。 步骤4：打开可视化编辑区域右侧浮动的组件面板“Palette”，添加菜单，在“swing menus”页中选中JMenu，单击拖动到“jJMenuBar”，将其命名为“jMenu1”；修改“jMenu1”的“text”属性为“文件”。 步骤5：打开可视化编辑区域右侧浮动的组件面板“Palette”，添加菜单项，在“swing menus”页中选中JMenuItem，单击拖动到“jMenu1”，将其命名为“jMenuItem1”；修改“jMenuItem1”的“text”属性为“新建”。 步骤6：重复步骤5的操作，新建菜单项“jMenuItem2”；修改“jMenuItem2”的“text”属性为“保存”。 步骤7：重复步骤5的操作，新建菜单项“jMenuItem3”；修改“jMenuItem3”的“text”属性为“退出”。 步骤8：打开可视化编辑区域右侧浮动的组件面板“Palette”，添加工具栏，在“swing menus”页中选中JToolBar，单击拖动到“jContentPane”，将其命名为“jJToolBarBar”；在可视化编辑区合理调整工具条的大小； 步骤9：打开可视化编辑区域右侧浮动的组件面板“Palette”，添加工具栏里面的按钮，在“Swing Components”页中选中JButton，单击拖动到“jJToolBarBar”，将其命名为“jButton1”；修改“jButton1”的“icon”属性，给按钮添加一幅图片；可以从工程目录里添加，也可以从本地硬盘的某个位置添加； 步骤10：重复步骤9，再给工具条添加一个按钮；
窗体中的常用控件单选3分 1.在计算机控件中，每个表达式前都要加上（"="） 2.用于显示更新数据库中的字段的控件类型是（绑定型） 3.关于控件的叙述，（选项组不能设置为表达式）的说法正确 4.（表）不是窗体控件 5.纵栏式窗体同一时刻能显示（一条记录） 6.无论是自动创建窗体还是报表，都必须选定要创建该窗体或报表基于的（报表） 7.没有数据来源的控件类型是（非绑定型） 8.关于控件的叙述，（在窗体设计视图窗口中的工具箱中只能看到部分控件）说法错误 9.能够接受数字型数据输入的窗体控件是（文本框） 10.在教师信息输入窗口中，为职称字段提供"教授""副教授""讲师"等选项供用户直接选择，应使用控件是（组合框） 11.要用文本框来显示当前日期，应设置文本框的控件来源属性是（=Data（）） 12.窗口事件是指操作窗口时所引发的事件，（取消）不属于窗口事件 13.如果想再加入控件时，控件自动与网格对其，则应在加入控件前，执行"格式（对其网格）"命令 14.当窗体的内容比较多无法在一页中全部显示时，可以使用（选项卡）进行分页，若要进行页面切换，用户只需单击选项卡上的标签即可 15.（选项组）是用来显示一组有限选项集合的控件 16.在学生表中使用"照片"字段存放相片，当使用向导为该表创建窗体时，照片字段使用的默认控件是（绑定对象框） 17.为窗体上的控件设置Tab键的顺序，应选择属性对话框中的（数据选项卡） 18.使用窗体设计视图，不能创建（报表） 19.如果在窗体上输入的数据总是取自某一个表或查询中记录的数据，或者取自某固定内容的数据，可以使用（组合框或列表框）控件 20.（只要单击选项组中所需的值，就可以为字段选定数据值）的说法正确 21.（命令按钮）代表一个或一组操作 22.（可以向组合框中输入新值，而列表框不行） 23.创建窗体的数据源不能是（报表） 24.若要求在文本框中输入文本时达到密码"*"号的显示效果，则应设置的属性是（"输入掩码"属性） 25.（窗体设计器）不是窗体的组成部分 26.关于控件的叙述，（在选项组中每次只能选择一个选项）的说法是正确的 27.
巧学明星美白技巧，赶走黄脸婆恶名 皮肤美白最好的方法 哪个女人会愿意成为黄脸婆呢！但谁又能抵挡时间流逝所带来的痕迹呢？想永远年轻漂亮，那可要付出极大的努力了。 美白工作不可怠慢 不想成为黄脸婆，美白工作不可怠慢。在学习怎样去黄美白之前，我们要对症下药，先要弄明白自己脸色暗黄的原因，以下有几种常见的“黄脸婆”类型，赶快对号入座，看看你是哪种吧！
时光流逝黄脸婆 特征：肤色蜡黄，并出现斑点皱纹 原因：女人一般从25岁开始衰老，那么不可避免的皮肤会开始老化，皮肤因为表面老化细胞的沉积就会变黄、暗沉，加上女性子宫及卵巢功能衰退而引起的内分泌失调、体内毒素积累，都会引起皮肤出现色斑和暗黄。 补救方法：定期清除脸部废弃角质、肌肤表面老化细胞的沉积，能让肌肤净白、通透，也能提高皮肤的吸收能力。生活中应该多运动出出汗，多喝水，也可以使用一些含蛋白质的美容产品，帮助皮肤排毒。 快去看看大S的美白秘方》》》》》 上班族黄脸婆 特征：脸色暗黄不均匀 原因：对皮肤老化影响最大的要算紫外线，当人体受到紫外线照射等外界刺激时，皮肤的基底层会形成更多的黑色素来对抗紫外线对皮肤的伤害，皮肤就会越来越黑。其次，现代都
市上班族除了在户外受紫外线伤害，在办公室内的日光灯、电脑屏幕和一些办公设备发出来的紫外线和辐射都会对让皮肤变黑、变黄。 补救方法：无论你的工作是长时间在户外或者面对电脑，都一定要记得擦防晒霜，还要2到3小时补擦，而且下班后记得做好晒后修复。 快去看看大S的美白秘方》》》》》 缺水型黄脸婆 特征：肤色并不很黑，但缺乏光泽 原因：皮肤的柔软度与皮肤的含水量成正比。水分是由起保护作用的酸性外皮层保留在皮肤内的。皮肤黄的原因还有就是干燥的空气很快就会夺去你皮肤中的水分，引起皮肤的小皱褶，脸部出现阴影，因而导致脸色变暗沉。 补救方法：除了基本的保湿工作之外，还可以经常为肌肤做个SPA，把薄薄一层保湿精华敷在脸上，再将浸过温水的毛巾轻轻盖在脸上，用手指将毛巾轻轻往下压，令毛巾贴紧面部和眼部皮肤，让热气停留约30秒，以促进脸部的血液循环，黄脸婆气色马上好起来。
向窗体添加事件 下面的循序渐进的过程显示了如何给窗体创建自定义事件。要试用此练习，可打开一个新的“标准EXE”工程，并按如下面步骤去做： 要将事件添加到Form1 中，请按照以下步骤执行： 1. 在“工程”菜单上，选择“添加类模块”，将类模块添加到工程中。将下面的代码放置到Class1 的“声 明”部分： 2.Public Property Get Form1() As Form1 3.Set Form1 = mForm1 4.End Property 5. 6.Public Property Set Form1(ByVal NewForm1 As Form1) 7.Set mForm1 = NewForm1 End Property 如果使用过程视图，则不能同时查看属性过程。单击代码窗口左下角的“全模块视图”按钮，转换到全模块视图。单击过程视图旁边的“过程视图”按钮，可以返回过程视图。（将鼠标在各个按钮上移动一下，看看哪个是哪个。） 8. 将下面的代码添加到Form1 的“声明”部分： 9.Event Gong Private mc1 As Class1 因为已经创建了Class1，所以创建Class1 类型的变量是可能的。这个过程要在Form1 和 Class1 之间切换几次，因为在模块中的操作步骤，需要首先给另一个模块添加代码。 10. 返回Class1，并将下面的代码添加到“声明”部分。 Private WithEvents mForm1 As Form1 就象在“向类中添加事件”所讨论的那样，WithEvents 关键字意味着Form1 的这个实例是与事件相关联的。注意，这一步成为可能，要到已经创建了Gong 事件。 11. 在Class1 的“代码”窗口上的左边“对象”下拉菜单上，选择“mForm1”来为Gong 事件得到事件 过程。将下面的代码添加到该事件过程中： 12.Private Sub mForm1_Gong() 13.MsgBox "Gong!" End Sub 14. 返回Form1。在“对象”下拉菜单上，选择“添加窗体”，在右边“过程”下拉菜单上，选择“加载”。 将下面的代码添加到事件过程中： 15.Private Sub Form_Load() 16.Set mc1 = New Class1
在主窗体Panel中添加新的窗体(C#，winform开发) 本文的要写的是如何将窗体（Form）添加到panel中。 为什么要这样呢？ 1）如果用tab控件，整个窗体的控件太多，不易于我们编程； 2）可以更灵活的控制窗体的布局。 我想你一定看过这样的配制信息窗体吧（迅雷的配置页面）。 在你的项目开发中,是否也希望做出做出这种效果呢?应该如何设置呢?单击窗体的左边的按钮,窗体右边的内容会根据单击的按钮变化. 开始是想到的设置思路很简单,主窗体(如上图),右边放置一个Panel控件.然后根据单击的按钮将子窗体显示在Panel控件上.在按钮的单击事件中加入下面的代码:private void button1_Click(object sender, EventArgs e) {ChildForm child = new ChildForm(); this.panel1.Controls.Add(child); child.Show(); }运行程序显示“不能将顶级控件添加到一个控件上”出现“不能将顶级控件添加到一个控件上”错误怎么处理？在代码中加入 child.TopLevel = false;OK.新问题又出现了.我们不希望子窗体的标题和边筐也显示在父窗体中,再添加如下代码.
child.FormBorderStyle = FormBorderStyle.None;现在的感觉是不是舒服多了.但是还隐藏着一个新问题.怎样动态设置子窗体的Size、Location等呢?我希望在调整父窗体大小时，Panel1中子窗体的大小也跟随动态自动调整 .需要加入下面的事件 private void panel1_Resize(object sender,System.EventArgs e) { try { this.child.ClientSize=new System.Drawing.Size(panel1.Size.Width,pa nel1.Size.Height); } catch(System.Exception Er) { MessageBox.Show(Er.ToString()); } }编译无错，执行时（Error:未将对象引用设置到对象的实例） 但连续点了4个一样的错误提示确认后，程序却可以正常执行，并且form1调整窗体大小form2也可以随之响应了。 此计不行,又生一计.我们可以把子窗体当成一个控件,设置Dock属性不就行了吗?赶快测试一下:private void button1_Click(object sender, EventArgs e) {ChildForm child = new ChildForm(); child.TopLevel = false; child.Dock = System.Windows.Forms.DockStyle.Fill; child.FormBorderStyle = FormBorderStyle.None; //child.Parent = this.panel1; this.panel1.Controls.Add(child); child.Show(); }
1：在“窗体视图”中显示窗体时，窗体中没有记录选定器，应将窗体的“记录选定器”属性值设置为 A、是 B、否 C、有 D、无 2：如果在文本框内输入数据后，按Enter键或按Tab键，输入焦点可立即移至下一指定文本框，应设置的属性是______。 A、"制表位"属性 B、"Tab键索引"属性 C、"自动Tab键"属性 D、"Enter键行为"属性 3：在教师信息输入窗体中，为职称字段提供"教授"、"副教授"、"讲师"等选项供用户直接选择，最合适的控件是______。 A、标签 B、复选框 C、文本框 D、组合框 4：在学生表中用"照片"字段存放相片，当使用向导为该表创建窗体时，照片字段使用的默认控件是______。 A、图形 B、图像 C、绑定对象框 D、未绑定对象框 5：下列属性中，属于窗体的"数据"类属性的是______。 A、记录源 B、自动居中 C、获得焦点 D、记录选择器 6：在Access中为窗体上的控件设置Tab键的顺序，应选择"属性"对话框的 ______。 A、"格式"选项卡 B、"数据"选项卡 C、"事件"选项卡 D、"其他"选项卡
7：若在"销售总数"窗体中有"订货总数"文本框控件，能够正确引用控件值的是______。 A、Forms.[销售总数].[订货总数] B、Forms![销售总数].[订货总数] C、Forms.[销售总数]![订货总数]: D、Forms![销售总数]![订货总数] 8：主窗体和子窗体通常用于显示多个表或查询中的数据，这些表或查询中的数据一般应该具有的关系是______。 A、一对一 B、一对多 C、多对多 D、关联 9:能够接受数值型数据输入的窗体控件是______。 A、图形 B、文本框 C、标签 D、命令按钮 10:下列可用于创建窗体或修改窗体的视图是______。 A、设计视图 B、窗体视图 C、数据表视图 D、透视表视图 11：设计窗体时，可通过设置命令按钮的一个属性来指定按钮上要显示的文字，该属性是______。 A、名称 B、标题 C、格式: D、图像 12：在窗体设计时，要设置标签文字的显示格式应使用______。 A、格式工具栏 B、字段列表框 C、工具箱 D、窗体设计工具栏 13：下列关于窗体的叙述中，正确的是______。 A、窗体只能用作数据的输出界面 B、窗体可设计成切换面板形式，用以打开其他窗体 C、窗体只能用作数据的输入界面:
八大皮肤问题及解决办法 你有什么样的皮肤问题？有痘痘？有淡斑？还有皮肤发黑？这里医师教你解决！ 皮肤问题1 脸上痘痘好不容易消失之后，痘印的困扰却又来了，有没有什么办法能让痘印彻底消失？ 想让痘印彻底消失，需要很长一段时间，而且，有些敏感痘印性肌肤会留下永久性痘印。对于一般肌肤而言，使用含果酸的保养品，能同步治疗痘痘及改善痘印，促使老废角质脱落，帮助肌肤更新，改善长痘痘后的色素沉着，淡化痘印。你也可以去看专业的皮肤科医生，开一些专门针对痘印的药膏。如果依然不见好，则需要做个微整形小手术，建议你去口碑很好的专业医院咨询，手术后还需要个给肌肤特别的专业护理，才能让肌肤持久光滑。 皮肤问题2 最近黑头越来越多，有啥很快见效的去黑头方法吗？ 一般MM喜欢用痤疮针挤出黑头，见效虽然块，但却会对毛孔周围的肌肤造成伤害，长期挤压的话，毛孔将彻底被破坏无法被修复。比较平稳的方法是，选择一款绝佳的洁面产品，每周在黑头区用磨砂膏来清除老化角质1-2次。当然，你也可以在T区贴鼻贴，但是切忌太频繁，否则会伤害角质层，是局部肌肤过于敏感。你要牢记的是，对抗黑头不是一劳永逸的事情，需要长期保证肌肤清洁和健康。 皮肤问题3 我眼睛下方和脸颊突然冒出了好多脂肪粒，应该如何处理？可以用针来挑吗？ 不可以！千万不要冒险自己用针来挑脂肪粒，这会导致肌肤留下很难看的疤痕。通常脂肪粒产生跟你使用的眼霜有关，有时眼霜太油的话，会导致脂肪粒的产生，应当及时更换你的眼部保养品。如果你一定要挑掉脂肪粒，去专业正规的美容院，用消毒后的针类器具挑出。在长脂肪粒期间，饮食上要尽量少吃油腻食品，多喝水，多吃青菜。涂抹眼霜时的手法也很重要，手势一定要柔和，眼霜量不用过多。 皮肤问题4 我的毛孔特别粗大，脸颊也鼻子上都有，用过很多所谓收敛毛孔的产品，似乎都不见效，难道真的没什么好办法了吗？ 一般毛孔粗大是因为油脂分泌旺盛所造成的，要想彻底缩小毛孔，还是比较难实现的，毛孔并不是说靠一瓶神奇美容液就能消除的，我们只能采取一些缓解的措施。每个月至少做一次去角质，长期坚持下来，你的毛孔粗大状况会有所改善。如果想要见效很快的话，可以去医院做个激光美容小手术。 皮肤问题5 现在都提倡LOHAS生活方式，美容护肤，自制植物面膜是不是更加新鲜有效？ 新鲜蔬果中丰富的营养成分和果酸，确实又减少皮肤角质层的聚合力及去角质的作用，使得肌肤更加光滑又弹性。然而，不同季节面部肌肤对外界的抵御能力会有所不同。夏季，皮肤的屏障功能会有所降低，这时较易出现皮肤过敏反应。另外不同的肤质对果酸的耐受度也不同，瓜果中浓度过高的有机酸与皮肤直接接触，就会产生腐蚀和刺激作用，久而久之引起皮肤逐渐粗糙老化。直接用蔬果做面膜还是有一定的风险，最好还是要根据季节和自身的肤质而定！ 皮肤问题6 我是又干又油的混合型肌肤，真的很郁闷，我怎么才能摆脱这样T区油油脸颊干干的状况？ 80%的亚洲人都属于偏混合型肌肤，所以，不要郁闷，只要选对产品，按着正确的护肤程序来保养肌肤，油腻和干燥问题都不会很严重。建议你最好先在油性T区下工夫，先用温和的洁面乳清洗一下，然后稍微去一下角质，一支具有控油功效的乳液或者啫喱会让你的T区感到满意的，接下来把含有水杨酸或是具有保湿功效的面霜涂在面部其余部分就可以了。注意：不要用太热的水来洗脸，那会让你的肌肤变得更干。另外，对于混合型皮肤来说，可以早上用相对清爽的保湿乳液，晚上用质地厚重的保湿面霜，给皮肤更多的滋养。
一个控件从同一窗体的另一个控件实际接收到焦点之前，Enter 事件发生。同一窗体中的一个控件即将把焦点转移到另一个控件之前，Exit 事件发生。 语法 Private Sub object_Enter( ) Private Sub object_Exit( ByVal Cancel As MSForms.ReturnBoolean) Enter和Exit事件的语法包含以下成分： 成分说明 object必需。一个有效的对象名。 Cancel必需。事件状态。False表示由该控件处理这个事件（这是默认方式）。True表示由应用程序处理这个事件，并且焦点应当留在当前 控件上。 说明 Enter 事件和 Exit 事件与 Visual Basic 中的 GotFocus 和 LostFocus 事件类似。与 GotFocus 和LostFocus 事件不同的是，当窗体接收或失去焦点时 Enter 事件和 Exit 事件不发生。 例如，假如选中了可初始化 Enter 事件的复选框，而后如又选中同一窗体中的另一个控件，那么对于该复选框来说，Exit 事件被初始化（因为焦点正在移到同一窗体中的不同对象上），而对于该窗体中的第二个控件来说，Enter 事件发生。 因为 Enter 事件发生在焦点移到一特定控件上之前，所以可用 Enter 事件过程来显示指令。例如，可用一个宏或者事件过程来显示一个小窗体或消息框，标识控件一般所包含的数据类型。 注意将控件 Exit 事件的Cancel参数赋值为True，可防止控件失去焦点。 当将控件插入到窗体、框架或多页控件中的一个页面中时，此事件发生。 语法 对于框架 Private Sub object_AddControl( ) 对于多页 Private Sub object_AddControl(index As Long, ctrl As Control) AddControl事件的语法包含以下成分： 成分说明 object必需。一个有效的对象。 index必需。包含新控件的页面的索引。
《Windows桌面窗口菜单》教案 课题：第十五课Windows桌面窗口菜单 教学要求： 1、对有关Windows的知识作一总结，使学生在概念上对其有一定的理解，对计算机的认识更加系统化。 2、通过本课的学习，强化计算机的操作能力，进一步理解计算机是人们处理信息的“工具”。 3、Windows操作系统的桌面、图标、任务栏、快捷方式、窗口、菜单等概念，这些概念并不要求学生去记忆，只要求知道它们的外观、功能并能熟练操作即可。 教学重点： 通过本课的学习，强化计算机的操作能力，进一步理解计算机是人们处理信息的“工具”。 教学过程： 一、谈话导入： Windows操作系统是计算机的管家，它管理着计算机的运行。我们使用计算机这一信息处理工具，也要由Windows系统管理。 Windows操作系统为我们提供了“桌面”、“窗口|”、“菜单”“文件夹”等多种管理工具，这些工具与计算机的程序有关，又与人对计算机的操作有关，既与计算机处理信息有关，又与人和计算机的信息有关。今天我们就一起学习Windows 的操作系统。 二、新授： 活动一、试一试：设置桌面背景和屏幕保护程序。 1、什么是桌面背景 桌面背景是用户打开计算机进入Windows操作系统后，所出现的桌面背景颜色及图片。我们可以选择单一的颜色作为桌面的背景，也可以选择BMP、JPG 等格式的文件作为桌面的背景。 2、设置方法： 教师出示下面文字，学生练习操作。
小提示： 设置桌面背景时，右击桌面任意空白处，在弹出的快捷菜单中选择“属性”命令，或单击“开始”按钮，选择“控制面板”命令，在弹出的“控制面板”对话框中双击“显示”图标，在打开的“显示属性”对话框中选择“桌面”选项卡，在“背景”列表框中可选择一幅喜欢的背景图片，也可以单击“浏览”按钮，在本地磁盘或网络中选择其他图片作为桌面背景。在“位置”下拉列表中有居中、平铺和拉伸三种选项，可调整背景图片在桌面上的位置。若想用纯色作为桌面背景，可在“背景”列表中选择“无”选项，在“颜色”下拉列表中选择喜欢的颜色，单击“应用”按钮。 3、练习：学生上机操作。 4、设置屏幕保护 教师演示： 设置屏幕保护时，在“显示属性”对话框中选择“屏幕保护程序”选项卡，在该选项卡的“屏幕保护程序”选项组中的下拉列表中，选择一种屏幕保护程序，即可看到它的显示效果。单击“设置”按钮，可对该屏幕保护程序进行一些设置；单击“预览”按钮，可预览该屏幕保护程序的效果，移动鼠标或敲击键盘即可结束屏幕保护程序；在“等待”文本框中可设置一定的时间并确定，这样如果计算机在这段时间内无操作就会启动屏幕保护程序。 学生操作 活动二、认识图标，任务栏，快捷方式 试一试 1、拖动任务栏到桌面的任何一侧或是顶端，看看桌面有什么变化？ 2、鼠标指针移动到任务栏边，变为双箭头形时，拖动，看看有什么变化？ 3、右击文档或常用工具，在桌面上创建“快捷方式” 4、练习“最大化，最小化，”打开多个窗口操作。 活动三、拓展知识 P42页：Windows操作系统的菜单 三、课堂小结
第2章使用窗体控件 课堂练习：为控件创建事件处理程序 5）传递给这个事件处理程序的第二个参数(e)的目的是什么？ 答：参数e包含事件数据。它是一个EventArgs 对象（实际不包含事件数据的基类），或者是一个派生类（像MouseEventArgs）的实例。要查看派生类的完整列表，请在Visual Studio .NET帮助文档中使用短语“EventArgs 类”进行查找，然后点击链接转到“派生类”。 ●为Click 事件创建一个事件处理程序。 3）上面的双击动作为什么创建了一个Click 事件处理程序？ 答：当在设计视图中双击一个控件时，IDE会自动为默认事件创建一个事件处理程序。课堂练习：创建和使用ToolBar控件 8）为什么不能向ToolBar 按钮添加图像呢？ 答：ToolBar 控件将ImageList 控件作为图像源。使用ToolBar 控件的ImageList 属性指定Toolbar 将从哪个ImageList 控件获取图像。 13）运行应用程序。单击工具栏按钮时有事情发生吗？必须处理什么事件以响应单击ToolBar按钮？ 答：ToolBar 的ButtonClick事件用来处理ToolBar按钮的单击。ToolBarButtonClickEventArgs 用来确定单击了哪个按钮。 课堂练习：在运行时添加和移除控件 ●添加新控件 6）为什么decimalCheckBox 出现在GroupBox1控件的左上角？ 答：控件位置属性的默认坐标X和Y的值均为零。 课堂练习：在运行时更新菜单 ●使用另一个MainMenu 9）什么时候能在一个应用程序中使用多个MainMenu 控件? 答：在应用程序的上下文改变或者应用程序有多种状态时，使用（显示）多个MainMenu 对象会很有帮助。 ●将一个ContextMenu 分配给一个控件。 5）如何找出哪个控件与ContextMenu 有关联？ 答：ContextMenu.SourceControl 属性获取显示快捷方式菜单的控件。 ●找出与ContextMenu关联的控件
第九章控件综合试题 一、填空题 1．在图片框上放置的控件称为图片框的(子)对象，而窗体是图片框的(父)对象。2．窗体的“名称”(Name)属性只能在(属性窗口中)设置。 3．在程序中设置窗体Form1的Caption属性为"主窗体"，使用的赋值语句是(Form1.Caption="主窗体")。 4．当窗体的Enabled属性为(True)时，指定窗体响应事件。 5．窗体的Unload事件是在QueryUnload事件发生之(后)发生。 6．程序中，把当前窗体移动到屏幕左上角使用的方法为(Move0,0)。 7．在窗体Form1中坐标为(1600,800)的位置上输出字符串“Visual Basic 6.0”使用的语句为(Form1.Currentx=1600)、(Form1.Currenty=800)、和(Form1.Print "VisualBasic6.0")。 8．若使文本框有边框，需设置BorderStyle属性的值为(1)。 9．在程序运行期间，用户可以用文本框显示信息。文本框接收输入的内容的属性是 (Text)。 10．若使文本框内能够接受多行文本，则要设置Multiline属性的值为(True)。11．要把图形文件“C:\sample\diannt.jpg”装载到图片框Picture1上，使用的语句为(Picturel.Picture=LoadPicture("C:\sample\diannt.jpg"))。 12．若使图片框自动调整大小以适应装入的图形，则要设置Autosize属性的值为(True)。 13．除了在程序使用LoadPicture函数装载图形外，还可以在设计阶段通过修改(Picture)属性装载图形。 14．若程序中要把一些文本内容输出到图片框PictureBox，应使用(Print)方法。 15．当单选按钮OpdonButton的Value属性为(False)时，表示该单选按钮处于未选中状态。 16．若使命令按钮Command1重新生效，则使用的赋值语句为(Command1.Enabled=True)。 17．若使命令按钮不能接收和响应任何事件，可以设置Visible属性的值为(False)。
1 让皮肤变好 一个月前豆豆略多皮肤有点粗糙还有些小黄 现在皮肤细腻超滑的（哈哈偷笑）有点白 最重要的是豆豆都下去了！！！ 重点来了：每天早上起床，喝一杯鲜榨的果汁（一个苹果，一个胡萝卜，几片大白菜，偶尔一个番茄）这个秘方啊是豆瓣一个姐姐教的超灵的我有很多年的BM了没想到竟然差不多好了皮肤也变得超好 好开心！跟姐妹分享！ 介个还没试过，回来放假试试看 ------------------------------------------------------------------------------------------ 2 大姨妈你给我准时到来！！！ 【首先大家都知道红枣桂圆补血补气，可是我也真不明白为啥混一起喝就有催大姨妈来的效果。我给我舍友试过，她有回来了结果没两三天就停了，而且很少。我当天给她喝她下午就来了。之后是我隔壁宿舍的女生，她是拖了很久不来，喝了第二天就来了。另外她的舍友很搞笑，本来期还没到，凑热闹也喝了，结果提前来了。】 所以如果有的姐妹期差不多到了，想提早点也可以试试，但毕竟不是药不会那么准，但是至少喝了不会有任何损失，这个补气血让你气色变好，来的时候也不会那么怕冷了。 【我今天刚买的桂圆带壳的一大袋我估计够我喝个四次以上了，每个月也就那么一次，每次来如果运气好喝个两天就能催成功了。一大袋也就七八块钱，红枣一包也就不到五元，我是用可以直接吃的那种。桂圆有卖没壳的，比较贵就是了，~~~~~~~~~很多MM以为壳也要吃，其实不是，我只是想说你买带壳的自己剥或者买已经去壳去核的都行，就是价钱不一。】因为我要突出便宜方子，顺带提一下而已，但实际效果没差。~~~~~~~~~~~~~~ ========做法如下========： 因为别人告诉我的时候没有具体说怎么弄，就说桂圆和红枣泡热水。所以具体红枣桂圆几比几的放，大家也都看喜好，@@@@@@@@@红枣就超市卖的一包包的，阿胶枣也可以，什么新疆大枣之类的都行，我一般就用红色包装的那种阿胶枣，没事还可以啃几粒。桂圆就只是桂圆肉啊，如果买了带外壳的要剥壳啊。还有很多MM说买新鲜桂圆行不行，我想说，你是不是想说是龙眼？龙眼好像是夏天的水果吧，莫非现在海南会有？其实桂圆是中药的，
常用窗体事件 （1）Click 事件 在程序运行时单击窗体内的某个位置，Visual Basic将调用窗体的Form_Click 事件。如果单击的是窗体内的控件，则只能调用相应控件的Click事件。Click 事件：标题栏显示“鼠标单击”，窗体显示"欢迎使用VB" Private Sub Form_Click() Caption = "鼠标单击" Print "欢迎使用VB" End Sub （2）DblClick 事件 程序运行时双击窗体内的某个位置，就触发了两个事件，第一次按动鼠标时，触发Click事件，第二次产生DblClick事件。DblClick 事件：标题栏显示“双击窗体” ，清除背景图。 Private Sub Form_DblClick() Caption = "鼠标双击" Picture = LoadPicture("") Print "结束使用VB" End Sub (3) Initialize初始化事件与 Load事件 在程序运行时，当窗体被装入工作区时开始为Initialize之后才触发它的Load 事件。所以该事件通常用来在启动应用程序时,对控件属性和变量初始化Private Sub Form_Load() Caption = "装入窗体" Picture = LoadPicture ( App.Path + "\window.jpg") FontSize = 48 FontName = "隶书" Print "装入窗体" End Sub (4) Unload事件 Private Sub Form_Unload(cancel As Integer) 卸载窗体时触发该事件。 (5) Resize事件 Private Sub Form_Resize() 当窗体大小发生改变时，将触发一个Resize事件。 （6）Activate事件（活动事件）& Deactivate事件（非活动事件） Activate 当一个对象成为活动窗口时发生。 Private Sub object_Activate()
1.用户满意度=功能+___人机界面_____+响应时间+可靠性+易安装性+____信息____+可维护性+其他因素 2. ____人机交互（人机对话）____是指人与计算机之间使用某种语言、以一定的交互方式，为了完成任务进行的一系列信息交换过程。 3.软件界面设计分为____功能性设计界面____、____情感性设计界面____、____环境性设计界面____。 4.进行系统分析和设计的第一步是___用户分析_____。 5.使用较早，也是使用最广泛的人机交互方式是____交互方式____。 6.软件界面开发流程包括____系统分析____、____系统设计____、____系统实施____三个阶段 7.设计阶段包括界面的____概念设计____、____详细设计____、____原型建立____与界面实现以及综合测试与评估等8.VB 是以结构化___Basic_____语言为基础、以____事件驱动作____为运行机制的可视化程序设计语言。 9.菜单使用形式主要有____菜单操作____和____Tba控件操作____两种。 10.随着计算机图形技术的发展，以直接操纵、桌面隐喻以及所见即所得为特征的____图形用户界面____技术广泛被计算机系统采用。 11.在用VB 开发应用程序时，一般要布置窗体、设置控件的属性、___编写代码___。 12. 假定在窗体上有一个通用对话框，其名称为CommonDialog1,为建立一个保存文件对话框，则需要把Action 属性设置为__value__。 13. 计时器事件之间的间隔通过__interval__属性设置。 14. 语句“Print “5+65=”;5+65”的输出结果为__5+65=70__。 15. 设有下列循环体，要进行4次循环操作，请填空。 x = 1 Do x = x * 2 Print x Loop Until__x<=32__ 16. 下列程序段的执行结果为__2 3 5__。 x = 1 y = 1 For I = 1 To 3 F= x + y x = y y = F Print F; Next I 17. 以下为3个列表框联动的程序，试补充完整。 Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub Private Sub Drive1_Change() Drivel.Path=File1.Path;Dir1.Path=Drivel.Path__[7]__ End Sub 18. 在下列事件过程中则响应该过程的对象名是cmdl，事件过程名是__窗口标题事件__。 Private Sub cmd1_Click() Form1.Caption=“VisualBasic Example” End Sub 19. 当将文本框的SelStar 属性设置为0时，表示选择第开始位置在第一个字符之前，设置为1时表示__[9]__。 20. 以下程序代码实现单击命令按钮Command1 时形成并输出一个主对角线上元素值为“-”，其他元素值为“+”第6*6 阶方阵。 Privas Sub Command1_Click() DimA(6,6) For I = 1 To 6 For J = 1 To 6 If I = J Then Print “-” Else __[10]__ End If Print A (I,J); Next J Print Next I End Sub 21. 字母B的KeyAscii 码值为65，其KeyCode码值___[11]__。 22. Visual Basic 中的控件分为3类：__[12]_、ActioveX 控件和可插入对象。