一个菜鸟问题,控件排列

我想让Text排列成下面哪个图形.虽然可以一个个的花出来,这样就不能用Text控件数组了.怎么样做才能生成一样的Text并排列好呢?请那个高手给代码.在这里我谢谢了.  
  *******  
  *******  
  *******  
  *******  
  问题点数：50、回复次数：7Top

1 楼cuilei197979（风）回复于 2006-02-08 08:19:46 得分 10

一个一个划也可以成为控件组啊  
   
  给你个动态创建控件的方法，将你需要的那个图形看成二维数组  
   
  Option   Explicit  
   
  Dim   WithEvents   cmdSayHello   As   CommandButton  
  Dim   WithEvents   cmdClose   As   CommandButton  
   
  Private   Sub   cmdClose_Click()  
          Unload   Me  
  End   Sub  
   
  Private   Sub   cmdSayHello_Click()  
          MsgBox   "Hello   world!",   vbInformation,   Me.Caption  
  End   Sub  
   
  Private   Sub   Form_Load()  
           
          Set   cmdSayHello   =   Me.Controls.Add("VB.CommandButton",   "cmdSayHello")  
          With   cmdSayHello  
                  .Left   =   4000  
                  .Top   =   250  
                  .Width   =   1200  
                  .Height   =   350  
                  .Caption   =   "&Say   Hello"  
                  .Visible   =   True  
          End   With  
           
          Set   cmdClose   =   Me.Controls.Add("VB.CommandButton",   "cmdClose")  
           
          With   cmdClose  
                  .Left   =   4000  
                  .Top   =   700  
                  .Width   =   1200  
                  .Height   =   350  
                  .Caption   =   "&Close"  
                  .Visible   =   True  
          End   With  
  End   Sub  
   
  Top

2 楼ZOU_SEAFARER（颓废程序员^_^）回复于 2006-02-08 08:44:44 得分 10

先在form上画一个text1，设置index=   0  
  Private   Sub   Form_Load()  
    Dim   i   As   Integer  
      For   i   =   1   To   100  
          Load   Text1(i)  
          Text1(i).Left   =   Text1(i   -   1).Left  
          Text1(i).Top   =   Text1(i   -   1).Top   +   Text1(i   -   1).Height   +   10  
          Text1(i).Visible   =   True  
      Next  
           
           
  End   Sub  
    具体排列方法你可以自己设置控件的left和topTop

3 楼vansoft（Vansoft Workroom）回复于 2006-02-08 08:49:52 得分 10

用控件數組啊。  
   
  循環設置每個控件的TOP和LEFT的值嘛。Top

4 楼faysky2（出来混，迟早是要还嘀）回复于 2006-02-08 09:03:13 得分 10

一个一个划也可以成为控件组:  
   
  先放上一个到窗体上，然后复制，粘贴的时候会有个是否创建控件数组的提示，选择是，继续粘贴，直到达到你要的数量  
  或者把它们的名字都改为一样，同时设置它们的Index属性（从0开始递增）Top

5 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2006-02-08 10:07:32 得分 10

为什么一定要用那么多控件呢  
  每一个控件都占用不小的资源  
  所以要尽量少用控件  
   
  '先将Text1的MultiLine设为True  
  Dim   I   as   Long  
  Dim   szAll   As   String  
   
  For   I   =   1   to   4   '4行  
          szAll   =   szAll   &   String$(7,   "*")   &   vbCrLf   '每行7个*号  
  Next   I  
  Text1.Text   =   szAllTop

6 楼huanghhh4（hews）回复于 2006-02-08 13:57:22 得分 0

因为要多个输入所以要这么多的text,排列只是为了好看一点而已.Top

7 楼huanghhh4（hews）回复于 2006-02-08 15:56:29 得分 0

怎么没有人.在帮我么??Top

相关问题

• 控件
• 排列
• me
• cmdsayhello
• szall
• cmdclose
• 数组
• sub
• left
• text

• 帖主：huanghhh4
• cuilei197979
• ZOU_SEAFARER
• vansoft
• faysky2
• zyl910

• Visual Basic类图书
• Visual Basic类源码下载