DataGrid 高级问题(谁能挑战这些问题）

Question

注：全部要用代码实现1、怎样令 DataGrid 的列表头居中对齐
2、怎样令 DataGrid 没有焦点
3、怎样改变 DataGrid 的行标头符号（三角形符号）

Answer 1

你很不仔细!!!!!!!
DataGrid的属性选项卡中都有,好好看看吧!!

Answer 2

1,可以在名称前后加空格实现
2，
   Private Sub DataGrid1_Click()
       Form1.SetFocus                 '可以是其他除DataGrid1以外的任何控件！
    End Sub3，应该可以回答，但是不想动脑筋！

Answer 3

1、怎样令 DataGrid 的列表头居中对齐
Private Sub Form_Load()
Dim myChrWidth As Integer
Dim myCaption As String
Dim paddings As IntegermyCaption = DataGrid1.Columns(0).Caption
myChrWidth = DataGrid1.Font.Size * 10.5
paddings = (DataGrid1.Columns(0).Width - myChrWidth * Len(myCaption)) / (2 * myChrWidth)
DataGrid1.Columns(0).Caption = String(paddings, " ") & myCaption
End Sub2、怎样令 DataGrid 没有焦点
窗体启动时没有焦点：
Private Sub Form_Load()
Dim n As Integer
Dim ctrl As Control
For Each ctrl In Me.Controls
n = n + 1
Next
DataGrid1.TabStop = False
DataGrid1.TabIndex = n
End Sub点击时也不能获得焦点
Private Sub Form_Load()
DataGrid1.Enabled = False
End Sub3、怎样改变 DataGrid 的行标头符号（三角形符号）
自己重新写一个DataGrid控件有问题首先自己动手查一查帮助和网上资料，动脑试一试。不必在这里牢骚满腹。

Answer 4

3、怎样改变 DataGrid 的行标头符号（三角形符号）
“自己重新写一个DataGrid控件”----------这个也太难为楼主吧？楼主如果会自己写控件，还用得着上这儿来问题。我有一个简单的办法：自己做一些带图标命令按钮数组，让它们去自动覆盖DataGrid控件左边的三角箭头。简单吧