title image


Smiley An deiner Stelle würde ich z. B. mit dem MSFlexgrid arbeiten...
Dort kannst du in einer zweiten Spalte das Ergebnis eintragen und im Falle von OK die Hintergrundfarbe der Zelle auf Grün und ansonsten auf rot setzen. Um für ein bestimmtes Element einen Test zu starten, würde ich das Doppelklick-Ereignis des MSFlexgrid nehmen. Füge deinem Projekt das Microsoft FlexGrid Control hinzu und probiere es mal aus:



Option Explicit



Private Sub Form_Load()



Dim i As Integer



With MSFlexGrid1

.Rows = 5

.Cols = 2

.FixedCols = 0

.FixedRows = 1

.SelectionMode = flexSelectionByRow

End With



For i = 1 To 3 Step 2

With MSFlexGrid1

.TextMatrix(i, 0) = "Eintrag " & i

.TextMatrix(i, 1) = "OK"

End With

Next i



For i = 2 To 4 Step 2

With MSFlexGrid1

.TextMatrix(i, 0) = "Eintrag " & i

.TextMatrix(i, 1) = "NO"

End With

Next i



With MSFlexGrid1

.Col = 1

For i = 1 To 4

.Row = i

If .TextMatrix(i, 1) = "OK" Then

.CellBackColor = vbGreen

else

.CellBackColor = vbRed

End If

Next i

End With



End Sub

Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: