zoukankan      html  css  js  c++  java
  • 重绘datagrid,包括强迫显示某行

    #Region "用来对DataGrid的显示样式进行重绘"
        Private Sub FormatGridWithTableStyles()
            Dim ts As New DataGridTableStyle    '就是它决定了datagrid是什么样的

            Dim aColumnTextColumn As DataGridTextBoxColumn '要重写的东东

            ts.MappingName = datagridTable.TableName

            Dim numCols As Integer

            numCols = datagridTable.Columns.Count

            Dim i As Integer = 0

            Do While (i < numCols) '重绘所有的列

                aColumnTextColumn = New DataGridTextBoxColumn

                '夺过对textbox内落下光标的控制权

                AddHandler aColumnTextColumn.TextBox.Enter, New EventHandler(AddressOf TextBoxEnterHandler)

                '要更改列头名,请改下句的HeaderText值

                aColumnTextColumn.HeaderText = datagridTable.Columns(i).ColumnName

                '更改列的实际内容
                aColumnTextColumn.MappingName = datagridTable.Columns(i).ColumnName

                '自动改变行宽不对
                aColumnTextColumn.TextBox.AutoSize = True
                'MsgBox(aColumnTextColumn.HeaderText.ToString)
                'Debug.Write(aColumnTextColumn.TextBox.Width & "aa")

                '自动改变行宽不对
                aColumnTextColumn.TextBox.AutoSize = True

                ts.PreferredColumnWidth = aColumnTextColumn.TextBox.Width()

                ts.GridColumnStyles.Add(aColumnTextColumn)  '增加一种自定义的column风格


                i = (i + 1)

            Loop

            DataGrid1.TableStyles.Clear()

            DataGrid1.TableStyles.Add(ts) '增加一种自定义的表风格

        End Sub
    #End Region

    #Region "当点击时强迫datagrid选中某行,而不是某行某列"
        Private Sub TextBoxEnterHandler(ByVal sender As Object, ByVal e As System.EventArgs)

            Dim inner As Control = sender

            inner.Visible = False

            DataGrid1.Select(DataGrid1.CurrentRowIndex)

        End Sub
    #End Region

  • 相关阅读:
    SAP BW 例程(Routine)【开始例程、关键值或特性的例程、结束例程】
    sap 提取字符串中汉字
    判断当前一个物料被其他人锁定
    ABAP "FOR ALL ENTRIES IN" 使用指南
    ABAP检查日期and时间合法性的函数
    READ语句相关
    QUERY客户出口变量的I_STEP解释
    Abap 内表的语法
    Ancient Knight(打造Windows Mobile平台最专业的游戏修改器)
    VC通用控件自适应屏幕类
  • 原文地址:https://www.cnblogs.com/zyizyizyi/p/2497868.html
Copyright © 2011-2022 走看看