Cours VB.NET et les Bases de Données


Télécharger Cours VB.NET et les Bases de Données

★★★★★★★★★★3.5 étoiles sur 5 basé sur 1 votes.
Votez ce document:

Télécharger aussi :


??  
 
 
 
Faculté d’Ingénieurs en Informatique, Multimédia, 
Systèmes, Télécommunication et Réseaux 
Master en Génie Logiciel  
et  
Préparé par Elie MATTA 
 
 
Copyright © 2010-2011, . All rights reserved 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
Exemples: 
1.  Using ListBox: 
 
Option Strict Off 
 
Public Class Form1 
 
    Sub incrementer() 
        Static number As Integer = 0 'si on met Dim on aura comme resultat 0' 
        Console.WriteLine(number) 
        number += 1 
    End Sub 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
        Dim V() As Integer 
        V = New Integer(5) {0, 1, 2, 3, 4, 5} 
        ReDim Preserve V(7) 
        V(6) = 6 
        V(7) = 7 
        Dim c(,) As Integer = {{1, 2}, {3, 4}} 
 
        For i As Integer = 0 To 5 
            (V(i).ToString) 
        Next i 
 
        For i As Integer = 0 To 7 
            (V(i).ToString) 
        Next i 
 
        For i As Integer = 0 To 1 
            For j As Integer = 0 To 1 
                (c(i, j).ToString) 
                'ou '   
            Next j 
        Next i 
 
    End Sub 
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button3.Click 
        For i As Integer = 1 To 5 
            incrementer() 
        Next i 
    End Sub 
End Class 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 2 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
2.  Using Modules and creating classes: 
 
In Form1: 
Public Class Form1 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles  
 
    End Sub 
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles TextBox1.TextChanged 
 
    End Sub 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
        Dim add As Customer.FullAddress 
        Dim cust As Customer 
        cust = New Customer() 
        add = New Customer.FullAddress() 
        add.street =  
         =  
        cust.address = add 
 
    End Sub 
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles TextBox2.TextChanged 
 
    End Sub 
End Class 
 
In Module1: 
 
Module Module1 
    Public Class Customer 
        Class FullAddress 
            Public street As String 
        End Class 
        Public name As String 
        Public address As FullAddress 
    End Class 
End Module 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 3 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
3.  Adding Values of a table using InputBox: 
 
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
        Dim V(4) As Integer 
        For i As Integer = 0 To V.Length - 1 
            V(i) = CInt(InputBox("Entrer votre valeur", "Test")) 
        Next 
        (add(V)) 
    End Sub 
 
    Public Function add(ByVal ParamArray V() As Integer) As Integer 
        Dim R As Integer = 0 
        For i As Integer = 0 To V.Length - 1 
            R += V(i) 
        Next 
        Return R 
    End Function 
 
4.  Get and Set: 
 
    Class class1 
        Private _Poids As Integer 
        Public Property poids() As Integer 
            Get 
                Return _Poids 
            End Get 
            Set(ByVal value As Integer) 
                If (Value < 20 Or Value > 90) Then 
                    ("Pas admise") 
                Else 
                    _Poids = value 
                    ("Admise") 
                End If 
            End Set 
        End Property 
    End Class 
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
        Dim c As New class1 
        Dim a As String 
        a =  
        c.poids = a 
    End Sub 
End Class 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 4 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
5.  Creating namespace: 
 
We should put Imports before public class Form1 
 
Imports ns1 = WindowsApplication1.topwa 
 
Namespace top 
    Public Class inside 
    End Class 
    Public Class sameclass 
    End Class 
End Namespace 
 
Namespace topwa 
    Public Class inside 
    End Class 
    Public Class sameclass 
    End Class 
End Namespace 
 
 
In the button 
 
        Dim cls1 As New top.inside() 'using namespace without alias 
        Dim cls2 As New top.sameclass() 
 
        Dim cls3 As New ns1.inside()'using namespace with alias 
        Dim cls4 As New ns1.sameclass() 
 
 
6.  Example with Delegate 
 
Imports ns1 = WindowsApplication1.topwa 
Namespace topwa 
Public Class inside 
        Public Sub s1(ByVal x As Int16) 
            ("S1:" & x) 
        End Sub 
        Public Sub s2(ByVal y As Int16) 
            ("S2:" & y) 
        End Sub 
        Public Sub s3(ByVal z As Int16) 
            ("S3:" & z) 
        End Sub 
    End Class 
End Namespace 
 
In the button : 
 
Dim x, y, z As String 
        Dim s1, s2, s3 As dl 
        x =  
        y =  
        z =  
        Dim cls As New ns1.inside() 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 5 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
        s1 = New dl(AddressOf cls.s1) 
        's1(x) 
        s2 = New dl(AddressOf cls.s2) 
        's2(y) 
        s3 = [Delegate].Combine(s1, s2) 
        s3(z) 
 
In the Form: 
 
