Question

vb的statusbar控件问题

自己乱编了一个浏览器，发现ie的状态栏“正在打开。。。”很好，想移植到自己的浏览器来。需要具体的步骤
谢谢！

Answer 1

其实就是一个Label
在状态变换的时候label.caption变了而已...

Answer 2

窗体中加一个StatusBar
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
StatusBar1.SimpleText = Text
End Sub

Answer 3

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const CCM_FIRST = &H2000 Private Const CCM_SETBKCOLOR = (CCM_FIRST + 1) Private Const SB_SETBKCOLOR = CCM_SETBKCOLOR Private Sub Form_Load() SendMessage StatusBar1.hwnd, SB_SETBKCOLOR, 0, ByVal RGB(128, 128, 255) End Sub

Answer 4

这个要和你做的浏览器关联起来吧