Оптимизировать код - VB

  1. Пишу небольшую программу для личных нужд на VB6. Надо реализовать несколько одинаковых контролов на форме, их надо перетаскивать с места на место, загружать в них картинку, и т.д. Оформил эти контролы как массив контролов. Но как правильно написать к ним обработку событий? Я делаю через select case, например процедура загрузки рисунка в картинку через дабл клик:


textual

Код к задаче: «Оптимизировать код - VB»

Private Sub Image1_DblClick(Index As Integer)
Dim Im(10) as string
Im(0)= "D:\Install\BASICS\qp-rev.jpg"
Im(1)= "D:\Install\BASICS\10w-rev.jpg"
Im(2)= "D:\Install\BASICS\1r.jpg"
Im(3)= "D:\Install\BASICS\21.jpg"
Im(4)= "D:\Install\BASICS\10c-rev.jpg"
Im(5)= "D:\Install\BASICS\kic.jpg"
Im(6)= "D:\Install\BASICS\4p.jpg"
Im(7)= "D:\Install\BASICS\6w-rev.jpg"
Im(8)= "D:\Install\BASICS\2p-rev.jpg"
Im(9)= "D:\Install\BASICS\qs-rev.jpg"
Image1(Index).Picture = LoadPicture(Im(Index))
End Sub

СДЕЛАЙТЕ РЕПОСТ

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



Похожие ответы
  1. Доброго вам всем дня дорогие форумчане! подскажите направьте в нужном направлении как решить такого рода момент, собрать воедино, т.е в один блок, код, а то мне кажется раздуется мой проект как пузырь). заранее спасибо всем !PureBasic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Public a As Byte Public b As Byte Public c As Byte Public d As Byte   Private Sub Text1_Change() c = Len(Text1.Text) If c > 4 Then MsgBox "Не соответствие символов для поля! " & Label1 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub Private Sub Text2_Change() a = Len(Text2.Text) If a > 10 Then MsgBox "Не соответствие символов для поля! " & Label2 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub Private Sub Text3_Change() b = Len(Text3.Text) If b > 10 Then MsgBox "Не соответствие символов для поля! " & Label3 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub   Private Sub Text9_Change() d = Len(Text9.Text) If d > 14 Then MsgBox "Не соответствие символов для поля! " & Label9 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub   .........ну и так далее

  1. Всем привет! Поделитесь, может у кого-нибудь есть решение, как написать строку (например: "Text1.Visible=false: MsgBox Text1.Text") и выполнить её, как строку кода? Оговорюсь сразу, EbExecuteLine не подходит! Написал кучу кода с её использованием, а после компиляции программа начинает вываливаться, хотя в режиме разработки всё работает, и эта проблема не только у меня, а повсеместная. Был у меня примерчик - убей, не могу отыскать! В гуглях, практически ничего нет или везде пример с EbExecuteLine. Выручайте!

  1. Ребята всем привет,я начел изучать "Visual Basic"! Очень буду благодарен за коды по этому языку, очень интиресный язык)))! Бросайте сюда коды кому не лень))).Спасибо!))Добавлено через 36 минут И еше у меня вопрос,я написал диаграмму на basic,пример из книги Сифронова,прописал правильно,у меня неверная переменная и подчеркивает Х1(((

  1. У кого есть точный список ошибок или как его достать? Посмотрел и проверил навскидку здесь:https://msdn.microsoft.com/en-us/lib...(v=VS.60).aspx и здесь:http://www.planet-source-code.com/vb...48434&lngWId=1 из старших кодов некоторые недействительны. Вот из MSDN - код

  1. Если язык системы не русский отображается кракозябра менять в реестре значения cp1251 не дело, так как это может затронуть работу другого софта Как решить данную проблему? сменить стандартный шрифт? сделать свои шрифты и носить с собой? // программа устанавливается. так что носить шрифты с программой и их установка не проблема

  1. Если Ваш код из темы Готовые решения и полезные коды на Visual Basic 6.0неправильно собран или неработоспособен, он будет перенесен сюда. Для доведения кода в рабочее состояние в порядке обсуждения создайте новую тему

  1. Имеется кнопка, при нажатии на которую выводится код элемента по ASCII таблице. То есть код есть только у целого числа. Я написал код, но не знаю, как сделать так, чтобы если я вводил дробное значение, то высвечивалось сообщение "Введите целое число", но если буква, то считало код. И как еще сделать, чтобы если число не входит в диапазон от 0 до 255, то тоже была ошибка? Пробовал через if и все такое, но постоянно ошибки. Подскажите, пожалуйста, как это сделать!

  1. Всем здравствуйте, разбирал (пример 7.7) на сайте http://jsulib.ru/Lib/Articles/995/488/Глава 7.htm и столкнулся с трудностью(недавно изучаю этот язык) в это программе рисуется шахматная доска, но я не понимаю для чего переменные dx,dy, x1 и x2 и почему им присвоены именно эти значения, заранее спасибо за ответ! Вот пример если что.

  1. Всем привет! Задался целью выяснить почему программа, которую я написал тормозит, точнеее какие ее блоки... Может кому пригодится, простой анализатор скорости работы кода. Выдает действительный результата три знака после запятой. Погрешность измериний не большая. Втулил интерфейс аля Win10, тени от формы (корректно и быстро отрисовываюстя), перетаскивание формы...код формы