Henry手记:WinForm Datagrid结构剖析(三)使用代码

原创 2002年12月18日 08:45:00

  接(三)类代码一文:(由于每篇文章的字数限制,不得不割开发,见谅!)

  '----------------------------------------------------------------------<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

    ' 辅助方法

    '----------------------------------------------------------------------

    Private ReadOnly Property DataGridTableGridLineWidth() As Integer

        Get

            If Me.DataGridTableStyle.GridLineStyle = DataGridLineStyle.Solid Then

                Return 1

            Else

                Return 0

            End If

        End Get

    End Property

    Private Sub EndEdit()

        InEdit = False

        Invalidate()

    End Sub

    Private Function GetText(ByVal Value As Object) As String

        If Value Is System.DBNull.Value Then Return NullText

        If Not Value Is Nothing Then

            Return Value.ToString

        Else

            Return String.Empty

        End If

    End Function

    Private Sub HideComboBox() ‘隐藏Combobox

        If Combo.Focused Then

            Me.DataGridTableStyle.DataGrid.Focus()

        End If

        Combo.Visible = False

    End Sub

    Private Sub RollBack()

        Combo.Text = OldVal

    End Sub

    Private Sub PaintText(ByVal g As Graphics, _

                          ByVal Bounds As Rectangle, _

                          ByVal Text As String, _

                          ByVal AlignToRight As Boolean)

        Dim BackBrush As Brush = New SolidBrush(Me.DataGridTableStyle.BackColor)

        Dim ForeBrush As Brush = New SolidBrush(Me.DataGridTableStyle.ForeColor)

        PaintText(g, Bounds, Text, BackBrush, ForeBrush, AlignToRight)

    End Sub

    Private Sub PaintText(ByVal g As Graphics, _

                          ByVal TextBounds As Rectangle, _

                          ByVal Text As String, _

                          ByVal BackBrush As Brush, _

                          ByVal ForeBrush As Brush, _

                          ByVal AlignToRight As Boolean)

        Dim Rect As Rectangle = TextBounds

        Dim RectF As RectangleF = RectF.op_Implicit(Rect) ' 转为RectangleF类型

        Dim Format As StringFormat = New StringFormat()

        If AlignToRight Then

            Format.FormatFlags = StringFormatFlags.DirectionRightToLeft

        End If

        Select Case Me.Alignment

            Case Is = HorizontalAlignment.Left

                Format.Alignment = StringAlignment.Near

            Case Is = HorizontalAlignment.Right

                Format.Alignment = StringAlignment.Far

            Case Is = HorizontalAlignment.Center

                Format.Alignment = StringAlignment.Center

        End Select

        Format.FormatFlags = Format.FormatFlags Or StringFormatFlags.NoWrap

        g.FillRectangle(Brush:=BackBrush, Rect:=Rect)

        Rect.Offset(0, yMargin)

        Rect.Height -= yMargin

        g.DrawString(Text, Me.DataGridTableStyle.DataGrid.Font, ForeBrush, RectF, Format)

        Format.Dispose()

    End Sub

End Class

4.    类的使用

如何使用这个类呢?方法其实很简单,把它看成与DataGridTextBoxColumn或DataGridBoolColumn一样处理就行了。见下例:数据库名为Northwind.mdb

