Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Projekt-Ende mit "END" ist verboten - eigentlich
Autor: RBE.-Elektronik
Datum: 28.11.20 17:13
Hallo Freunde des VB6 und einen guten Tag. End ist nicht verboten wenn es an der richtigen Stelle steht. Nachfolgend ein Programmteil aus meinem Programm. Hierbei funktioniert das bestens. Für alle die sich dafür interessieren. Darf auch genutzt werden. Anpassen nicht vergessen. Mit freundlichem Gruß, Ralf. Sub Dateibeenden_Click() If datenbankengespeichert = 0 Then Call Systemdatenbanklokalspeicherndatei Dim i As Integer Dim Cancel As Integer Dim UnloadMode As Integer Dim dbdatenbank2 As String Dim dbdatenbank3 As String Dim dbdatenbank4 As String On Error GoTo 0 dbdatenbank2 = datensuchpfad & "HSVSchützendatenbank.dat" dbdatenbank3 = datensuchpfad & "Konfig.av7.txt" dbdatenbank4 = datensuchpfad & "Internetseiten.txt" SetAttr dbdatenbank2, vbHidden SetAttr dbdatenbank4, vbHidden SetAttr dbdatenbank3, vbHidden Unload Hauptseite On Error Resume Next For i = Forms.Count To 1 Step -1 Unload Forms(i) Next i Picture6.Picture = LoadPicture("") On Error GoTo 0 datenbankengespeichert = 0 Call Form_QueryUnload(Cancel, UnloadMode) End End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Unload frmSplash Set frmSplash = Nothing programmendeschluessel = 1 Dateinameloeschen = datensuchpfad & "Schützendatenbank.dat" Hauptseite.Label3.Visible = True Hauptseite.Label3.Caption = "Schützendatenbank wird entfernt und Programm beendet." If Dir(datensuchpfad & "Schützendatenbank.dat") <> "" Then Call Dateientfernen(Dateinameloeschen) If Dir(datensuchpfad & "Schützendatenbank.dat") <> "" Then Kill datensuchpfad & "Schützendatenbank.dat" Dim dbdateiname2 As String Dim dbdateiname3 As String Dim dbdateiname4 As String If datenbankengespeichert = 0 Then Call Systemdatenbanklokalspeicherndatei If UnloadMode = vbFormControlMenu Then Cancel = False dbdateiname2 = datensuchpfad & "HSVSchützendatenbank.dat" dbdateiname3 = datensuchpfad & "Konfig.av7.txt" dbdateiname4 = datensuchpfad & "Internetseiten.txt" On Error Resume Next SetAttr dbdateiname2, vbSystem On Error Resume Next SetAttr dbdateiname3, vbSystem On Error Resume Next SetAttr dbdateiname4, vbSystem On Error Resume Next SetAttr dbdateiname2, vbHidden On Error Resume Next SetAttr dbdateiname3, vbHidden On Error Resume Next SetAttr dbdateiname4, vbHidden On Error GoTo 0 On Error GoTo 0 On Error GoTo 0 On Error GoTo 0 On Error GoTo 0 On Error GoTo 0 Call Hauptseitebeenden Call speicherfreigeben Else End If On Error GoTo 0 Call Hauptseitebeenden Call speicherfreigeben End End Sub Ralf.

Projekt-Ende mit "END" ist verboten - eigentlich	1.006	Wolfgang Schwarz	25.11.19 15:54
Re: Projekt-Ende mit "END" ist verboten - eigentlich	643	Zardoz	25.11.19 16:25
Re: Projekt-Ende mit "END" ist verboten - eigentlich	572	Wolfgang Schwarz	25.11.19 17:05
Re: Projekt-Ende mit "END" ist verboten - eigentlich	565	Souffleurlos	26.11.19 15:11
Re: Projekt-Ende mit "END" ist verboten - eigentlich	403	RBE.-Elektronik	28.11.20 17:13

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