[求助]请高手帮个忙啊
我做了个屏幕保护的程序,在VB里可以运行,为什么装到WINDOWS里过了一分钟后就只是个图标啊!~希望高手们能告诉我为什么,哪里错了,程序肯定是没错的,VB里没问题,到底应该怎么样安装才可以啊!~
Private startx As Integer
Private starty As Integer
Private isfirstmove As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Unload Me
End Sub
Private Sub Form_Load()
isfirstmove = True
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Unload Me
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If isfirstmove = True Then
startx = X
starty = Y
isfirstmove = False
Else
If Abs(startx - X) > 50 Or Abs(starty - Y) > 50 Then
Unload Me
End
End If
End If
End Sub
这个就是源代码了,希望高手帮帮忙啊,谢谢!~