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

public class 人生历程 extends Thread{public void run(){while(true){努力,努力,再努力!!;Thread.sleep(0);}}}
2005-11-10 12:08
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
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 

做完之后,生成为 exe 文件,然后改名为 .scr 后缀的。

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

懂得爱的人一定懂得生活,而懂得编程的人必须先懂得生活和爱!~
2005-11-11 18:07
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 
在 Form_Load 事件中加上:
Private Sub Form_Load()
isfirstmove = True
Me.WindowState = vbMaximized
End Sub

然后再在窗体属性中把 ControlBox 设为 False,这样窗体无控制栏并且最大化,可使屏幕保护程序更逼真。
2005-11-11 21:00
快速回复:[求助]请高手帮个忙啊
数据加载中...
 
   



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

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