Delegate Sub dl(ByVal x As Int16) 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 6 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
Exercices: 
 
Exercice 1: 
 
En utilisant la commande InputBox saisr une valeur i de type integer et puis effectue les test 
suivant : 
?  i<0 
?  0<= i <= 10 
?  11<=  i <= 20 
?  i>20 
 
En utilisant une structure if et une structure select case. 
Affiche pour chaque cas un message indiquant le resultat 
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
        Dim a As Integer 
        a = InputBox("Test value", "Using select case") 
        Select Case a 
            Case Is < 0 
                ("a<0") 
 
            Case Is <= 10 
                ("a between 0 and 10") 
 
            Case Is <= 20 
                ("a between 11 and 20") 
 
            Case Is > 20 
                ("a plus grand que 20") 
        End Select 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 7 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
Exercices 2 : 
 
1)  Ecrire le code VB qui saisie les valeurs d?un vecteur A(5) en utilisant une boucle et le 
control inputbox et par suite additionner ce vecteur et afficher son résultat, on considère que 
c?est un vecteur d?entier. (En utilisant deux boucles : For et While) 
 
Première Méthode : 
 
  'Dim R As Integer = 0 
        'Dim V(4) As Integer 
        'Dim i As Integer = 0 
        'While (i < V.Length - 1) 
        '    V(i) = CInt(InputBox("Entrer votre valeur", "Test")) 
        '    R += V(i) 
        '    i += 1 
        'End While 
        '(R) 
 
Deuxième Méthode : 
 
        Dim R As Integer = 0 
        Dim V(4) As Integer 
        For i As Integer = 0 To V.Length - 1 
            V(i) = CInt(InputBox("Entrer votre valeur", "Test")) 
            R += V(i) 
        Next 
        (R) 
 
Troisieme Methode: 
 
Dim x(5) as Integer 
Dim s As Integer=0 
For i as Integer=0 to 5 
x(i)=CInt(inputbox(“enrewe:”)) 
s+=x(i) 
End for 
(“somme=”&s.ToString) 
 
Quatrieme methode: 
 
Dim x(5) as Integer 
Dim s As Integer=0 
Dim i as Integer=0 
While i<=5 
x(i)=CInt(InputBox(“entrer..”)) 
s+= x(i) 
i+=1 
End While 
(« somme est »&s) 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 8 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
2)  Réécrira le même exercice en utilisant une classe qui contient deux fonctions qui s?appellent 
somme_for et somme_while 
 
Public Class Class1 
    Public Function sum_for(ByVal t() As Integer) As Integer 
        Dim s As Integer = 0 
        For i As Integer = 0 To t.Length - 1 
            s += t(i) 
        Next i 
        Return s 
    End Function 
 
    Public Function sum_while(ByVal t() As Integer) As Integer 
        Dim s As Integer = 0 
        Dim i As Integer = 0 
        While i < t.Length 
            s += t(i) 
            i += 1 
        End While 
        Return s 
    End Function 
End Class 
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 
        Dim k(5) As Integer 
        For i As Integer = 0 To k.Length - 1 
            k(i) = CInt(InputBox("entre l'elemnet numero: " & i + 1)) 
        Next i 
        Dim c As New Class1 
 
        Dim somme As Integer = c.sum_for(k) 
        ("somme par methode for: " & somme) 
 
        somme = c.sum_while(k) 
        ("somme par methode while: " & somme) 
    End Sub 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 9 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
Exercice 3 : 
En utilisant inputbox,  upperbound(dimension courante) et ReDim preserve. Ecrire le code qui 
contient un bouton avec le code correspondant qui a chaque fois qu?on clique sur ce bouton affiche 
un inputbox  
NB : int i = UBOUND(A) 
    Dim A(0) As Int16 
    Dim v As Int16 
    Dim i As Int16 
 
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button3.Click 
        v = InputBox("enter value") 
        i = UBound(A) 
        A(i) = v 
        ReDim Preserve A(i + 1) 
("La grandeur du vecteur A maintenant est " & i) 
    End Sub 
