📜  将选取框放入 vb.net - VBA 代码示例

📅  最后修改于: 2022-03-11 14:51:56.043000             🧑  作者: Mango

代码示例1
'Class-level variables.
Private m_intMarqueeCounter As Integer = 1
Private m_bolMarqueeIncrementUp As Boolean = True

Private Sub YourMarqueeTimer_Tick()

   'You can decide what number is best for your app.
   If m_intMarqueeCounter = 10 Then

      m_bolMarqueeIncrementUp = False

   End If

   If m_intMarqueeCounter = 0 Then

      m_bolMarqueeIncrementUp = True

   End If

   Dim intX As Integer
   For intX = 0 to m_intMarqueeCounter

      frmYourForm.Text = " " & "Your Title"

   Next

   If m_bolMarqueeIncrementUp Then

      m_intMarqueeCounter += 1

   Else

      m_intMarqueeCounter -= 1

   End If

End Sub