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   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
Re: Werte werden nicht übernommen  
Autor: Cooper_
Datum: 08.12.03 10:58

Hi !

Ich will, dass meine Steuerelemente auf der Form automatisch angepasst werden.


Private Sub mit_Move()
 
    ' Wenn nicht die linke Maustaste gedrückt ist, Werte merken
    ' Nachdem linke Maustaste gedrückt wurde, und wieder losgelassen wurde neue 
    ' Werte anschauen und Positionen neu setzen
 
    '*** Startwerte vom Fenster registrieren
 
    Dim FensterHöhe_alt As Long
    Dim FensterBreite_alt As Long
 
    Dim FensterHöheTmp As Long
    Dim FensterBreiteTmp As Long
 
    Dim Einmaldurchlaufen As Boolean
 
    If (Einmaldurchlaufen = False) Then     '*** Überprüfung, ob die Startwerte 
    ' schon gesetzt wurden
        FensterBreite_alt = StartwertFensterBreite
        FensterHöhe_alt = StartwertFensterHöhe
    Else
        FensterBreite_alt = FensterBreiteTmp
        FensterHöhe_alt = FensterHöheTmp
    End If
 
    ' Wenn sich die Werte des Fensters nicht verändert, geschieht nichts
 
        FensterHöheTmp = frmMain.Height
        FensterBreiteTmp = frmMain.Width
 
        If FensterBreite_alt <> FensterBreiteTmp Then   '*** Wenn sich die 
        ' Fensterwerte verändern
            MsgBox "Breitenveränderung!"                '*** Test
            FensterBreite_alt = FensterBreiteTmp
            FensterHöhe_alt = FensterHöheTmp
            Einmaldurchlaufen = True    '*** Wert wird nicht übernommen !
        End If
 
End Sub

Auf den Sack schl?gt man, den Esel meint man.

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Werte werden nicht übernommen 361Cooper_08.12.03 09:48
Re: Werte werden nicht übernommen 199David M08.12.03 10:28
Re: Werte werden nicht übernommen 296Cooper_08.12.03 10:58
Re: Werte werden nicht übernommen 211David M08.12.03 12:27
Re: Werte werden nicht übernommen 213Cooper_08.12.03 12:59
Re: Werte werden nicht übernommen 259Danzi08.12.03 18:43
Re: Werte werden nicht übernommen 194Michael F08.12.03 19:56

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