Exercice 4:  
Form1: 
Public Class Form1 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles  
 
    End Sub 
 
    Public Structure customer 
        Dim ID As Integer 
        Dim FN As String 
        Dim LN As String 
        Dim DOB As Date 
    End Structure 
 
    Public acustomer(0) As customer 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
        Dim cust As customer 
         =  
         =  
         = CDate() 
         = UBound(acustomer) 
        acustomer(UBound(acustomer)) = cust 
        ReDim Preserve acustomer(UBound(acustomer) + 1) 
        ("Customer " & acustomer().FN.ToString & " has been added 
SUCCESSFULLY!!!!") 
        TextBox1.Clear() 
        TextBox2.Clear() 
        TextBox3.Clear() 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 10 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
    End Sub 
 
    Public Function Rcust(ByVal ID As Integer) As customer 
        If ID < acustomer.Length - 1 Then 
            Return acustomer(ID) 
        Else 
            ("ID INVALID") 
            End 
        End If 
 
        ''Try 
        ''    Return acustomer(ID) 
        ''Catch ex As IndexOutOfRangeException 
        ''    ("Not included" & ex.Message.ToString) 
        ''End Try 
    End Function 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 
        () 
 
    End Sub 
End Class 
 
Form2: 
Public Class Form2 
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles  
 
    End Sub 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
        Dim cust1 As Form1.customer 
        cust1 = Form1.Rcust(CInt()) 
 
        (.ToString) 
        (.ToString) 
        (.ToString) 
        (.ToString) 
 
    End Sub 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 
        ListBox1.Items.Clear() 
    End Sub 
End Class 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 11 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
Exercice 5 : 
En utilisant cette classe ecrire le code qui cree une classe guest qui herite de la classe user et 
parsuite essayer d?utiliser les attributs ssn et pass dans la classe guest 
 
  Class user 
        Private ssn As String 
        Protected pass As String 
    End Class 
 
    Class guest 
        Inherits user 
        Function f() As String 
            pass = "ABCD" 'pass=works car c’est protected 
            'ssn=doesnt work car c’est private 
            Return pass 
        End Function 
    End Class 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
        Dim g As New guest 
        Dim r As String 
        r = g.f() 'on peut seulment acceder a la fonction dans la classe qui herite, on ne 
peut pas accede a ces variables 
        (r) 
    End Sub 
 
Exercice 6: 
En utilisant une instance sur la classe guest et tout en modifiant les 2 classes guest et user tout en 
les ajoutant des constructeur proposez une methode pour initialiser ssn et pass et ceci sans changer 
l?accessibilite de ces 2 variables 
 
    Class user 
        Private ssn As String 
        Protected pass As String 
 
        Public Sub New(ByVal s As String, ByVal p As String) 
            s = ssn 
            p = pass 
        End Sub 
    End Class 
 
    Class guest 
        Inherits user 
        Private ssn2 As String 
        Sub New(ByVal s2 As String, ByVal p2 As String) 
            (s2, p2) 'appel du constructeur de la classe parente 
            ssn2 = s2 
        End Sub 
        Function f() As String 
            Return ssn2 & pass 
        End Function 
    End Class 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 12 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 
        Dim a As New guest("test", "password") 
        Dim b As String 
        b = a.f() 
        (b) 
    End Sub 
End Class 
 
 
 
Exercice 7 
Modifier le code précédent tout en remplaçant les constructeurs par des fonctions 
 
  Class user 
        Private ssn As String 
        Protected pass As String 
 
        Sub s2(ByVal s As String, ByVal p As String) 
            s = ssn 
            p = pass 
        End Sub 
    End Class 
 
    Class guest 
        Inherits user 
        Private ssn2 As String 
        Sub s1(ByVal s2 As String, ByVal p2 As String) 
            MyBase.s2(s2, p2) 'appel du constructeur de la classe parente 
            ssn2 = s2 
        End Sub 
        Function f() As String 
            Return ssn2 & pass 
        End Function 
    End Class 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 
        Dim g As New guest() 
        g.s1("aa", "bb") 
        Dim r As String 
        r = g.f() 
        (r) 
    End Sub 
End Class 
 
Exercices 8 : 
Dans la solution précédent essayez de remplaces l?accesseur private dans la classe user par public 
ReadOnly ssn as string et commenter 
 
Lorsqu?on déclare une variable readonly on peut seulement l?initialiser à l?intérieur d?un 
constructeur 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 13 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
Exercices 9 : 
Reecriver la classe guest tout en considérant  la visibilité de la question 8 
 
    Class user 
        Public ReadOnly ssn As String 'on ne peut pas la changer sauf si elle etait dans le 
constructeur 
        Protected pass As String 
 
 
        Sub New(ByVal s As String, ByVal p As String) 
            s = ssn 
            p = pass 
        End Sub 
    End Class 
 
    Class guest 
        Inherits user 
        Private ssn2 As String 
        Public pass2 As String 
        Sub New(ByVal s As String, ByVal p As String) 
            (s, p) 
            pass2 = p 
        End Sub 
    End Class 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 
        Dim g As New guest("12", "4") 
 
        (g.ssn & g.pass2) 
    End Sub 
Avec l?utilisation du modificateur d?accès ReadOnly il est préférable que son modificateur soit de 
type prive : 
 
Class user 
        Private ReadOnly ssn As String 'on ne peut pas la changer sauf si elle etait dans le 
constructeur 
        Protected pass As String 
 
        Sub s2(ByVal p As String) 
            's = ssn code qui accede a la base de donne et incremente 
            p = pass 
        End Sub 
    End Class 
 
Rappel: 
Dim p As New person 
        Dim e As New Employee 
        p = CType(e, p) 'parent=child 
 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 14 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
Exercices 10: Primary Key, Package et Sous Package, Overrides, Overridable, Shared 
Solution 
 
 
Imports .SqlClient 
Imports  
Imports .OleDb 
 
 
 
Public Class Connexion 
    Dim s As String = ".OLEDB.12.0;Data 
Source=|DataDirectory|\.accdb" 
 
    Dim conn As OleDbConnection 
    Dim mycommand As OleDbCommand 
 
    Public Sub dispose() 
        conn.Close() 
    End Sub 
 
    Public Sub usebuilder(ByVal ds As DataSet, ByVal adp As OleDbDataAdapter) 
        Dim builder As New OleDbCommandBuilder(adp) 
        adp.Update(ds) 
    End Sub 
 
End Class 
 
Form1 
Public Class Form1 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles  
         
    End Sub 
 
    Class Package 
        Protected pid As Int16 'protected car pid doit etre incrementer dans le constructeur 
        Public pname As String 
        Public is_sp As Boolean 
        Public Shared packs As New ArrayList 'on va creer plusieurs instances c'est pour 
quoi on a mis shared 
 
 
        Sub New() 
            pid = packs.Count 'pour incrementer le pid automatiquement 
        End Sub 
 
        Public Function Create_Package(ByVal name As String, ByVal is_sp As Boolean) As 
Int16 'pour retrouner le pid 
            Me.pname = name 
            Me.is_sp = is_sp 
            If is_sp = False Then 
                (Me) 
            Else 
                Dim p As New Package 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 15 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
                p.pname = name 
                p.is_sp = is_sp 
                (p) 
            End If 
        End Function 
 
        Public Overridable Sub GetDetails(ByVal id As Int16) 
            For i As Integer = 0 To packs.Count - 1 
                Dim pkg As Package = packs(i) 'ctype(packs(i),package) 
                If  = id Then 
                    MsgBox(pkg.pname.ToString() & " - " & pkg.is_sp.ToString()) 
                    Exit For 
                End If 
            Next i 
        End Sub 
 
        Public Overridable Sub delete_pkg(ByVal id As Int16) 
            packs.RemoveAt(id) 
        End Sub 
    End Class 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
 
        Dim cls1 As New Package 
        Dim id As Int16 = cls1.Create_Package("premiere", False) 
        (id.ToString()) 
 
        Dim spcls As New sppackage 
        id = spcls.Create_Package("deuxieme", True, "ok") 
        (id.ToString()) 
        cls1.delete_pkg(1) 
        cls1.GetDetails(0) 
        cls1.GetDetails(1) 
    End Sub 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 
 
    End Sub 
End Class 
 
Class sppackage 
    Inherits Form1.Package 
    Public status As String 'car on veut status  
    Public Shared sppacks As New ArrayList 
 
 
    'class create_package ici est overloads car on a fait redefinition de cette fonction et 
elle contient 3 arguments 
    Public Overloads Function Create_Package(ByVal name As String, ByVal is_sp As Boolean, 
ByVal status As String) As Int16 'pour retrouner le pid 'elle utilise le constructeur de la 
base clase 
        MyBase.Create_Package(name, is_sp) 'appel create_package de la class package 
        Me.status = status 
        (Me) 
        Return pid 
    End Function 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 16 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
 
    Public Overrides Sub GetDetails(ByVal id As Int16) 
        For i As Integer = 0 To packs.Count - 1 
            Dim pkg As sppackage = sppacks(i) 'ctype(packs(i),package) 
            If  = id Then 
                MsgBox(pkg.pname.ToString() & " - " & pkg.is_sp.ToString() & "-" & 
pkg.status.ToString()) 
                Exit For 
            End If 
        Next i 
    End Sub 
 
    Public Overrides Sub delete_pkg(ByVal id As Int16) 
        sppacks.RemoveAt(id) 
    End Sub 
 
End Class 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 17 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
 
Exercice 11: 
1) Créer une table T1 contenant les colonnes C1, C2, C3 de type integer 
2) En utilisant un contrôle datagridview insérer 2 lignes de donnes et utiliser comme entête  les 
colonnes C1, C2 et C3 
3) Dans une troisième ligne calculer la somme des deux premières lignes 
4) Dans une 4eme ligne, multiplier la dernière ligne par un nombre aléatoire  
5) Sauvegarder ce gridview dans la table T1 
6) Recharger la table T1 dans un autre gridview 
7) Essayer de modifier ce gridview tout en ajoutant une ligne quelconque a la fin de ce grid, 
commenter 
 
