我想用vb.net实现一个程序 在电脑的ABCD 4个按钮,点哪个按钮在程序上就会显示你点的是哪个按钮。

本人昨天刚接触vb.net,几乎一窍不通,有相关资料或者详细给我解答的都不胜感激,但是太简单的我也不会用,谢谢了。

    Private Sub A_Click(sender As Object, e As EventArgs) Handles A.Click
        CheckButton(sender)
    End Sub
    Private Sub B_Click(sender As Object, e As EventArgs) Handles B.Click
        CheckButton(sender)
    End Sub
    Private Sub C_Click(sender As Object, e As EventArgs) Handles C.Click
        CheckButton(sender)
    End Sub
    Private Sub D_Click(sender As Object, e As EventArgs) Handles D.Click
        CheckButton(sender)
    End Sub
    Private Sub CheckButton(Button As Button)
        Console.WriteLine(Button.Name & "被点击了")
    End Sub

追问

要是摇杆的上下左右呢?该怎么写?

追答

摇杆什么意思 不明白

追问

要是我想在程序中建四个按钮,点哪个实体按钮程序上的按钮就会变色可以实现么?

追答    Private Sub CheckButton(Button As Button)
        Button.BackColor = Color.Red
        Button.ForeColor = Color.Blue
        Console.WriteLine(Button.Name & "被点击了")
    End Sub

这样就可以,学习vb.net 最好理解面向对象编程的思想,这里的CheckButton中Button 变量实际就是你点击的那个按钮,当然这个按钮你可以随意赋值,改变颜色等等

温馨提示:内容为网友见解,仅供参考
无其他回答

我用VB.net做了一个wince的应用程序,那么在mini2440板上有k1-k6按键...
让光标处于某处就在某个控件下写个点击键盘方法即可。我以文本框为例。假设点击按钮打开个新窗体 键盘方法:'\/\/ 键盘处理 Private Sub PressKeyFun(ByVal k As Integer)Select Case k Case 1 dim f as new from1 f.show()End Select end sub Private Sub txt数量_KeyDown(ByVal sender As Ob...

用vb.net 设计一个应用程序
a(i) = Val(InputBox("请输入第" & i + 1 & "个数", "输入六个数据进行排序"))tmp &= Str(a(i))Next g.DrawString("你输入的数据是:" & tmp, f, Brushes.Black, 10, 10)For i As Int16 = 0 To 4 For j As Int16 = i + 1 To 5 If a(i) > a(j) Then tmp =...

我想在我编的vb.net程序里面添加一个按钮,单击此按钮便可以打开本地的...
文档位置没有限制,不过推荐放置在程序目录下。Process.start("文档路径")这样就可以打开

VB.net设计一个程序:随机一串字符(abc···),打字,后弹出小窗口(时间...
一、应用程序没有检查内存分配失败 程序需要一块内存用以保存数据时,就需要调用操作系统提供的“功能函数”来申请,如果内存分配成功,函数就会将所新开辟的内存区地址返回给应用程序,应用程序就可以通过这个地址使用这块内存。这就是“动态内存分配”,内存地址也就是编程中的“指针”。内存不是永远都招...

vb.NET 生成按钮
'我们暂定每行有4个BUTTON, 当每行有多个4个BUTTON 时重设行距, 令到下一行的和这一行的距离有10 个PIXEL ' 和重设x 坐标` = 0, 令到位置由头开始 If ButtonIndex Mod 4 = 0 Then '设定 TOP 的 坐标位置令他可以和上一排的有10个PIXEL 的距离 y += MyButton.Height + 10 x = 0 E...

在vb.net中如何实现单击按钮弹出文件选择框,效果如下这个页面中的“uplo...
有个c#的例子,你参考一下把 Below is now the code for the main page used to upload multiple images.Default.aspx This is the code inside the form tag <asp:Label ID="Label1" runat="server" Text="Locate File:" \/> <asp:FileUpload ID="fileUp" runat="server" \/> <asp:...

在vb.net中窗口关闭后打开的是代码,怎么回到窗口?
用鼠标移动到右上方的 “解决方案资源管理器”的“视图设计器”图标(见下图),可以看到系统会显示“视图设计器”文字,单击就可能出现窗体:如果用鼠标单击该图标左边的“查看代码”按钮,就进入代码窗口;

VB.NET 不同控件重叠时,如何控制某一个在上面。
倒是通过 Me.Controls.Add(Me.Controls) 这种方式动态添加的控件可以调整顺序,哪个被先 Add 了,哪个就显示在顶端。如果对这个比较好奇的话,可以到 Form1.Designer.vb 下找到 InitializeComponent() 这一段,看里面不同的 Me.Controls.Add(Me.Controls) 的顺序会导致窗体呈现出怎样的结果。

用vb.net做一个倒计时程序,要完整的文件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try c = TextBox1.Text If Timer1.Enabled Then Timer1.Stop()Else t = Now.AddHours(c)Timer1.Start()End If Catch ex As Exception MsgBox("")End Try End Sub Private ...

VB.net如何实现点击按钮两种图标进行互换,就像播放器开始暂停一样?
'在窗体上添加一个按钮测试 Private m_PlayFlag As Boolean = False '是否正在播放 Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.Click If m_PlayFlag = False Then Button1.Image = Image.FromFile("d:\\play.jpg")'更换为播放图标 ...

相似回答