Picturebox Ansprechen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von TheDark.

    Picturebox Ansprechen

    Ich habe dießen Code Hier

    VB.NET-Quellcode

    1. Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Dim PB As New Move_PictureBox
    2. With PB
    3. .BackColor = Color.Black
    4. .Size = New Point(100, 100) .Name = Textbox1.Text
    5. End With
    6. Me.Controls.Add(PB)
    7. End Sub
    9. End Class
    13. Public Class Move_PictureBox : Inherits PictureBox
    14. Dim Beweglich As Boolean = True
    15. Dim nStartPos As Point
    16. Dim nDragPos As Point
    18. Shadows Sub PictureBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    19. If Beweglich Then
    20. If e.Button = Windows.Forms.MouseButtons.Left Then
    21. nStartPos = Me.Location
    22. nDragPos = Me.PointToScreen(New Point(e.X, e.Y))
    23. End If
    24. End If
    25. End Sub
    27. Shadows Sub PictureBox_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    28. If Beweglich Then
    29. If e.Button = Windows.Forms.MouseButtons.Left Then
    30. Dim nCurPos As Point = Me.PointToScreen(New Point(e.X, e.Y))
    31. Me.Location = New Point(nStartPos.X + nCurPos.X - nDragPos.X, _
    32. nStartPos.Y + nCurPos.Y - nDragPos.Y)
    33. End If
    34. End If
    35. End Sub




    nun möchte ich eine bestimmte picturebox ansprechen deswegen wird ihr beim erstellen ein Name der in Textbox1 steht gegeben.

    Aber wie mache ich das jetzt genau ?

    ich möchte bloß einer bestimmten picturebox deren Name in Textbox1 eingegeben wird eine andere Backgroundcolor geben.

    Bitte um Hilfe.

Facebook
Telefonspende