weixin_40187983 2018-12-05 06:42 采纳率: 100%
浏览 1679
已采纳

vb.net 用代码产生label panel picturebox,如何将Label置于最上层?

-->产生Panel
Dim panel As New Panel
Dim row As Integer '行数
Dim colume As Integer '行数
If i Mod rowCount > 0 Then
row = i \ rowCount + 1
colume = i Mod rowCount
Else
row = i \ rowCount
colume = rowCount
End If
With panel
.Name = "Panel" + i.ToString()
.Left = (colume - 1) * 520 * rate
.Top = ((row - 1) * 550 * rate) + 10
.Width = 520 * rate
.Height = 525 * rate
.Parent = Me
.BackColor = Color.Blue
End With
Controls.Add(panel)
产生PictureBox
Dim pic() As PictureBox
ReDim pic(1)
pic(1) = New PictureBox

                    这个产生的代码,要置于Panel及PictureBox的最上方,请问代码如何改呢?
                    Dim lab2 As New Label
        With lab2
            .Name = "Lab" + i.ToString()
            .ForeColor = Color.Yellow
            .Font = New System.Drawing.Font("宋体", 20)
            .Text = "2018/1/1"
            .Left = (30 + 260) * rate + (colume - 1) * 500 * rate
            .Top = ((row) * 525 * rate + (row - 1) * 25 * rate) + (-10)
            .Width = 150
            .Height = 30
            .Parent = Me
            .Visible = True
        End With
        Controls.Add(lab2)

                    谢谢
  • 写回答

1条回答 默认 最新

  • 白袍老司机 2018-12-05 08:13
    关注

    我也不是很懂,但我想你要是想让他在最上层,那就应该将他包含在panel中,然后panel在picturebox里,大体是这个思路,一层包含一层,被包含的在最上面。仅供参考。

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥15 wamp3.3.5安装完成后图标正常显示绿色,鼠标左右键点击图标均无反应。求解决方法。
  • ¥15 鼠标点击的这条记录了什么?
  • ¥15 在写pid调速的程序时,电机始终维持最大速度
  • ¥15 帅锅们,我很想知道这个论坛是用什么模板搭的(T_T)
  • ¥15 请问如何查看手机root记录?
  • ¥15 商城小程序订单号重复
  • ¥15 学校优化算法sbo和蚁群算法怎么结合
  • ¥21 matlab怎么求时域信号的二阶导数
  • ¥15 判断两个表是否完全相同
  • ¥15 java map类型数据格式,如何快速通过前缀匹配元素