有一个vb程序怎么运行该怎么打开？？

来源：蜘蛛抓取(WebSpider) 时间：2016-12-07 03:01 标签： vb打开外部程序
&&&&我编的一个小程序，这个程序打开来是VB好用、易学，又有趣!!
&我编的一个小程序，这个程序打开来是VB好用、易学，又有趣!!
VERSION 5.00
Begin VB.Form Form1
&CH01_01 Hello VB&
ClientHeight
ClientLeft
ClientWidth
ScaleHeight
ScaleWidth
StartUpPosition =
'Windows Default
mandButton Command1
Begin VB.Label Label1
Attribute VB_Name = &Form1&
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form1.Label1.Caption = &VB好用、易学，又有趣!!&
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
VIP下载&&免积分60元/年（1200次）
您可能还需要
Q.为什么我点的下载下不了，但积分却被扣了
A. 由于下载人数众多，下载服务器做了并发的限制。若发现下载不了，请稍后再试，多次下载是不会重复扣分的。
Q.我的积分不多了，如何获取积分？
A. 获得积分，详细见。
完成任务获取积分。
论坛可用分兑换下载积分。
第一次绑定手机，将获得5个C币，C币可。
关注并绑定CSDNID，送10个下载分
下载资源意味着您已经同意遵守以下协议
资源的所有权益归上传用户所有
未经权益所有人同意，不得将资源中的内容挪作商业或盈利用途
CSDN下载频道仅提供交流平台，并不能对任何下载资源负责
下载资源中如有侵权或不适当内容，
本站不保证本站提供的资源的准确性，安全性和完整性，同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
开发技术下载排行
您当前C币：0&&&可兑换 0 下载积分
兑换下载分:&
消耗C币:0&
立即兑换&&
兑换成功你当前的下载分为 。前去下载资源
你下载资源过于频繁，请输入验证码
如何快速获得积分？
你已经下载过该资源，再次下载不需要扣除积分
我编的一个小程序，这个程序打开来是VB好用、易学，又有趣!!
所需积分：10
剩余积分：0
扫描微信二维码精彩活动、课程更新抢先知
VIP会员，免积分下载
会员到期时间：日
剩余下载次数：1000
我编的一个小程序，这个程序打开来是VB好用、易学，又有趣!!
剩余次数：&&&&有效期截止到：
你还不是VIP会员VIP会员享免积分 . 专属通道极速下载
VIP下载次数已满VIP会员享免积分 . 专属通道极速下载，请继续开通VIP会员
你的VIP会员已过期VIP会员享免积分 . 专属通道极速下载，请继续开通VIP会员欢迎加入我们，一同切磋技术。 &
用户名： &&&
密　码： &
共有 1578 人关注过本帖
标题：已解决：如何控制打开程序的次数
等　级：新手上路
帖　子：90
结帖率：50%
&&问题点数：0&&回复次数：13&&&
已解决：如何控制打开程序的次数
有一个vb程序，我想在程序中添加一些代码，当该VB程序打开五次之后就不能再打开了，请问如何能实现？（就是共享软件中常用的限制使用次数的功能）谢谢！
[[it] 本帖最后由 桃源书生 于
14:34 编辑 [/it]]
搜索更多相关主题的帖子:
等　级：新手上路
帖　子：812
写个INI文件啊
计数器加一
当然这个INI文件你要隐藏好了
也可以写如注册表
怎么不可以用Discuz代码呢！
等　级：新手上路
帖　子：90
哦，那如何写入注册表？用哪些参数？谢谢！
等　级：新手上路
帖　子：812
'次数限制（如３０次）如下：
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting(&MyApp&, &set&, &times&, 0)
If RemainDay = 30 Then
&&MsgBox &试用次数已满，请注册&
&&Unload Me
MsgBox &现在剩下：& & 30 - RemainDay & &试用次数，好好珍惜！&
RemainDay = RemainDay + 1
SaveSetting &MyApp&, &set&, &times&, RemainDay
--------------------------------------------------
'时间限制的（如３０天）
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting(&MyApp&, &set&, &day&, 0)
If RemainDay = 30 Then
&&MsgBox &试用期已过，请注册&
&&Unload Me
MsgBox &现在剩下：& & 30 - RemainDay & &试用天数，好好珍惜！&
if day(now)-remainday&0 then RemainDay = RemainDay + 1
SaveSetting &MyApp&, &set&, &times&, RemainDay
怎么不可以用Discuz代码呢！
等　级：新手上路
帖　子：812
GetSetting 函数&&&&&&从 Windows 注册表中的应用程序项目返回注册表项设置值。语法GetSetting(appname, section, key[, default])GetSetting 函数的语法具有下列命名参数：部分描述appname必要。字符串表达式，包含应用程序或工程的名称，要求这些应用程序或工程有注册表项设置。section必要。字符串表达式，包含区域名称，要求该区域有注册表项设置。key必要。字符串表达式，返回注册表项设置的名称。default可选。表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则 default 取值为长度为零的字符串 (&&)。说明如果 GetSetting 的参数中的任何一项都不存在，则 GetSetting 返回 default 的值。
怎么不可以用Discuz代码呢！
等　级：新手上路
帖　子：812
SaveSetting 语句&&&&&&在 Windows 注册表中保存或建立应用程序项目。语法SaveSetting appname, section, key, settingSaveSetting 语句的语法具有下列命名参数：部分描述appname必要。字符串表达式，包含应用程序或工程的名称，对这些应用程序或工程使用设置section必要。字符串表达式，包含区域名称，在该区域保存注册表项设置。key必要。字符串表达式，包含将要保存的注册表项设置的名称。setting必要。表达式，包含 key 的设置值。说明如果无论如何也不能保存注册表项设置，则将导致错误发生。
怎么不可以用Discuz代码呢！
等　级：论坛游民
帖　子：502
专家分：44
注册表也不一定安全！
等　级：新手上路
帖　子：90
呵呵，谢谢元老的详细解答。
程序是有立必有破，不知道目前哪种加密方式比较安全呢？要是太复杂或者用加密狗之类的就算了，因为我只是编个小程序，不是追求最安全的（我觉得也没有最安全的吧，至少不会永远安全的吧）。呵呵，欢迎大家讨论。
等　级：新手上路
帖　子：812
任何东西都有百密一疏啊
怎么不可以用Discuz代码呢！
等　级：论坛游民
帖　子：502
专家分：44
是啊！盖茨也头痛！
版权所有，并保留所有权利。
Powered by , Processed in 0.021369 second(s), 9 queries.
Copyright&, BCCN.NET, All Rights Reservedvb编程怎么做这样一个小程序-学网-中国IT综合门户网站-提供健康,养生,留学,移民,创业,汽车等信息
> 信息中心 >
vb编程怎么做这样一个小程序
来源：互联网 发表时间： 13:02:37 责任编辑：王亮字体：
为了帮助网友解决“vb编程怎么做这样一个小程序”相关的问题，学网通过互联网对“vb编程怎么做这样一个小程序”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:vb编程怎么做这样一个小程序，具体解决方案如下：解决方案1：你个思路，关闭程序后，求和后再保存。。，你输入的数据就不在了，所以要先存入文件中下次打开再从文件中取出解决方案2：
要做什么程序啊
相关文章：
最新添加资讯
24小时热门资讯
Copyright © 2004- All Rights Reserved. 学网 版权所有
京ICP备号-1 京公网安备02号

我要回帖

更多关于 vb打开外部程序 的文章

 

随机推荐