VBA窗体和控件初接触（1）：

最新推荐文章于 2024-04-27 13:53:00 发布
最新推荐文章于 2024-04-27 13:53:00 发布
阅读量6.8k 收藏 43
点赞数 2
文章标签： c# asp.net .net
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/xuemanqianshan/article/details/104675430
版权

前面是自己纯摸索的，这篇跟着书看，我喜欢这种先自学了再看书的感觉

form的自学方法

  • 属性窗口，按照分类排序
  • 按F1 可以查看帮助

  

1 窗体 form

1.1 创建窗体 form (默认名：userform)

  • 在VBE里和插入模块一样，插入用户窗体即可

1.2 如何运行/显示 窗体？

1.2.1 显示窗体的代码方法

  • 据说，单写一句 userform1.show 也是可以的，因为VBE会自动先 load 这个窗体
  • load form1    '加载窗体，加载到内存，但不显示
  • form1.show   '显示窗体  （必须得先加载到内存，才可能显示）
  • 这里语法都是用的form1 的name属性，也是load name , unload name,  name.show
Sub callform1()

Load UserForm1
UserForm1.Show

End Sub

1.2.2 选中form后，点运行也可以

1.2.3 出错处理

  • 如果这个窗体不存在，就没法使用对象.show方法，会报错 要求对象
  • 如果load form2 ，form2不存在，也是报错 要求对象，load object 的语法

1.3 关闭窗体：其实是卸载 unload，注意模式窗体和无模式窗体

  • 只能在窗体运行时，窗体本身的事件去关闭他

  • 一般正常代码代码

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Unload UserForm1
End Sub

1.3.1 一般创建的窗体，无法再运行时被其他VBA代码等关闭，也不能操作EXCEL

  • 下面的代码1毫无意义
  • 因为，窗体在运行的过程中，VBE是挂起的，无法调用
  • 代码1
  • Sub unloadform1()   
Unload UserForm1      '没办法调用
End Sub

1.3.2 设置模式窗体 和无模式窗体的方法

  • 默认或者设置    vbmodal 就是有模式的窗体
  • 如果设置   窗体4.Show vbModeless  就是无模式的窗体，并且运行时可以允许其他VBA关闭这个允许的窗体
  •  注意vbmodal 不要写成 vbmodel  
Sub test10001()
窗体4.Show vbModal  '或 窗体4.show  注意不要写成 vbmodel
End Sub


Sub test1002()
窗体4.Show vbModeless
End Sub


Sub test1003()   '因为窗体4设置为modelless，这里才能在其运行时关闭他
Unload 窗体4
End Sub

1.4 窗体命名的特殊性

  • VBE中可以创建2个窗体，默认自动命名为  userform1 , userform2
  • 在不同的窗体下
  • 但是事件代码的 窗体名字都叫  userform，并没有被命名为  userform1 , userform2
  • 可能是因为不同窗体是独立的，并且每个窗体和控件组，只能有1个form窗体。

  • 在同一个窗体下
  • 反正只有1个窗体
  • 控件如果在一个窗体内窗体创建多个，是会自动+1命名的。

1.5 窗体的基本属性

1.5.1 窗体的名字和标题

  • form1.name           '窗体名字
  • 也是load name ,    unload name,  name.show
  • form1.caption        '只是标题而已，创建的窗体，默认窗体的name=caption 其实是独立的
Private Sub UserForm_Click()
Debug.Print Me.Caption
Debug.Print Me.Name
End Sub


1.5.2 窗体的一些感觉会有用的属性

  • name
  • caption
  • picture 相关几个 picturesizemode picturealignment
  • picturealignment                                 '试了下默认center居中，还有topleft等4个角对齐选择。
  • picturesizemode                                 '默认是clip截断（原尺寸），zoom 缩放好像是等比例缩放？  stretch拉伸铺满
  • pictureTiling                                        '默认是否，置为1后为平铺 （可见平铺是单独的属性）
  • font  
  • height  ,width
  • top,left
  • backcolor, bordercolor, borderstyle
  • enabled                                                '是否可用，可以初始化form的
  • mouseicon,mousepointer                     '应该可以设置不同的鼠标外观
  • scrollbars                                              '给form加各种scrollbar

  • 暂时还不清楚的属性
  • righttoleft ?
  • cycle

1.6  窗体的一些设定

