Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

BSGBox Speichern vergessen?
Autor: Manfred1944
Datum: 15.01.14 13:39
Hallo Wenn ich den Text verändere oder Exit drücke,sollte die MSGBox angesprochen werden. Wie unten beschrieben geht es nicht. Dim DocChanged As Boolean Private Sub Text() Dim DateiNr% Dim Zeile$ Dim Daten$ On Error GoTo ErrorHandler DateiNr% = FreeFile Open DateiName For Input As DateiNr% Do Until EOF(DateiNr%) Line Input #DateiNr%, Zeile$ Daten$ = Daten$ + Zeile$ + Chr$(13) + Chr$(10) Loop Close DateiNr% Text1.Text = Daten$ ErrorHandler: Resume Next End Sub Private Sub Form_Unload(cancel As Integer) ' Checks to see if document has changed since last save, ' and if it has gives a message box with a chance to save. If DocChanged Then Select Case MsgBox("The file has changed." & vbCr & vbCr & _ "Do you wish to save your changes?", _ vbExclamation + vbYesNoCancel, frmMain.Caption) Case vbYes mnuFileSave_Click Case vbNo Unload Form Case vbCancel cancel = True End Select End If

BSGBox Speichern vergessen?	1.898	Manfred1944	15.01.14 13:39
Re: MSG-Box Speichern vergessen?	1.249	Zardoz	15.01.14 14:39
Re: MSG-Box Speichern vergessen?	1.219	Manfred1944	16.01.14 12:59
Re: MSG-Box Speichern vergessen?	1.271	Zardoz	16.01.14 13:45
Re: MSG-Box Speichern vergessen?	1.197	Manfred1944	18.01.14 16:01
Re: MSG-Box Speichern vergessen?	1.252	Manfred X	18.01.14 16:59
Re: MSG-Box Speichern vergessen?	1.159	Manfred1944	21.01.14 13:23
Re: BSGBox Speichern vergessen?	1.209	Manfred X	15.01.14 18:02
Re: BSGBox Speichern vergessen?	1.313	Manfred1944	16.01.14 13:02
Re: BSGBox Speichern vergessen?	1.193	Manfred X	16.01.14 13:56
Re: BSGBox Speichern vergessen?	1.179	Manfred1944	17.01.14 13:03

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übersicht

Suchen