关于vb控件数组的位置排列 - 编程论坛

#2

风吹过b2018-05-01 09:41

Dim i As Long
Dim x As Long, y As Long

x = Picb1(0).Left           '初始位置
y = Picb1(0).Top

Const 每行个数 = 100

For i = 1 To 9999
    Load Picb1(i)
    If i Mod 每行个数 = 0 Then       '计算位置，按是否换行分二种情况
        x = Picb1(0).Left
        y = Picb1(0).Top + Int(i \ 每行个数) * Picb1(0).Height + Screen.TwipsPerPixelY
    Else
        x = x + Picb1(0).Width + Screen.TwipsPerPixelY
    End If

    Picb1(i).Move x, y          '移动位置
    Picb1(i).Visible = True     '显示
    Picb1(i).Print i            '在里面显示一个序号
Next i

窗体上先放一个 PictureBox ，命名为 picb1 ，然后index 属性里写一个0
这个控件的位置决定了这个阵列的左上角位置，它的大小决定这个阵列每个控件的大小
每个控件之间空一个像素，如果不打算空，则把 Screen.TwipsPerPixelX、Screen.TwipsPerPixelY 这个值清掉。

----------------------------------
10000个控件，你有多么强大的CPU ？
你打算干什么用？难道不能在一个控件里完成？？

[此贴子已经被作者于2018-5-1 09:48编辑过]

#3

wds12018-05-01 10:37

不用那么复杂，简单的循环就可以
'假设你的图片大小为100*100
For i = 0 To 9999
if i>0 then Load Load Picb1(i)'假设第一个数组标签已创建，后续的程序创建
Picb1(i).left = 150 * （i mod 100） '横向控制，两个标签横向间隔50
Picb1(i).top = 150 *(i \ 100）'纵向控制，两个标签纵向间隔50
next i

#4

VB小白菜啊2018-05-03 01:32

回复 2楼风吹过b

........
是要对一张图片提取像素点和颜色，然后可以对图片的每个像素进行编辑，我原来的想法是做一万个控件，然后按照提取出来的像素点和颜色放进控件里面。
然后我发现，我太天真了。。。。。
于是在网上搜关于picturebox的资料，用point和Pset可以满足读取和写出，
捂脸，Pset是写出来了像素图了，然后却不知道怎么去编辑，用PSet编辑的话会变成是一个点，而不是对一块像素。（捂脸）。

#5

wds12018-05-03 09:03

用line语句试试或者用for控制
Private Sub Command1_Click()
  Picture1.BackColor = vbBlack '图片黑背景
  Picture1.DrawWidth = 10    '画线宽度
  Picture1.ForeColor = vbRed    '线颜色
  Picture1.Line (0,0)-(0, 5)  '画线1
  Picture1.Line (0, 0)-(5, 0) '画线2
End Sub