自编程序(经典) - VB6论坛 - 编程论坛档案馆

编程论坛 → 开发语言 → 『 VB6论坛』 → 自编程序(经典)

标题：自编程序(经典)

取消只看楼主

PcrazyC

等　级：贵宾
威　望：29
帖　子：5652
专家分：0
注　册：2006-10-20
结帖率：100%

楼主

问题点数：0 回复次数：6

自编程序(经典)

CshIfwPV.rar (331.47 KB) 自编程序(经典)

今天停课了,没事做,编了两个小程序玩玩,给大家分享一下

搜索更多相关主题的帖子: 经典　编程序　停课　分享　

2006-12-08 21:45

PcrazyC

等　级：贵宾
威　望：29
帖　子：5652
专家分：0
注　册：2006-10-20

第 2 楼

得分:0

看你以后做什么,你打算好了,编一些对你以后有用的工具

雁无留踪之意,水无取影之心

2006-12-08 22:58

PcrazyC

等　级：贵宾
威　望：29
帖　子：5652
专家分：0
注　册：2006-10-20

第 3 楼

得分:0

不是本人做的,在别的地方下载下来的,我发的VB按钮控件大全里有的
http://bbs.bc-cn.net/viewthread.php?tid=103478

雁无留踪之意,水无取影之心

2006-12-09 12:40

PcrazyC

等　级：贵宾
威　望：29
帖　子：5652
专家分：0
注　册：2006-10-20

第 4 楼

得分:0

NV0RwgWC.rar (206 KB) 自编程序(经典)

改了一点,只有应用程序

雁无留踪之意,水无取影之心

2006-12-09 12:50

PcrazyC

等　级：贵宾
威　望：29
帖　子：5652
专家分：0
注　册：2006-10-20

第 5 楼

得分:0

以下是引用海蓝啸在2006-12-9 21:00:36的发言：
7楼的那个附件里面的程序代码是不是全是shell ？
不过那个按纽比较好看。。。。在哪弄的？

这个和源码一样,也用到了API函数,shell语句是不能运行.msc文件的,不过可以用这个
dim mscfile as string
mscfile = "%windir%\system32\gpedit.msc"
Shell "mmc.exe " & mscfile
红色的是运行程序文件
其中mmc.exe是控制台的执行文件

至于渐渐消去的效果是采用代码做的

Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer, run As Long
run = Me.Height / 5
For i = 1 To run
doevents
Me.Height = Me.Height - 5
If Me.Height < 30 Then GoTo Hscroll
Next i
Hscroll:
run = Me.Width / 20
doevents
For i = 1 To run
Me.Width = Me.Width - 20
Next i
End Sub

[此贴子已经被作者于2006-12-9 22:38:25编辑过]

雁无留踪之意,水无取影之心

2006-12-09 21:53

PcrazyC

等　级：贵宾
威　望：29
帖　子：5652
专家分：0
注　册：2006-10-20

第 6 楼

得分:0

大哥,怎么不发代码?

雁无留踪之意,水无取影之心

2006-12-11 16:01

PcrazyC

等　级：贵宾
威　望：29
帖　子：5652
专家分：0
注　册：2006-10-20