1.6.1 关于窗体和控件的事件代码中的 me   (可以说类 thisform)

  • me就是指当前的窗体，比如 窗体.name
  • 应该是一定指代parent 窗体，而不是 button这种控件
  • me 比 form.name 好的就是，即使name 改名了，me都是指代 thisform 不用修改
Private Sub CommandButton1_Click()

Debug.Print Me.Name
'Debug.Print Me.Caption   ' 如果activeX控件在表单里

End Sub

1.6.2 切换表单和代码的地方

1.7 窗体的事件

1.7.1窗体的initialize事件

  • 窗体作为他下属控件的 parent ，那么 form1_intialize() 事件可以做很多初始化工作
  • 比如，初始化一些 变量值，控件变量的初值
  • 比如初始化一些功能，比如 让一些控件初始是不可用的    =enabled
Private Sub UserForm_Initialize()
Me.Caption = ActiveWorkbook.Name & "  的一个窗体"

'设置某控件个初值
'设置一些按钮初始可用还是不可用

End Sub

1.7.2  窗体的关闭前触发时间  queryClose

  • 窗体的关闭模式
  • 参数1：closemode
  • closemode=1, 手动点关闭按钮，或者是caption栏右键的菜单
  • closemode=2, VBA代码里用的 unload 语句
  • 参数2：cancel
  • cancel=0（false） 可以关闭
  • cancel=1（true）   取消关闭=不可关
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then        '手动关闭按钮，或者是右键点击caption栏弹出的关闭菜单
   Cancel = True
   MsgBox "不允许手动关闭,请您双击窗体关闭"
ElseIf CloseMode = 1 Then    '代码unload方法
   Cancel = 0
   Load 窗体2
   窗体2.Show
End If

End Sub

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Unload 窗体1
Unload Me
End Sub

2 如何在窗体上创建其他控件？

2.1 窗体上的控件工具栏

  • VBE不友好的地方
  • 和PS喜欢把一些常用工具给叠起来右键才能打开几个一样，对新手不友好
  • VBE里如果要往窗体上加控件，平时写代码的时候是灰色的，必须是切到窗体设计模式时才亮起。。。

2.2 可添加更多工具控件

  • 还可以添加其他非常见工具控件

2.3 设置TAB键次序

  • 表单上点右键可以呼出 设置tab 次序
  • 但是好像必须得设置，不能把某些控件给排除掉？  ---经测试，TAB键实际响应时会排除label等不影响。

 

3 窗体控件的公共属性

3.1 控件属性的修改

  • 同1个属性，比如 backcolor
  • 可以在属性窗口，静态的修改（只能在运行开始设置1次）
  • 也可以在VBA代码中修改     （理论上运行过程中随时可以修改）

3.2 控件的公共属性

  • 窗体里的各种控件，有很多共用属性
  • 有很多公共属性
  1. 设置
  2. enabled    可用 
  3. visible     显示
  4. 背景设置
  5. backcolor
  6. backstyle
  7. 提示文本等
  8. controlTipText  鼠标停留时，触发的悬浮窗提示
  9. caption,text,value
  10. 其他呢？
  11. controlSource

3.3 展示效果

3.4 对应代码

Private Sub CommandButton1_Click()
If Len(TextBox2.Value) <= 6 And Len(TextBox1.Value) <= 8 Then
   MsgBox "输入正确，即将登陆... ..."
   Unload 窗体1
Else
   MsgBox "用户名和密码输入有误，请重新输入"
End If
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub Label5_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub Label7_Click()

End Sub

Private Sub TextBox1_Change()
   Debug.Print "TextBox1.Value = " & TextBox1.Value
   If TextBox1.Value <> "" And TextBox2.Value <> "" Then
      CommandButton1.Enabled = True
      CommandButton1.Visible = True
      CommandButton1.Visible = True
      Label5.Visible = False
   Else
      CommandButton1.Visible = False
      Label5.Visible = True
   End If
End Sub

Private Sub TextBox1_Enter()
'类似于activeX控件的textbox1_getfocus吧
TextBox1.ControlTipText = "可以输入数字字母或中文,但必须小于8个字符"
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'类似于activeX控件的textbox1_lostfocus吧
BackColor = RGB(0, 255, 255)
If Len(TextBox1.Value) > 8 Then
   Cancel = True
   MsgBox "用户名不能超过8个字符，请重新输入"
   TextBox1.SetFocus
