none
VB.NET - WPF - Punkt in Image zeichnen bzw. setzen RRS feed

  • Allgemeine Diskussion

  • Hallo zusammen,

    ich habe folgendes Problem. Ich arbeite gerade an einer Software (WPF-Anwendung). Beim Öffnen eines Fensters wird ein Bild als Image angezeigt. Nun möchte ich innerhalb dieses Bildes ein Punkt setzen per Mausklick. Leider komme ich hier nicht weiter.

    Ich habe einen VB6 Code zur Hilfe, mit dem dieser Vorgang bei der Vorgänger Software funktionierte. Ich bitte um Hilfe...

    VB6 Code:

    Public Property Get GetLocationX() As Integer
        GetLocationX = mintLocationX
    End Property
    
    Public Property Get GetLocationY() As Integer
        GetLocationY = mintLocationY
    End Property
    
    Private Sub picSchmerzlokalisation_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
        Dim KooX As Integer
        Dim KooY As Integer
        
        KooX = MyCInt(x)
        KooY = MyCInt(y)
        
        Call SchmerzmarkierungSetzen(KooX, KooY)
        
        mintLocationX = MyCInt(x)
        mintLocationY = MyCInt(y)
        
    End Sub
    
    Private Sub SchmerzmarkierungSetzen(KooX As Integer, KooY As Integer)
        
        picSchmerzlokalisation.Cls
        
        If KooX = 0 And KooY = 0 Then
            Exit Sub
        End If
        
        lblXKoo.Caption = KooX
        lblYKoo.Caption = KooY
        
        picSchmerzlokalisation.AutoRedraw = True
        picSchmerzlokalisation.Refresh
        picSchmerzlokalisation.Circle (KooX, KooY), 50, vbRed
        picSchmerzlokalisation.Circle (KooX, KooY), 100, vbRed
        picSchmerzlokalisation.Circle (KooX, KooY), 200, vbRed
        picSchmerzlokalisation.Refresh
        
    End Sub
    
    Public Sub SetLocation(ByVal lngX As Integer, _
                           ByVal lngY As Integer)
        
        mintLocationX = lngX
        mintLocationY = lngY
        
        SchmerzmarkierungSetzen lngX, lngY
        
        lblXKoo.DataChanged = False
        lblYKoo.DataChanged = False
        
    End Sub


    Montag, 20. Januar 2014 08:35

Alle Antworten