Remarques: 
?  (« column name », « Column header ») 
?  Pour accéder à une cellule de datagridview on écrit le code suivant  
Datagridview1 (column, rows) 
 
Solution: WindowsApplication7 
 
Public Class Form1 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles  'Question 1 
        ("CN1", "C1") 
        ("CN2", "C2") 
        ("CN3", "C3") 
 
    End Sub 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 'Question 2 
        (1, 2, 20) 
        (5, 4, 8) 
 
    End Sub 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 
        (DataGridView1(2, 1).Value.ToString()) 
    End Sub 
 
    Private Sub DataGridView1_CellContentClick_1(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick 
 
    End Sub 
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button3.Click 'Question 3 
        If .Count > 0 Then 
            Dim s1 As Int32 = 0 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 18 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
            Dim s2 As Int32 = 0 
            Dim s3 As Int32 = 0 
 
            For i As Integer = 0 To .Count - 1 
                s1 = s1 + (DataGridView1(0, i).Value) 
                s2 = s2 + (DataGridView1(1, i).Value) 
                s3 = s3 + (DataGridView1(2, i).Value) 
            Next 
            (s1, s2, s3) 
        End If 
    End Sub 
 
    Dim a1 As New Random 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button4.Click 
 
        Dim v(2) As Integer 
        Dim i1, i2, i3 As Int32 
        Dim r0 As Integer 
        For i As Integer = 0 To DataGridView1.Columns.Count - 1 
            'r0 = (10, 50) 
            If i = 0 Then 
                'i1 = (10, 50) * DataGridView1(i, 2).Value 
                v(0) = (10, 50) * DataGridView1(i, 2).Value 
            End If 
            'r0 = (10, 50) 
            If i = 1 Then 
                'i2 = (10, 50) * DataGridView1(i, 2).Value 
                v(1) = (10, 50) * DataGridView1(i, 2).Value 
            End If 
            'r0 = (10, 50) 
            If i = 2 Then 
                'i3 = (10, 50) * DataGridView1(i, 2).Value 
                v(2) = (10, 50) * DataGridView1(i, 2).Value 
            End If 
        Next 
        '(i1, i2, i3) 
        (v(0), v(1), v(2)) 
 
    End Sub 
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button5.Click 
        Dim r0 As New Random 
        Dim r1 As Integer 
        'r1 = (10, 50) 
        r1 = () 
 
        (r1.ToString()) 
    End Sub 
End Class 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 19 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
Exercice 12: 
1.  Create a DataSet 
2.  Create a DataTable 
a.  Add a primary key 
3.  Add Data (try to create duplication in the dataset) 
4.  Modify Data (utiliser Find) 
5.  Delete Data 
Dr.delete() 
Ds.tables(0).rows.Remove(dr) 
i.  Ds.rejectchanges 
ii.  Ds.acceptchanges 
 
Solution: 
1)  dim ds as new DataSet 
2)  dim tbl as new DataTable("Authors") 
(“Auid”,.GetType("System.Int32")) 
(“AuLName”,.GetType("System.String")) 
(“AuFName”,.GetType("System.String")) 
(tbl) 
2- a. dim pk(0) as DataColumns 
pk(0)= tbl.Columns("Auid") 
tbl.Primarykey = pk 
 
