熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

添加一個下拉框到DataGrid

2013-11-13 10:26:34  來源: .NET編程 

  本實例利用Paint方法添加一個下拉框到DataGrid上 office:office />

   

  新建一個Visual Basic Project

   

  添加一個DataGrid control到窗體上

   

  加入以下代碼

   

  Imports SystemDataSqlClient

   

  Public Class Form

   

  Inherits SystemWindowsFormsForm

   

  #Region Windows 窗體設計器生成的代碼

   

  Public Sub New()

   

  MyBaseNew()

   

  該調用是 Windows 窗體設計器所必需的

   

  InitializeComponent()

   

  在 InitializeComponent() 調用之後添加任何初始化

   

  End Sub

   

  窗體重寫處置以清理組件列表

   

  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

   

  If disposing Then

   

  If Not (components Is Nothing) Then

   

  componentsDispose()

   

  End If

   

  End If

   

  MyBaseDispose(disposing)

   

  End Sub

   

  Windows 窗體設計器所必需的

   

  Private components As SystemComponentModelIContainer

   

  注意以下過程是 Windows 窗體設計器所必需的

   

  可以使用 Windows 窗體設計器修改此過程

   

  不要使用代碼編輯器修改它

   

  Friend WithEvents DataGrid As SystemWindowsFormsDataGrid

   

  <SystemDiagnosticsDebuggerStepThrough()> Private Sub InitializeComponent()

   

  MeDataGrid = New SystemWindowsFormsDataGrid()

   

  CType(MeDataGrid SystemComponentModelISupportInitialize)BeginInit()

   

  MeSuspendLayout()

   

  

   

  DataGrid

   

  

   

  MeDataGridDataMember =

   

  MeDataGridHeaderForeColor = SystemDrawingSystemColorsControlText

   

  MeDataGridLocation = New SystemDrawingPoint( )

   

  MeDataGridName = DataGrid

   

  MeDataGridSize = New SystemDrawingSize( )

   

  MeDataGridTabIndex =

   

  

   

  Form

   

  

   

  MeAutoScaleBaseSize = New SystemDrawingSize( )

   

  MeClientSize = New SystemDrawingSize( )

   

  MeControlsAddRange(New SystemWindowsFormsControl() {MeDataGrid})

   

  MeName = Form

   

  MeText = Form

   

  CType(MeDataGrid SystemComponentModelISupportInitialize)EndInit()

   

  MeResumeLayout(False)

   

  End Sub

   

  #End Region

   

  Public MyCombo As New ComboBox()

   

  Dim con As New SqlConnection(server=lihg;uid=sa;pwd=sa;database=northwind)

   

  Dim daEmp As New SqlDataAdapter(Select * From Employees con)

   

  Public ds As New DataSet()

   

  Private Sub Form_Load(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad

   

  AddHandler MyComboTextChanged AddressOf Ctrls_TextChanged

   

  Fill ComboBox list

   

  MyComboName = MyCombo

   

  MyComboVisible = False

   

  MyComboItemsClear()

   

  MyComboItemsAdd(Sales Representative)

   

  MyComboItemsAdd(Inside Sales Coordinator)

   

  MyComboItemsAdd(Vice President Sales)

   

  MyComboItemsAdd(Sales Manager)

   

  MyComboItemsAdd(Flunky)

   

  daEmpFill(ds Employees)

   

  Set the RowHeight of the DataGrid to the height of the ComboBox

   

  DataGridPreferredRowHeight = MyComboHeight

   

  DataGridDataSource = ds

   

  DataGridDataMember = Employees

   

  Add ComboBox to the Control collection of the DataGrid

   

  DataGridControlsAdd(MyCombo)

   

  End Sub

   

  Private Sub DataGrid_Paint(ByVal sender As Object ByVal e As SystemWindowsFormsPaintEventArgs) Handles DataGridPaint

   

  If DataGridCurrentCellColumnNumber = Then

   

  MyComboWidth = DataGridGetCurrentCellBoundsWidth

   

  End If

   

  End Sub

   

  Private Sub Ctrls_TextChanged(ByVal sender As Object ByVal e As SystemEventArgs)

   

  If DataGridCurrentCellColumnNumber = Then

   

  MyComboVisible = False

   

  If DataGridItem(DataGridCurrentCell) & = Then

   

  SendKeysSend(*)

   

  End If

   

  DataGridItem(DataGridCurrentCell) = MyComboText

   

  End If

   

  End Sub

   

  Private Sub DataGrid_CurrentCellChanged(ByVal sender As Object ByVal e As SystemEventArgs) Handles DataGridCurrentCellChanged

   

  If DataGridCurrentCellColumnNumber = Then

   

  MyComboVisible = False

   

  MyComboWidth =

   

  MyComboLeft = DataGridGetCurrentCellBoundsLeft

   

  MyComboTop = DataGridGetCurrentCellBoundsTop

   

  MyComboText = DataGridItem(DataGridCurrentCell) &

   

  MyComboVisible = True

   

  Else

   

  MyComboVisible = False

   

  MyComboWidth =

   

  End If

   

  End Sub

   

  Private Sub DataGrid_Scroll(ByVal sender As Object ByVal e As SystemEventArgs) Handles DataGridScroll

   

  MyComboVisible = False

   

  MyComboWidth =

   

  End Sub

   

  Private Sub DataGrid_Click(ByVal sender As Object ByVal e As SystemEventArgs) Handles DataGridClick

   

  MyComboVisible = False

   

  MyComboWidth =

   

  End Sub

   

  End Class

   

  修連接字符串Dim con As New SqlConnection(server=lihg;uid=sa;pwd=sa;database=northwind)使能連接上數據庫

   

  F運行


From:http://tw.wingwit.com/Article/program/net/201311/13633.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.