アクセステーブルの項目をセンタリングするには?


ちと  2004-12-20 11:26:29  No: 87458  IP: [192.*.*.*]

Visual Vasic 6.0を使用しています。
Access2000のテーブルをAdodcでDataGridに表示させています。
このアクセスのテーブルを表示したときに、表の項目がすべて左寄せになっています。すべて中央寄せにしたい場合はどのように設定すればいいのでしょうか?

編集 削除
nanashi  2004-12-20 11:50:13  No: 87459  IP: [192.*.*.*]

試してないけど、こんな感じ?

    Dim lLp As Long
    
    With DataGrid1.Columns
        For lLp = 0 To .Count - 1
            .Item(lLp).Alignment = dbgCenter
        Next
    End With

編集 削除
ちと  2004-12-20 12:10:13  No: 87460  IP: [192.*.*.*]

このプログラムを追加してみましたが、何の変化もありませんでした。
これはForm_Loadに追加すれば良いんですよね?

編集 削除
nanashi  2004-12-20 12:40:23  No: 87461  IP: [192.*.*.*]

なんせ試してない上にDataGridは全然使ったこと無いんで(^^;
Accessのデータを表示した後に追加してもダメでしょうか?

編集 削除
ちと  2004-12-20 13:08:03  No: 87462  IP: [192.*.*.*]

はい。ダメでした。

編集 削除
nanashi  2004-12-20 14:49:00  No: 87463  IP: [192.*.*.*]

今試してみましたけど、出来るじゃん。
その出来ないっていうソース提示してください。

編集 削除
ちと  2004-12-21 09:40:33  No: 87464  IP: [192.*.*.*]

Private Sub Form_Load()

    With DataGrid1.Columns
        For lLp = 0 To .Count - 1
            .Item(lLp).Alignment = dbgCenter
        Next
    End With

    DataGrid1.Columns(2).Width = 400
    DataGrid1.Columns(3).Width = 1500
    DataGrid1.Columns(4).Width = 1000
    DataGrid1.Columns(5).Width = 1000
    DataGrid1.Columns(6).Width = 1200
    DataGrid1.Columns(7).Width = 2850
    
    DataGrid1.Columns(2).Alignment = dbgCenter
    DataGrid1.Columns(3).Alignment = dbgLeft
    DataGrid1.Columns(4).Alignment = dbgRight
    DataGrid1.Columns(5).Alignment = dbgRight
    DataGrid1.Columns(6).Alignment = dbgRight
    DataGrid1.Columns(7).Alignment = dbgLeft
    
    DataGrid1.Columns(0).Visible = False
    DataGrid1.Columns(1).Visible = False
    DataGrid1.Columns(2).Locked = False
    DataGrid1.Columns(3).Locked = False
    DataGrid1.Columns(4).Locked = False
    DataGrid1.Columns(5).Locked = False
    DataGrid1.Columns(6).Locked = True
    DataGrid1.Columns(7).Locked = False
    DataGrid1.Columns(8).Visible = False
    DataGrid1.Columns(9).Visible = False
    DataGrid1.Columns(10).Visible = False
    DataGrid1.Visible = True

    With rs
        .CursorType = adOpenDynamic
        .LockType = adLockPessimistic
        .Open "select * from 収支入力", cn
    End With

End Sub

lLpの定義はすべての一番上の行に追加しました。
これで試してみるとできないのですが。

編集 削除
LESIA  2004-12-21 10:01:46  No: 87465  IP: [192.*.*.*]

逆に、lLpの定義を最後にもっていくとどうなりますか?

編集 削除
nanashi  2004-12-21 10:25:39  No: 87466  IP: [192.*.*.*]

> Accessのデータを表示した後に追加してもダメでしょうか?

↑私がこう書いたのを読んでないんですか?

rsをオープンした後、DataGridのDataSourceを設定した後、
データが表示された後にAlignmentを設定してください。

編集 削除
ちと  2004-12-22 17:29:02  No: 87467  IP: [192.*.*.*]

ごめんなさい。読んでいませんでした。
rsをオープンした後、・・・とやってみましたが、テーブルの中身がすべてセンタリングされてしまいました。中身ではなくて、表の項目をセンタリングしたいのですが、方法はありますか?

編集 削除