vb.net消息函数 vbnet function _Label

vb.net求个解个函数或是过程vb.net消息函数我是这么做的，vb.net消息函数你参考一下：
所有Panel的Visiable属性都是False
'设置全局变量
Private lblMenu As Object = Nothing '鼠标移动的前一菜单项
Private MenuSelect As Object = Nothing '鼠标点击的前一菜单项
Private FrmShow As Object = Nothing '前一菜单项所指向内容
Private Sub MixedControls_Click(sender As System.Object, e As System.EventArgs) Handles _
Label1.Click, Label2.Click, Label3.Click, Label4.Click, Label5.Click, Label6.Click, Label7.Click
If MenuSelect IsNot Nothing Then
MenuSelect.forecolor = Color.White '前面选择的菜单项前景色变为白色
End If
If FrmShow IsNot Nothing Then
FrmShow.visible = False'前一菜单项内容隐藏
End If
sender.forecolor = Color.Chartreuse'当前选择的菜单项前景色为亮绿色
MenuSelect = sender'保存当前选择菜单项
Select Case sender.name.ToString
Case "Label1"
FrmShow = Panel1'保存当前菜单项选择
Me.Panel1.Dock = DockStyle.Fill'显示运行界面
Me.Panel1.Visible = True
Case "Label2"
FrmShow = Panel2'保存当前菜单项选择
Me.Panel2.Dock = DockStyle.Fill'显示设置界面
Me.Panel2.Visible = True
Case "Label3"
FrmShow = Panel3'保存当前菜单项选择
Me.Panel3.Dock = DockStyle.Fill'显示关于界面
Me.Panel3.Visible = True
End Select
End Sub
Private Sub MixedControls_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles _
Label1.MouseDown, Label2.MouseDown, Label3.MouseDown, Label4.MouseDown, Label5.MouseDown, Label6.MouseDown, Label7.MouseDown
sender.BorderStyle = BorderStyle.FixedSingle'鼠标按下菜单效果
End Sub
Private Sub MixedControls_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles _
Label1.MouseUp, Label2.MouseUp, Label3.MouseUp, Label4.MouseUp, Label5.MouseUp, Label6.MouseUp, Label7.MouseUp
sender.BorderStyle = BorderStyle.None'鼠标抬起取消菜单效果
End Sub
Private Sub MixedControls_MouseEnter(sender As Object, e As System.EventArgs) Handles _
Label1.MouseEnter, Label2.MouseEnter, Label3.MouseEnter, Label4.MouseEnter, Label5.MouseEnter, Label6.MouseEnter, Label7.MouseEnter
If lblMenu IsNot Nothing Then
Call MixedControls_MouseLeave(lblMenu, e)'前一菜单项恢复初始状态
End If
sender.backcolor = Color.DeepSkyBlue'鼠标进入菜单范围的效果：背景色变深蓝
lblMenu = sender'保存当前进入菜单项
End Sub
Private Sub MixedControls_MouseLeave(sender As Object, e As System.EventArgs) Handles _
Label1.MouseLeave, Label2.MouseLeave, Label3.MouseLeave, Label4.MouseLeave, Label5.MouseLeave, Label6.MouseLeave, Label7.MouseLeave
sender.backcolor = Color.Transparent'鼠标离开菜单项恢复默认效果，背景色透明
sender.BorderStyle = BorderStyle.None'菜单项边框取消
lblMenu = Nothing'删除保存的菜单项
End Sub
vb.net中的事件函数，怎样为（sender,e）中的e增加自定义的参数?继承button，然后增加事件
并且自定义EventArg
思路：
class MyEventArg :EventArg
{
public long MyNum
{
set{ myNum = value;}
get{ return myNum; }
}
private long myNum ;
}
class MyButton:System.Windows.Forms.Button
{
【vb.net消息函数 vbnet function】public delegate void MyClick(object sender,MyEventArg e);
public event MyClick OnMyClick;
private MyEventArg myE = new MyEventarg();
protected override void OnClick(EventArgs e)
{
if(OnMyClick != null)
{
OnMyClick(null,myE);
}
base.OnClick(e);
}
}
VB.NET的函数，将值赋给函数名与 return 返回值得区别有返回值：函数执行结束，必须将执行的某个结果数据返回给调用者
没有返回值：函数执行结束，没有返回任何结果给调用者
vb 还是vb.net这两种都有。不是说vb不带返回值而.net带返回值
关于vb.net消息函数和vbnet function的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。

vb.net消息函数 vbnet function

推荐阅读

暖气散热片，暖气试压需要把家里阀门打开吗

极兔快递一般送到哪里

核酸一般多长时间出结果

土豪直播看不了怎么办？土豪直播看不了原因分析

经典的韩国爱情电视剧韩国爱情感人电视剧排行榜

助理振动分析师,国际二级振动分析师含金量

蛏子开口了是不是死了

松下分体空调故障代码h3怎么办,进来看看这几个方法

什么叫炒色加工工艺

二月二祝福语简短二月二祝福语简短2021

小说灵域秦烈有多少个老婆

群ping,群屏蔽了@所有人会有信息吗?

北斗卫星3d地图是真的吗，为什么找不到北斗系列的地形图软事都是美图鬼的Dps

山楂一天吃几颗最合适

学生的几种心理疾病

iphone打字卡顿延迟

菲斯曼壁挂炉提示f5原因，热水器不工作常见3种解决方法？

车标是马的跑车有哪些

狗毛

带缘分的42种梦境带缘分的42种梦境梦见龙