VB编程请高手赐教！

要求页面加载后，倒计时十秒，由最初的不可用转变为可用状态…

设置窗体由透明变为不透明就行了

'添加一个label1　　　command1 timer1 '复制以下代码，恭喜你，成功了！ Private Sub Form_Load() Label1.Caption = "10" Timer1.Interval = 1000 Command1.Enabled = False End Sub Private Sub Timer1_Timer() If Label1.Caption > 0 Then Label1.Caption = Label1.Caption - 1 Else Label1.Visible = False Command1.Enabled = True Timer1.Enabled = False End If End Sub

Option Explicit Dim a As Integer

Private Sub Form_Load() Command1.Enabled = False Timer1.Interval = 1000 End Sub

Private Sub Timer1_Timer() a = a + 1 If a >= 10 Then Command1.Enabled = True Timer1.Interval = 0 End If End Sub

跳转页面代码：

首先设置 timer1的interval属性值为1000

Private Sub Timer1_Timer() Static a As Integer a = a + 1 If a >= 10 Then '表示10秒后跳转 Timer1.Enabled = False Form2.Show 'form2就是你需要显示的那个页面。 Unload Me End If End Sub