| VB 源码 | VC 源码 | ASP源码 | JSP源码 | PHP源码 | CGI源码 | FLASH源码 | 素材模板 | C 源程序 | 站长工具 | 站长教程 |

VB技术

ASP技术
PHP技术
JSP技术
VB技术
.NET技术

本类阅读TOP10

·利用shell编程实现DOS风格的Linux命令行
·新手必学:windows网络编程经典入门
·通过连接实例解读TCP/IP协议
·JAVA生成JPG缩略图
·一组VB实用小程序
·VB解决Unicode文本转换的问题
·用VB制作屏幕保护程序
·Visual Basic开发应用程序答疑
·用VB6实现中英文文本的私钥加密
·用VB学做“黑客”程序

站内搜索

一组VB实用小程序

  用VB实现编程离不开函数调用及Windows API函数的调用,以下是笔者收集的一些实用的小例程,它们可以直接用在你的实际编程中,也可以根据实际应用加以扩充完善。其中涉及Windows API函数调用的代码你可以从VB5.0系统的API函数查看器中复制函数定义内容,以避免出错。

  1.系统型表单

  系统型意味着用户完成当前表单操作之前无法进行其它操作,这对于编制系统口令保护界面尤为重要。如果你希望当前表单系统型表单,需如下定义API函数:

  Declare Function SetSysModalWindow Lib "User" (ByVal hWnd As Integer) As Integer

  然后调用:oldSysModal = SetSysModalWindow([Form].hWnd)

  2.获取驱动器类型

  代码如后:

  Declare Function GetDriveType Lib “Kernel" (ByVal nDrive As Integer) As Integer

  Global Const DRIVE_REMOVEABLE% = 2, DRIVE_FIXED% = 3

  Global Const DRIVE_REMOTE% = 4

  3.表单在对中

  本子程序功能使表单定位在屏幕中央,在表单中任何需要表单对中的地方只需加入一行代码:

  “centerwindow.me”即可成功调用。

  Public Sub CenterWindow(f As Form)

  f.Top = (Screen.Height * .5) - (f.Height * .5)

  f.Left = (Screen.Width * .5) - (f.Width * .5)

  End Sub

  4. 定义变量

  许多的程序员习惯于如下定义变量:

  Dim iNum, iNextNum, iLastNum as Integer

  实际上只有最后一个变量被设为了整型,前两个变量则是系统的缺省的Variant 数据类型,而Variant 数据类型可用来替换任何数据类型,显然对于精练的程序设计是不利的。 正确的方法如下:

  Dim iNum as Integer

  Dim iNextNum as Integer

  Dim iLastNum as Integer

  5. 使文本高亮

  本子程序使被触发的诸如文本,标签等控件的文本被选中

  Public Sub SetSelected()

  Screen.ActiveControl.SelStart = 0

  Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)

  End Sub

  6. 关闭其它程序

  下面的代码可关闭内存中的其它程序

  title = "MyAPP" '定义你需关闭的程序窗口的标题

  ihWnd = findWindow(0&, Title)

  ihTask = GetWindowTask (ihWnd)

  iRet = PostAppMessage(ihTask, WM_QUIT, 0, 0&)

  7. 文件存在否?

  本函数返回查找的文件是否存在。

  Function FileExist(Filename as string) as Boolean

  FileExist = IIf(Dir(Filename) <> "", True, False)

  End Function

  8. 主程序唯一

  用下面提供的代码作你的主程序可防止应用程序的多重执行,你应当将它放在确信需要它的代码模块内。

  Public Sub Main()

  If App.PrevInstance Then

  BringWindowToTop frmMain.hwnd

  Else

  Load frmMain

  End If

  End Sub

  上面这些精悍的代码对于专业程序员来说非常有实用价值,希望你能从中获得启发。

  武汉锅炉集团公司工艺处 顾伟义 430070




相关文章
  • 精通PHP的十大要点
  • VB解决Unicode文本转换的问题
  • 一个基于WEB的QQ程序
  • 使用xmlhttp查询域名是否被注的小程序
  • 用VB6实现中英文文本的私钥加密
  • 用VB编写异步多线程下载程序
  • 屏保程序模板化完整源代码
  • VB中实现窗体自动隐藏
  • 用VB编写网络监控软件
  • VB到底为我们做了什么?
  • 键盘幽灵VB版
  • 用VB编写定时关闭计算机的程序
  • 用MCI命令做一个播放器
  • 使用VB在WIN2000下截获IP数据包
  • VB中字符串中文的问题
  • 用VB制作屏幕保护程序
  • VB枚举主机IP
  • 用VB编写一个弹出菜单类
  • 自己的IE——用VB制作浏览器
  • 使用插件功能扩展VB
  • 相关软件

  • VBScript编辑器源码  
  • 字体观察器FontViewer源码  
  • 自动壁纸更换器源码[第二部分]  
  • 自动壁纸更换器源码[第一部分]  
  • WINDOWS 3.0终端程序的C源码  
  • 一个取得 CPU 信息的程序源码  
  • 广告窗口终结者源码  
  • 下载整个网站程序ssnag与源码  
  • CGI邮件程序源码  
  • ISAPI留言簿源码  



  • 月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
    电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
    音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

    月光软件站·版权所有