荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Xie (。。。。。。), 信区: Program
标 题: [转寄] VB邮件(6.1)
发信站: BBS 荔园晨风站 (Thu Jun 3 09:56:45 1999), 转信
发信人: aaaaaaaaa (VB), 信区: VBVC
标 题: VB邮件(6.1)
发信站: 网易虚拟社区 (Tue Jun 1 07:43:09 1999), 站内信件
编者的话
====================================================================
各位网友：
VB邮件自开办以来已经发了38期了，您对该邮件
有什么建议和要求，请来信,来信请寄msnet@188.net
主题为：我有建议
如果您有好的作品或您发现了好的作品，不要忘
了让大家共享。
版主期待您的参与！！！
版主 冯德平
=============================================
VB邮件(6.1)
a VB调用API函数技巧--如何得到磁盘上剩余空间的值
最直接的方法是调用API函数 GetDiskFreeSpace,函数声明如下:
Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFre
eSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long,
lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumb
erOfClusters As Long) As Long
计算规则:磁盘上剩余空间(字节)=磁道(Sector) *剩余扇区 *每扇区的字节
数
tilipty 推荐
b VB调用API函数技巧--重新启动Windows
吴斌
首先，在module文件中加入下列声明语句：
Declare Function ExitWindows Lib＂User＂（ByVal dwReturnCodeAsLong，By
Val wReserved As Integer）As Integer
Public Const EW—REBOOTSYSTEM=&H43
Public Const EW—RESTARTWINDOWS=&H42
然后，在Form中加入一个CommandButton控件，在它的Click事件中加入下列
代码：
Dim Ret As Integer
RetΚExitWindows（EW—RESTARTWINDOWS，0）
……
程序运行后，只要按下该CommandButton控件，Windows系统便会重新启动
。若将上述代码改为：Ret=ExitWindows（EW—REBOOTSYSTEM，0），则将重新启
动计算机系统。
c VB调用API技巧--制作渐变的窗口背景色
吴斌
在许多Windows软件的安装程序中，时常可以看到以某种颜色由浅至深的渐变
为背景的窗口。使用VB制作这类窗口的方法有不少，而通过调用API函数绘制渐变
的窗口背景色，似乎是一种既简单又节省资源的方法。
首先，在module文件中加入下列声明语句：
Declare Function CreateSolidBrush Lib"GDI"(ByVal crColor As Long)
As Integer
Declare Function FillRect Lib"USER"(ByVal hDC As Integer，lpRect A
s RECT，ByVal hBrush As Integer)As Integer
Declare Function DeleteObject Lib"GDI"(ByVal hObject As Integer)As
Integer
Type RECT
left As Integer
top As Integer
right As Integer
bottom As Integer
EndType
然后，在窗口的Paint事件中加入下列代码：
Private Sub Form_Paint()
Dim Color As Integer
Dim hBrush As Integer
Dim OldMode As Integer
Dim RetVal As Integer
Dim StepSize As Integer
Dim X As Integer
Dim FillArea As RECT
OldMode%=Me.ScaleMode
Me.ScaleMode=3
StepSize%=1+Me.ScaleHeight/80
Color%=255
FillArea.left=0
FillArea.right=Me.ScaleWidth
FillArea.top=0
FillArea.bottom=StepSize%
For X%=1 To 80
hBrush%=CreateSolidBrush (RGB(0,0,Color%))
RetVal%=FillRect(Me.hDC,FillArea,hBrush%)
RetVal%=DeleteObject(hBrush%)
Color%=Color%-4
If Color% < 0 Then Color%=0
FillArea.top=FillArea.bottom
FillArea.bottom=FillArea.bottom+StepSize%
Next
Me.ScaleMode=OldMode%
EndSub
按F5运行，就会出现一个以从上至下、由浅至深的渐变蓝色为背景的窗口。
对上述代码稍加改动，便可制作出各种颜色和水平方向的渐变背景。
=============================================
问题征答（6.1）
a 我想知道如何使用mp3播放器控件？及如何注册
wz263
=============================================
其 它
====================================================================
欢迎订阅VB免费邮件
====================================================================
订阅地址 http://server.com/WebApps/mail-list-subscribe.cgi?id=16852
====================================================================
如果您觉得这个邮件列表好的话，请告诉您的朋友。
====================================================================
欢迎投稿 msnet@188.net
====================================================================
网易上的主页地址：http://www4.netease.com/~aaaaaaaaa
本网站主页镜像地址：goodvbhome.yeah.net
====================================================================
--
欢迎访问主页：http://home.hn.cninfo.net/home/msnet
或：http://www4.netease.com/~aaaaaaaaa
m;37m※ 来源:．网易虚拟社区 http://club.netease.com．[FROM: 202.103.47.81]m
--
m;34m※ 转寄:．网易 BBS bbs.netease.com．[FROM: bbs.huizhou.gd.cn]m
.
--
曾经有一份真诚的感情摆在我的面前，但是我没有珍惜，
等到了失去的时候 才后悔末及，尘世间最痛苦的事莫过
于此。如果上天可以给我一个机会再来一次 的话，我会
跟那个女孩子说：“我爱你。如果非要把这份爱加上一个
期限，我希 望是一万年。”
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.0.8]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店