Else
   TextBox2.SetFocus
End If
End Sub

Private Sub TextBox2_Change()
   Debug.Print "TextBox2.Value = " & TextBox2.Value
   If TextBox1.Value <> "" And TextBox2.Value <> "" Then
      CommandButton1.Enabled = True
      CommandButton1.Visible = True
      Label5.Visible = False
   Else
      CommandButton1.Visible = False
      Label5.Visible = True
   End If
End Sub

Private Sub TextBox2_Enter()
   TextBox2.ControlTipText = "请输入6位以内的任意密码"
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox2.Value) <= 6 Then
   CommandButton1.SetFocus
Else
   MsgBox "您输入的密码大于6位，请重新输入"
   TextBox2.SetFocus
End If
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Unload Me
End Sub

Private Sub UserForm_Initialize()
Me.Caption = ActiveWorkbook.Name & "  的一个窗体"
CommandButton1.Enabled = False
CommandButton1.Visible = False
'设置某控件个初值
'设置一些按钮初始可用还是不可用
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then        '手动关闭按钮，或者是右键点击caption栏弹出的关闭菜单
   Cancel = True
   MsgBox "不允许手动关闭,请您双击窗体关闭"
ElseIf CloseMode = 1 Then    '代码unload方法
   Cancel = 0
   Load 窗体2
   窗体2.Show
End If
End Sub

4 控件的公共事件：鼠标事件 mouse 类

4.1 鼠标类属性

  • mouseIcon       ：自定义鼠标icon，需要mousePointer设置为custom 99
  • mousePointer    : 鼠标外观，有多种内置外观 

4.2 鼠标类事件

  • mouseMove  : 
  • mouseDown  :  持续按下的状态
  • mouseUp       : 

4.3 识别鼠标和shfit等三个按键

  • button 是int  识别鼠标的键位
  • 其中1是左键，2是右键，4是中键
  • shift  是int  识别是否同时按下其他几个键， ctrl shift alt 这几个键
  • shift ,ctrl ,alt 分别是 1 2 4 这几个是基础状态
  • 多个键的组合状态是求和
  • 3=1+2
  • 5=1+4
  • 6=2+4
  • 7=1+2+4

代码注意点

  • 注意点
  • 命令按钮是 commandbutton2
  • 但是mousemove,mouseDown 等参数是button 且是过程级参数
  • 实际使用时，判断鼠标的时候有判断 shift ctrl等的吗？
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'button 是int  识别鼠标的键位
'shift  是int  识别是否同时按下其他几个键， ctrl shift alt 这几个键


If Button = 1 Then
    If Shift = 1 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标左键" & "并且" & "按下了shift"
    ElseIf Shift = 2 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标左键" & "并且" & "按下了ctrl"
    ElseIf Shift = 3 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标左键" & "并且" & "按下了shift+ctrl"
    ElseIf Shift = 4 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标左键" & "并且" & "按下了alt"
    ElseIf Shift = 5 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标左键" & "并且" & "按下了shift+alt"
    ElseIf Shift = 6 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标左键" & "并且" & "按下了ctrl+alt"
    ElseIf Shift = 7 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标左键" & "并且" & "按下了shift+alt+ctrl"
    Else
        CommandButton2.ControlTipText = "刚才按下了鼠标左键"                                      '总是会记住上次的状态
    End If


ElseIf Button = 2 Then
    If Shift = 1 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标右键" & "并且" & "按下了shift"
    ElseIf Shift = 2 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标右键" & "并且" & "按下了ctrl"
    ElseIf Shift = 3 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标右键" & "并且" & "按下了shift+ctrl"
    ElseIf Shift = 4 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标右键" & "并且" & "按下了alt"
    ElseIf Shift = 5 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标右键" & "并且" & "按下了shift+alt"
    ElseIf Shift = 6 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标右键" & "并且" & "按下了ctrl+alt"
    ElseIf Shift = 7 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标右键" & "并且" & "按下了shift+alt+ctrl"
    Else
       CommandButton2.ControlTipText = "刚才按下了鼠标右键"
    End If


