矩形填充样式 HatchStyle

        Private Sub DrawCell(ByVal iIndex As Int16, ByVal eStyle As HatchStyle, ByVal s As String)         Const cW = 100         Const cCol = 10spa         Dim iX As Int16         Dim iY As Int16    

>>阅读原文<<