• Создайте проект, показывающий по нажатию одной командной кнопки животное с надписью (например, “Это – лев”), а по нажатию другой командной кнопки – другое животное с надписью. (Вместо животного может быть другая картинка). написать на visual basic

Ответы 1

  • ВНИМАНИЕ! ВАЖНО!Во вложении находится архивный файл LT.RAR, у которого расширение RAR переименовано в TXT, поскольку вложить сюда RAR-архив невозможно.В архивном файле находится проект VB-6 и исполняемый файл, который при наличии на компьютере среды поддержки VB, покажет работу программы.Код проекта:VERSION 5.00Begin VB.Form Form1    Caption         =   "Form1"   ClientHeight    =   4275   ClientLeft      =   60   ClientTop       =   450   ClientWidth     =   5880   LinkTopic       =   "Form1"   ScaleHeight     =   4275   ScaleWidth      =   5880   StartUpPosition =   3  'Windows Default   Begin VB.CommandButton cmdTiger       Caption         =   "Это ТИГР"      BeginProperty Font          Name            =   "MS Sans Serif"         Size            =   9.75         Charset         =   204         Weight          =   700         Underline       =   0   'False         Italic          =   -1  'True         Strikethrough   =   0   'False      EndProperty      Height          =   615      Index           =   1      Left            =   1800      TabIndex        =   1      Top             =   3240      Width           =   2055   End   Begin VB.CommandButton cmdLeo       Caption         =   "Это ЛЕВ"      BeginProperty Font          Name            =   "MS Sans Serif"         Size            =   9.75         Charset         =   204         Weight          =   700         Underline       =   0   'False         Italic          =   -1  'True         Strikethrough   =   0   'False      EndProperty      Height          =   615      Index           =   0      Left            =   1800      TabIndex        =   0      Top             =   2520      Width           =   2055   End   Begin VB.Image Image2       Height          =   1995      Left            =   1560      Picture         =   "Leo_Tiger.frx":0000      Top             =   240      Visible         =   0   'False      Width           =   2655   End   Begin VB.Image Image1       Height          =   1995      Left            =   1200      Picture         =   "Leo_Tiger.frx":44CE      Top             =   240      Visible         =   0   'False      Width           =   3300   EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub cmdLeo_Click(Index As Integer)    Me.Image1.Visible = True    Me.Image2.Visible = FalseEnd SubPrivate Sub cmdTiger_Click(Index As Integer)    Me.Image2.Visible = True    Me.Image1.Visible = FalseEnd SubЗамечание: На самом деле этот код не нужен, если открыть прилагаемый проект, он будет доступен.
    • Автор:

      virgilio
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years