3)   dim dr as DataRow 
dr = ds.Table(0).NewRow „ou tbl.NewRow 
dr(0) = 1 
dr(1) = “au_lname1” 
dr(2) = “au_fname1” 
(dr) 
dr= tbl.NewRow 
dr(0) = 1 
dr(1)= 2 
dr(2)=2 
(dr) 
 
4) Modify 
dr= tbl.NewRow 
dr(0)= 2  
dr(1)= " " 
dr(2)=" " 
(dr) 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 20 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
 
Find the author AuID=1 by using rhe primaryKey 
dim dr2 as DataRow 
dr2 = (1) 
dr(1)="New_auLname1" 
 
5) fetch a row 
dim dr3 as DataRow 
dr3 = (2) 
dr3.Delete() „i. on peut le restaurer avec reject changes 
.Remove(dr3) „ii. 
 
 
i) use of Acceptchanges 
tbl.AcceptChanges//show in dataGrid View 
 
ii) add/modify/delete new row 
tbl.RejectChanges 
 in DataGridView 
 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 21 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
Components 
1.  User control: 
?  inherits from a usercontrol class, mais comment? 
A. New item: usercontrol 
B. Create a new class that inherits from usercontrol 
C. Create a class library that inherits from usercontrol 
D. Create a new project : windows librsary control 
?  Modify used in GUI 
 
2.  Custom control 
?  Inherits from control or any existing .NET control (Textbox, label…) 
a)  New item: custome control  
b)  Create class  
c)  Create library 
d)  Create windows library control 
?  Modify used by writing code, we can use GUI 
 
PS: inherited control: inherits from : inherits from any existing usercontrol 
 
We developed the user control (A. New item: usercontrol) in windowsapplication2 
To develop the user control (B. Create a new class that inherits from usercontrol) we create a new 
Class and we put Inherits System.Windows.Forms.UserControl then we right click on the Class -> 
View designer and then we add the textbox and the buttons…  
 
WindowsApplication2: 
Form1: 
Public Class Form1 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
         = "new" 
    End Sub 
End Class 
 
UserControl1 
Public Class UserControl1 
    Public Property TextBoxText() As String 
        Get 
            Return  
        End Get 
        Set(ByVal value As String) 
             = value 
        End Set 
    End Property 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 22 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
        () 
    End Sub 
