如何在运行时指定特定位置进行控制? [英] How to give particular location to control at runtime ?

问题描述

尊敬的先生
我正在尝试在运行时添加文本框.但我的问题是在同一位置添加了文本框，但我想在其他位置添加文本框.
所以请帮我:confused:
我正在使用的代码是:

  Dim  NumberOfControls  As  整数 =  5 
     Dim  tbx  As  整数 =  64 
     Dim  tby  As  整数 =  278 
     Dim  Labelx  As  整数 =  45 
     Dim 标签为 As  整数 =  298 
     Dim  tb  As  新建 TextBox()
     Dim  lbl  As  新建标签

公共  Sub  CreateTextBoxes()

        对于计数器 As  整数 =  0  要 NumberOfControls
            tb.Width =  150 
            tb.Height =  18 
            lbl.Width =  200 
            lbl.Height =  20 
            tb.Name = " & (计数器+  1 ).ToString()
            lbl.Name = " & (计数器).ToString
            tb.Text = " &柜台
            lbl.Text = " & " & (计数器)和" & "  .ToString
            tb.Location = 新建 System.Drawing.Point(tbx，tby)
            lbl.Location = 新建 System.Drawing.Point(Labelx，标签)
            tbx = tbx +  10 
            tby = tby +  10 
            Labelx + =  10 
            标签+ =  10 
            我 .Controls.Add(tb)
            我 .Controls.Add(lbl)
            NumberOfControls + =  1 
        下一步
结束 子

私有 子 Button1_Click( ByVal 发​​件人 As 系统.对象，
                     ByVal  e  As  System.EventArgs)句柄按钮1.
        CreateTextBoxes()
结束 子 

解决方案

位置丢失！

最好您看看这个MSDN KB:
如何以编程方式将控件添加到通过使用Visual Basic 2005或Visual Basic .NET [Dim NumberOfControls As Integer = 5 Dim tbx As Integer = 64 Dim tby As Integer = 278 Dim Labelx As Integer = 45 Dim labely As Integer = 298 Dim tb As New TextBox() Dim lbl As New Label Public Sub CreateTextBoxes() For counter As Integer = 0 To NumberOfControls tb.Width = 150 tb.Height = 18 lbl.Width = 200 lbl.Height = 20 tb.Name = "TextBoxID" & (counter + 1).ToString() lbl.Name = "Label" & (counter).ToString tb.Text = "Enter Title " & counter lbl.Text = "Label" & " " & (counter) & " " & ":".ToString tb.Location = New System.Drawing.Point(tbx, tby) lbl.Location = New System.Drawing.Point(Labelx, labely) tbx = tbx + 10 tby = tby + 10 Labelx += 10 labely += 10 Me.Controls.Add(tb) Me.Controls.Add(lbl) NumberOfControls += 1 Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click CreateTextBoxes() End Sub

解决方案

Location is missing!

Better you have a look at this MSDN KB:
How to programmatically add controls to Windows Forms at run time by using Visual Basic 2005 or Visual Basic .NET[^]

Set Location property of the control.

这篇关于如何在运行时指定特定位置进行控制?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！