vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

Visual-Basic Einsteiger
Re: einblenden mehrerer Textfeldes, wenn die Maus über ein bestimmten Bereich geht 
Autor: inguni
Datum: 29.05.12 16:43
danke an alle

Ich habe es so gelöst, dass ich die Berechnungszeit optimiert habe.

Beschreibung ist ein Modul
ausblenden_Beschreibung ist ein Submakro 

' zeigt die Beschreibung für die Meilensteine und blendet Sie aus
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
  ByVal X As Single, ByVal Y As Single)
 
Select Case True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > 7 And Y < _
      Sheets(1).Label2.Height - (400 + 7)): Sheets(1).LabelA.Visible = True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > (7 + 25) _
    And Y < Sheets(1).Label2.Height - (375 + 7)): Sheets(1).LabelB.Visible = True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > (7 + 50) _
    And Y < Sheets(1).Label2.Height - (350 + 7)): Sheets(1).LabelC.Visible = True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > (7 + 75) _
    And Y < Sheets(1).Label2.Height - (325 + 7)): Sheets(1).LabelD.Visible = True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > (7 + 100) _
    And Y < Sheets(1).Label2.Height - (300 + 7)): Sheets(1).LabelE.Visible = True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > (7 + 125) _
    And Y < Sheets(1).Label2.Height - (275 + 7)): Sheets(1).LabelF.Visible = True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > (7 + 150) _
    And Y < Sheets(1).Label2.Height - (250 + 7)): Sheets(1).LabelG.Visible = True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > (7 + 175) _
    And Y < Sheets(1).Label2.Height - (225 + 7)): Sheets(1).LabelH.Visible = True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > (7 + 200) _
    And Y < Sheets(1).Label2.Height - (200 + 7)): Sheets(1).LabelI.Visible = True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > (7 + 225) _
    And Y < Sheets(1).Label2.Height - (175 + 7)): Sheets(1).LabelJ.Visible = True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > (7 + 250) _
    And Y < Sheets(1).Label2.Height - (150 + 7)): Sheets(1).LabelK.Visible = True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > (7 + 275) _
    And Y < Sheets(1).Label2.Height - (125 + 7)): Sheets(1).LabelL.Visible = True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > (7 + 300) _
    And Y < Sheets(1).Label2.Height - (100 + 7)): Sheets(1).LabelM.Visible = True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > (7 + 325) _
    And Y < Sheets(1).Label2.Height - (75 + 7)): Sheets(1).LabelN.Visible = True
    Case (X > 12 And X < Sheets(1).Label2.Width - 12) And (Y > (7 + 350) _
    And Y < Sheets(1).Label2.Height - (20 + 7)): Sheets(1).LabelO.Visible = True
    Case Else: Beschreibung.ausblenden_Beschreibung
End Select
 
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
einblenden mehrerer Textfeldes, wenn die Maus über ein besti...1.856inguni21.05.12 17:14
Re: einblenden mehrerer Textfeldes, wenn die Maus über ein b...870Manfred X21.05.12 19:04
Re: einblenden mehrerer Textfeldes, wenn die Maus über ein b...814inguni22.05.12 17:14
Re: einblenden mehrerer Textfeldes, wenn die Maus über ein b...819CLL22.05.12 08:06
Re: einblenden mehrerer Textfeldes, wenn die Maus über ein b...874inguni22.05.12 17:07
Re: einblenden mehrerer Textfeldes, wenn die Maus über ein b...785Zardoz23.05.12 14:46
Re: einblenden mehrerer Textfeldes, wenn die Maus über ein b...794inguni29.05.12 16:43

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-2024 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