vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - G?nnen Sie Ihrem SQL-Kommando diesen kr?nenden Abschlu?!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2017
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
ToolTip von Listview 
Autor: Marty**
Datum: 20.04.17 21:33

Hallo,

hiermit lasse ich mir Kreise zeichnen

Public Class Form1
 
    Dim WithEvents pb As New PictureBox With {.Parent = Me, .Size = New Size( _
      300, 300)}
    Dim WithEvents lbo As New ListBox With {.Parent = Me, .Top = 330, .Width = _
    300, .Height = 60}
 
    Private Sub frmBlink_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
        Me.Size = New Size(320, 440)
 
        'Die Listenindices definieren die Position der Kreise in der Picturebox 
        ' pb
        lbo.Items.AddRange({"100,100", "130, 130", "160, 160", "100, 160"})
 
    End Sub
 
    Private Sub pb_Paint(sender As Object, e As _
      System.Windows.Forms.PaintEventArgs) Handles pb.Paint
 
        Dim vl() As String, x%, y%
 
        'Nicht-selektierte Kreise zeichnen (grau)
        Using br As New SolidBrush(Color.Gray)
            For i As Integer = 0 To lbo.Items.Count - 1
                If Not i = lbo.SelectedIndex Then
                    vl = lbo.Items(i).ToString.Split(","c)
                    x = CInt(vl(0)) : y = CInt(vl(1))
                    e.Graphics.FillEllipse(br, x, y, 20, 20)
                End If
            Next i
        End Using
 
    End Sub
End Class
Wie kann man sich, wenn man mit der Maus über die Kreise zieht, sich ein Tooltip mit den x u. y Koordinaten anzeigen lassen ?

MfG
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

Summer-Special bei Tools & Components!
Gute Laune Sommer bei Tools & Components
Top Summer-Special - Sparen Sie teilweise bis zu 120,- EUR
Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!
zum Beispiel:
  • Developer CD nur 479,20 EUR statt 599,- EUR
  • sevDTA 3.0 nur 224,30 EUR statt 299,- EUR
  •  
  • vb@rchiv   Vol.6 nur 20,00 EUR statt 24,95 EUR
  • sevCoolbar 3.0 nur 55,20 EUR statt 69,- EUR
  • - Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig
     ThemaViews  AutorDatum
    ToolTip von Listview245Marty**20.04.17 21:33
    Hinweis zu einem Zeichnungselement anzeigen123Manfred X21.04.17 00:21

    Sie sind nicht angemeldet!
    Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

    Einloggen  |  Neu registrieren

    Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

    nach obenzurück
     
       

    Copyright ©2000-2017 vb@rchiv Dieter Otter
    Alle Rechte vorbehalten.
    Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

    Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel