Answer to Question #264044 in Visual Basic for xxx

Question

Write a VisualBasic program to show different image and description based on the user selection on the combo box.

*set the Visible properties of RichTextBox to False

*set the ComboBox list items to: Cat, Dog, Rabbit

Step 1 – Choose an animal

The PictureBox’s Image will be changed to corresponding Image while the SelectedIndexChanged event of the ComboBox is triggered. 

Tips: The Text of the RichTextBox will be changed at this point.

Step 2 – Checked the Description CheckBox

The RichTextBox will be displayed while the CheckedChanged event of the Description CheckBox is triggered.

You may use the following description:

-Cat: The cat is a domestic species of small carnivorous mammal.

-Dog: The dog or domestic dog, is a domesticated descendant of the wolf, characterized by an upturning tail.

-Rabbit: The rabbits also known as bunnies or bunny rabbits, are small mammals in the family Leporidae (along with the hare) of the order Lagomorpha (along with the pika).

Answer 1

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAnimal
    Inherits System.Windows.Forms.Form


    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub


    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer


    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.cbAnimal = New System.Windows.Forms.ComboBox()
        Me.pbPhoto = New System.Windows.Forms.PictureBox()
        Me.txtDescription = New System.Windows.Forms.RichTextBox()
        Me.Label1 = New System.Windows.Forms.Label()
        CType(Me.pbPhoto, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'cbAnimal
        '
        Me.cbAnimal.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.cbAnimal.FormattingEnabled = True
        Me.cbAnimal.Items.AddRange(New Object() {"Cat", "Dog", "Rabbit"})
        Me.cbAnimal.Location = New System.Drawing.Point(41, 58)
        Me.cbAnimal.Name = "cbAnimal"
        Me.cbAnimal.Size = New System.Drawing.Size(175, 39)
        Me.cbAnimal.TabIndex = 0
        '
        'pbPhoto
        '
        Me.pbPhoto.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
        Me.pbPhoto.Location = New System.Drawing.Point(236, 13)
        Me.pbPhoto.Name = "pbPhoto"
        Me.pbPhoto.Size = New System.Drawing.Size(213, 145)
        Me.pbPhoto.TabIndex = 1
        Me.pbPhoto.TabStop = False
        '
        'txtDescription
        '
        Me.txtDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.txtDescription.Location = New System.Drawing.Point(41, 179)
        Me.txtDescription.Name = "txtDescription"
        Me.txtDescription.Size = New System.Drawing.Size(414, 90)
        Me.txtDescription.TabIndex = 2
        Me.txtDescription.Text = ""
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.Label1.Location = New System.Drawing.Point(35, 13)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(187, 31)
        Me.Label1.TabIndex = 3
        Me.Label1.Text = "Select Animal:"
        '
        'frmAnimal
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(485, 295)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.txtDescription)
        Me.Controls.Add(Me.pbPhoto)
        Me.Controls.Add(Me.cbAnimal)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmAnimal"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Animal"
        CType(Me.pbPhoto, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()


    End Sub
    Friend WithEvents cbAnimal As System.Windows.Forms.ComboBox
    Friend WithEvents pbPhoto As System.Windows.Forms.PictureBox
    Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label


End Class

Public Class frmAnimal


    Private Sub cbAnimal_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbAnimal.SelectedIndexChanged
        If cbAnimal.SelectedIndex = 0 Then
            txtDescription.Text = "The cat is a domestic species of small carnivorous mammal."
            pbPhoto.BackgroundImage = AnimalImage.My.Resources.Cat
        End If
        If cbAnimal.SelectedIndex = 1 Then
            txtDescription.Text = "The dog or domestic dog, is a domesticated descendant of the wolf, characterized by an upturning tail."
            pbPhoto.BackgroundImage = AnimalImage.My.Resources.Dog
        End If
        If cbAnimal.SelectedIndex = 2 Then
            txtDescription.Text = "The rabbits also known as bunnies or bunny rabbits, are small mammals in the family Leporidae (along with the hare) of the order Lagomorpha (along with the pika)."
            pbPhoto.BackgroundImage = AnimalImage.My.Resources.Rabbit
        End If
    End Sub
End Class