Adding checkbox to mshflexgrid

原创 2007年10月04日 02:11:00


Private Sub MSHFlexGrid1_Click()
If MSHFlexGrid1.Col = 0 Then MSHFlexGrid1.Text = Chr(124 - Asc(MSHFlexGrid1.Text))
End Sub

Private Sub Form_Load()
Dim i As Long
With MSHFlexGrid1
.FixedCols = 0
.Cols = 4
.TextArray(0) = "Flag"
.TextArray(1) = "i"
.TextArray(2) = "i^2"
.TextArray(3) = "i^3"
For i = 1 To 50
.AddItem vbTab & i & vbTab & i ^ 2 & vbTab & i ^ 3
Next
.RemoveItem 1

For i = 1 To 50
.Row = i
.Col = 0
.CellFontName = "Wingdings 2"
.Text = Chr(IIf(i Mod 2 = 0, 82, 42))
Next
End With

End Sub
 

Another method:

Option Explicit

Dim strChecked As String

Private Sub Form_Load()
Dim i As Variant, ms_rows As Integer
    ' Start building the Grid

    ms_rows = 20 ' This is the number of rows to print out
    With MSFlexGrid1
        .Row = 0
        .Col = 0
        .Rows = ms_rows + 1 'We add 1 to ensure we get all the rows
        .Cols = 2
        .ColWidth(0) = 250 ' CheckBox column
        .ColWidth(1) = 1440 ' Index column
    End With

    ' Now build the Grid

    For i = 0 To 20 'm_rows - 1
        With MSFlexGrid1
                .Row = i: .Col = 0: .CellPictureAlignment = 4 ' Align the checkbox
                Set .CellPicture = picUnchecked.Picture ' Set the default checkbox picture to the empty box
                .TextMatrix(i, 1) = i
        End With
    Next
End Sub
Private Sub MSFlexGrid1_Click()
Dim oldx, oldy, cell2text As String, strTextCheck As String

    ' Check or uncheck the grid checkbox
    With MSFlexGrid1
        oldx = .Col
        oldy = .Row
        If MSFlexGrid1.Col = 0 Then
            If MSFlexGrid1.CellPicture = picChecked Then
                Set MSFlexGrid1.CellPicture = picUnchecked
                .Col = .Col + 1 ' I use data that is in column #9, usually an Index or ID #
                strTextCheck = .Text
                strChecked = Replace(strChecked, strTextCheck & ",", "")
                Debug.Print strChecked
            Else
                Set MSFlexGrid1.CellPicture = picChecked
                .Col = .Col + 1
                strTextCheck = .Text
                strChecked = strChecked & strTextCheck & ","
                Debug.Print strChecked
            End If
        End If
        .Col = oldx
        .Row = oldy
    End With
End Sub

Attachment: CheckBox.zip (1 KB) 

As more easily be coded,mine is the better.

每日积累(20161209-day-15)(VTK7.1编译OpenGL&OpenGL2 PCL1.8)

1.01的365次方=37.78343433289 >>>1
  • tian_ciomp
  • tian_ciomp
  • 2016年12月09日 10:10
  • 779

Visual Studio 2010——C#的CheckBox和RadioButton使用

实验环境:Windows XP,Visual Studio 2010  Ultimate 1 创建项目     文件>>新建>>项目,选中“Windows窗体应用程序”,如下图所示: ...
  • Q1302182594
  • Q1302182594
  • 2013年03月29日 17:29
  • 4853

VTK三维坐标点拾取

参考资料 [1]VTK拾取三维空间细胞(vtkcell)坐标参数
  • Q1302182594
  • Q1302182594
  • 2015年05月02日 21:12
  • 3982

带有CheckBox的CListCtrl中Check状态的获取

带有CheckBox的CListCtrl中Check状态的获取 原创代码下载:CheckListCtrl.rar 1 建立测试工程      新建一个对话框工程,并添加一个CListCtrl...
  • ZXGIS
  • ZXGIS
  • 2012年02月13日 14:07
  • 4848

Android listview中嵌套Checkbox的布局文件

Android listview中嵌套Checkbox的布局文件 效果图如下: 需要注意的地方: 1、设置比例  只是设置中间部分的比例 2、android:id="@+id/...
  • itas109
  • itas109
  • 2014年02月28日 21:34
  • 1443

Android开发之UI控件(1)-CheckBox、DataPicker、RadioGroup、ProgressBar、Spinner

熟悉了Android组件的Activity以及Intent相关内容,了解了如何创建Intent、使用Intent关联Activity,这里就简单介绍下Android中的UI控件,并简单的使用它们。今天...
  • sjm19901003
  • sjm19901003
  • 2015年04月15日 22:38
  • 511

VB MSHFLEXGRID MSHFLEXGRID 绑定 CHECKBOX

Private Sub MSHFlexGrid1_Click()If MSHFlexGrid1.Col = 0 Then MSHFlexGrid1.Text = Chr(124 - Asc(MSHFl...
  • cncco
  • cncco
  • 2010年03月20日 17:26
  • 1453

使MSHFlexGrid支持鼠标滚动

使MSHFlexGrid支持鼠标滚动  以下程序放在一个公共模块中, 在窗体中的form_load事件中 写 HookWheel me.hwnd 在窗体中的form_unlo...
  • kirawoo
  • kirawoo
  • 2015年02月19日 15:43
  • 1084

Adding checkbox to mshflexgrid

Private Sub MSHFlexGrid1_Click()If MSHFlexGrid1.Col = 0 Then MSHFlexGrid1.Text = Chr(124 - Asc(MSHFl...
  • northwolves
  • northwolves
  • 2007年10月04日 02:11
  • 1576

matlab gui frame 连续checkbox

uicontrol('units','normal','pos',[.68 .13 .12 .18], ...      'style','frame','background','white') ...
  • colddie
  • colddie
  • 2011年06月09日 15:14
  • 1963
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Adding checkbox to mshflexgrid
举报原因:
原因补充:

(最多只允许输入30个字)