
比如说我写的最简单的控件(类似于按钮)
先添加一个Label,比如说叫做lblMain
控件本身和lblMain的BackColor设置为Transparent
选好字体,然后设定一个背景图片(效果好坏完全看这张图片)。
代码上应该注意的是:
1.一定要重载默认的事件,比如说Click:
Public
Shadows
Event
Click(...)
2.想要获得更好的效果的话,应该准备3张图片(例如pic1,pic2,pic3),pic1是控件的初始外观,pic2是鼠标悬浮在控件上时控件的外观,pic3是鼠标点击时控件的外观。代码大致上应该这样写:
Private
Sub
lblMain_MouseEnter(...)
Handles
lblMain.MouseEnter
lblMain.Image
=
pic2
End
Sub
Private
Sub
lblMain_MouseLeave(...)
Handles
lblMain.MouseLeave
lblMain.Image
=
pic1
End
Sub
Private
Sub
lblMain_MouseDown(...)
Handles
lblMain.MouseDown
lblMain.Image
=
pic3
End
Sub
Private
Sub
lblMain_MouseUp(...)
Handles
lblMain.MouseUp
lblMain.Image
=
pic1
End
Sub
上面的代码只是参考,当然了,除了替换背景图片还可以写一些类似于改变位置之类的动态效果。最后就是控件对单击的响应:
Private
Sub
lblMain_Click(...)
Handles
lblMain.Click
RaiseEvent
Click(...)
End
Sub
上面的代码都是VB.Net,如果把每一个Sub后面的Handles...部分给去掉,这些代码对VB6同样有效。
上面这个只是思路,具体还要看LZ自己的本事了。
只有自己动脑去想才能精通VB哦
不需要进行组合,直接设置文本框的属性就可以了首先是MultiLine属性,设置为True,这样文本框可以显示多行文本然后是ScrollBars属性,一共有4个选项,一个是None,没有滚动条,其他三个分别是水平,垂直滚动条以及同时有水平和垂直滚动条。欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)