重点statusbar外部控件的掌握
Option Explicit
Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
stb1.Panels(3) = "X:" & Str(X) '第3个窗体上显示鼠标在图像框的水平位置
stb1.Panels(4) = "Y:" & Str(Y) '第4个窗体上显示鼠标在图像框的垂直位置
stb1.Panels(5) = Form1.Tag '第5个窗体上显示窗体的标识
End Sub
Private Sub Image1_MouseMove(Button As Integer,Y As Single)
stb1.Panels(3) = "X:" & Str(X)
stb1.Panels(4) = "Y:" & Str(Y)
stb1.Panels(5).Text = Image1.Tag '第5个窗体上显示image1的标识
End Sub
Private Sub Image2_MouseMove(Button As Integer,Y As Single)
stb1.Panels(3) = "X:" & Str(X)
stb1.Panels(4) = "Y:" & Str(Y)
stb1.Panels(5).Text = Image2.Tag '第5个窗体上显示显示image2的标识
End Sub
Private Sub Image3_MouseMove(Button As Integer,Y As Single)
stb1.Panels(3) = "X:" & Str(X)
stb1.Panels(4) = "Y:" & Str(Y)
stb1.Panels(5).Text = Image3.Tag '第5个窗体上显示显示image3的标识
End Sub
Private Sub Image4_MouseMove(Button As Integer,Y As Single)
stb1.Panels(3) = "X:" & Str(X)
stb1.Panels(4) = "Y:" & Str(Y)
stb1.Panels(5).Text = Image4.Tag '第5个窗体上显示显示image4的标识
End Sub
Private Sub Timer1_Timer()
stb1.Panels(1) = Date '在状态栏的第1个窗体显示当前日期
stb1.Panels(2) = Time '在状态栏的第2个窗体显示当前时间
End Sub
原文地址:https://www.jb51.cc/vb/260366.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。