ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Creator Forms отличный помощник в создании окон нестандартной формы для программ разрабаты
4 сообщений из 4, страница 1 из 1
Creator Forms отличный помощник в создании окон нестандартной формы для программ разрабаты
    #37273369
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Не разобрался в ВБА работает???
Как пользоваться??
...
Рейтинг: 0 / 0
22.05.2011, 18:04
| Ответить | Цитировать | Написать  
Creator Forms отличный помощник в создании окон нестандартной формы для программ разрабаты
    #37273512
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
пробовал этой прогой создать форму, сохранил файл моя.crf импортировать её в ВБА не получается, пробовал вставить как сказано сгенерированный прогой код:


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private 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
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long,ByVal hRgn As Long,ByVal bRedraw As Long) As Long

Private Function SetCreateForm(ByVal propHwnd As Long,ByVal propHDC as Long)
Dim rComb As Long
Dim vDC As Long
'   Функция SetCreateForm сгенерирована
' с помощью программы «Creator Forms 1.4»
'   AftarSoft
'   http://aftarsoft.przone.ru/
'   http://aftarsoft.przone.ru/feedback.php?insoft=2&ver=1.4 - Сюда замечания и пожелания
vDC=propHDC
rComb=CreateRoundRectRgn( 95 , 61 , 347 , 207 , 20 , 20 )
Call SetWindowRgn(propHwnd,rComb, 1 )
End Function

Private Sub Form_Load()
'   Функция SetCreateForm сгенерирована
' с помощью программы «Creator Forms 1.4»
'   AftarSoft
'   http://aftarsoft.przone.ru/
'   http://aftarsoft.przone.ru/feedback.php?insoft=2&ver=1.4 - Сюда замечания и пожелания
Call SetCreateForm(Form1.hwnd,Form1.hDC)
End Sub
нифига не пашет
...
Рейтинг: 0 / 0
22.05.2011, 21:05
| Ответить | Цитировать | Написать  
Creator Forms отличный помощник в создании окон нестандартной формы для программ разрабаты
    #37273664
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Option Explicit
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
'Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private 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


Private Sub UserForm_Activate()
Dim hWnd As Long
   hWnd = FindWindow(vbNullString, Me.Caption)
   'SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 300, 200), True
   SetWindowRgn hWnd, CreateRoundRectRgn( 95 ,  5 ,  347 ,  207 ,  20 ,  20 ), True
End Sub
Дорогой Вы наш Эндрю, не мешайте всё в одну кучу (API, VB, VBA и не дай Вам VB.NET), изучите все возможности чего то одного, (вступите в нашу секту, пожертвуйте Вашу квартиру...) и тогда..... (я алкоголик из Москвы!)

А если серьёзно, я не представляю по вашим вопросом, что Вы за программы пишите :) и надо ли Вам это всё ;)
...
Рейтинг: 0 / 0
23.05.2011, 00:27
| Ответить | Цитировать | Написать  
Creator Forms отличный помощник в создании окон нестандартной формы для программ разрабаты
    #37273713
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Дмит, спасибо за ответ, и как Вы трансформировали, извлекли из одного скрипта другой???
МИСТИКА какая-то
...
Рейтинг: 0 / 0
23.05.2011, 05:03
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Creator Forms отличный помощник в создании окон нестандартной формы для программ разрабаты
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=130&tid=2176851]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 27ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 21ms
get tp. blocked users:
 1ms
others: 203ms
total:  279ms
созд. / загр.: 279ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]