以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口問題  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=45421)

--  作者:JoyGum
--  发布时间:2014/1/24 20:30:00
--  [求助]窗口問題

窗口裡動態圖檔之間如何達成圖與圖之間

距離是等距。附上例子。謝謝!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目14.table

[此贴子已经被作者于2014-1-24 20:34:34编辑过]

--  作者:有点甜
--  发布时间:2014/1/24 21:47:00
--  
 这样改代码,但误差还是会有的。4个像素以内

For i As Integer  = 1 To 4
    Dim pix As WinForm.PictureBox = e.Form.Controls("PictureBox" & i)
    Dim l As Integer = pix.Top - 4
    If  l + pix.Height <= 4 Then
        pix.Top = (pix.Height+15) * 3
    Else
        pix.Top = l
    End If
Next

--  作者:JoyGum
--  发布时间:2014/1/24 22:03:00
--  
再次謝謝有点甜老師!感恩啊!