最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
使用API在VB中创建状态栏
时间：2022-07-02 11:15:05 编辑：袖梨 来源：一聚教程网
VB中你想创建一个简单的状态栏也用上那个几MB的OCX吗?有没有方法可以不用呢，下面就是以API来创建
一个状态栏，VB让初学朋友学得很方便，但对你对VB有所了解的时候，却发现VB原来就是鸡肋......
先创建一个窗体，在窗体里添加两个Button，然后写下以下代码:
’-----------------------------------------------
’
’ Create Status Bar Demo
’
’ code by loveboom[DFCG][FCG][US]
’ email:loveboom#163.com
’ http://blog.111com.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
相关文章
- 死亡搁浅2次要订单No.100 将拆解的步枪送到独行指挥官手上全流程攻略 09-06
- 死亡搁浅2怎么开启照明 闪光灯开启方法 09-06
- 超级忍反攻的斩击怎么下载 完整中文版获取指南 09-06
- 死亡搁浅2怎么使用VR培训室 09-06
- 超级忍反攻的斩击有手机版吗 移动端游玩指南 09-06
- 死亡搁浅2怎么提高波特等级 提高波特等级的方法 09-06