Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Schreibgeschützte ComboBox
Autor: Atlan
Datum: 12.05.02 11:33
moin moin Dieter, habe in der Nacht noch versucht die Sache unter Dach und Fach zu bringen, scheitere aber dauernd bei einlesen der Dateien. Das knallt da irgendwo im Code gar schrecklich, und ich habe im Moment so null Plan wie ich da weiterkomme. Wenn ich das in einem neuen Programm teste, klappt das alles ganz prima, bei Schreibschutz aktiviert und Eingabe des Eintrags: "Batch:" in die Listeigenschaft der ComboBox erscheint der Eintrag auch in der Liste beim Programmstart. Nur wenn ich versuche das gleiche zu machen mit dem einlesen der 100 .dat-Dateien zusätzlich gibts Probleme. Vielleicht magst Du mir dabei noch einmal behilflich sein. Hier noch einmal der Code: ###### frmApplication - Form ######### Private Sub Form_Load() On Error GoTo c If ComboBatch.ListCount > 0 Then ComboBatch.ListIndex = 0 End If BatchLoad '<--- Im modBatch Modul! HtmlLoad '<--- Im modHtml Modul! PlanLoad '<--- Im modPlan Modul! RegistryLoad '<--- Im modRegistry Modul! ScriptLoad '<--- Im modScript Modul! SystemLoad '<--- Im modSystem Modul! TipsLoad '<--- Im modTips Modul! ToolsLoad '<--- Im modTools Modul! VisualLoad '<--- Im modVisual Modul! FarbwahlE '<--- Im modINI Modul! Exit Sub c: MsgBox "ERROR", 48, "ERROR" End Sub ###### modBatch - Modul ######### Option Explicit Const Co_Pfad = "batch" 'Konstante für das Laufwerk und den Pfad Const Co_Dateiname = "Batch" Const Co_Dateiendung = ".dat" Dim St_Umwandeln As String Dim By_Counter As Byte Sub BatchLoad() On Error GoTo Fehler For By_Counter = 0 To 200 St_Umwandeln = Format(By_Counter, "000") Open Co_Pfad & Co_Dateiname & St_Umwandeln & ".dat" For Input As #1 frmApplication.ComboBatch.AddItem Co_Dateiname & St_Umwandeln Close #1 Weiter: Next Exit Sub Fehler: Select Case Err.Number Case 53 'Datei nicht vorhanden Resume Weiter End Select End Sub Wenn ich den Code so nehme kommt die Fehlermeldung: "Datei nicht vorhanden" aus der Errorroutine "Fehler:" Nach dem Klick auf "OK" öffnet sich das Programm und der Eintrag ist auch wie gewollt so vorhanden, das der Eintrag den ich der ComboBox in der Listeigenschaft als Eintrag: "Batch:" eingefügt habe, auch angezeigt wird, sowie der Rest der 100 Batch.dat-Dateien von 001-100. Was ist da an dem Code falsch beim einlesen? Gruß, Atlan

Schreibgeschützte ComboBox	56	Atlan	10.05.02 19:12
Re: Schreibgeschützte ComboBox	239	Dieter	10.05.02 19:44
Re: Schreibgeschützte ComboBox	28	Atlan	11.05.02 23:51
Re: Schreibgeschützte ComboBox	210	Dieter	12.05.02 00:05
Re: Schreibgeschützte ComboBox	20	Atlan	12.05.02 00:20
Re: Schreibgeschützte ComboBox	245	Dieter	12.05.02 00:25
Re: Schreibgeschützte ComboBox	43	Atlan	12.05.02 01:11
Re: Schreibgeschützte ComboBox	25	Atlan	12.05.02 11:33
Re: Schreibgeschützte ComboBox	292	Dieter	12.05.02 12:09
Re: Schreibgeschützte ComboBox	22	Atlan	12.05.02 18:43
Schon in Heia ?	23	Atlan	12.05.02 21:13
Re: Schon in Heia ?	213	unbekannt	12.05.02 21:24
Re: Schon in Heia ?	22	Atlan	12.05.02 21:43
Von wegen Heia!	389	Dieter	12.05.02 23:29
Dieter, Du bist ein Rocker! oT	228	unbekannt	12.05.02 23:35
Hmmmm ??? (oT)	300	Dieter	12.05.02 23:43
Dieses etwas altmodische Wort ....	221	Moni	12.05.02 23:50
Moment !	242	unbekannt	13.05.02 00:17
Immer diese uBhctsbanerdhere (oT)	242	Dieter	13.05.02 00:26
Spass muss sein *Grinz*, oT	385	unbekannt	13.05.02 01:02
Das meine ich aber auch - Thread ende (oT)	220	Dieter	13.05.02 01:09
Re: Das meine ich aber auch - Thread ende (oT)	27	Atlan	13.05.02 09:34
thx	30	Atlan	13.05.02 14:04
Sorry aber.....	31	Atlan	13.05.02 11:12
Re: Sorry aber.....	229	Dieter	13.05.02 11:19

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