Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.02.2013, 17:14   #1
mozart2012
Пользователь
 
Регистрация: 08.11.2012
Сообщений: 15
По умолчанию Работа с изображениями VBA (UserForm)

Пишу тест в UserForm. На форме есть место для вопроса, место для картинки, место для ответов. Все работало отлично, пока не написала процедуру для смены картинок. Показывается картинка или нет, должно зависеть от номера вопроса, я написала процедуру, но теперь на форме отображается всё криво: либо только вопрос,либо только картинка, и тп. В чем ошибка в процедуре? Вот код:

Код:
Sub PicTest()
Dim imgPath As String
Dim QwNum As Integer
Dim NumQw As Integer
QwNum = Sheets("Var").Cells(1, 2)
 NumQw = QwNum
 Select Case NumQw
  Case 8
   imgPath = Sheets("Chapter02").Cells(50, 6)
  Case 9
   imgPath = Sheets("Chapter02").Cells(57, 6)
  Case 11
    imgPath = Sheets("Chapter02").Cells(71, 6)
  Case 14
    imgPath = Sheets("Chapter02").Cells(92, 6)
  Case 15
    imgPath = Sheets("Chapter02").Cells(99, 6)
  Case 18
    imgPath = Sheets("Chapter02").Cells(120, 6)
  Case Else
    frmTest.imgQw.Visible = False
    End Select
    
 frmTest.imgQw.Picture = LoadPicture(imgPath)
End Sub
mozart2012 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA. Как работать с изображениями на форме? (UserForm) mozart2012 Помощь студентам 0 22.01.2013 17:45
VBA Userform Garf Помощь студентам 0 10.04.2011 21:36
userform в vba Юлия1717 Помощь студентам 0 15.03.2010 14:54
Работа с изображениями в VBA Hellion-x Microsoft Office Excel 4 06.08.2009 09:06
VBA (UserForm) Zhene4ka2607 Помощь студентам 2 08.06.2009 16:59