VB.NET如何用代码的方式添加按钮

Question

比如说 我想单击一下按钮 就 在我的窗体的指定位置 新建一个 按钮（我现在需要的是linklabel）然后 将 linklabel 连接的 用户想要的网站 再单击 有新建另一个 也是重复上面的操作 应该怎么做呢 还有就是 当窗体添加满了 我怎么弄呢 他好像不自己自动显示 滚动条呀 总不能 老是重新绘制 相应的控件的位置吧 谢谢了

Answer 1

添加一个FlowLayoutPanel1(在工具箱--容器里面) 一个Button1

代码如下:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim url As String = InputBox("输入网站地址?", "输入", "http://";)

        If url = "" Then Return

        Dim link As New LinkLabel

        link.Text = url

        link.AutoSize = True

        FlowLayoutPanel1.Controls.Add(link)

        AddHandler link.LinkClicked, AddressOf Link_LinkClicked

    End Sub

    Private Sub Link_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

        Dim url As String = CType(sender, LinkLabel).Text

        Process.Start(url)

    End Sub

效果如图:

本回答被提问者采纳