vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 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: Positionieren eines Form über Eigenschaft des Form 
Autor: guenni255
Datum: 04.02.19 20:47

Hallo Souffleurlos

Vielen Dank für deine schnelle Antwort.

Leider hilft mir das nicht. War mein Fehler das ich das defenieren nicht mit reinkopiert habe. Gesamt sieht das so aus.
Option Explicit
Private xEinsatz As Integer
Private xFormModus As Integer
Public Property Get Einsatz() As Variant
Einsatz = xEinsatz
End Property
 
Public Property Let Einsatz(ByVal vNewValue As Variant)
xEinsatz = vNewValue
End Property
 
Public Property Get FormModus() As Variant
FormModus = xFormModus
End Property
 
Public Property Let FormModus(ByVal vNewValue As Variant)
xFormModus = vNewValue
End Property
 
Private Sub cmdEnde_Click()
Me.Enabled = False
Call fspeichernEinsatz(Me.Einsatz)
Call fJahresübersicht(Year(frmTag.txtDatum.Text))
 
Call fAufrufTour(1, 0)
End Sub
 
Private Sub cmdWeitere_Click()
Call fspeichernEinsatz(Me.Einsatz)
Me.Enabled = False
Call fJahresübersicht(Year(frmTag.txtDatum.Text))
Call fAufrufEinsatz(Me.Einsatz + 1, 0)
End Sub
 
Private Sub Form_Load()
 
Me.Caption = "Einsatz: " & Me.Einsatz
Me.Width = 2000
Me.Height = 2400
    Select Case Me.Einsatz
    Case 1
        Me.Top = 2300
        Me.Left = 0
    Case 2
        Me.Top = 2300
        Me.Left = 2000
    Case 3
        Me.Top = 2300
        Me.Left = 4000
    Case 4
        Me.Top = 4800
        Me.Left = 0
    Case 5
        Me.Top = 4800
        Me.Left = 2000
    Case 6
        Me.Top = 4800
        Me.Left = 4000
    Case 7
        Me.Top = 7300
        Me.Left = 0
    Case 8
        Me.Top = 7300
        Me.Left = 2000
    Case 9
        Me.Top = 7300
        Me.Left = 4000
    End Select
Select Case Me.FormModus
Case 0 'Neuer DS
    Me.BackColor = vbWhite
    Me.cmdweitere.BackColor = &H80FF80
    Me.cmdEnde.BackColor = &HC0C000
    Me.lblFormModus = "Neuer Ds > Modus:" & Me.FormModus
 
Case 1 'Vorhandene Daten
 
End Select
 
End Sub
 
'======================================================Lostfocus===============
' ====================
Private Sub txtvon_LostFocus()
Me.txtvon.Text = Format(Me.txtvon.Text, "00:00")
End Sub
Private Sub txtbis_LostFocus()
Me.txtbis.Text = Format(Me.txtbis.Text, "00:00")
Me.txtEinsatzStd.Text = fMinBerechnen(Me.txtvon.Text, Me.txtbis.Text) / 60
End Sub
Also habe ich schon gemacht was du vorgeschlagen hast.

ich habe nun die Top Werte über select case zugewiesen.

So wie der code jetzt da steht funzt es auch.

Nur ist es meiner Meinung nach mit weniger Code zu lösen.

Vielleicht hast du ja einen Vorschlag.

Vielen Dank nochmal

LG Günni

Beitrag wurde zuletzt am 04.02.19 um 21:11:29 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Positionieren eines Form über Eigenschaft des Form933guenni25504.02.19 15:26
Re: Positionieren eines Form über Eigenschaft des Form452Souffleurlos04.02.19 17:35
Re: Positionieren eines Form über Eigenschaft des Form442guenni25504.02.19 20:47
Re: Positionieren eines Form über Eigenschaft des Form452Rippler05.02.19 00:20
Re: Positionieren eines Form über Eigenschaft des Form457guenni25505.02.19 10:26
Re: Positionieren eines Form über Eigenschaft des Form454Rippler05.02.19 10:39
Re: Positionieren eines Form über Eigenschaft des Form440guenni25505.02.19 10:46

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