none
拍謝阿我是使用{VB2008} 請問要怎麼用 "寫的" 程式 在表單建立一個botton 或是多個 不是用工具列去拉一個! RRS feed

  • 問題

  •  我是想要從一個空的表單,建立很多工具列的控制項,但是我不要用滑鼠拉到表單
    就很像我要建立很多 button還有 text,請指導我吧


    ps 原來我被鎖了,下次要注意了!

    2009年6月11日 上午 05:37

解答

  • Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.Width = 800
            Me.Height = 200
            AutoGenButton()
        End Sub
        Private Sub AutoGenButton()
            Dim i As Integer
            Dim strBTN_name As String
            For i = 1 To 10
                strBTN_name = "Button" + CStr(i)
                Dim myButton As New Button <==產生一個新的Button執行個體
                myButton.Name = strBTN_name                <===== 以下五行賦予該Button屬性
                myButton.Width = 60
                myButton.Height = 30
                myButton.Location = (New Point((5 + i * 65), 5)) <==這個屬性會決定它相對於Form的位置
                myButton.Text = strBTN_name
                Me.Controls.Add(myButton)   <==在Form中新增這個Button

            Next
        End Sub


    我會寫一點程式,但是不會通靈
    2009年6月11日 上午 06:00
    版主

所有回覆