锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net制作按钮 vb按钮命令

IT技术坐标

vb.NET 生成按钮Public Sub GenerateDynamiceButton()
'建立 坐标位置的变数, 方便一会儿安排 自动生产的button 的位置
Dim y As Integer = 15
Dim x As Integer = 0
' 用for loop 来建立 这些button 做 18只button
For ButtonIndex As Integer = 0 To 17
' 建造新的 button
Dim MyButton As New Button
'设定这新的button 的阔度
MyButton.Width = 80
'设定这新的button 的高度
MyButton.Height = 20
'我们暂定每行有4个BUTTON, 当每行有多个4个BUTTON 时重设行距, 令到下一行的和这一行的距离有10 个PIXEL
' 和重设x 坐标` = 0, 令到位置由头开始
If ButtonIndex Mod 4 = 0 Then
'设定 TOP 的 坐标位置令他可以和上一排的有10个PIXEL 的距离
y += MyButton.Height + 10
x = 0
End If
'设定文字 和 位置
' Set the text and set its top and left based on its dimensions and count
MyButton.Text = "My Button"ButtonIndex
'设定 TOP 的 坐标位置
MyButton.Top = y
'下面的CODE 可以令到这个BUTTON 和另一个BUTTON 有5个PIXEL 的距离
MyButton.Left = 26 + (x * (MyButton.Width + 5))
x += 1
'设定 BUTTON CLICK EVENT
AddHandler MyButton.Click, AddressOf MyButton_Click
'把button 加到 form 中
Me.Controls.Add(MyButton)
Next
End Sub
'处理 button click event
Private Sub MyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim btn As Button = sender
'pop up 一个自己button 的字的message
MsgBox(btn.Text)
vb.net的简单按钮编写 我刚刚接触这个求教Dim I As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Text = "继续"
TextBox1.Text = I
I = I + 1
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
【vb.net制作按钮 vb按钮命令】I = 2
End Sub
代码如上 如图的效果
vb.net 怎么在右上角增加按钮制作一个按钮：
Dim my_Button As New Button
my_Button.SetBounds(Me.Width - 75, 0, 75, 23)
Me.Controls.Add(my_Button)
在软件运行前是看不到这个按钮vb.net制作按钮，运行后可见vb.net制作按钮 ， 运行后想更改按钮位置vb.net制作按钮，简单vb.net制作按钮的方法启动一个事件，如textbox输入数值后通过Buttonvb.net制作按钮的点击事件修改my_Button的顶点位置，还有的方法就是拖动，拖动应该是高级编程部分而且几十行代码，没有人愿意写
关于vb.net制作按钮和vb按钮命令的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：如何自己查找gis数据资料，gis数据在哪下载

    下一篇：强强合作美的iot携手华为鸿蒙，美的加入鸿蒙