使用API在VB中创建状态栏

    
VB中你想创建一个简单的状态栏也用上那个几MB的OCX吗?有没有方法可以不用呢，下面就是以API来创建
一个状态栏，VB让初学朋友学得很方便，但对你对VB有所了解的时候，却发现VB原来就是鸡肋......
先创建一个窗体，在窗体里添加两个Button，然后写下以下代码:
’-----------------------------------------------
’
’            Create Status Bar Demo
’
’    code by loveboom[DFCG][FCG][US]
’    email:loveboom#163.com
’    http://blog.111cn.net/bmd2chen
’
’-------------------------------------------------
Dim hWndBar As Long            ;状态栏句柄
Private Const IDC_STATBAR As Long = &H2005        ’状态栏ID 
Private Sub Command1_Click()
Dim ret As Boolean
ret = CreateStatBar(Me.hwnd, IDC_STATBAR, hWndBar)
If ret = True Then
    MsgBox "创建状态栏成功!"
Else
    MsgBox "创建状态栏失败:-(!", 48
End If
End Sub
Private Sub Command2_Click()
    SetBarText hWndBar, 1, "Create StatusBar Demo:-)!"
End Sub

您可能感兴趣的文章：
使用API在VB中创建状态栏
ASP.NET创建Web服务管理Web服务状态
ASP 3.0高级编程（六）
通知消息和状态栏 jQuery jNotify
优化代码时要选用正确的测试方法
如何实现VB和VC的联合调试
ASP教程之ASP基础简介
人文的ASP开发基础入门之简介
asp.net生能优化方法-会话状态的灵活应用
asp.net Session会话层使用与管理方法