mshflexgird求助

Question

小弟想弄个黑底白框的表格，用mshflexgird，背景设成黑的，前景设成白的了，但底边和右边不能显示，如果把属性的网格线设成flat的话，上边和左边不能显示，请教高手，谢谢。

Answer 1

Private Sub Form_Load()
    MSHFlexGrid1.GridColor = &H8000000E
End Sub

Answer 2

MSHFlexGrid1没有提供这种功能，但你用下面的可以实现你要的功能，只是多加了两条line
Private Sub Form_Load()
    MSHFlexGrid1.backcolor= &H80000006&
    MSHFlexGrid1.backcolorbkg= &H80000006&
    MSHFlexGrid1.appearance=0
    MSHFlexGrid1.girdColorFixed=&H00FFFFFF&
    MSHFlexGrid1.girdColor=&H00FFFFFF&
    line1.x1=MSHFlexGrid1.left
    line1.y1=MSHFlexGrid1.top
    line1.x2=MSHFlexGrid1.left+MSHFlexGrid1.width
    line1.y2=MSHFlexGrid1.top
End Sub

Answer 3

VERSION 5.00
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "mshflxgd.ocx"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5715
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9585
   LinkTopic       =   "Form1"
   ScaleHeight     =   5715
   ScaleWidth      =   9585
   StartUpPosition =   3  'Windows Default
   Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 
      Height          =   3225
      Left            =   1215
      TabIndex        =   0
      Top             =   720
      Width           =   5910
      _ExtentX        =   10425
      _ExtentY        =   5689
      _Version        =   393216
      BackColor       =   -2147483630
      Rows            =   13
      Cols            =   6
      FixedRows       =   0
      FixedCols       =   0
      BackColorBkg    =   -2147483640
      GridColor       =   -2147483639
      GridLinesFixed  =   0
      Appearance      =   0
      _NumberOfBands  =   1
      _Band(0).Cols   =   6
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit----------------------
www.vicmiao.com
努力就有美好时光!