Following is the complete Program
Public Class Form1
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
Dim strn As String
strn = e.Node.Text
Select Case strn
Case "Blocks"
TextBox1.ForeColor = Color.Cyan
TextBox1.Font = New Font("Ariel Black", 16, FontStyle.Bold)
TextBox1.Text = " Different blocks of the college"
RichTextBox1.ForeColor = Color.Crimson
RichTextBox1.Font = New Font("Times New Roman", 20, FontStyle.Italic)
RichTextBox1.Text = " It houses different wings of the college"
Case "Madhava Raksha"
TextBox1.ForeColor = Color.Coral
TextBox1.Font = New Font("Ariel Black", 16, FontStyle.Bold)
TextBox1.Text = " Administrative block of the college"
RichTextBox1.ForeColor = Color.Crimson
RichTextBox1.Font = New Font("Times New Roman", 20, FontStyle.Italic)
RichTextBox1.Text = " Principal Chamber, Conference hall, office etc."
Case "Vikrama Shila"
TextBox1.ForeColor = Color.Coral TextBox1.Font = New Font("Ariel Black", 16, FontStyle.Bold)
TextBox1.Text = "Different Science Departments "
RichTextBox1.ForeColor = Color.Crimson
RichTextBox1.Font = New Font("Times New Roman", 20, FontStyle.Italic)
RichTextBox1.Text = " Physics, Physics Lab, Statistics etc."
Case "Tantramsha Loka"
TextBox1.ForeColor = Color.Coral
TextBox1.Font = New Font("Ariel Black", 16, FontStyle.Bold)
TextBox1.Text = " Computer Department"
RichTextBox1.ForeColor = Color.Crimson
RichTextBox1.Font = New Font("Times New Roman", 20, FontStyle.Italic)
RichTextBox1.Text = " Computer Labs, Seminar Hall, Hardware Lab etc."
End Select
End Sub
End Class

Fig38


<< Back

Our aim is to provide information to the knowledge seekers. 


comments powered by Disqus




Footer1