高分(100)如何给StatusBar更换背景图

Ice1 2003-07-01 11:57:39

有vb、vc的源码最好

...全文

33 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

Ice1 2003-07-02

打赏
举报

给分结贴

New_bug 2003-07-02

打赏
举报

vc状态条:http://www.vckbase.com/code/listcode.asp?mclsid=3&sclsid=309

Montaque 2003-07-02

打赏
举报

Dim StatusPanel1 As StatusBarPanel
Dim StatusPanel2 As StatusBarPanel
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
StatusPanel1 = New StatusBarPanel

StatusPanel1.Style = StatusBarPanelStyle.OwnerDraw
StatusPanel1.Text = "Hello,Montaque 1 "
StatusPanel1.Width = Me.StatusBar1.Width / 2
Me.StatusBar1.Panels.Add(StatusPanel1)

StatusPanel2 = New StatusBarPanel

StatusPanel2.Style = StatusBarPanelStyle.OwnerDraw
StatusPanel2.Text = "Hello,Montaque 2"
StatusPanel2.Width = Me.StatusBar1.Width / 2
Me.StatusBar1.Panels.Add(StatusPanel2)

Me.StatusBar1.ShowPanels = True
End Sub

Private Sub StatusBar1_DrawItem(ByVal sender As Object, ByVal sbdevent As System.Windows.Forms.StatusBarDrawItemEventArgs) Handles StatusBar1.DrawItem
sbdevent.Graphics.DrawImage(Image.FromFile("c:\author.jpg"), sbdevent.Bounds)
sbdevent.Graphics.DrawString(Me.StatusBar1.Panels(sbdevent.Index).Text, New Font("Arial", 10), New SolidBrush(Color.Black), sbdevent.Bounds.X, sbdevent.Bounds.Y)
End Sub

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
StatusPanel1.Width = Me.StatusBar1.Width / 2
StatusPanel2.Width = Me.StatusBar1.Width / 2
End Sub

Montaque 2003-07-02