End Class 
 
 
 
Exercice 13: sur le Timer avec UserControl
 WindowsApplication8 
UserControl : 
 
Public Class UserControl1 
    Private Bcolor = Nothing 
    Private Fcolor = Nothing 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles  
         = Format(Now, "hh:mm:ss") 
    End Sub 
 
    Property ClockBackColor() As Color 
        Get 
            Return Bcolor 
        End Get 
        Set(ByVal value As Color) 
            Bcolor = value 
            Label1.BackColor = Bcolor 
        End Set 
    End Property 
 
    Property ClockForeColor() As Color 
        Get 
            Return Fcolor 
        End Get 
        Set(ByVal value As Color) 
            Fcolor = value 
            Label1.ForeColor = Fcolor 
        End Set 
    End Property 
 
    Private Sub UserControl1_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles  
 
    End Sub 
End Class 
 
Exemple 14 : sur le UserControl (Timer/ Enter) WindowsApplication5 
 
Imports .OleDb 
Public Class Connection 
    Dim con As OleDbConnection 
    Dim mycommand As OleDbCommand 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 23 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
    Public Sub dispose() 
        con.Close() 
    End Sub 
 
 
    Public Function GetReader(ByVal sql As String) As OleDbDataReader 
        con = New OleDbConnection 
        con.ConnectionString = ".OLEDB.4.0;data " 
        () 
        mycommand = New OleDbCommand 
        mycommand.Connection = con 
        mycommand.CommandText = sql 
        Dim datar As OleDbDataReader 
        datar = mycommand.ExecuteReader() 
        mycommand.Dispose() 
        Return datar 
    End Function 
End Class 
 
 
Public Class Form1 
    Dim WithEvents ctrl As WindowsApplication5.UserControl1 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles  
        ctrl = New WindowsApplication5.UserControl1 
        ctrl.SetBounds(10, 10, 600, 25) 
         = 12 
        (ctrl) 
    End Sub 
 
    Public Sub hctrl() Handles ctrl.addControl 
        Dim i1 As Integer = ctrl.Location.X 
        (ctrl.Location.Y.ToString()) 
        Dim i2 As Integer = ctrl.Location.Y + .Height 
        Dim i3 As Integer = .Width 
        Dim i4 As Integer = .Height 
 
        ctrl = New WindowsApplication5.UserControl1 
        ctrl.SetBounds(10, i2, 600, 25) 
        (ctrl) 
        ctrl.Focus() 
    End Sub 
End Class 
 
 
Imports .OleDb 
Public Class UserControl1 
 
    Public Event addControl() 
    Private years, principle, intRate, interest As Double 
    Private _tva As Double 
 
    Public Property tva() 
        Get 
            Return _tva 
        End Get 
        Set(ByVal value) 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 24 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
            _tva = value 
        End Set 
    End Property 
    Private Sub TextBox5_KeyDown(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.KeyEventArgs) Handles TextBox5.KeyDown 
        If (e.KeyData = Keys.Enter) Then 
            RaiseEvent addControl() 
        End If 
    End Sub 
 
    Private Sub TextBox3_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles TextBox3.Leave 
        principle = Convert.ToDouble() 
        intRate = Convert.ToDouble() 
        years = Convert.ToDouble() 
        interest = principle * years * intRate / 100 - tva 
         = interest.ToString() 
    End Sub 
 
    Private Sub UserControl1_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles  
        TextBox5.AutoCompleteMode = AutoCompleteMode.SuggestAppend 
        TextBox5.AutoCompleteSource = AutoCompleteSource.CustomSource 
        Dim datar As OleDbDataReader 
        Dim cls As New Connection 
        datar = cls.GetReader("SELECT * FROM customers WHERE custname like '" + 
+ "%'") 
        Do Until  = False 
            Dim str As String = datar(1).ToString().Trim() 
            (str) 
        Loop 
        datar.Close() 
        cls.dispose() 
    End Sub 
End Class 
 
Exemple 15: sur le WebUserControl
 WebApplication1 
 
Partial Public Class _Default 
    Inherits  
 
    Private Sub Logon1_SubmitPressed(ByVal Email As String, ByVal Password As String) 
Handles WebUserControl11.SubmitPressed 
        Try 
             = Email 
             = Password 
        Catch ex As Exception 
            WebUserControl11.displayMessage("No match was found.") 
        End Try 
    End Sub 
 
     
End Class 
 
WebUserControl 
Public Partial Class WebUserControl1 
    Inherits .UserControl 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 25 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
 
 
    Public Event SubmitPressed(ByVal Email As String, ByVal Password As String) 
 
    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
        lblNotFound.Visible = False 
        RaiseEvent SubmitPressed(, ) 
    End Sub 
 
    Public Sub displayMessage(ByVal Message As String) 
         = Message 
        lblNotFound.Visible = True 
    End Sub 