ElseIf Button = 4 Then
    If Shift = 1 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标中键滚轮" & "并且" & "按下了shift"
    ElseIf Shift = 2 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标中键滚轮" & "并且" & "按下了ctrl"
    ElseIf Shift = 3 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标中键滚轮" & "并且" & "按下了shift+ctrl"
    ElseIf Shift = 4 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标中键滚轮" & "并且" & "按下了alt"
    ElseIf Shift = 5 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标中键滚轮" & "并且" & "按下了shift+alt"
    ElseIf Shift = 6 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标中键滚轮" & "并且" & "按下了ctrl+alt"
    ElseIf Shift = 7 Then
       CommandButton2.ControlTipText = "刚才按下了鼠标中键滚轮" & "并且" & "按下了shift+alt+ctrl"
    Else
       CommandButton2.ControlTipText = "刚才按下了鼠标中键滚轮"
    End If

End If

End Sub

4.4 利用mouseMove，但是需要在form 和 command 的时候分别设置

  • mousemove
  • mousemove到 commandbutton2 的时候是一个颜色
  • 但是没有 mouse--leave 状态可用，所以，当mousemove到表单了就表示 mouse-leave了

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton2.BackColor = &HC00000
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton2.BackColor = RGB(0, 255, 0)
End Sub

  

5 控件的公共事件：键盘事件  key类

5.1 key类的事件

  • onkey?
  • keydown     ' keydown 和keypress有一定重复，但是keydown主要是指KEY一直按下的状态
  • keyup
  • keypress

5.2  识别key值

  • key相关函数可以返回 ByVal KeyCode As MSForms.ReturnInteger 
  • 这个是 ascii码
  • 在VBA中, 用chr() 转下即可得到对应的字母，数字，符号等等。
Private Sub CommandButton3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
MsgBox "这次按下的键是" & Chr(KeyCode)
End Sub

Private Sub CommandButton3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

End Sub

Private Sub CommandButton3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

End Sub

6 测试发现问题

  • 有个比较奇怪的问题
  • 1是VBE测试窗体，运行不稳定，有时候弹出msgbox点击确定会关闭窗体，有时候不会关闭整个窗体，并没有改代码
  • 为什么点击msgbox 的确定时，会关闭窗体呢？暂时还没查到原因
