Hi,
dann nimmst Du am besten die MSFlexGrid (Projekt -> Komponenten : Microsoft FlexGrid Control 6.0).
Hier kannst Du ohne Probleme Daten in der Form X:Y einfügen, feste Spalten und Zeilen benennen und die Zellbreite ändern. Letzteres ist aber ziemlich tricky: Die Breiten der Spalten werden durch die Breite des Textes in der Titelleiste bestimmt. Wenn Du die Breite ändern willst, mußt Du den Titel kennen, die Anzahl Leerzeichen vorneweg und hintendran verändern und anschließend die Titelleiste neu setzen.
Die Zeichen bei der Titelleiste sind:
< = Text linksbündig ausgeben (ASCII 60)
^ = Text zentriert ausgeben (ASCII 94)
> = Text rechtsbündig ausgeben (ASCII 62)
| = Spaltentrennzeichen (ASCII 124)
Jetzt kannst Du Deine Titelleiste setzen:
MSFlexGrid1.FixedCols = 1
MSFlexGrid1.FixedRows = 1
MSFlexGrid1.FormatString = Space(5) & "|^" & Space(10) & "A" & Space(10)
MSFlexGrid1.Rows = MSFlexGrid1.FixedRows + 2
Nun hast Du eine Tabelle mit eriner festen Spalte und einer festen Zeile und zwei Datenzeilen.
Möchtest Du jetzt alle vorhandenen Zeilen nummerieren (außer der festen), mußt Du folgendes eingeben:
For i = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.TextMatrix(i, 0) = i
Next i
TextMatrix erwartet eine Koordinate: erst die Zeile, dann die Spalte.
Dummerweise ist es bei den meisten Objekten so, daß diese bei NULL mit dem Zählen beginnen, nicht wie wir, bei Eins. Um also die äußerste linke Spalte zu beschreiben, muß als Y-Wert Null angegeben werden.
Die Spalte rechts daneben ist dann logischerweise die Spalte Eins.
Damit sind die ersten beiden Punkte von listbox+tab abgehakt. Wie Du das jetzt alles verpackst, ist ganz allein Deine Entscheidung.
Das mit der Datei-Ein-Ausgabe muß ich jetzt erst mal selbst probieren, wie das geht, weil ich das mit VB6 bisher nicht gemacht habe.
T-Rex
