FAQ VB.NETConsultez toutes les FAQ

MyDG.Select(Num_Row)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Imports System 
Imports System.Drawing 
Imports System.Windows.Forms 
' ... 
Private Sub DG_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles DG.MouseUp 
    ' Récupérer les coordonnées de la souris 
    Dim p = New Point(e.X, e.Y) 
    ' Déterminer la partie cliquée du datagrid 
    Dim HTI As DataGrid.HitTestInfo = DG.HitTest(p) 
    ' Si c'est un type 'cellule' 
    If (HTI.Type = DataGrid.HitTestType.Cell) Then 
        ' Définir la cellule en cours 
        DG.CurrentCell = New DataGridCell(HTI.Row, HTI.Column) 
        ' Sélectionner la ligne correspondante 
        DG.Select(HTI.Row) 
    End If 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
' table est une DataTable 
dataGrid1.DataSource = table 
  
' On crée une table de style qui permettra de renommer les colonnes. 
Dim tableStyle As DataGridTableStyle = New DataGridTableStyle 
  
' IMPORTANT: il faut associer le nom de la table au style 
tableStyle.MappingName = table.TableName 
  
' En ajoutant le style au DataGrid, les DataGridColumnStyle sont automatiquement créés 
' En fonction de la table spécifiée par tableStyle.MappingName 
dataGrid1.TableStyles.Add(tableStyle) 
  
' On suppose que la table contient une colonne nommée "col_name" 
tableStyle.GridColumnStyles("col_name").HeaderText = "colonne renommée pour datagrid"

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
' table est de type : DataTable 
dataGrid1.DataSource = table 
  
' On crée une table de style qui permettra de masquer une ou plusieurs colonnes. 
Dim tableStyle As DataGridTableStyle = New DataGridTableStyle 
  
' IMPORTANT: il faut associer le nom de la table au style 
tableStyle.MappingName = table.TableName 
  
' En ajoutant le style au DataGrid, celui-ci va automatiquement utiliser le style 
' pour afficher la table associé (c'est pour ça qu'il est important 
' d'assigner MappingName) 
dataGrid1.TableStyles.Add(tableStyle) 
  
' On suppose que la table contient une colonne nommée "hidden" 
  
' On définit une référence sur la colonne que l'on veut cacher 
Dim hiddenColStyle As DataGridColumnStyle = tableStyle.GridColumnStyles("hidden") 
  
' En enlevant la colonne des styles de colonne, la colonne n'apparaîtra 
' plus dans le DataGrid. 
tableStyle.GridColumnStyles.Remove(hiddenColStyle)

tableStyle.GridColumnStyles.Add(hiddenColStyle)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
' ... 
Public Class MonDataGrid 
    Inherits DataGrid 
  
    ' ... 
    'accesseur publique qui obtient la partie cliquée 
    Public ReadOnly Property ClickType() As DataGrid.HitTestType 
        Get 
            Return Me.currentClickType 
        End Get 
    End Property 
  
    Private currentClickType As DataGrid.HitTestType 
  
    ' Surcharge de MyBase.OnMouseDown 
    Protected Overloads Overrides Sub OnMouseDown(ByVal e As MouseEventArgs) 
        Me.currentClickType = Me.HitTest(e.X, e.Y).Type 
        MyBase.OnMouseDown(e) 
    End Sub 
End Class

1
2
3
4
5
6
7
8
9
10
11
Imports System.Text 
Imports System.Windows.Forms 
' ... 
Private Sub DataGrid1MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) 
    Dim dg As MonDataGrid = CType(sender, MonDataGrid) 
  
    Dim sb As StringBuilder = New StringBuilder("La partie cliquée est de type: ") 
    sb.Append(dg.ClickType.ToString) 
  
    dg.CaptionText = sb.ToString() 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
' ... 
Public Class MonDataGrid 
    Inherits DataGrid 
  
    ' ... 
    ' Accesseur publique qui obtient le nombre de lignes 
    Public ReadOnly Property DataRowsCount() As Integer 
        Get 
            Return Me.currentDataRowsCount 
        End Get 
    End Property 
  
    Private currentDataRowsCount As Integer 
  
    ' Surcharge de MyBase.OnDataSourceChanged 
    Protected Overloads Overrides Sub OnDataSourceChanged(ByVal e As System.EventArgs) 
        If Not (Me.DataSource Is Nothing) Then 
            Me.currentDataRowsCount = Me.BindingContext(Me.DataSource, Me.DataMember).Count 
        Else : Me.currentDataRowsCount = 0 
        End If 
        MyBase.OnDataSourceChanged(e) 
    End Sub 
End Class

1
2
3
4
5
6
7
Imports System.Text 
' ... 
Private Sub DataGrid1DataSourceChanged(ByVal sender As Object, ByVal e As EventArgs) 
    Dim sb As StringBuilder = New StringBuilder("Le nombre de lignes est de: ") 
    sb.Append(CType(sender, MonDataGrid).DataRowsCount.ToString()) 
    Me.LComment.Text = sb.ToString() 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit On 
Option Strict On 
  
Imports System 
Imports System.Drawing; 
Imports System.Reflection 
Imports System.Windows.Forms 
  
