Exercice Visual Basic : Impression
Rédigé par GC Team, Publié le 07 Janvier 2012, Mise à jour le Samedi, 17 Décembre 2022 15:52![](/images/thumb/146/default.png)
Participez au vote ☆☆☆☆☆★★★★★
Ecrire le programme qui permet de réaliser les Inerfaces suivantes:
lorsqu'on clique sur la boutton Imprimer la deuxième Forme s'affiche.
Remarque:
vous devez créer une base de données contenant les champs cités dans la première interface afin de charger la liste.
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 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 |
Public Class Form1 Inherits System.Windows.Forms.Form Private gocnx As New ADODB.Connection Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim i As Integer Dim rs As New ADODB.Recordset ' pour récupérer les fonctions de la dll Dim MySortClass As New ListViewEx.ListViewEx ListViewEx1.View = View.Details ListViewEx1.GridLines = True ' connection à la base gocnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\immo.mdb;Persist Security Info=True" gocnx.Open() ' pour faire moins d'enregistrements rs = gocnx.Execute("select * from immo ") 'where montant>21000") i = 1 ' permet de gagner du temps car pas de repaint durant le chargement ListViewEx1.BeginUpdate() Do While Not rs.EOF With ListViewEx1.Items.Add(CStr(i)) ' ajout des champs .SubItems.Add(CStr(rs.Fields("Noinv").Value)) ' test si le champ est null If Not IsDBNull(rs.Fields("Natinv").Value) Then .SubItems.Add(CStr(rs.Fields("Natinv").Value)) Else .SubItems.Add("") End If .SubItems.Add(CStr(rs.Fields("datesaisie").Value)) .SubItems.Add(Format(rs.Fields("duree").Value, "#0.0000")) .SubItems.Add(Format(rs.Fields("Taux").Value, "#0.0000")) .SubItems.Add(CType(rs.Fields("Type").Value, String)) .SubItems.Add(Format(rs.Fields("Montant").Value, "C")) ' je ne le fait que pour le colonne montant If CDbl(.SubItems.Item(7).Text) < 0 Then ' ceci pour que la couleur change pour la colonne .UseItemStyleForSubItems = False .SubItems.Item(7).ForeColor = ListViewEx1.CouleurNombreNegatif End If End With i = i + 1 rs.MoveNext() Loop ' ajout des entêtes et position ' inutile de dimensionner les colonne, la dll le fera ListViewEx1.Columns.Add("", 0, HorizontalAlignment.Left) ListViewEx1.Columns.Add("Code ", 0, HorizontalAlignment.Right) ListViewEx1.Columns.Add("Nature", 0, HorizontalAlignment.Left) ListViewEx1.Columns.Add("Date", 0, HorizontalAlignment.Center) ListViewEx1.Columns.Add("Durée", 0, HorizontalAlignment.Right) ListViewEx1.Columns.Add("Taux", 0, HorizontalAlignment.Right) ListViewEx1.Columns.Add("Type", 0, HorizontalAlignment.Center) ListViewEx1.Columns.Add("Montant", 0, HorizontalAlignment.Right) rs.Close() ' parametres la listView puis mode 0 auto titre ou contenu , 1 contenu MySortClass.AjusterLargeurDesColonnes(ListViewEx1, ListViewEx.ListViewEx.emode.TitreouContenu) ' colore une ligne sur deux ' vous pouvez passer color.blue par exemploe au lieu de color.fromArgb MySortClass.DessinerArrièrePlanFaçonListing(ListViewEx1, ListViewEx1.StandardCouleur, ListViewEx1.AlternateCouleur) ListViewEx1.Items(0).Selected = True ' ici j'adapte la fenêtre à la largeur de la ListView car elle ne dépassera pas l'écran ' sinon je ne le ferai pas Dim w As Integer = 2 For i = 0 To ListViewEx1.Columns.Count - 1 w = w + ListViewEx1.Columns(i).Width + 4 Next Me.Width = w ' je n'oublie pas le complément de BeginUpdate ListViewEx1.EndUpdate() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim MySortClass As New ListViewEx.ListViewEx ListViewEx1.PrintListview() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim frm As New Frmpropos frm.ShowDialog() frm.Dispose() End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing gocnx.Close() End Sub Private Sub ListViewEx1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListViewEx1.MouseWheel MsgBox("mouseweel") End Sub Private Sub ListViewEx1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListViewEx1.MouseDown ' MsgBox(e.X) End Sub Private Sub ListViewEx1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListViewEx1.DoubleClick MsgBox("Désignation= " & ListViewEx1.SelectedItems(0).SubItems(2).Text & vbCrLf & "Montant= " & ListViewEx1.SelectedItems(0).SubItems(7).Text) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim i As Integer, j As Integer Dim indice As Integer Dim MySortClass As New ListViewEx.ListViewEx On Error Resume Next For i = 0 To ListViewEx1.SelectedItems.Count - 1 indice = ListViewEx1.SelectedItems.Item(j).Index ListViewEx1.Items.Remove(ListViewEx1.Items(indice)) Next MySortClass.DessinerArrièrePlanFaçonListing(ListViewEx1, ListViewEx1.StandardCouleur, ListViewEx1.AlternateCouleur) End Sub End Class |