Exemple 16: avec ClassLirary(CustomeControl) et timer ClassLibrary2 et 
WindowsApplication12
 
Dans WindowsApplication12 (Form) 
Public Class Form1 
 
    Protected WithEvents tmr As ClassLibrary2.CustomControl1 'on a cree une instance 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles  
 
    End Sub 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
        tmr = New ClassLibrary2.CustomControl1() 
        tmr.input =  
        tmr.enabled = True 
    End Sub 
 
    Private Sub f1(ByVal s As String) Handles tmr.finished 
        ("4 secondes elapsed 1" & " " & s) 
    End Sub 
 
    Private Sub f2(ByVal s As String) Handles tmr.finished 
        ("4 secondes elapsed 2" & s) 
    End Sub 
 
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 
        tmr.Dispose() 
    End Sub 
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
        () 
    End Sub 
 
 
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
        () 
    End Sub 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 26 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button5.Click 
        CustomControl11.enabled = True 
    End Sub 
 
 
End Class 
 
Dans ClassLibrary2 () 
Public Class CustomControl1 
    Inherits System.ComponentModel.Component 
 
    Public input As String 
    Public Event finished(ByVal str As String) 
 
    Private WithEvents localtimer As System.Timers.Timer 
 
    Public Property enabled() As Boolean 
        Get 
            Return localtimer.Enabled 
        End Get 
        Set(ByVal value As Boolean) 
            localtimer.Enabled = value 
        End Set 
    End Property 
    Private Sub localtimer_tick(ByVal s As Object, ByVal e As Timers.ElapsedEventArgs) 
Handles localtimer.Elapsed 
        RaiseEvent finished(input) 
    End Sub 
    Public Overloads Sub dispose() 
        MyBase.Finalize() 
        localtimer.Enabled = False 
        localtimer.Dispose() 
        MyBase.Dispose() 
 
    End Sub 
    Public Sub New() 
        () 
        InitializeComponent() 
        localtimer = New SYstem.Timers.Timer 
        localtimer.Enabled = False 
        localtimer.Interval = 4000 
    End Sub 
 
End Class 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 27 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
.NET COM+ 
 
1)  Server Appl + objects 
 
 
 
 
 
Appl                                     COM+ Server 
 
     o 
 
  o     o 
BDD 
     o   o 
 
2)   
a) Windows 
b)
 Web Server 
c) Remote server 
Exemple:  
                                                   .NET Remoting                                                     W2003/8 server 
     WinnAppl                                                 .NET Remote Server 
        
             .NET                                                                                                          BDD 
           Remote 
 
             Client 
 
3)  COM+  Features 
a.  Pooling 
b.  Transaction 
c.  Security 
d.  Manage ability 
e.  JIT (Just in time)(free the memory between methods calls -> scalability) 
 
4)  How to work with COM+ .NET 
a.  make the .NET assembly COM visible 
b.  Sign the .NET assembly 
c.  The .NET class must be created by using interface so it could be exposed with the 
methods to COM (unmanaged application in VS6) and to serviced components in .NET 
(COM+) 
d.  Use  to register the .NET COM into the COM+ server and to create the .tlb 
proxyfile 
 
NOTE: Objects can only be returned to the pool when they are deactivated 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 28 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
Windows Forms 
I.  Why use windows form? 
 
1.  Rich of controls 
2.  Advanced printing support :  
a.  Page setup dialog 
b.  Print preview control 
c.  Print preview dialog 
d.  Print dialog 
3.  Advanced GDI+  
a.  System.Drawing.Drawing2D 
b.  System.Drawing.Imaging 
c.   
4.  Visual inheritance a : WForm are classes -> we can benefit from inheritance 
5.  Extensible object model : We can extend the class library 
6.  Advanced forms design 
 
 
II.   
 
 
 
 
Component 
IComponents 
IDisposable 
 
 
Control 
 
Sizing 
  visibility 
ScrolableControl 
  taborder 
Scrolling 
 
ContainerControl 
 
 
 
 
 
 
 
Tabing 
 
 
 
     Form 
 
 
 
 
 
 
Focus 
 
 
              VSControl 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 29 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
III. 
Application class: 
.startuppath 
.exit 
.run 
 
Methode 1: ConsoleApplication1 
Module Module1 
 
    Sub Main() 
        Dim frm As New Form1 
        (frm) 
    End Sub 
 
End Module 
 
Le code après celui la ne sera pas exécute car on a utilise .run(frm) 
 
Methode 2 : ConsoleApplication1 
Pour exécuter le code qui suit on utilise le code suivant : 
   Dim frm As New Form1 
        () 
        () 
        MsgBox("un") 
        Dim frm2 As New form2 
        () 
        () 
        MsgBox("deux") 
        MsgBox("trois") 
 
Mais on doit fermer l?application dans formClosed quand on utilise .Run(): 
Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed 
        () 
    End Sub 