Public Class MonDataGrid 
    Inherits DataGrid 
  
    Public Event CurrentRowChanged As EventHandler 
    Public Sub New() 
        MyBase.New 
        Me.currentRowIndex = -1 
    End Sub 
    ' ... 
  
    ' Accesseur publique qui obtient l'index de la ligne courante 
    Public ReadOnly Property CurrentRow() As Integer 
        Get 
            Return Me.currentRowIndex 
        End Get 
    End Property 
  
    Private currentRowIndex As Integer 
    ' Surcharge de de la méthode MyBase.OnCurrentCellChanged 
    Protected Overloads Overrides Sub OnCurrentCellChanged(ByVal e As EventArgs) 
        MyBase.OnCurrentCellChanged(e) 
        If Not (Me.CurrentCell.RowNumber = Me.currentRowIndex) Then 
            Me.currentRowIndex = Me.CurrentCell.RowNumber 
            Me.OnCurrentRowChanged(e) 
        End If 
    End Sub 
    ' Déclenche l'évènement CurrentRowChanged 
    Protected Overridable Sub OnCurrentRowChanged(ByVal e As EventArgs) 
        RaiseEvent CurrentRowChanged(Me, e) 
    End Sub 
End Class

1
2
3
4
5
6
7
8
Private Sub DataGrid1CurrentRowChanged(ByVal sender As Object, ByVal e As EventArgs) 
    Dim dg As MonDataGrid = CType(sender, MonDataGrid) 
    Dim rowindex As Integer = dg.CurrentRow 
    If rowindex = CType(dg.DataSource, DataTable).Rows.Count Then 
        Me.LComment.Text = "Vous êtes sur la ligne d'ajout d'enregistrement" 
    Else : Me.LComment.Text = "ligne " + rowindex.ToString() 
    End If 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim xlApp As Excel.Application 
Dim xlBook As Excel.Workbook 
Dim xlSheet As Excel.Worksheet 
  
xlApp = CType(CreateObject("Excel.Application"), Excel.Application) 
xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook) 
xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet) 
  
' Ici on compte le nombre de lignes et de colonnes du datatable 
Dim nbrLigne As Integer = ds.Tables("da").Rows.Count - 1 
Dim nbrColon As Integer = ds.Tables("da").Columns.Count - 1 
Dim x, y As Integer 
  
For x = 0 To nbrColon 
    ' Ici on prend le titre des colonnes du datatable 
    xlSheet.Cells(1, x + 1) = ds.Tables("da").Columns(x).ColumnName 
    ' On met la première ligne en gras 
    xlSheet.Rows(1).Font.Bold = True 
  
    ' Pour chaque colonne et chaque ligne on transfère les données 
    For y = 0 To nbrLigne 
        xlSheet.Cells(y + 2, x + 1) = DataGrid1.Item(y, x) 
    Next 
Next 
  
' Ici on affiche les résultats dans Excel 
xlSheet.Application.Visible = True 
' On peut sauvegarder notre document sur le disque 
xlSheet.SaveAs("C:\nom_document.xls") 
' On quitte l'application et on détruit les objets 
xlApp.Quit() 
xlSheet = Nothing 
xlBook = Nothing 
xlApp = Nothing

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit On 
Option Strict On 
  
Imports System 
Imports System.Reflection 
Imports System.Windows.Forms 
  
Public Class MonDataGrid 
    Inherits DataGrid 
  
    Public Sub New() 
        MyBase.New 
    End Sub 
  
    Public Sub setRowHeight(ByVal rowindex As Integer, ByVal rowheight As Integer) 
        Dim rows() As Object = GetRows() 
  
        If rowindex < 0 Then 
            For Each row As Object In rows 
                setHeight(row, rowheight) 
            Next 
        Else : setHeight(rows(rowindex), rowheight) 
        End If 
    End Sub 
  
    Private Function GetRows() As Object() 
        Dim bf As BindingFlags = BindingFlags.Instance Or BindingFlags.NonPublic 
        Dim t As Type = Me.GetType.BaseType 
        Dim mi As MethodInfo = t.GetMethod("get_DataGridRows", bf) 
        Return CType((mi.Invoke(Me, Nothing)), Object()) 
    End Function 
  
    Private Sub setHeight(ByVal row As Object, ByVal rowheight As Integer) 
        row.GetType().GetProperty("Height").SetValue(row, rowheight, Nothing) 
    End Sub 
  
End Class

SELECT Champ1, Champ2 FROM Table

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
' Représente une ligne de données dans un datatable 
Dim dr As DataRow 
' Variable string pour récupérer nos résultats 
Dim ligneModif, ligneSupp, ligneAjout As String 
Dim result As String 
  
' Nous allons parcourir chaque ligne de notre DataTable 
For Each dr In DataSet.Tables("DataTable").Rows 
    ' Selon l'état de la ligne 
    Select Case dr.RowState 
    ' Ligne modifiée 
    Case DataRowState.Modified 
        ' dr(0) récupère la valeur de la première colonne 
        ' DataRowVersion.Original récupère la valeur avant la modification 
        ligneModif = ligneModif & dr(0, DataRowVersion.Original) & "-" & dr(1, _ 
        DataRowVersion.Original) & vbCrLf 
    ' Ligne supprimée 
    Case DataRowState.Deleted 
        ligneSupp = ligneSupp & dr(0, DataRowVersion.Original) & "-" & dr(1, _ 
        DataRowVersion.Original) & vbCrLf 
    ' Ligne ajoutée 
    Case DataRowState.Added 
        ligneAjout = ligneAjout & dr(0) & "-" & dr(1) & vbCrLf 
    End Select 
Next 
  
result = "ligne(s) modifiée(s) : " & vbCrLf & ligneModif & vbCrLf & "ligne(s) _ 
supprimée(s) : " & vbCrLf & ligneSupp & vbCrLf & "Ligne(s) ajoutée(s) :" & vbCrLf & ligneAjout 
  
MessageBox.Show(result)