VB百例验收总结

这几天刚刚验收完vb百例,一次通过,还是使我很开心的。而且在这个过程中也学到了很多东西,比如里面的角落知识点有的都没有意识到,还是师傅帮忙给提出来的,这也提醒自己以后再学习的时候一定要认真。

在师傅的帮助下也解决了vb滚轮的问题,通过师傅的指导、上网查阅、同学之间的询问,自己也可以把这个问题解决,用米老师的一句话就是站在了巨人的肩膀上。

 1、相对路径和绝对路径

绝对路径是指定的路径,如d:/abc

相对路径:存的工程和想要找的图片在一个文件夹下。如APP.path

2、添加文本滚动条

添加文本滚动条用到的是scrollbars属性,但是只把这个属性加上并不能实现为文本框添加滚动条,必须要添加multiline(多行)属性,这是一个容易忽略的一点。

3、鼠标响应事件

vb中鼠标响应事件有mousedown、mouseup、MouseMove,根据英文应该也可以猜到是什么意思了,分别为鼠标按下事件,鼠标释放事件,鼠标移动事件

mousedown:当鼠标的任意键按下时,便可以触发该事件,还可以使用 mousedown事件和line方法相结合绘制直线。

Private Sub Form ——MouseDown (Button As Integer, Shift As Integer,x As
Single, Y As Single)
Line一(X,Y)

MouseMove (鼠标移动)事件
当鼠标指针在屏幕上移动时便可触发该事件。窗体和控件均能实现鼠标移动事件。例如,下面的代码是利用鼠标移动事件在窗体上绘制圆,
Private Sub Form MouseMove (Button As Integer, Shift AS Integer, X ASSingle, YAsSingle)Circle (X,Y),200End Sub
鼠标在窗体上每移动一个位置,便绘制出一个圆,鼠标移动的速度越快,绘制的圆越少。

(3 ) MouseUp (鼠标释放事件
当单击鼠标后,松开鼠标按键时便触发该事件。在实际编程时,往往将MouseDown(鼠标按下)事件、MouseMove(鼠标移动)事件和MouseUp (鼠标释放)事件相结合使。

例如,下面的代码是当鼠标在窗体上按下时绘制直线的起点,当释放鼠标时,绘制完成一条直线。
Dim x1, y1
Private Sub Form MouseDown (Button As Integer, Shift n5 Integer, X As-Single, Y As Single)
x1= X

y1=Y
End Sub
Private Sub Form MouseUp (Button As Integer, Shift As. Integer, X As Single,一Y As Single)
Line (x1, y1)-(x, Y)

End Sub
如果鼠标左键和右键同时按下值为3,即左键值和右键的值得和

以上是我验收完vb百例的几点总结。
 

发布了38 篇原创文章 · 获赞 9 · 访问量 1478

猜你喜欢

转载自blog.csdn.net/weixin_45309155/article/details/99670526
今日推荐