Текстура

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

Текстура

Сообщение Егор » 01.07.2003 (Вт) 7:58

Помогите мне! Как например в PictureBox налажить текстуру на весь БОКС и чтоб она была не растянута?!!! :? :? :?
"BASIC-программисты - люди меченые,
путём насилия или подкупа нас можно
заставить работать на другом языке,
но думать-то мы всё равно будем
на BASIC..."

Александр Андреев
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 145
Зарегистрирован: 09.04.2003 (Ср) 16:43
Откуда: Н.Новгород

Сообщение Александр Андреев » 01.07.2003 (Вт) 17:37

А ты склей текстуры в один большой битмап в каком-нибудь графическом редакторе, а потом его и вставь. :wink:
Есть еще вариант в Paint'е программно размножать эту текстуру.

Urvin
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 518
Зарегистрирован: 04.06.2003 (Ср) 10:47
Откуда: с Марса

Сообщение Urvin » 01.07.2003 (Вт) 20:27

: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.
Не так страшен русский танк, как его пьяный экипаж

Cyrax
Cyberninja
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 и гости: 15

    TopList