VBA菜单
2008年版，有没有可能制作一个从底部拉起的用户表单
屏幕边缘。在弹出的用户窗体上有按钮可供拉出
并运行其他CAD VBA或lisp项目？类似于工具栏但没有图标的东西。在单个VBA程序中使用userform的一些东西。有人有这样的样本吗？
非常感谢。 我使用一个我调用的弹出窗体来模拟一些程序是如何从Windows的startbar弹出的。通过按摩，你可以让它做你想做的事。创建一个带有计时器控件和标签的表单，并将代码复制到表单中。使用formPopUp调用表单。展示（或任何你称之为表格的东西）。
Dim DirectionIsUp As Boolean ' Up is True, Down is False
Private Sub Form_Load()
'Move it below the visible screen (and a little just in case)
Me.Top = Screen.Height + 10
'Move it to the far right of the visible screen (minus a little, just for esthetics)
Me.Left = Screen.Width - (Me.Width + 100)
'We're gonna move it up
DirectionIsUp = True
Me.Label1.Caption = "FINISHED"
End Sub
Private Sub Timer1_Timer()
'Move at 10 millisecond intervals (100 times a second, 3 times what the eye can see)
Timer1.Interval = 10
' If it's moving up
If DirectionIsUp Then
'Move it up 50 twips every 10 milliseconds
Me.Top = Me.Top - 50
'Move until the whole form is shown (minus 10 twips to make sure it still touches the bottom of the screen)
If (Me.Top <= Screen.Height - (Me.Height - 10)) Then
' This specifies how long it will stay shown (Unmoving)
Timer1.Interval = 3000
' We're gonna move it down next...
DirectionIsUp = False
End If
Else
'Move it down 50 twips every 10 milliseconds
Me.Top = Me.Top + 50
'Move until the whole form is shown (plus 10 twips to make sure it's hidden)
If Me.Top >= Screen.Height + 10 Then
Timer1.Enabled = False
Unload Me
End If
End If
End Sub
我有一些初学者代码，模仿一个工具调色板，在VBA，如果有人会告诉我如何附加文件后。。。
请看图片：
回答时：按照数字的顺序。
这基本上从一个基本的VBA表单和框架开始，并将其转换为一个简单的工具选项板。我只把它编码为停靠，最小化，离开。如果其他人想接球并带球跑动，那就直接跑吧。
当您将其加载到IDE中时，您将看到一个带有框架的简单VBA表单。当控件初始化时，它将此框架移动到窗口的侧面和顶部，并创建一个沿侧面向下运行的工具栏。
它使用您为Userform输入的任何内容。标题作为标题。
它在工具栏底部创建了一个“滑入”和“滑出”箭头，并在工具栏的toop上创建了一个关闭的“X”按钮。
这里的诀窍是将您想要编程的任何内容放在提供的框架内。您不必对齐框架或类似的东西，框架在设计时的大小将是运行时的大小。在运行时，它*将向左移动，并且表单将围绕帧收缩。
为了获得最大的灵活性，我通常在框架上放置一个多页控件。
它使用Autodesk的AcFocus控件，因此您可以在上使用文本框；它使用“wingdings3”字体来调整箭头大小。
你想用箭创作吗？更改字体。然而
它检查字母“t”和“u”（恰好是箭头的wingdings字体）以查看调色板应该向内还是向外滑动。如果您更改字体，请更改它要查找的字母。
我知道，这些字母应该列为常数，所以可以很容易地更改，所以起诉我。
如果有人知道在表单模块中使用类型的解决方法，我想听听。这是API调用未在表单模块中列出的唯一原因。。。。
Vba_工具选项板。拉链 我导出并重新导入了代码，以便在上传之前缩小dvb。上面的文件没有acFocus控件的参考。如果你不知道如何添加，这里附加的文件与上面相同，但附带文件参考。。。
Vba_工具选项板。拉链
页:
[1]