Private Sub Button1 Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click
Изтегляне 15.54 Kb.
|
|
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 Изтегляне 15.54 Kb. Сподели с приятели:
|