none
Warum funktioniert dieses kleine Programm nur eingeschränkt?

    Frage

  • Hallo Forum,

    ich bin gerade dabei VB mit einem Buch zu lernen. Obwohl es sich um ein Programm aus meinem "Lehrbuch" handelt, funktioniert dieses nur eingeschränkt. Bei Klick auf einen der Buttons verändert sich ein bestimmter Button. Funktionieren tut die Farbänderung und die Größenänderung. Die Positionsverschiebung leider nicht. Hier ist der Code. Könntet ihr mir eventuell einen Tipp geben, warum "cmdPositionRel_Click" (gleich der erste) nicht funktioniert? vielen Dank für eure Hilfe. 

    Rainer

    Public Class Form1

        Private Sub cmdPositionRel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            cmdTest.Location = New Point(
                cmdTest.Location.X + 5,
                cmdTest.Location.Y)
        End Sub
        Private Sub cmdPositionAbs_Click(
                ByVal sender As System.Object,
                ByVal e As System.EventArgs
                )
            cmdTest.Location = New Point(10, 10)
        End Sub
        Private Sub cmdGrößeRel_Click(
                ByVal sender As System.Object,
                ByVal e As System.EventArgs
                )
            cmdTest.Size = New Size(
                cmdTest.Size.Width + 20,
                cmdTest.Size.Height)
        End Sub
        Private Sub cmdGrößeAbs_Click(
                ByVal sender As System.Object,
                ByVal e As System.EventArgs
                ) Handles cmdGrößeAbs.Click
            cmdTest.Size = New Size(50, 100)
        End Sub
        Private Sub cmdAnzeige_Click(
                ByVal sender As System.Object,
                ByVal e As System.EventArgs
                )
            lblAnzeige.Text =
                "Position: X: " & cmdTest.Location.X &
                ", Y: " & cmdTest.Location.Y & vbCrLf &
                "Größe: Breite: " & cmdTest.Size.Width &
                ", Höhe: " & cmdTest.Size.Height
        End Sub

        Private Sub cmdFarbe_Click(
                ByVal sender As System.Object,
                ByVal e As System.EventArgs
                ) Handles cmdFarbe.Click
            Me.BackColor = Color.Yellow
            lblAnzeige.BackColor =
                Color.FromArgb(192, 255, 0)
        End Sub

        Private Sub cmdFarbe_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFarbe.Click

        End Sub
    End Class

    Sonntag, 17. März 2013 20:30

Antworten

  • Hallo,

    bei mir funktioniert der Code. Der wahrscheinlichste Fehler ist, das das Event nicht richtig registriert ist. Gehe mal in den Designer, markiere den Button cmdPositionRel, drücke F4 (Eigenschaftenfenster) , nun klickst du auf den Blitz (Ereignisse) und trägst unter Click "cmdPositionRel_Click" ein. Damit sollte es dann wieder funktionieren.


    <Code:13/> - Koopakiller [kuːpakɪllɐ]
    Webseite | Code Beispiele | Facebook | Snippets

    • Als Antwort markiert rainerm Sonntag, 17. März 2013 20:57
    Sonntag, 17. März 2013 20:43
    Moderator

Alle Antworten

  • Hallo,

    bei mir funktioniert der Code. Der wahrscheinlichste Fehler ist, das das Event nicht richtig registriert ist. Gehe mal in den Designer, markiere den Button cmdPositionRel, drücke F4 (Eigenschaftenfenster) , nun klickst du auf den Blitz (Ereignisse) und trägst unter Click "cmdPositionRel_Click" ein. Damit sollte es dann wieder funktionieren.


    <Code:13/> - Koopakiller [kuːpakɪllɐ]
    Webseite | Code Beispiele | Facebook | Snippets

    • Als Antwort markiert rainerm Sonntag, 17. März 2013 20:57
    Sonntag, 17. März 2013 20:43
    Moderator
  • Hallo Koopakiller,

     Jetzt funktioniert´s. 

    ..... und schon wieder was gelernt!
    tausend Dank.

    Rainer

    Sonntag, 17. März 2013 20:59