Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.
 

как совместить

Пользователи, просматривающие топик: none

Зашли как: Guest
Все форумы >> [Компилируемые языки] >> как совместить
Имя
Сообщение << Старые топики   Новые топики >>
как совместить - 2011-01-30 11:52:20.793333   
HAIRY

Сообщений: 24
Оценки: 0
Присоединился: 2011-01-01 17:32:26.143333
вот у меня есть код

Private Sub Form_Load()

Dim LeftPos As Integer
Dim TopPos As Integer
LeftPos = Int((Screen.Width - Me.Width) / 2)
TopPos = Int((Screen.Height - Me.Height) / 2)
Me.Top = TopPos
Me.Left = LeftPos

End Sub

мне нужно в него добавить это

Dim Ret As Long
Dim Trn As Byte
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
Trn = 100
SetLayeredWindowAttributes Me.hWnd, 0, Trn, LWA_ALPHA

Post #: 1
Страниц:  [1]
Все форумы >> [Компилируемые языки] >> как совместить







Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.