| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1343 人关注过本帖
标题:Load text
只看楼主 加入收藏
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
结帖率:85.71%
收藏
已结贴  问题点数:20 回复次数:2 
Load text
我想一次自动load text1(20), 将text控件自动均匀分布到4列, 每列5个, 宽度为Form1的4/1, 高度=2000, 如何能实现? 我试了多次都分布不好,请大家帮忙写个循环,谢谢

      For j = 0 To 19 Step 5
            Debug.Print j
            For i = 0 To 4
                Load Text1(j + i)
                Text1(j + i).Visible = True
                Text1(j + i).Top = Text1(j + i).Top + Text1(0).Height
                Text1(j + i).Left=??
            Next
        Next
Load.zip (1.81 KB)


[此贴子已经被作者于2016-1-22 15:08编辑过]

2016-01-22 14:55
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:15 
Private Sub Form_Load()
  Dim i As Integer, w As Integer, h As Integer, l As Integer, t As Integer
  On Error Resume Next
  l = 150: t = 150
  w = (Me.ScaleWidth - 2 * l) / 4 - 30
  h = 600
  For i = 0 To 19
    If i > 0 Then Load Text1(i)
    If i <> 0 And (i Mod 4) = 0 Then
      l = 150
      t = t + h + 300
    End If
    Text1(i).Left = l
    Text1(i).Top = t
    Text1(i).Width = w
    Text1(i).Height = h
    Text1(i).Visible = True
    l = l + w + 30
  Next
End Sub

能编个毛线衣吗?
2016-01-22 17:45
yangfrancis
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:贵宾
威 望:141
帖 子:1510
专家分:7661
注 册:2014-5-19
收藏
得分:5 
Const WIDTH=???
Const HEIGHT=???
For i=0 To 19
   Text1(i).Left=Round(WIDTH*(i Mod 4))
   Text1(i).Top=Round(HEIGHT*(i\4))
Next i
'未测试过,自己试看行不行
2016-01-23 23:50
快速回复:Load text
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035313 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved