Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Name As String
Name = ComboBox1.Text
Select Case Name
Case "ТИГЪР"
PictureBox1.Visible = True
PictureBox1.Image = My.Resources.tiger1
RichTextBox1.Text = "Тигърът е териториално животно и рядко напуска местообитанието си. Голям самотник и не понася компания на себеподобни. Нетипична за котките е любовта му към водата, като при това демонстрира и завидни умения на плувец."
Case "ХИПОПОТАМ"
PictureBox1.Visible = True
PictureBox1.Image = My.Resources.hipo
RichTextBox1.Text = "Хипопотамите достигат на дължина до 4 m, а на височина – до 1,5 m. Тежат до 3 тона. Те са широко разпространени в реките и езерата на Африка и живеят на стада. Хипопотамът, особено мъжкият, е опасно животно."
Case "БЕЛКА"
PictureBox1.Visible = True
PictureBox1.Image = My.Resources.belka
RichTextBox1.Text = "Краката и опашката на белката са тъмнокафяви. На дължина мъжките достигат от 40 до 70 см., а женските 30-50 см. Среща се на много места из нашите планини и равнини. Катери се добре по дърветата, но ловува по земята. Прави леговищата си в скалните пукнатини и в хралупи на пънове. Храни се предимно с мишевидни гризачи, отчасти с птици, гущери, земноводни, насекоми и плодове. "
Case "ПИНГВИН"
PictureBox1.Visible = True
PictureBox1.Image = My.Resources.pingi
RichTextBox1.Text = "Възрастните тежат 30 кг и са високи 1,1 m. има коремна гънка между краката си, където пази яйцето. Главата и крилете на императорския пингвин са черни, а коремът е бял. Човката е виолетово-розова. Гмурка се на дълбочина 150-250 m, за да си намери храна — предимно крил и дребни риби. Най-голямото измерено гмуркане е 565 m. Могат да прекарат 18 минути под водата без да дишат. "
Case "ВЪЛК"
PictureBox1.Visible = True
PictureBox1.Image = My.Resources.lupus
RichTextBox1.Text = "Вълците са високи около 66-80 cm при рамото, а теглото им е около 25-52 kg." като женските са с приблизително 20% по-дребни от мъжките. Дължината на тялото е 1,0-1,5 m, от които 30-50 cm е опашката. Телосложението на вълците е подходящо за дълго бягане."
End Select
End Sub
Сподели с приятели: |