您好~

您说的是例4.11吗？

这些控件都是通过程序代码动态创建的，因此在窗体上看不到。这里动态创建控件并不是重点，重点是控件数组，而动态创建控件又必须将控件设置为数组的形式。

使用控件数组的代码您那句不太理解？

  老师：您好！
 我在窗体上创建一个shape框架，一个   label1，一个command1，一个textbox ,三个label命名为lbl _edg属性设置分为0，1，2，分别设置为command1,label1，Text1控件容器，最后将控件锁定，为什么会出现microst visual basic实时对象错误“424”， Private Sub Command1_Click(Index As Integer) 
       Text4.Text = 1 
     End Sub 出现断点，不知道错在那里，还望多多指教！
   我是贵公司忠心学员，也买了《visual basic 范例完全自学手册》这是一本好书，有许多精彩实例，印刷设计都比较精良值得收藏，可是电脑打不开基础视频出现“应用程序初始化（0x 0000006)失败，单击确定终止应用程序”，磁盘狂响久久不能终止程序，从入门到精通视频不会，MP4格式也不会产生这样情况，也去掉只读属性，为什么会产生这样情况？
   能否解读下面代码：
   Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim mouse As POINTAPI
  GetCursorPos mouse
  Text2.Text = Val(mouse.X) * 15 - Me.Left - 50
  Text3.Text = Val(mouse.Y) * 15 - Me.Top - 300
  If Text2.Text > 1000 Then
     If Text4.Text = 1 Then
        If Button = 1 Then                           
           i = Command1.ubound + 1
           Load Command1(i)
           Command1(i).Left = Text2.Text
           Command1(i).Top = Text3.Text
           Command1(i).Caption = Str(i)
           Command1(i).Visible = True
        End If
     End If
     If Text4.Text = 2 Then
        If Button = 1 Then                          
           i = Text1.ubound + 1
           Load Text1(i)
           Text1(i).Left = Text2.Text
           Text1(i).Top = Text3.Text
           Text1(i).Visible = True
     
        End If
     End If

您好！

1。错误424 是要求对象，请检查代码中断处中控件是否存在于窗体上。
2。视频问题，请说明是哪个例子的视频录像出现问题。
3。代码大意。
   当用户在窗体上单击鼠标时，出发窗体的鼠标按下事件。在该事件中首先判断鼠标的位置，并将横纵坐标值保存在text2和text3文本框中，判断text2中的值是否在指定的范围内（即大于1000），然后判断text4中的标识值，如果是1，则说明是显示按钮（button），再判断是否单击的鼠标左键（button=1），如果是，则加载一个command1控件数组元素。当text4中的标识值为2，表示加载text文本框。