投稿日 | : 2007/03/29(Thu) 14:44 |
投稿者 | : FR |
Eメール | : |
URL | : |
タイトル | : MSFlexGridで指定セルを左詰めにするには? |
フォームにMSFlexGridを2つ置いて1行目に"","No.","Pos","選手氏名"
,"Cp","St"を中央揃えで配置して、選手氏名の2行目(実際に選手氏名
を入力するセル)からは選手氏名を左詰めにしたいんですが、うまく
いきません・・・。
コードは以下のようにしていますが駄目です。
どうかよろいクお願いします。
Private Sub grdPlayers_Design(ByVal Target As MSFlexGrid)
'ローカル変数を宣言'
Dim ixPlayer As Long
Dim i As Long
With Target
.TextMatrix(0, eGridNoCol) = "": .ColWidth(eGridNoCol) =300: .ColAlignment(eGridNoCol) = flexAlignCenterCenter
.TextMatrix(0, eGridUniformNumber) = "No": .ColWidth(eGridUniformNumber) = 300: .ColAlignment(eGridUniformNumber) = flexAlignCenterCenter
.TextMatrix(0, eGridPosition) = "Pos": .ColWidth(eGridPosition) = 450: .ColAlignment(eGridName) = flexAlignCenterCenter
.TextMatrix(0, eGridName) = "選手名": .ColWidth(eGridName) = 1200: .ColAlignment(eGridPosition) = flexAlignCenterCenter
.TextMatrix(0, eGridCaption) = "Cp": .ColWidth(eGridCaption) = 300: .ColAlignment(eGridCaption) = flexAlignCenterCenter
.TextMatrix(0, eGridSM) = "St": .ColWidth(eGridSM) = 300: .ColAlignment(eGridSM) = flexAlignCenterCenter
For i = 1 To 18
.TextMatrix(i, eGridName) = "": .ColWidth(eGridName) = 1200: .ColAlignment(eGridPosition) = flexAlignLeftTop
For ixPlayer = 1 To bbPlayerMax
.TextMatrix(ixPlayer, 0) = CStr(ixPlayer)
Next
End With
End Sub