Tipp 0123 MSHFlexGrid-Eigenschaften
Autor/Einsender:
Datum:
  Daniel Klatt
15.09.2001
Entwicklungsumgebung:   VB 6
Bei den Gestaltungsmöglichkeiten des MSHFlexGrids muss zwischen den Eigenschaften, die auf einzelne Zellen angewendet werden können, und solchen, die global für das gesamte Tabellenfeld gelten, unterschieden werden.
In diesem Beispiel wird der Umgang mit verschiedenen Eigenschaften aufgezeigt, wie z.B. die Veränderung der Vor- und Hintergrundfarbe sowie Textfarbe und Ausrichtung der Texte für das gesamte Grid, für "fixed"-Texte und für einzelne Zellen.
 
Option Explicit

Private Sub Form_Load()
  Dim Index As Integer

  For Index = 0 To 3
    Command1_Click (Index)
  Next Index
  Command2_Click
End Sub

Private Sub Command1_Click(Index As Integer)
  Dim n As Long

  Select Case Index
    Case 0
      MSHFlexGrid1.Cols = Text1.Text
    Case 1
      MSHFlexGrid1.Rows = Text2.Text
    Case 2
      For n = 0 To MSHFlexGrid1.Cols - 1
        MSHFlexGrid1.ColWidth(n) = Text3.Text
      Next n
    Case 3
      For n = 0 To MSHFlexGrid1.Rows - 1
        MSHFlexGrid1.RowHeight(n) = Text4.Text
      Next n
  End Select
End Sub

Private Sub Command2_Click()
  Dim n, x, y, aa

  For n = 0 To MSHFlexGrid1.Cols - 1
    aa = ""
    For y = 0 To 2
      aa = aa & Chr$(Rnd * 25 + 65)
    Next y
    MSHFlexGrid1.TextMatrix(0, n) = aa
  Next n

  For n = 0 To MSHFlexGrid1.Rows - 1
    aa = ""
    For y = 0 To 2
      aa = aa & Chr$(Rnd * 25 + 65)
    Next y
    MSHFlexGrid1.TextMatrix(n, 0) = aa
  Next n

  For y = 1 To MSHFlexGrid1.Cols - 1
    For x = 1 To MSHFlexGrid1.Rows - 1
      MSHFlexGrid1.TextMatrix(x, y) = Int((50 * Rnd) + 1)
    Next x
  Next y
End Sub

Private Sub Command3_Click(Index As Integer)
  Select Case Index
    Case 0
      MSHFlexGrid1.BackColor = FarbAuswahl
    Case 1
      MSHFlexGrid1.ForeColor = FarbAuswahl
    Case 2
      MSHFlexGrid1.BackColorFixed = FarbAuswahl
    Case 3
      MSHFlexGrid1.ForeColorFixed = FarbAuswahl
    Case 4
      MSHFlexGrid1.BackColorSel = FarbAuswahl
    Case 5
      MSHFlexGrid1.ForeColorSel = FarbAuswahl
    Case 6
      MSHFlexGrid1.CellBackColor = FarbAuswahl
    Case 7
      MSHFlexGrid1.CellForeColor = FarbAuswahl
    Case 8
      MSHFlexGrid1.BackColorBkg = FarbAuswahl
    Case 9
      MSHFlexGrid1.GridColor = FarbAuswahl
  End Select
End Sub

Function FarbAuswahl() As Long
  Dim temp As Long
  On Error GoTo ErrHandler
    CommonDialog1.CancelError = True
    CommonDialog1.Flags = cdlCCRGBInit
    CommonDialog1.ShowColor
    temp = CommonDialog1.Color
    FarbAuswahl = temp
  Exit Function

ErrHandler:
  Exit Function
End Function

Private Sub Combo1_Click(Index As Integer)
  Select Case Index
    Case 0
      MSHFlexGrid1.AllowUserResizing = Combo1(Index).ListIndex
    Case 1
      MSHFlexGrid1.ColAlignmentFixed = Combo1(Index).ListIndex
    Case 2
      MSHFlexGrid1.ColAlignment = Combo1(Index).ListIndex
    Case 3
      MSHFlexGrid1.GridLines = Combo1(Index).ListIndex
    Case 4
      MSHFlexGrid1.GridLinesFixed = Combo1(Index).ListIndex
  End Select
End Sub

Private Sub Check1_Click()
  If Check1.Value = 1 Then
    MSHFlexGrid1.AllowBigSelection = True
  Else
    MSHFlexGrid1.AllowBigSelection = False
  End If
End Sub

Private Sub Check2_Click()
  If Check2.Value = 1 Then
    MSHFlexGrid1.Appearance = flex3D
  Else
    MSHFlexGrid1.Appearance = flexFlat
  End If
End Sub
 
Weitere Links zum Thema
Markierte Zellen formatieren
Zellfarbezeilen-/spaltenweise festlegen
Hinweis
Um diesen Tipp ausführen zu können, muss das Microsoft Hierarchical FlexGrid Control als Komponente in das Projekt eingebunden werden.

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (4,2 kB) Downloads bisher: [ 2456 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 9. August 2011