荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: 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软件 网络书店