vb: ausgabe in ein msflexgrid

Seite 1 von 1 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/vb_ausgabe_in_ein_msflexgrid_53393/page_1 - zur Vollversion wechseln!

Flip schrieb am 30.10.2002 um 10:27

jo wie geht des ich hab jetz a sequ. datei da steht ein datensatz nach dem anderen drinnen und jetz muss ich jeden datensatz in a flexgrid ausgeben wie geht des?

JC schrieb am 30.10.2002 um 10:35

Code:

With MSFlexGrid1
    .AddItem "Neues Item (Zeile)" ---> fügt eine neue Zeile hinzu
    .Col = 1  --> setzt die Spalte fest
    .Row = 1  --> letgt die Zeile fest
    .Text = "1st Cell"  --> durch die "Koordinaten" hast jetzt eine Zelle,
Text reinschreiben
End With

Noch nett in eine Schleife verpacken, leicht abändern...

Möglicherweise geht's noch einfacher, hab' noch nie was damit gemacht. Die Hilfe dazu ist eh sehr ergiebig

Flip schrieb am 30.10.2002 um 10:38

thx funzt

Flip schrieb am 30.10.2002 um 10:56

fock na schaut jetz so aus:

Code:

Private Sub cmdAusgabe_Click()
    Open "d:\datei.dat" For Input As #1
        
End Sub

Private Sub Form_Load()
    GridListe.Rows = 35
    GridListe.FixedRows = 1
    GridListe.Cols = 7
    GridListe.FixedCols = 0
    For spalte = 0 To 6
        GridListe.ColWidth(spalte) = 1500
    Next spalte
   
    
    GridListe.Row = 0
    For spalte = 0 To 6
        GridListe.Col = spalte
    If spalte = 0 Then
        GridListe.Text = "Zuname"
    ElseIf spalte = 1 Then
        GridListe.Text = "Vorname"
    ElseIf spalte = 2 Then
        GridListe.Text = "PLZ"
    ElseIf spalte = 3 Then
        GridListe.Text = "Ort"
    ElseIf spalte = 4 Then
        GridListe.Text = "Straße"
    ElseIf spalte = 5 Then
        GridListe.Text = "Klasse"
    ElseIf spalte = 6 Then
        GridListe.Text = "Schülernr."
    End If
    Next spalte
End Sub

bei dem open muss ich jetz a do loop schleife machen die sollte so ausschauen

Code:

do until EOF(1)
read..

und was muss ich bei dem read schreiben das jeder datensatz einzeln in a zeile gschrieben wird?

mg_shadow schrieb am 30.10.2002 um 16:02

line input datensatz,#1

mg_shadow schrieb am 30.10.2002 um 16:04

datensatz ist eine string variable

JC schrieb am 30.10.2002 um 16:15

Es wäre viel interessanter zu wissen, wie du die Daten in der Datei abspeicherst...

mg_shadow schrieb am 30.10.2002 um 16:22

meines wissens kann man die ganze zeile auf einmal ins flexgrid reinschreiben wennst einfach die additem methode anwendest und die spalten durch das zeichen "|" trennst!!

JC schrieb am 30.10.2002 um 16:25

Laut der MSDN muss es mit vbTab, also einem Tabulatorzeichen, getrennt sein, damit man mehrere Spalten auffüllen kann

mg_shadow schrieb am 30.10.2002 um 16:55

ich habs in einem beispiel halt so gesehen!