Private Sub FrmDropDownColumn_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

        Dim objCustomerCM As CurrencyManager

        Dim objCustomerTableStyle As DataGridTableStyle

        Dim objGridCol As DataGridColumnStyle

        Dim IntAvgCharWidth As Integer

        ' 新建一个DataSet对象

        _CustomerDS = New DataSet()

        '新建一个DataTable对象

        _StatesDT = New DataTable()

        '新建一个 DataGridTableStyle 对象

        GridTableStyle = New DataGridTableStyle()

        '计算显示时平均每个字符的宽度

        With Graphics.FromHwnd(Me.Handle).MeasureString(Text:="ABCDEFGHIJKLMNOPQRSTUVWXYZ", Font:=Me.Font)

            IntAvgCharWidth = CInt(.Width / 26!)

        End With

        ' 建立与数据库的连接

        _DB = New OleDbConnection()

        Try

            With _DB

                .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

                                    "Data Source=c:/Northwind.mdb"

                .Open()

            End With

        Catch dbError As OleDbException

            Stop

        End Try

        _DB.Close()

        '

        '新生成一条SQL语句且在DataSet中新建一个用户表

        StrSQL = "SELECT * FROM 客户 WHERE 国家=" & Chr(34) & "美国" & Chr(34) & " ORDER BY 客户ID ASC"

        Try

            With New OleDbDataAdapter(selectCommand:=New OleDbCommand(cmdText:=StrSQL, _

                                      Connection:=_DB))

                .Fill(dataSet:=_CustomerDS, srcTable:="Customers")

                .Dispose()

            End With

        Catch dbError As OleDbException

            Stop

        End Try

        ' 同与下拉框内容相关的数据源进行连接       

        _DB = New OleDbConnection()

        Try

            With _DB

                .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

                                    "Data Source=c:/Northwind.mdb"

                .Open()

            End With

        Catch dbError As OleDbException

            Stop

        End Try

        _DB.Close()

        ' 创建SQL语句

        StrSQL = "SELECT * FROM States ORDER BY 国家名 ASC"

        Try

            With New OleDbDataAdapter(selectCommand:=New OleDbCommand(cmdText:=StrSQL, _

                                      Connection:=_DB))

                .Fill(dataSet:=_CustomerDS, srcTable:="国家")

                .Dispose()

            End With

        Catch dbError As OleDbException

            Stop

        End Try

       

        With _CustomerDS.Tables

            objCustomerCM = CType(Me.BindingContext(.Item(Name:="Customers")), CurrencyManager)

        End With

        '生成显示信息

        With GridTableStyle

            .MappingName = "Customers"

            With .GridColumnStyles

                .Add(column:=New DataGridTextBoxColumn(objCustomerCM. _

                     GetItemProperties.Item(Name:="地址")))

                With .Item(index:=0)

                    .MappingName = "地址"

                    .HeaderText = "地址"

                    .Alignment = HorizontalAlignment.Left

                    .Width = IntAvgCharWidth * 20

                    .NullText = String.Empty

                End With

                _StatesDT = _CustomerDS.Tables.Item("国家")

                .Add(column:=New DataGridComboBoxColumn(DataSource:=_StatesDT, _

                                                             DisplayMember:=0, _

                                                             ValueMember:=0))

                With .Item(index:=1)

                    .MappingName = "国家"

                    .HeaderText = "国家"

                    .Alignment = HorizontalAlignment.Left

                    .Width = IntAvgCharWidth * 10

                    .NullText = String.Empty

                End With

                .Add(column:=New DataGridTextBoxColumn(objCustomerCM. _

                     GetItemProperties.Item(Name:="城市")))

                With .Item(index:=2)

                    .MappingName = "城市"

                    .HeaderText = "城市"

                    .Alignment = HorizontalAlignment.Left

                    .Width = IntAvgCharWidth * 20

                    .NullText = String.Empty

                End With

            End With

        End With

        With EntryGrid

            .CaptionText = String.Empty

            .DataSource = _CustomerDS

            .DataMember = "Customers"

            .TableStyles.Add(table:=GridTableStyle)

        End With

 End Sub

 

致谢:本程序参考了网上的多个实现方案,在此向各位原作者表示感谢。 

----

  声明:本文版权与解释权归韩睿所有,如需转载,请保留完整的内容及此声明。

用三层架构来做winform程序

三层架构是一种代码分层思想,简单的说就是将一个项目分为界面展示、业务逻辑、数据访问三层,各层之间保持一定的独立性,降低代码之间的耦合性,这样做的好处是显而易见的: 1、各层之间的改动不会影响到其他层(...
  • clb929
  • clb929
  • 2017年01月09日 22:56
  • 4584

初涉三层架构,UI层和DAL层的调用,ADO.NET对数据库的数据增删改

UI层:可以说是界面层吧
  • Real_young
  • Real_young
  • 2015年05月15日 13:23
  • 2494

Redis源码分析(一)--Redis结构解析

从今天起,本人将会展开对Redis源码的学习,Redis的代码规模比较小,非常适合学习,是一份非常不错的学习资料,数了一下大概100个文件左右的样子,用的是C语言写的。希望最终能把他啃完吧,C语言好久...
  • Androidlushangderen
  • Androidlushangderen
  • 2014年10月05日 15:10
  • 31948

WinForm Datagrid结构剖析

  • 2007年05月03日 22:24
  • 168KB
  • 下载

WinForm Datagrid结构

  • 2007年05月03日 22:23
  • 93KB
  • 下载

WinForm Datagrid结构剖

  • 2007年05月03日 22:24
  • 82KB
  • 下载

微信小程序开发手记之一:项目的代码结构

编码前的准备工作 登陆微信开发者账号。 如有账号,直接登陆,没有,申请一个即可。输入账号密码登陆时,需要手机扫码确认。 查看文档 登陆后台后,在网页右上角,点击文档,就能进入文档界面,与我们密切...
  • u013673799
  • u013673799
  • 2017年04月13日 11:51
  • 1527

在ArrayCollection和DataGrid代码例举下展示的Flex控件、数据结构乃至flex语言存在的衍生性和关联性

本文简单讲述了DataGrid等控件在利用labelField\labelFunction等属性进行功能性扩展和展示了使用Array、ArrayList、ArrayCollection等数据结构作为数...
  • aideyi
  • aideyi
  • 2012年01月17日 08:54
  • 677

iphone多线程简介————关于NSOperation的使用(转自henry-sea的博客)

1,operationQueue 里边应该可以同时添加多个operation吧? 是的,本来operationQueue的目的就是多线程管理,那多线程,可不只是一个线程。 而且我们可以...
  • xiaoyaoziqing
  • xiaoyaoziqing
  • 2011年12月09日 10:27
  • 757

PSP Studio-Joel Henry 使用说明书

  • 2015年04月20日 18:53
  • 1002KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Henry手记:WinForm Datagrid结构剖析(三)使用代码
举报原因:
原因补充:

(最多只允许输入30个字)