本类文章的标签为 ‘用户窗体’

Page 1 of 3123

在用户窗体文本框中创建上下文菜单

2010年03月3日, 1:24 下午
1 颗星2 颗星3 颗星4 颗星5 颗星 (目前还没有人投票)
Loading ... Loading ...

这是Andy Pope贡献的一个示例，能够在用户窗体文本框中使用上下文菜单。如下图所示。

在这个示例中，使用类来为文本框添加上下文菜单。
这个类模块处理上下文菜单指令，捕获文本框中的右击操作，并处理剪切、复制和粘贴行为。类模块使用了用户窗体的ActiveControl对象。这段代码甚至可以处理诸如框架和多页等容器控件里的控件。
下面是用户窗体初始化代码，展示了定义和使用类对象是如此的简单。仅需要声明该对象，然后设置每个想要具有上下文菜单功能的文本框的引用。

Private m_colContextMenus As Collection
 
Private Sub UserForm_Initialize()
 
    Dim clsContextMenu As CTextBox_ContextMenu
 
    Set m_colContextMenus = New Collection
 
    Set clsContextMenu = New CTextBox_ContextMenu
    With clsContextMenu
        Set .TBox = UserForm1.TextBox1
        Set .Parent = Me
    End With
    m_colContextMenus.Add clsContextMenu, CStr(m_colContextMenus.Count + 1)
 
    Set clsContextMenu = New CTextBox_ContextMenu
    With clsContextMenu
        Set .TBox = UserForm1.TextBox2
        Set .Parent = Me
    End With
    m_colContextMenus.Add clsContextMenu, CStr(m_colContextMenus.Count + 1)
 
    Set clsContextMenu = New CTextBox_ContextMenu
    With clsContextMenu
        Set .TBox = UserForm1.TextBox3
        Set .Parent = Me
    End With
    m_colContextMenus.Add clsContextMenu, CStr(m_colContextMenus.Count + 1)
 
    Set clsContextMenu = New CTextBox_ContextMenu
    With clsContextMenu
        Set .TBox = UserForm1.TextBox4
        Set .Parent = Me
    End With
    m_colContextMenus.Add clsContextMenu, CStr(m_colContextMenus.Count + 1)
 
    Set clsContextMenu = New CTextBox_ContextMenu
    With clsContextMenu
        Set .TBox = UserForm1.TextBox5
        Set .Parent = Me
    End With
    m_colContextMenus.Add clsContextMenu, CStr(m_colContextMenus.Count + 1)
 
End Sub

示例下载：

相关文章

标签：, , , ,
分类目录： VBA  |  评论  | 86 次阅读

带有菜单栏的用户窗体

2010年01月21日, 1:17 下午
1 颗星2 颗星3 颗星4 颗星5 颗星 (目前还没有人投票)
Loading ... Loading ...

今天，给大家分享Jan Karel Pieterse的作品：带有菜单栏的用户窗体。如下图所示。
CreateMenuInUserform
示例文档下载：

相关文章

标签：,
分类目录： VBA  |  评论  | 346 次阅读

在一个列表框中显示另一列表框中的具体内容

2010年01月19日, 7:07 下午
1 颗星2 颗星3 颗星4 颗星5 颗星 (目前还没有人投票)
Loading ... Loading ...

有时，需要选中某列表框的的项目后，在另一列表框中显示该项目的具体内容，如下图1所示。
listboxselect1
图1：两个列表框实现内容匹配
“专业工程”包括“建筑工程、装饰装修工程……”等，当选中项目列表框中的专业工程后，在分类列表框中显示相应的内容。同理，选择项目列表框中的措施项目后，在分类列表框中也会显示相应的内容。
第一步：准备数据
如下图2所示，在工作表Sheet1中输入下列数据。
listboxselect2
图2：基础数据
将A列的数据命名为“项目”，将B列的数据命名为“专业工程”，将C列的数据命名为“措施项目”。注意，B列和C列的名称应与A列的数据相一致。
第二步：准备窗体界面
如图1所示，在用户窗体中放置两个标签控件、两个列表框控件，并将两个列表框控件分别命名为lbxItem和lbxCategory。
第三步：输入代码
在用户窗体代码模块中，输入下列代码：

Private Sub lbxItem_Change()
    Dim rngCategory As Range
 
    Set rngCategory = Sheet1.Range(Me.lbxItem.Value)
 
    Me.lbxCategory.List = rngCategory.Value
End Sub
 
Private Sub UserForm_Initialize()
    Dim rngItem As Range
 
    Set rngItem = Sheet1.Range("项目")
 
    Me.lbxItem.List = rngItem.Value
End Sub

运行后的最终效果如图1所示。当然，您可以在A列添加更多的项目数据，然后在C列、D列……添加相应的内容并以A列的数据命名，从而扩展本实例。
(注：网站空间被删前的文章，有一定的学习意义，故找出来重新贴出之)

相关文章

标签：, , ,
分类目录： VBA  |  1 评论  | 346 次阅读

在Excel中创建弹出样式的用户窗体

2009年12月21日, 1:12 下午
1 颗星2 颗星3 颗星4 颗星5 颗星 (目前还没有人投票)
Loading ... Loading ...

继续来看Ross的作品，一个弹出样式的用户窗体，如下图所示。
popupform1
在工作表中，单击鼠标右键，选择单元格快捷菜单底部的命令“PopUp Form”，即出现上图所示的弹出窗体。
鼠标在窗体内移动时，显示鼠标的位置。当鼠标移出窗体时，窗体消失。
示例文档下载：

相关文章

标签：, ,
分类目录： VBA  |  评论  | 675 次阅读

在用户窗体中播放视频

2009年12月18日, 1:23 下午
1 颗星2 颗星3 颗星4 颗星5 颗星 (目前还没有人投票)
Loading ... Loading ...

下面继续介绍Ross McLean使用VBA技术创作的实例，在用户窗体中播放视频，使用了Windows API，如下图所示。
playvedio
可以下载示例文档体验：

相关文章

标签：, ,
分类目录： VBA  |  评论  | 247 次阅读
Page 1 of 3123