Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Markierungen Speichern im flexGrid
Autor: Dieter (Moderator)
Datum: 19.03.02 10:32
Hallo Maic, hier mal ein Beispiel (ich habe die Variante mit dem x genommen):   lection_Write() Dim F As Integer Dim lRow As Long Dim lCol As Long F = FreeFile Open App.Path & "Selektion.txt" For Output As #F With MSFlexGrid1 For lRow = .FixedRows To .Rows - 1 For lCol = .FixedCols To .Cols - 1 If .TextMatrix(lRow, lCol) = "x" Then Print #F, CStr(lRow) & "," & CStr(lCol) & "|"; End If Next lCol Next lRow End With Close #F End Sub Public Sub Selection_Read() Dim F As Integer Dim sLine As String Dim iPos As Integer Dim lRow As Long Dim lCol As Long Dim sCell() As String If Dir$(App.Path & "Selektion.txt") <> "" Then F = FreeFile Open App.Path & "Selektion.txt" For Input As #F Line Input #F, sLine Close #F sCell = Split(sLine, "|") For I = 0 To UBound(sCell) iPos = InSr(sCell(I), ",") If iPos > 0 Then lRow = Val(Left$(sCell(I), iPos - 1)) lCol = Val(Mid$(sCell(I), iPos + 1)) MSFlexGrid1.TextMatrix(lRow, lCol) = "x" End If Next I End If End SubSchau mal ob's funktioniert - ich habe es nämlich nicht getestet. Cu Dieter

Markierungen Speichern im flexGrid	48	Maic	19.03.02 10:17
Re: Markierungen Speichern im flexGrid	209	Dieter	19.03.02 10:32
Re: Markierungen Speichern im flexGrid	24	Maic	19.03.02 19:52

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