LoadPicture - VB

Узнай цену своей работы

Формулировка задачи:

а он пишет что Picture1. и LoadPicture имя не объявлено что делать?

Решение задачи: «LoadPicture»

textual
Листинг программы 
Private Sub Command2_Click()
Номер = InputBox("Введите номер картинки")
If Номер = 1 Then
Picture1.Picture = LoadPicture("c:/2.jpg")
Else
If Номер = 2 Then
Picture1.Picture = LoadPicture("c:/22.jpg")
End If
End If
End Sub

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

10   голосов , оценка 3.8 из 5