VB工程---百例75--状态栏

概述重点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.P

重点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

这个实例从程序上乍一看，第一次接触activex外部控件，真的有些丈二的和尚，摸不着头脑。其实好好想想，看看没有那么难，因为好多小知识，都是重复的。仔细研究了一下书本实例，又读了些前面的知识点。慢慢的我写出来了。其实本不难，只是我把它想难了而已。克服这种心理压力！慢慢来，慢慢来！总结，总结！ 总结

以上是内存溢出为你收集整理的VB工程---百例75--状态栏全部内容，希望文章能够帮你解决VB工程---百例75--状态栏所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。