自己制作的小东东，大家看看

wgf2005

这是我花了一下午才制作出来的。大家不要笑话我哟……





按F2退出。

[此贴子已经被作者于2005-3-10 18:22:01编辑过]

ququ

呵,嚇一跳

wgf2005

闹着玩的，不要被骂才好[em01]

issei

[em06]

静儿

这种玩笑还是不开的好。太吓人了！要格式化硬盘。还好没锁住热启动键。

szhtszx

有点意思！

wuheng

进入VBA的密码？？？能不能公开一下？！

wgf2005

当然可以

Private Sub Form_KeyPress(KeyAscii As Integer)

MsgBox "按任意键开始格式化C:盘", 0 + 0, "Windows"

DoCmd.OpenForm "格式化C:盘"

End Sub

Private Sub Form_Load()

DoCmd.RunCommand acCmdAppMinimize

DoCmd.Maximize

End Sub

Private Sub Form_Load()

Me.Text0.Width = 0

Me.Text0.RightMargin = Me.WindowWidth - 300

Me.TimerInterval = 10

End Sub



Private Sub Form_Timer()

If Me.Text0.Width < 5000 Then

Me.Text0.Width = Me.Text0.Width + 10

b = Format(Me.Text0.Width / 5000, "0%")

Else

Me.TimerInterval = 0

DoCmd.OpenForm "00"

End If

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 113 Then

DoCmd.Quit

End If

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

MsgBox "请插入系统安装盘并重新启动计算机", 0 + 0, "Windows"

End Sub

Private Sub Form_Load()

DoCmd.RunCommand acCmdAppMinimize

DoCmd.Maximize

End Sub

wuheng

进入VBA的密码？？？我想进慢慢看看，学习学习

wgf2005

这个没有VBA密码。看看吧……