一组VB实用小程序
用VB实现编程离不开函数调用及WindowsAPI函数的调用，以下是笔者收集的一些实用的小例程，它们可以直接用在你的实际编程中，也可以根据实际应用加以扩充完善。其中涉及WindowsAPI函数调用的代码你可以从VB5.0系统的API函数查看器中复制函数定义内容，以避免出错。
1.系统型表单
系统型意味着用户完成当前表单操作之前无法进行其它操作，这对于编制系统口令保护界面尤为重要。如果你希望当前表单系统型表单，需如下定义API函数：
DeclareFunctionSetSysModalWindowLib"User"(ByValhWndAsInteger)AsInteger
然后调用：oldSysModal=SetSysModalWindow([Form].hWnd)
2.获取驱动器类型
代码如后：
DeclareFunctionGetDriveTypeLib“Kernel"(ByValnDriveAsInteger)AsInteger
GlobalConstDRIVE_REMOVEABLE％=2,DRIVE_FIXED％=3
GlobalConstDRIVE_REMOTE％=4
3.表单...[ 查看全文 ]
