Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Frage zu sevQuickInfo
Autor: Pauli
Datum: 09.12.02 21:33
Hallo, der Code war leider zu lang, um ihn einfach so zu posten, daher habe ich ihn gekürzt und auf 2 Posts verteilt... Nicht ganz übersichtlich, aber ging nicht anders... Gruß, Pauli   ocStatusKontrolle() 'Variablen fehlen: Text war zu lang 'Mit dem Steuerelement für die ToolTip-Texte tue With sevQI 'Mit sämtlichen "lblKFZ" tue For i = 0 To 31 'sevQuickInfo initialisieren .Init frmKarte.hwnd, App.hInstance 'Rettungswachen-Standort speichern - ***Anfang*** Select Case Left$(frmKarte.lblKFZ(i).Caption, 2) 'gekürzt End Select '***Ende*** 'Rettungsmittel-Typ speichern - ***Anfang*** Select Case Mid$(frmKarte.lblKFZ(i), 4, 2) 'gekürzt End Select '***Ende*** 'Funkrufnamen speichern arToolTip(i).strFunkruf = Mid(frmKarte.lblKFZ(i).Caption, 1, 5) 'Voreinstellung: Für jedes Fahrzeug Status 2 anzeigen frmKarte.lblKFZ(i).Caption = Mid(frmKarte.lblKFZ(i).Caption, 1, 5) + " Ein 2" frmKarte.lblKFZ(i).ToColor = &H36CA26 .ControlRemove frmKarte.lblKFZ(i) 'Voreinstellung: ToolTip-Text für Fahrzeug in Status 2 anzeigen .ControlAdd frmKarte.lblKFZ(i), arToolTip(i).strFunkruf + " - " + arToolTip(i).strTyp + " " + arToolTip(i).strStandort + " - Status: Ein 2" + _ vbCrLf + vbCrLf + "Einsatz : Zur Zeit an keinen Einsatz gebunden" + _ vbCrLf + "Standort: RW " + arToolTip(i).strStandort .BackColor = &HDCD8CF Next i End With 'Mit sämtlichen "lblKFZ" tue For i = 0 To 31 With frmKarte.lblKFZ(i) 'Falls ein Fehler auftritt, d.h. falls die Einsatzübersicht kein Element besitzt... On Local Error Resume Next If Err Then '...,dann i-For-Schleife abbrechen und zum Ende der With-Anweisung springen Exit For End If 'Einsatztabellen-Array durchsuchen For j = 1 To UBound(InhaltETab) 'Falls ein Feld für das gerade betrachtete Fahrzeug gefunden wurde If (Mid(.Caption, 1, 5) = InhaltETab(j).Rufname) Then 'Einsatznummer und anschl. Einsatzdaten des Einsatzes ermitteln, an dem das gerade betrachtete Fahrzeug teilnimmt For k = 1 To start.tvEinsätze.Nodes.Count If (Left$(start.tvEinsätze.Nodes(k).Tag, 5) = Mid(.Caption, 1, 5)) Then On Local Error Resume Next strEinsatznr = CStr(start.tvEinsätze.Nodes(k).Parent.Tag) If Err Then strEinsatznr = CStr(start.tvEinsätze.Nodes(k).Tag) End If On Local Error GoTo 0 'Einsatzdaten-Datenbank öffnen dbFile = App.Path + "\Temp.esd" Set Db = Workspaces(0).OpenDatabase(dbFile, False, False) 'Recordset auf Basis einer SQL-Abfrage erstellen und öffnen '[Alle Einsätze mit der ermittelten Einsatznummer suchen] SQL = "SELECT * FROM Einsätze WHERE Einsatznummer=" + strEinsatznr Set rs = Db.OpenRecordset(SQL) 'Falls ein passender Datensatz gefunden wurde If (rs.RecordCount > 0) Then 'Einsatzdaten in Array speichern arToolTip(i).strOrt = nz(rs("Ort")) arToolTip(i).strGemeinde = nz(rs("Gemeinde")) arToolTip(i).strStichwort = nz(rs("Stichwort")) End If   hsten Post...

Frage zu sevQuickInfo	593	Pauli	09.12.02 19:30
Re: Frage zu sevQuickInfo	435	Dieter	09.12.02 20:59
Re: Frage zu sevQuickInfo	511	Pauli	09.12.02 21:33
Re: Frage zu sevQuickInfo	421	Pauli	09.12.02 21:35
Re: Frage zu sevQuickInfo	426	Dieter	10.12.02 00:15
Re: Frage zu sevQuickInfo	459	Pauli	10.12.02 00:28
Re: Frage zu sevQuickInfo	485	Dieter	10.12.02 01:08
Re: Frage zu sevQuickInfo	409	Pauli	10.12.02 07:26
Bei TextBoxen tritt das gleiche Problem auf (oT)	417	Pauli	10.12.02 08:10

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