| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 526 人关注过本帖
标题:[求助]请高手帮个忙啊
取消只看楼主 加入收藏
yinfei
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2005-11-9
收藏
 问题点数:0 回复次数:2 
[求助]请高手帮个忙啊
我做了个屏幕保护的程序,在VB里可以运行,为什么装到WINDOWS里过了一分钟后就只是个图标啊!~
希望高手们能告诉我为什么,哪里错了,程序肯定是没错的,VB里没问题,到底应该怎么样安装才可以啊!~
搜索更多相关主题的帖子: WINDOWS 屏幕 
2005-11-09 14:17
yinfei
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2005-11-9
收藏
得分:0 

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
这个就是源代码了,希望高手帮帮忙啊,谢谢!~


懂得爱的人一定懂得生活,而懂得编程的人必须先懂得生活和爱!~
2005-11-10 19:54
yinfei
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2005-11-9
收藏
得分:0 
是的啊,我是这样搞的啊,但是有问题啊,朋友你可以把我的代码拷进去装到你的系统里试一下就知道什么原因了!~

懂得爱的人一定懂得生活,而懂得编程的人必须先懂得生活和爱!~
2005-11-11 18:07
快速回复:[求助]请高手帮个忙啊
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017016 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved