Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Егор
-
- Обычный пользователь

-
-
- Сообщения: 50
- Зарегистрирован: 27.06.2003 (Пт) 7:24
- Откуда: Сургут
Егор » 01.07.2003 (Вт) 7:58
"BASIC-программисты - люди меченые,
путём насилия или подкупа нас можно
заставить работать на другом языке,
но думать-то мы всё равно будем
на BASIC..."
-
Александр Андреев
-
- Продвинутый пользователь

-
-
- Сообщения: 145
- Зарегистрирован: 09.04.2003 (Ср) 16:43
- Откуда: Н.Новгород
Александр Андреев » 01.07.2003 (Вт) 17:37
А ты склей текстуры в один большой битмап в каком-нибудь графическом редакторе, а потом его и вставь.
Есть еще вариант в Paint'е программно размножать эту текстуру.
-
Urvin
-
- Постоялец

-

-
- Сообщения: 518
- Зарегистрирован: 04.06.2003 (Ср) 10:47
- Откуда: с Марса
-
Urvin » 01.07.2003 (Вт) 20:27
Не цитирую - ламерский вопрос - ламерский ответ...- Код: Выделить всё
For x = 0 to picPic.scalewidth
for y = 0 to picPic.ScaleHeight
picPic.PaintPicture x,y,picPic.picture
next y
next x
Итак, в твой picPic засовываешь в качестве picture картинку (маленькую), вставляешь код куда-нибудб типа запуска. Наслаждаешься, если не забыл свойство AutoRedraw у picPic поставить в True.
Не так страшен русский танк, как его пьяный экипаж
-
Cyrax
-
- Cyberninja

-

-
- Сообщения: 891
- Зарегистрирован: 25.04.2002 (Чт) 21:20
- Откуда: Magnitogorsk, Russia
-
Cyrax » 01.07.2003 (Вт) 20:52
Urvin писал(а)::twisted:
Не цитирую - ламерский вопрос - ламерский ответ...- Код: Выделить всё
For x = 0 to picPic.scalewidth
for y = 0 to picPic.ScaleHeight
picPic.PaintPicture x,y,picPic.picture
next y
next x
Итак, в твой picPic засовываешь в качестве picture картинку (маленькую), вставляешь код куда-нибудб типа запуска. Наслаждаешься, если не забыл свойство AutoRedraw у picPic поставить в True.
единственное нужно у циклов выставить
Step picPic.Width и
Step picPic.Heightхотя стоп, картинка сама себя в себя рисует... это что-то странное
скорее так
- Код: Выделить всё
For x = 0 to picPic.ScaleWidth Step picTexture.Width
for y = 0 to picPic.ScaleHeight Step picTexture.Height
picPic.PaintPicture x, y, picTexture.picture
next y
next x
picPic - PictureBox, который надо залить текстурой, а
picTexture - текстура
Ты это ему расскажи. Я уже пять болтов отвинтил, и конца не видно... (озадаченно) А это в какую сторону тянуть? Ну-ка... Ага, этот был лишний, этот вообще не отсюда, и этот... Точно, два болта.
Welcome to IRC
-
Urvin
-
- Постоялец

-

-
- Сообщения: 518
- Зарегистрирован: 04.06.2003 (Ср) 10:47
- Откуда: с Марса
-
Urvin » 01.07.2003 (Вт) 21:26
Про Step извините, но Picrure i image - разные вещи. Исходник и полученное - не одно и тоже!
Не так страшен русский танк, как его пьяный экипаж
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Majestic-12 [Bot], SemrushBot, Yandex-бот и гости: 10