投稿日 | : 2007/01/17(Wed) 14:51 |
投稿者 | : LESIA |
Eメール | : |
URL | : |
タイトル | : Re^4: 参考コード - MSFlexGridにチェックボックスを表示するで |
こういうのはどうでしょうか?
これならチェックボックスコントロールを使わないのでいいかも。
Option Explicit
Private Sub Form_Load()
Call Grid_init
Call Grid_set
End Sub
Private Sub Grid_init()
MSFlexGrid1.CellAlignment = 1
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.HighLight = flexHighlightNever
MSFlexGrid1.Clear
MSFlexGrid1.Cols = 5
MSFlexGrid1.Rows = 2
MSFlexGrid1.TextMatrix(0, 0) = "X"
MSFlexGrid1.ColWidth(0) = 300
MSFlexGrid1.TextMatrix(0, 1) = "番号"
MSFlexGrid1.ColWidth(1) = 900
MSFlexGrid1.TextMatrix(0, 2) = "名前"
MSFlexGrid1.ColWidth(2) = 2000
MSFlexGrid1.TextMatrix(0, 3) = "住所"
MSFlexGrid1.ColWidth(3) = 4000
MSFlexGrid1.TextMatrix(0, 4) = "電話番号"
MSFlexGrid1.ColWidth(4) = 2000
End Sub
Private Sub Grid_set()
Dim lng_I As Long
Dim lng_J As Long
Dim I As Long
'** エラートラップ開始
On Error Resume Next
lng_I = 0
lng_J = 0
With MSFlexGrid1
.ColAlignment(1) = 0
For I = 0 To 10
lng_I = lng_I + 1
.Rows = lng_I + 1
.Row = lng_I
.Col = lng_J
.CellFontName = "Wingdings"
.CellFontSize = 11
.Text = Chr$(112) 'UnChecked
.TextMatrix(lng_I, lng_J + 1) = "000001"
.TextMatrix(lng_I, lng_J + 2) = "山田 太郎"
.TextMatrix(lng_I, lng_J + 3) = "東京都千代田区大手町"
.TextMatrix(lng_I, lng_J + 4) = "03-0000-0000"
Next
End With
End Sub
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
With MSFlexGrid1
If .MouseCol = 0 Then
If .TextMatrix(.MouseRow, .MouseCol) = Chr$(254) Then
.TextMatrix(.MouseRow, .MouseCol) = Chr$(112) 'UnChecked
Else
.TextMatrix(.MouseRow, .MouseCol) = Chr$(254) 'Checked
End If
End If
End With
End If
End Sub