Exemple 2: Modification du rayon d'un cercle à partir d'une Textbox

Désormais nous allons modifier le rayon de notre cercle en récupérant la valeur à partir d’une TextBox.

Cette fois on va rajouter un textbox à notre boite de dialogue. : comme sur le schéma ci-dessous.

Pour cet exemple on ne s’occupera pas du code de la boite de dialogue. Pour pouvoir afficher récupérer la valeur de la textbox on va modifier dans classe main :

Dim c As Cercle.Cercle = New Cercle.Cercle()

         c.Circle(dlg.TextBox1)

On passe la valeur de notre textbox en paramètre de notre cercle. Pour que notre cercle puisse utiliser ce paramètre nous allons  rajouter un paramètre d’entrée à notre cercle de sorte que :

Public Class Cercle

    Public Sub Circle(ByVal tb As TextBox)

Ainsi on définit que notre cercle attend que l’on donne un paramètre appelé ‘tb’ qui sera de type ‘TextBox’.

Enfin pour pouvoir modifier la valeur du rayon à partir de la valeur de la textbox on modifie cette partie du code:

ZcCircle.Radius = tb.Text

Ainsi, on définit que notre cercle prend pour rayon la valeur contenu dans la textbox.

En cliquant sur OK, votre cercle de rayon 5 apparaît à l’écran.