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: MSG-Box Speichern vergessen? 
Autor: Manfred1944
Datum: 18.01.14 16:01

Hallo Zardoz,

erstmal vielen Dank für deine Mühe.

Nun habe ich das Ganze so gemacht wie beschrieben.
Dann habe ich etwas in eine Textdatei geschrieben.
Ohne zu speichern bin ich in ein anders Verzeichnis gegangen,
oder habe das Programm beendet.
Die MSGBox wurde aber nicht aufgerufen.
Vielleicht probierst Du das Programm mal aus.

Private bIsDirty As Boolean
Dim DateiName As String

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path

End Sub
Private Sub File1_Click()
DateiName = File1.List(File1.ListIndex)
DateiName = File1.Path + "\" + DateiName

Call Text
End Sub

Private Sub Text()

Dim DateiNr%

If Trim$(DateiName) = "" Then Exit Sub
If Dir$(DateiName) = "" Then Exit Sub

On Error Resume Next
DateiNr = FreeFile
Open DateiName For Input As #DateiNr
Text1.Text = Input(LOF(DateiNr), #DateiNr)
Close #DateiNr
On Error GoTo 0

DocChanged = False

End Sub

Private Sub mnuSpeichern_Click()
Dim fp As Integer
Dim eingabe As String

If File1.FileName = "" Then Exit Sub
fp = FreeFile
Open DateiName For Output As #fp
eingabe = Text1.Text
Print #fp, eingabe

Close (fp)

DocChanged = False

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 = True Then

Select Case MsgBox("The file has changed." & vbCr & vbCr & _
" Do you wish to save your changes?", _
vbExclamation + vbYesNoCancel, Me.Caption)

Case vbYes
mnuSpeichern_Click

Case vbNo
Unload Form

Case vbCancel
Cancel = True

End Select

Else

MsgBox "Nothing changed.", vbInformation + vbOKOnly

End If

End Sub

Private Sub Text1_Change()

DocChanged = True

End Sub

Private Sub Command1_Click()
End
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
BSGBox Speichern vergessen?2.000Manfred194415.01.14 13:39
Re: MSG-Box Speichern vergessen?1.319Zardoz15.01.14 14:39
Re: MSG-Box Speichern vergessen?1.285Manfred194416.01.14 12:59
Re: MSG-Box Speichern vergessen?1.337Zardoz16.01.14 13:45
Re: MSG-Box Speichern vergessen?1.260Manfred194418.01.14 16:01
Re: MSG-Box Speichern vergessen?1.357Manfred X18.01.14 16:59
Re: MSG-Box Speichern vergessen?1.219Manfred194421.01.14 13:23
Re: BSGBox Speichern vergessen?1.280Manfred X15.01.14 18:02
Re: BSGBox Speichern vergessen?1.460Manfred194416.01.14 13:02
Re: BSGBox Speichern vergessen?1.258Manfred X16.01.14 13:56
Re: BSGBox Speichern vergessen?1.247Manfred194417.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ü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