Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Creator Forms отличный помощник в создании окон нестандартной формы для программ разрабаты / 4 сообщений из 4, страница 1 из 1
22.05.2011, 18:04
    #37273369
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Creator Forms отличный помощник в создании окон нестандартной формы для программ разрабаты
Не разобрался в ВБА работает???
Как пользоваться??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2011, 21:05
    #37273512
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Creator Forms отличный помощник в создании окон нестандартной формы для программ разрабаты
пробовал этой прогой создать форму, сохранил файл моя.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
| Ответить | Цитировать | Написать  
23.05.2011, 00:27
    #37273664
Дмит
Дмит
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Creator Forms отличный помощник в создании окон нестандартной формы для программ разрабаты
Код: 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, 05:03
    #37273713
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Creator Forms отличный помощник в создании окон нестандартной формы для программ разрабаты
Дмит, спасибо за ответ, и как Вы трансформировали, извлекли из одного скрипта другой???
МИСТИКА какая-то
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Creator Forms отличный помощник в создании окон нестандартной формы для программ разрабаты / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 708ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176851]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 401ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 232ms
total:  708ms
x
x
Закрыть


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