Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Fehlernummer 6
Autor: martinMc
Datum: 08.11.05 17:14
option explicit Public Declare Function getNumberOfPointsForArray Lib "myFunctions.dll" (ByVal i As Long) As Long Public Declare Function closeMyFile Lib "myFunctions.dll" () As Long Public Declare Function openMyFile Lib "myFunctions.dll" (ByVal Name As String) As Long '########################################################################## '# '# Diese Prozedure ermittelt aus einem Wert eine Farbe '# '# Setzparameter: '# .Color = Farbe '# '########################################################################## Public Sub setTeilInfo() Dim i%, j%, iTeil% Dim myName$ Dim np&, dNp#, sNp As Single Dim teilColor&, greenVal%, tmpVal As Double Dim nBlk%, tmpBlk% Dim maxPointsBorderColor&, invDividor# 'Farbgrenze(nach max anzahl der Punkte) festlegen: invDividor = 0.01 nBlk = 441 ReDim teilInfoArray(20, 20, 3, 3) With frm_status .pgb_all.Max = nBlk .showLablesCalc False .Show End With For i = 0 To 20 myName = getName( i) If myName <> "" Then frm_status.lbl_fileName = myName tmpBlk = 22 + i frm_status.pgb_all.Value = tmpBlk DoEvents openMyFile myName On Error GoTo openError2 For iTeil = 0 To 49 np = getNumberOfPointsForArray(iTeil) Select Case np Case Is < 0 teilColor = 5350 Case Is = 0 teilColor = 65535 Case Is < maxPointsBorderColor 'tmpVal = np * invDividor '******** 'bis hier gehts und in der nächsten Zeile knirscht es '******** tmpVal = CDbl(np) * invDividor greenVal = 256 - CInt(tmpVal) teilColor = RGB(0, greenVal, greenVal) Case Else teilColor = 9868800 End Select teilInfoArray(j, i, iTeil).Color = teilColor Next iTeil closemyFile End If Next i Unload frm_status Exit Sub openError2: MsgBox "Fehlernumer: " & err.Number & vbCrLf & err.Description , vbCritical End Sub

Fehlernummer 6	1.002	martinMc	07.11.05 22:14
Re: Fehlernummer 6	592	vbtricks	08.11.05 11:40
Re: Fehlernummer 6	524	martinMc	08.11.05 12:02
Re: Fehlernummer 6	539	Alexander	08.11.05 16:12
Re: Fehlernummer 6	505	martinMc	08.11.05 17:14
Re: Fehlernummer 6	509	Alexander	09.11.05 17:02
Re: Fehlernummer 6	506	martinMc	10.11.05 16:04
Re: Fehlernummer 6	524	martinMc	10.11.05 19:23
Re: Fehlernummer 6	510	HarryC	09.11.05 23:29

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