学习.交流
专业源于专注
www. myoit. cn   
学习交流 文件下载 手册资料 交流QQ群

    

 1  1/1   1  
作者
内容
testme  [个人空间]


注册  2021-04-01
发贴数  3
精华数  0
原创贴  0
来自  
状态  正常

级别  会员
#1»发布于2021-04-02 08:09

MSHFlexGrid的例子吧。 
窗体里面放一个MSHFlexGrid控件 c:\temp.bmp是一个16*16的小图片 
 
Option Explicit 
Dim LastRow As Integer 
 
Private Sub Form_Load() 
With MSHFlexGrid1 
    .Rows = 5 
    .Cols = 5 
    .TextMatrix(0, 0) = "C1" 
    .TextMatrix(0, 1) = "C1" 
    .TextMatrix(0, 2) = "C2" 
    .TextMatrix(0, 3) = "C3" 
    .TextMatrix(0, 4) = "C4" 
     
    Dim i As Integer 
    Dim j As Integer 
 
    For i = 0 To 4 
        .Col = i 
        .Row = 0 
        .CellBackColor = &H8000000F 
        .CellAlignment = 4 
    Next 
    .SelectionMode = flexSelectionByRow 
 
    .FixedRows = 0 
    .MergeCells = flexMergeRestrictRows 
    .MergeRow(0) = True 
    .ColWidth(0) = 300 
    .HighLight = flexHighlightAlways 
    For j = 1 To 4 
        .TextMatrix(j, 1) = Space(3) & "test" & Str(j) 
    Next 
    For j = 1 To 4 
        .Col = 1 
        .Row = j 
        Set .CellPicture = LoadPicture("c:\temp.bmp") 
    Next 
End With 
LastRow = 1 
End Sub 
 
Private Sub MSHFlexGrid1_Click() 
     
    With MSHFlexGrid1 
        If .Row = 0 Then Exit Sub 
        .TextMatrix(.Row, 0) = "★" 
        If LastRow <> .Row Then 
        .TextMatrix(LastRow, 0) = "" 
        LastRow = .Row 
        End If 
    End With 
     
End Sub


        



 1  1/1   1  


登录后方可发贴


[ 电话: 0571-85462761 王先生 QQ: 124520435 加入软件QQ群 - 杭州 - 浙ICP备19051128号-1 网安 33010402003225 ]