奔跑的犀牛先生
关注
  • 2
    点赞
  • 踩
  • 43
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
vba，窗体的应用系列之窗体显示
jieru_liu的博客
03-31 5945
窗体显示有两种模式： 1、无模式显示： 可以对表格进行操作 2、有模式显示： 不可以对表格进行操作
Access_VBA编程使用技巧大全.doc
10-03
Access_VBA编程使用技巧大全.doc
VBA学习笔记三：常用属性、函数和方法
最新发布
gogoel的博客
04-27 1437
VBA学习笔记三：常用属性、函数和方法。从交互函数引入，分别介绍了单元格调整和移动、字符串处理、数学运算、日期时间处理、查找定位和替换、排序筛选和填充、文件和目录操作、超链接操作以及如何调用 Excel 的内置函数。这些基本用法可以帮助我们开始编写简单的VBA代码，处理各种数据和Excel表格。
VBA窗体函数
wangpei787636458的专栏
05-25 1405
使用VBA创建应用程序 来源:中数休闲   发表时间:2007-2-7  浏览次数:534 【字体：大 中 小】
在VBA窗体中制作菜单
03-12
office 办公实用实例 - 在excel VBA窗体中制作菜单.
Excel VBA 学习总结 - 多行多列数据展示
weixin_34311757的博客
09-15 743
　　对于多行多列数据，基本使用Worksheet中的Range就可以处理了。但是在UserForm类型的应用中，也时常需要处理多行多列的数据。在UserForm中，显示和处理多列数据，通常可以有的选择有以下几种：DataGrid，ListView，ListBox。前面两类相当强大，但是也比较复杂，一般的简单应用中用不到。 DataGrid 　　DataGrid控件天生就是为了处理像Record...
Excel VBA UserForm用户窗体中添加按钮，并进行选择
qq_39629993的博客
08-07 1万+
1、插入一个用户窗体 需要在用户窗体中加入按钮的，则需要打开“工具箱” 插入控件按钮 2、代码编写 （1）、首先在sheet中添加一个按钮，来显示用户窗体，查看效果 Private Sub CommandButton1_Click() UserForm1.Show End Sub 鼠标单击CommandButton1出现如下窗口，这是未对窗口进行任何代码编写的效果。 （2）、在用户窗体中编写代码，打开编写界面 两个主要函数 Private Sub UserForm_Initialize(
Excle VBA 用户窗体控件属性中文解释.xlsx
06-08
该文件为 ExcleVBA 用户窗体控件的属性值含义及用法。 主要包含一些常用模块。其中列举了每种情况所对应的含义及使用方法。 本文件只对用户窗体中属性进行了一定的注释，具体语法的使用如果不太明白请咨询百度。
VBA窗体日历插件.zip
10-26
在这个“VBA窗体日历插件.zip”中，我们有一个专为VBA环境设计的窗体日历组件，这将极大地提升Office应用的用户体验和自动化程度。 日历.frm文件是VBA中的窗体（Form）源代码文件，它包含了日历插件的界面设计和...
EXCEL VBA 控件常规使用——窗体控件介绍
08-02
本文将介绍 VBA 窗体控件的基本操作内容、各种常用属性和常用操作。 控件的基本操作 在 VBA 中，控件的基本操作包括显示、隐藏和卸载。显示控件可以使用 `UserFormName.Show` 语句，例如 `UserForm1.Show`。隐藏...
excle-VBA-窗体控件属性中文解释
08-22
在Excel VBA（Visual Basic for Applications）编程中，窗体控件是...这份“窗体控件属性中文解释查询大全.xls”文件为初学者和有经验的开发者提供了宝贵的参考，使他们能更轻松地理解并利用VBA窗体控件实现各种功能。
excle-VBA-窗体控件属性中文解释查询大全
02-09
excle-VBA-窗体控件属性中文解释查询大全，可帮助刚学习VBA窗体的同学
vba属性和方法大全
08-18
vba属性和方法大全,提供了VBA的属性与方法的应用。
VBA窗体.show，在首次调用后，可能会出现不重新初始化的BUG
lio_luo的博客
07-31 780
VBA窗体生命周期
Excel VBA属性、方法、事件大全——Part12（Complete List of Excel VBA attribute/method and event）
预见未来to50的专栏
06-15 2304
对象/属性/方法/事件（Object/Attribute/ Method/Event） 描述（Description） QBColor 返回一个 Long，用来表示所对应颜色值的 RGB 颜色码。语法 QBColor(color)必要的 color 参数是一个界于 0 到 15 的整型。 Quartile 返回数据集的四分位数。四分位数通常用于在销售额和测量数据中对总体进行分组。例如，...
Excel 2010 VBA 入门 127 创建并显示窗体
复行数十步
11-01 9630
目录 窗体对象及其属性 窗体对象的显示与关闭 窗体对象的装载与显示 窗体对象的卸载与隐藏 窗体的显示模式 窗体是Excel VBA中提供的一种窗口对象。它属于工作簿对象（Workbook）中VB工程对象（VBProject）下的VB组件集合（VBComponents）中的一个组件。使用窗体制作专业化的软件界面时，Excel VBA允许在窗体中添加ActiveX控件以实现更强大的功能。 步骤1 在工作表中插入一个ActiveX按钮，将其命名为CommandButton1，Captio...
【VBA(十三)：窗体与控件】【窗体+控件+小结】
LinGavinQ
04-28 1万+
本章主要内容：窗体，控件，小结。
VB中Show方法详解
热门推荐
hijack-x's Blog
04-10 2万+
语法：窗体名.Show [Modal][,Owerner]说明：Modal：指定窗体显示的模式，可以为vbModal（=1）或vbModeless（=0，默认值），vbModal表示将窗体作为模式对话框显示，这种情况下，Show方法后的代码要等到模式对话框关闭之后才能执行，且焦点也不能移动到其他窗体；vbModeless表示将窗体作为无模式对话框显示，这种情况下，焦点能在其他窗体之间转
vba 窗体调用
05-30
要在 VBA 中调用窗体，首先需要确保窗体已经被创建并打开。然后，可以使用以下代码来调用窗体： ``` Form1.Show ``` 其中，"Form1" 是窗体的名称。如果窗体是通过另一个窗体打开的，可以使用以下代码： ``` Form2.Show vbModal ``` 其中，"Form2" 是另一个窗体的名称，"vbModal" 指定了以模态方式打开窗体，这意味着用户必须先关闭这个窗体才能继续与其他窗体交互。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值