vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 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: Bei bestimmtem Zeitraum etwas ausführen (Nix mit "Zeiträume überprüfen" zu t 
Autor: Skyeye
Datum: 19.05.08 22:53
Sry, dass ich solange nicht geantwortet habe, war bei der Fahrschule, etc :P

Also ein paar Korrekturen und ein großes DANKE, dass Ihr euch die Mühe gemacht habt!

@ Dieter:
Die Variablen sind beide als Date deklariert! 

Dim dBeg, dEnd as Date
Damit spar ich mir lediglich nochmal mit Dim neu ansetzten zu müssen. Mit nem Komma kannst Du mehrere Variablen mit dem gleichen Typ deklarieren!

@ icetea123:

Der Code funzt, danke.

Hier ein der paar angedrohten Korrekturen:

"<>=" bei Date FUNKTIONIERT! Ich habs schon mehrmals gemacht, deshalb war ich ja so überrascht, ich schau nochmal, worans vllt genau gelegen hat. Mit Deinem Code kann ich das jetzt ja super vergleichen! Danke :P

Außerdem: Me.Height selbst geht auch, selbst ohne Scale. Hab ich vorher auch schon hinbekommen.
Ich vergaß noch zu erwähnen, dass ich den borderstyle auf 0 gesetzt habe, also es keinen Border gibt bei der Form. So kanns dann auch zu 0 ablaufen und das Ding schaltet sich aus.

Und ich wollte nen Interval von 1 ! :P Naja, das is ja das geringste Übel ^,^

SO, nun nochmal der Code, wie ich ihn auch eigentlich haben wollte UND wie er sogar funzt ^,^ 

Option Explicit
 
Dim dBeg, dEnd As Date
 
Private Sub Form_Load()
dBeg = Now
dEnd = DateAdd("H", 8, dBeg)
 
tmZeit.Interval = 1
tmZeit.Enabled = True
End Sub
 
Private Sub tmZeit_Timer()
 
If Now >= dBeg And Now < dEnd Then
  Me.Height = Me.Height - 10
   If Me.Height = 0 Then
    tmZeit.Enabled = False
     Unload Me
   End If
End If
 
End Sub
ThX @ all und vllt habta ja selbst neues Wissen gewonnen :P

Beitrag wurde zuletzt am 19.05.08 um 22:54:23 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bei bestimmtem Zeitraum etwas ausführen (Nix mit "Zeiträume ...2.806Skyeye19.05.08 18:20
Re: Bei bestimmtem Zeitraum etwas ausführen (Nix mit "Zeiträ...1.669ModeratorDieter19.05.08 19:16
Re: Bei bestimmtem Zeitraum etwas ausführen (Nix mit "Zeiträ...1.589icetea12319.05.08 19:48
Re: Bei bestimmtem Zeitraum etwas ausführen (Nix mit "Zeiträ...1.665icetea12319.05.08 19:56
Re: Bei bestimmtem Zeitraum etwas ausführen (Nix mit "Zeiträ...1.589ModeratorDieter19.05.08 19:59
Re: Bei bestimmtem Zeitraum etwas ausführen (Nix mit "Zeiträ...1.620Skyeye19.05.08 22:53
Re: Bei bestimmtem Zeitraum etwas ausführen (Nix mit "Zeiträ...1.551Skyeye19.05.08 23:44
Re: Bei bestimmtem Zeitraum etwas ausführen (Nix mit "Zeiträ...1.601ModeratorDieter20.05.08 06:41
Re: Bei bestimmtem Zeitraum etwas ausführen (Nix mit "Zeiträ...1.575Skyeye20.05.08 11: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