正文
vb.net消息函数 vbnet function
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
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
相关问答
Q1: 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
{
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);
}
}
Q2: VB.NET的函数，将值赋给函数名与 return 返回值得区别
有返回值：函数执行结束，必须将执行的某个结果数据返回给调用者
没有返回值：函数执行结束，没有返回任何结果给调用者
vb 还是vb.net这两种都有。不是说vb不带返回值而.net带返回值
关于vb.net消息函数和vbnet function的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
