Visual Basic Forum

SoleroIce · Newbie Anmeldedatum: 14.10.2003 Beiträge: 6

ich bin anfänger und hab eine für euch sicher lächerlich klingende frage *gg*!

ich habe einen wecker programmiert der zur gewünschten zeit die uhrzeit und die mitteilung ausgibt:

es sieht so aus:

es ist jetzt 19:50 uhrmitteilung

wie schaffe ich es dass es so wird (d.h. einen Absatz einfügen:

es ist jetzt 19:50 uhr
mitteilung

hier noch der code:

Option Explicit

Dim blnGemeldet As Boolean
Dim blnGestellt As Boolean
Dim dtmWeckzeit As Date

Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
Me.Caption = "Weckzeit: " & _
IIf(blnGestellt, dtmWeckzeit, "")
Else
Me.Caption = "Wecker"
End If
End Sub

Private Sub optAus_Click()
blnGestellt = False
DTPicker1.SetFocus
End Sub

Private Sub optEin_Click()
blnGemeldet = False
blnGestellt = True
dtmWeckzeit = Format(DTPicker1.Value, "Short Time")
End Sub

Private Sub Timer1_Timer()
If blnGestellt And Not blnGemeldet And Time >= dtmWeckzeit Then
Beep
MsgBox "Es ist jetzt " & Format(Time, "Short Time") _
& txtMitteilung.Text, , "Alarm"
Timer1.Enabled = False
frmWecker.WindowState = 0
End If
End Sub

Private Sub txtMitteilung_Change()
txtMitteilung.Text = txtMitteilung.Text
End Sub

ich hoffe auf baldige hilfe

mfg sarah

Bandyt · Tutorial Leser Anmeldedatum: 16.05.2002 Beiträge: 38

In den Text der Mittelung gibts du ein:
Text & vbcrlf & Text_des_nächsten_absatzes

SoleroIce · Newbie Anmeldedatum: 14.10.2003 Beiträge: 6

danke danke! es funktioniert jetz!

nur noch eine (oder 2 *gg*) fragen:

was bedeutet dieser befehl und
wie schaffe ich es dass es zentriert im fenster angezeigt wird?

Bandyt · Tutorial Leser Anmeldedatum: 16.05.2002 Beiträge: 38

vbcrlf ist eine konstante die das zeichen mit dem ascii 13 (cr carriagereturn) und 10 (lf linefeed) einfügt.

Mittig kannst du nur mit einem eigenen Fenster machen.
Einfach ein Label drauf, dass so breit ist wie das form und align (oder so) auf center