application vb.net liste de matériaux

Cette application vb.net développée en Visual Basic, crée une liste de matériaux sur Excel.
Les pièces peuvent être triées (longueur, largeur, épaisseur) par ordre croissant ou décroissant.

• ouvrir visual basic
• nouveau projet
• visual basic
• application windows forms
• inscrire le nom de l'application
• dans form1.vb (design)
• créer label1, label2, label 3, label 4, label 5
• créer textbox1, textebox2, textbox3, textebox4, textbox5
• créer button1 à button11
• dans form1.vb
• inscrire le code suivant

Imports Microsoft.Office.Core

Imports Microsoft.Office.Interop

Public Class Form1

    Dim oXL As Excel.Application

    Dim oWB As Excel.Workbook

    Dim oSheet As Excel.Worksheet

    Dim oRng As Excel.Range

    Public Sub Button1_Click(ByVal sender As System.Object,

      ByVal e As System.EventArgs) Handles Button1.Click

        oXL = CreateObject("Excel.Application")

        oXL.Visible = True

        oWB = oXL.Workbooks.Add

        oSheet = oWB.ActiveSheet

        oSheet.Cells(1, 1).Value = "nom de la pièce"

        oSheet.Cells(1, 2).Value = "nombre de pièces"

        oSheet.Cells(1, 3).Value = "longueur"

        oSheet.Cells(1, 4).Value = "largeur"

        oSheet.Cells(1, 5).Value = "épaisseur"

        With oSheet.Range("A1", "E1")

            .Font.Bold = True

            .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter

            .HorizontalAlignment = Excel.XlHAlign.xlHAlignLeft

        End With

        oRng = oSheet.Range("A1", "E50")

        oRng.ColumnWidth = 20

        oXL.Visible = True

        oXL.UserControl = True

        Exit Sub

Err_Handler:

        MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)

    End Sub

    Dim a As Integer = 0

    Public Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        a += 1

        oSheet.Cells(2 + a, 1).Value = TextBox1.Text

        oSheet.Cells(2 + a, 2).Value = TextBox2.Text

        oSheet.Cells(2 + a, 3).Value = TextBox3.Text

        oSheet.Cells(2 + a, 4).Value = TextBox4.Text

        oSheet.Cells(2 + a, 5).Value = TextBox5.Text

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

    End Sub

    Public Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        End

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("B5"),

                                     Order1:=Excel.XlSortOrder.xlAscending,

                                     Header:=Excel.XlYesNoGuess.xlGuess,

                                     OrderCustom:=1,

                                     MatchCase:=False,

                                     Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("B5"),

                                 Order1:=Excel.XlSortOrder.xlDescending,

                                 Header:=Excel.XlYesNoGuess.xlGuess,

                                 OrderCustom:=1,

                                 MatchCase:=False,

                                 Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("C5"),

                                     Order1:=Excel.XlSortOrder.xlAscending,

                                     Header:=Excel.XlYesNoGuess.xlGuess,

                                     OrderCustom:=1,

                                     MatchCase:=False,

                                     Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("C5"),

                                 Order1:=Excel.XlSortOrder.xlDescending,

                                 Header:=Excel.XlYesNoGuess.xlGuess,

                                 OrderCustom:=1,

                                 MatchCase:=False,

                                 Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("D5"),

                                  Order1:=Excel.XlSortOrder.xlAscending,

                                  Header:=Excel.XlYesNoGuess.xlGuess,

                                  OrderCustom:=1,

                                  MatchCase:=False,

                                  Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("D5"),

                             Order1:=Excel.XlSortOrder.xlDescending,

                             Header:=Excel.XlYesNoGuess.xlGuess,

                             OrderCustom:=1,

                             MatchCase:=False,

                             Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("E5"),

                                        Order1:=Excel.XlSortOrder.xlAscending,

                                        Header:=Excel.XlYesNoGuess.xlGuess,

                                        OrderCustom:=1,

                                        MatchCase:=False,

                                        Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

        oSheet.Range("A3:E50").Sort(Key1:=oSheet.Range("E5"),

                            Order1:=Excel.XlSortOrder.xlDescending,

                            Header:=Excel.XlYesNoGuess.xlGuess,

                            OrderCustom:=1,

                            MatchCase:=False,

                            Orientation:=Excel.XlSortOrientation.xlSortColumns)

    End Sub

End Class

• sauvegarder
• générer le projet

Pour créer une icône sur le bureau qui permet d'ouvrir l'application, il suffit de retrouver le fichier .exe dans documents/visual studio 2015/projects/nom du projet/bin/debug/nom du projet.exe.
Bouton droit sur le fichier et envoyer ver le bureau. Sur le raccourci créé, bouton droit sur propriétés puis changer d'icône.