Изменить форму

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

Изменить форму

Сообщение Flex » 06.01.2005 (Чт) 13:46

Скачал исходники стиля для форм http://www.vbstreets.ru/VB/Sources/65815.aspx
Как сделать что бы все четыре угла не были округлыми? Изменив лишь тот код.. ?

timsoft
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 181
Зарегистрирован: 18.10.2003 (Сб) 10:50
Откуда: Odessa, Ukraine

Сообщение timsoft » 06.01.2005 (Чт) 14:10

Надо перерисовать картинки, закрасив сиреневый цвет (это цвет маски, которая не отрисовывается и дает эффект круглых углов)

а вообще, глючный этот примерчик...

Flex
Начинающий
Начинающий
 
Сообщения: 18
Зарегистрирован: 10.10.2003 (Пт) 0:49

Сообщение Flex » 06.01.2005 (Чт) 14:35

я уже сделал.. просто там на английском, а я его не очень знаю.. так покопался убрал в модуле все что связанно было с переменной а, и это:
' Used to set the shape of the form
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
' Used to create the rounded rectangle region
Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

З.Ы
тему можно удалить.. :?

Ramzes
Скромный человек
Скромный человек
Аватара пользователя
 
Сообщения: 5004
Зарегистрирован: 12.04.2003 (Сб) 11:59
Откуда: Из гробницы :)

Сообщение Ramzes » 07.01.2005 (Пт) 13:53

Тему нельзя удалять, может еще кто захочет посмотреть!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, SemrushBot и гости: 12

    TopList