Public Class Form2 
 
    Private Sub Form2_FormClosed(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed 
        () 
    End Sub 
End Class 
 
Dans ce cas les deux forms et les 3 msgbox seront affichés. 
 
IV. 
Code Behind 
Imports 
Class 
Sub new() 
End Sub 
InitializeComponent() : C?est le code créé par vb lorsqu?on fait drag drop 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 30 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
Destructeur : automatiquement appelle lorsqu?on ferme le formulaire 
Non-Modal: the destructor is auto called when we close the form 
Modal: we have to call the Dispose() manually 
 
V. Form Proprieties 
-Dialog Result 
Button 17 dans le cours 
-Opacity and focus 
-AcceptButton and CancelButton 
 
VI. 
Form Methods 
-Close 
-Show 
-ShowDialog 
 
VII. 
Form Events 
-Activated, Deactivate   
 
 
Exercices: 
a.  En utilisant deux méthodes différentes écrire le code correspondant pour manipuler les 
événements suivants : Form1_Activated, Form1_Closed, Form1_Desactivate, 
Form1_SizeChanged 
b.  En utilisant un formulaire modal traité les cas Ok, Cancel, Abort et Retry 
 
Solution : WindowsApplication14 
Form1: 
Public Class Form1 
    
    Private Sub Form1_Activated(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase.Activated 
         = "Activated" 
 
    End Sub 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles  
        AddHandler Me.FormClosed, AddressOf MyForm_ClickClosed 
         
    End Sub 
     
    Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed 
        MsgBox("Closed") 
 
    End Sub 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 31 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
    Private Sub Form1_Deactivate(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase.Deactivate 
         = "Deactivated" 
 
    End Sub 
 
    Private Sub Form1_SizeChanged(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.SizeChanged 
         = "Size changed" 
    End Sub 
 
    Private Sub MyForm_ClickClosed(ByVal semder As Object, ByVal e As EventArgs) 
        MsgBox("Closed handler") 
 
    End Sub 
     
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
        Dim frm2 As New Form2 
 
        frm2.ShowDialog() 
        If frm2.DialogResult =  Then 
            MsgBox("You have pressed ok") 
        ElseIf frm2.DialogResult = Windows.Forms.DialogResult.Cancel Then 
            MsgBox("You have pressed cancel") 
        ElseIf frm2.DialogResult = Windows.Forms.DialogResult.Abort Then 
            MsgBox("You have pressed Abort") 
        ElseIf frm2.DialogResult = Windows.Forms.DialogResult.Retry Then 
            MsgBox("You have pressed Retry") 
        End If 
 
 
    End Sub 
End Class 
 
Form2: 
Private Sub Form2_FormClosed(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed 
        Me.Dispose() 
    End Sub 
 
 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 32 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
Exercies: WindowsApplication10CopyetMove 
 
Public Class Form1 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles  
        Dim mnumain As New MainMenu 
 
        Dim menuitem1 As New MenuItem 
 
         = "File" 
        (menuitem1) 
 
        Dim submenuitem11 As New MenuItem 
         = "Close" 
        mnumain.MenuItems(0)(submenuitem11) 
 
        ("One") 
        ("Two") 
        ("Three") 
        ("Four") 
        ("Five") 
 
        Me.TextBox1.AllowDrop = True 
        Me.TextBox2.AllowDrop = True 
 
         = mnumain 
        AddHandler submenuitem11.Click, AddressOf exithandler 
    End Sub 
 
    Sub exithandler(ByVal sender As Object, ByVal e As EventArgs) 
        If (("Are you sure that you want to exit ?", "Close", 
MessageBoxButtons.YesNo) = ) Then 
            Me.Close() 
        End If 
    End Sub 
 
    Private Sub ListBox1_MouseDown(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown 
        Dim dragdropresult As DragDropEffects 
        dragdropresult = Me.ListBox1.DoDragDrop(, ) 
        If (dragdropresult = ) Then 
            Me.ListBox1.Items.RemoveAt(Me.ListBox1.SelectedIndex) 
        End If 
    End Sub 
 
    Private Sub TextBox1_DragEnter(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter 
        If e.Data.GetDataPresent() Then 
            e.Effect =  
        End If 
    End Sub 
 
    Private Sub TextBox1_DragDrop(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop 
        Dim str As String = e.Data.GetData().ToString() 
        'Me.TextBox1.SelectedText = str + vbCrLf 
        Me.TextBox1.SelectedText = str 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 33 

Cours, Exemples et Exercices de la matière  et  
Préparé par Elie Matta 
 
    End Sub 
 
    Private Sub TextBox2_DragEnter(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter 
        If e.Data.GetDataPresent() Then 
            e.Effect =  
        End If 
    End Sub 
 
    Private Sub TextBox2_DragDrop(ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop 
        Dim str As String = e.Data.GetData().ToString() 
        Me.TextBox2.SelectedText = str + vbCrLf 
    End Sub 
End Class 
 
         Copyright © 2010-2011, . All rights reserved                                                                                    Page 34 





921