| История развития программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Приложение+база на сервере. Ошибка связи Как Вы относитесь к курящим девушкам? Экспорт в Excel, из VB или Crystal Reports Пауза в макросе Шрифт, Как сделать свой шрифт... Клавиши, клавиши, клавиши..., И ещё немного кнопки... Подсветка Visual Basic на Винграде, Голосуем за стиль подсветки. Excel+VBA, циклическая загрузка.... Как подключить help VB5 к VB6 Выключение компа, Выключение компа Чтение из файла, как добыть Изменение свойсва MDIChild в Runtime, Изменение свойсва MDIChild в Runtime Как настроить учетную запись yahoo.com в Outlook, Как настроить yahoo.com в Outlook Exress MIDI, Как же это сделать??? Запуск Excel (Word) макроса из VB Как удалить файл Со 2 по 20 cентября я в отпуске!, Просьба ко всем участникам... как получ. доступ к БД BDE5 из VB6 Параметры командной строки при запуске Excel Опят БД, почему происходит зацикливание Вопрос По VBasic, Подскажите, как в VBasic проследить клик Импорт пакета. Нужен ли исходник? Visual Basic OLE.ReadFromFile Error, Ошибка метода ReadFromFile VB и Internet Как именно в Excel-DDE-ячейку заложить автокоманду, Автокоманду запуска wav-файла... Работа со звуком. Как считать парамет Excel-XP. Вставка строк, VB не VBA Посик по базе данных!, гайти надпись в базе и выдилить её VBA Access2000->XP, Error "Type mismatch" for Recordset Не знаю как сделать..., Помогите please!!! Работа с таймером, Как работает таймер? Компиляция ASP страниц, средствами VB Фильтр мата на Java Помогите парни, Нужен исходник тест проги Word, импорт строк Как в екселе скопировать значения Range в другой, не используя буффер обмена Записывание русского текста в файл, Put #1, , "Привет, Vingrad'овцы!" Переносимость сделанного на VB, как побороть проблемы с нею? Dbgrid32.ocx, Получить права на Dbgrid32.ocx Работа с файлом ресурсов createobject("msmapi.mapisession") - ошибка 429, на машине, где не установлен VB IDE & Clipboard, Хочу чтоб не очищался при запуске Прикольный глюк с Rich Text Box, из-за чего? Как узнать какие файлы лежат в папке? Программа в Task bar, Программа в Task bar Ограничения на количество символов в ячейке, VBA & EXCEL Как Вы относитесь к курящим девушкам? Узнать имя компьютера в сети, Узнать имя компьютера в сети VBE - Добавление контролов на форму cardinal, плиз помоги... Загрузочная область диска VB, Line input or Get, количество строк в файле VBA+Access, Выделение записей в таблице нет места на диске, с помощью VBScript игра "змейка", движение змейки Как на VB создавать программы для КПК, Как с помощью VB связать по ИК два КПК Работа с модемом Нужен хитрый и быстрый TRIM, причем с выпендрончиками... VBA&Excel: Помогите с выделением ячеек., из-за выделенной ячейки выделить строку Ищу ведущего разработчика-программиста, Предложение работы написать WWW клиент, выудить html'ку HTML Help, Context-sensitive help Очень срочно помогите Clipboard Курсор, КАК заменить курсор Работа с файлами regexp, regexp Выгрузка в текстовой файл из Excel, Не работает выгрузка в текстовой файл из Старый BASIC для винды, Где взять интерпретор для винды? Не срабатывает событие, в коде формы все работает, в модуле клас Как массив поместить в строку для записи в реестр |
Платные хостинги Раскрутка сайта Книги по программированию Не знаю как сделать..., Помогите please!!!
- У меня есть в форме фотка (picture1), и есть кнопка (Command1). Как сделать, чтобы при нажатии кнопки менялась картинка на следующию (всего тридцать)? Помогите пожалуйсто!!! - ..Немного не понял проблемы..Заводишь глобальную переменную, к-я хранит номер картинки. По нажатию кнопки показываешь картинку, к-я соответствует значению переменной и, если значение переменной меньше 30, увеличиваешь переменную на 1.Или ты о чем-то другом спрашивал? - Код мультика Dim a As Integer Private Sub Command1_Click() Timer1.Enabled = True a = 19 Command1.Visible = False End Sub Private Sub Timer1_Timer() a = a - 1 If a = 19 Then Image1.Picture = img1.Picture End If If a = 18 Then Image1.Picture = Img2.Picture End If If a = 17 Then Image1.Picture = Img3.Picture End If If a = 16 Then Image1.Picture = Img4.Picture End If If a = 15 Then Image1.Picture = Img5.Picture End If If a = 14 Then Image1.Picture = Img6.Picture End If If a = 13 Then Image1.Picture = Img7.Picture End If If a = 12 Then Image1.Picture = Img8.Picture End If If a = 11 Then Image1.Picture = img9.Picture End If If a = 10 Then Image1.Picture = img10.Picture End If If a = 9 Then Image1.Picture = img11.Picture End If If a = 8 Then Image1.Picture = img12.Picture End If If a = 7 Then Image1.Picture = img13.Picture End If If a = 6 Then Image1.Picture = img14.Picture End If If a = 5 Then Image1.Picture = img15.Picture End If If a = 4 Then Image1.Picture = img16.Picture End If If a = 3 Then Image1.Picture = img17.Picture End If If a = 2 Then Image1.Picture = img18.Picture End If If a = 1 Then Image1.Picture = img19.Picture End If If a = 1 Then a = 19 End If End Sub - Можно расположить все картинки на форме, одну под другой.Менять свойство Visible у картинок.Видемой картинке выставить Visible = True, все остальные - False.Код примерно такой:Код Private Sub ChangePic(By Val visPic as Integer)dim i as integer for i = 0 to 29 if i = visPic Then Pic(i).Visible = True else Pic(i).Visible = False end if nextend subhighlightSyntax('vb0NTA=','vb'); - Можно и так:Код dim PicList() as stringdim PicInd as longprivate sub Form_load() ReadList "C:\list.dat" picind=-1end subprivate sub Command1_click() 'След. картинка picind=picind+1 if picind>ubound(piclist) then picind=ubound(piclist) ShowPic PicIndend subprivate sub Command2_click() 'Пред. картинка picind=picind-1 if picind<0 then picind=0 ShowPic PicIndend sub'Загружает картинку из файла, путь и 'имя которого записано в массивеsub ShowPic(Ind as long) if ubound(piclist)=-1 then exit sub 'выход, если массив пустой Picture1.Picture=LoadPicture(PicList(Ind))end sub'Читает файл с именами файлов в массив PicListSub ReadList(FileName as string) dim lfn as long dim tmp as string open FileName for binary access read as #lfn tmp=space(lof(lfn)) get #lfn,1,tmp close #lfn PicList=split(tmp,vbcrlf) end subhighlightSyntax('vbEzYWQy','vb');В файле записаны полные пути и имена файлов к картинкам. В каждой строке одна ссылка.Например:c:\folder1\pics\qwery.bmpd:\mmm\room.gifc:\dodo\rere\sasa\lolo\photos\we are.bmpУдачи!!! - Мне кажется самое простое использовать счетчик.Сколько раз нажал такая картинка и открывается. - Вот такая фенька получиласьКод Private Sub Form_Load()Text1.Visible = FalseText2.Visible = FalseEnd SubPrivate Sub Command1_Click()Text1.Text = Text1.Text + 1Text2.Text = "C:\анима\" & Val(Text1.Text) & ".jpg"End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture("C:\анима\1.jpg")End SubPrivate Sub Text2_Change()Dim v As Stringv = Text2.TextPicture1.Picture = LoadPicture(v)End SubhighlightSyntax('vbjNjA=','vb'); Добавлено @ 21:42 Это не нужно забыла стеретьКод Private Sub Command2_Click()Picture1.Picture = LoadPicture("C:\анима\1.jpg")End SubhighlightSyntax('vbjhlMzd','vb'); - Сделай не img1...img19, а массив img(1...19)тогдаКод Private Sub Timer1_Timer() a = a - 1if a<LBound(img) Then a=UBound(img)Image1.Picture = img(20-a).Picture End Sub highlightSyntax('vbxNTZmY','vb');Этот код медленнее по исполнению, нежели размещение всех картинок и игра видимостью, но зато жрет меньше памяти на программу (ценой памяти системного кэша). Для видимости жеКод Private Sub Timer1_Timer() Image(a).Visible=Falsea = a - 1if a<LBound(Image) Then a=UBound(Image)Image(a).Visible=True End Sub highlightSyntax('vb4OTdhM','vb'); - Я так поняла ему кнопкой изменять картинки надо - Раз картинка два - другая - Ты будешь смеяться, но на панели объектов. Включив предварительно референс на соотв. ActiveX есссно. Это сообщение отредактировал Akina - 7.9.2004, 08:34 - Для таймера ни какого "Референса" подключать не надо.Открыть toolbox и найти иконку часиков, это и есть таймер.  |