Scribd
Upload
84 views1 page

Exercise 10

This code defines a form with radio buttons for selecting a language (English, Spanish, French) and displaying a corresponding greeting (e.g. "My name is") along with entered text from a text box. Tooltips are also defined to display text for the English radio button. The radio buttons trigger events to update the label text based on the selected language option.

Uploaded by

api-310300017
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
84 views1 page

Exercise 10

This code defines a form with radio buttons for selecting a language (English, Spanish, French) and displaying a corresponding greeting (e.g. "My name is") along with entered text from a text box. Tooltips are also defined to display text for the English radio button. The radio buttons trigger events to update the label text based on the selected language option.

Uploaded by

api-310300017
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 1

Public Class Form1

Dim english As String


Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton1.CheckedChanged
english = TextBox1.Text
Label1.Text = "My name is:"
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton2.CheckedChanged
Label1.Text = "Mi nombre es"
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton3.CheckedChanged
Label1.Text = "Je m'appelle"
End Sub
Private Sub ToolTip1_Popup(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.PopupEventArgs)
ToolTip1.SetToolTip(RadioButton1, "text")
End Sub
Private Sub ToolTip2_Popup(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.PopupEventArgs)
End Sub
End Class

You might also like