Question

到目前为止，我已经设法让代码工作了我想要的标签1.我有23个标签需要附加相同的代码。我很难想出一个更快，更有效的方法，因为我对VB很陌生。任何帮助将不胜感激。

Private Sub HitMazeWall()

    'Hitting the right side of the wall
    If Label1.Bounds.IntersectsWith(PictureBox1.Bounds) And PictureBox1.Bounds.Left < Label1.Bounds.Right And PictureBox1.Bounds.Right > Label1.Bounds.Right Then
        PictureBox1.Left += 5

        'Hitting the left side of the wall
    ElseIf Label1.Bounds.IntersectsWith(PictureBox1.Bounds) And PictureBox1.Bounds.Right > Label1.Bounds.Left And PictureBox1.Bounds.Left < Label1.Bounds.Left Then
        PictureBox1.Left -= 5

        'Hitting the top side of the wall
    ElseIf Label1.Bounds.IntersectsWith(PictureBox1.Bounds) And PictureBox1.Bounds.Top < Label1.Bounds.Bottom And PictureBox1.Bounds.Bottom > Label1.Bounds.Bottom Then
        PictureBox1.Top += 5

        'Hitting the bottom side of the wall
    ElseIf Label1.Bounds.IntersectsWith(PictureBox1.Bounds) And PictureBox1.Bounds.Bottom > Label1.Bounds.Top And PictureBox1.Bounds.Top < Label1.Bounds.Top Then
        PictureBox1.Top -= 5

    End If
End Sub

Answer 1

您是否听说过<!doctype html> <html lang="en"> <head> <meta charset="utf-8"> <title>This is the title</title> <meta name="description" content="This is the Description"> <link rel="stylesheet" href="css/styles.css"> </head> <body> <script>/*This is inside an script tag*/</script> </body> </html>声明？如果没有，请查看this 在您的情况下，一个简单的For each....Next语句可以完成这项工作。代码如下：

For each

这里，代码检查控件的表单。现在，在一个表单中，有许多控件而不是所有都是标签，因此应用程序需要弄清楚你的目标控件类型。所以，我们使用{{ 1}}。我猜其余的代码不需要任何解释。

有关详细信息，请访问here

一次调用多个标签

1 个答案: