我一直在尝试创建一种侧边栏菜单,当你点击一个按钮时会弹出一段时间,由于某种原因,我无法做到。当我保存代码并打开要测试的表单时,可以看到“侧面菜单”(这是另一种形式),而不是超出您可以看到的区域。 Imgur preview。
表单列表非常混乱,但问题中实际使用的唯一一个是“菜单”和“TestFormFormForm”(不要询问名称)。我使用的代码如下。
Option Compare Database
Private Sub Command2_Click()
Dim x As Integer
x = 0
Do
DoEvents
Menu.Left = Menu.Left - 100
timeout (0.0075)
x = x + 1
Loop Until x = 50
End Sub
Private Sub Form_Load()
Me.ScrollBars = 0
Menu.Left = Me.Width + 1000
Menu.Move _
Left:=Me.Width + 1000, Top:=500
End Sub
Sub timeout(duration_ms As Double)
Start_Time = Timer
Do
DoEvents
Loop Until (Timer - Start_Time) >= duration_ms
End Sub
我也尝试过使用Me.WindowWidth = XYZ直到我意识到WindowWidth是只读的。
以下为我工作:
修改后的代码:
Private Sub Toggle4_Click()
Dim x As Integer
Me.Menu.Visible = True
Do
DoEvents
Me.Menu.Width = Me.Menu.Width + IIf(Me.Toggle4, 200, -200)
Me.Menu.Left = Me.Menu.Left - IIf(Me.Toggle4, 200, -200)
Me.Toggle4.Left = Me.Toggle4.Left - IIf(Me.Toggle4, 200, -200)
timeout (0.01)
x = x + 1
Loop Until x = 10
Me.Menu.Visible = Me.Toggle4
End Sub