VB程序中单击LABEL产生一个事件，怎么实现第二次点击产生另一个不同的事件

设置一个变量比如a dim a as string

a=1

--------------全局-----------------

label点击事件里写 select case a

判断a的值若等于1则执行 case 1

等于2则执行。。。。。case 2

a=a+1

1，在桌面上，鼠标左键双击程序，打开VB编程软件，在左边工具栏上，单击【Label】按钮，在Form1窗口上绘制出两标签，用来写文字的说明。在这里写上用户名和密码，。

2，接着，根据窗口的大小，感觉文字小了，可以在Label属性窗口上，修改Font属性值，单击其选择按钮就可以更改字体的大小了，。

3，然后，在d出的字体对话框中，选择四号字的大小，单击【确定】按钮后，就可看到Form1窗口上用户名的字体变大了。密码的字体大小也如此 *** 作，。

4，接着，在程序左边工具栏上，单击【TextBox】按钮，在Form1窗口上绘制出两文本框，并在TextBox属性面板上，修改Text的值，将其清空，。

5，然后，在程序左边工具栏上，单击【CommandButton】按钮，在Form1窗口上绘制出两命令按钮在其属性面板上，将Caption的值改为确定。另一个改为取消，。

6，最后，在程序左边工具栏上，单击【Image】按钮，在Form1窗口上绘制出两图框，并修改其两处属性值，如图所示，选取两个图标后，将它们重新布局的更好看些后，单击运行，登录窗口就出现了，。

软糖教你把。

你新建一个label控件【提示框】，visible初始设为false，

指向label时visible设为true，置顶该控件，

最后更改位置和显示文字就OK了。

        private void Form1_Load(object sender, EventArgs e) {

            TipLabel.Visible = false

        }

 

        private void label1_MouseHover(object sender, EventArgs e) {

            TipLabel.Visible = true

            TipLabel.Text = "您指向了：" + label1.Text

            TipLabel.Location = new Point(label1.Left,label1.Bottom + 50)

            TipLabel.BringToFront()

        }

        private void label2_MouseHover(object sender, EventArgs e) {

            TipLabel.Visible = true

            TipLabel.Text = "您指向了：" + label2.Text

            TipLabel.Location = new Point(label2.Left, label2.Bottom + 50)

            TipLabel.BringToFront()

        }

---