vb StatusBar 字体如何实现滚动和变色啊？

[SungCen]

如题，在线求等！！~~~~~~~~


字体变色是希望在窗体加载时就变了，网上提供的 Call ShowPanelText(StatusBar1, 1, "这是一个有趣的程式hahahaha") 这个不行，必须要触发一个事件才能生效，但放到form_load里无效。

希望哪位提供其它方法，解决上面两个问题！~

[dbcontrols]

自己用pciturebox做个，控制好了高度即可

[SungCen]

找到具体方法了，贴出代码。

'//设置所属父窗体
Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long



'//设置状态栏字体
    Set Me.lab_s1.Container = Me.Picture_s1
    Me.lab_s1.Left = 10
    Me.lab_s1.Top = 70
    Me.lab_s1.Caption = "软著登字第0235191号 咨询授权提供单位编号：zx0138"
    SetParent Me.Picture_s1.hwnd, Me.StatusBar1.hwnd
    With Me.Picture_s1
        .Left = Me.StatusBar1.Panels(1).Left + 50
        .Top = 50
        .Width = Me.StatusBar1.Panels(1).Width - 100
        .Height = Me.StatusBar1.Height - 100
    End With

[lxq19851204]

[Quote=引用 2 楼 sungcen 的回复:]
找到具体方法了，贴出代码。

VB code

'//设置所属父窗体
Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long



'//设置状态栏字体
Set Me.lab_s1.Container = Me.Pictu……
[/Quote]

找到就好，留个标记。