Bспливаущее OKHO

[rosti9k]

Подсказите посалуиста, как сосдат вспливаущее OKHO,
так цтоби оно всплило справо внису екрана и осталос там стоят.


Kak na etoi kartinke spravo vnisu http://de.geocities.com/hprosti/temp/Clipboard01.jpg

[A.A.Z.]

Diese Seite ist nicht verfugbar.

Картинки нету больше!

Если честно, не знаю, то ли это, но я сделал так:
(добавь на форму таймер (Timer))

Код: Выделить всё

Private Sub Form_Load()
Timer1.Interval = 1
Me.Left = Screen.Width - Me.Width
Me.Top = Screen.Height
End Sub

Private Sub Timer1_Timer()
Dim I&
For I = Screen.Height To Screen.Height - Me.Height Step -5
Me.Top = I
DoEvents
Next
Me.ZOrder vbBringToFront
Timer1.Enabled = False
End Sub

[rosti9k]

Spasibo, shas poprobuju
Vot kartinka:
http://de.geocities.com/unsere9bklasse/Clipboard.jpg

[rosti9k]

Lutsche eta:

[A.A.Z.]

А, дошло, оно что ли сначала было прозрачным?

[A.A.Z.]

Добавь таймер на форму:

Код: Выделить всё

Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Sub SetOpacity(NewOpacity As Long)
End Sub

Private Sub Form_Load()
Timer1.Interval = 1
Me.Top = Screen.Height - Me.Height
Me.Left = Screen.Width - Me.Width
SetWindowLong hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hWnd, 0, 0, LWA_ALPHA
End Sub

Private Sub Timer1_Timer()
Dim I&
For I = 0 To 255
SetWindowLong hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hWnd, 0, I, LWA_ALPHA
DoEvents
Next
Timer1.Enabled = False
End Sub

[rosti9k]

Spasibo, ceto ne rabotaet, poprobuju esche ce to vstavit

[rosti9k]

ach da, esche odna problema , eto okno dolsno visvecivatsa poverch vsech ostalnich programm.

[rosti9k]

Vosmosno li stelat tak, ctobi eto okno bilo poverch vsech ostalnich okon, esli da to kak?
Vse ostalnoe polucilos, bolschoe spasibo!!!!!!

[A.A.Z.]

Код: Выделить всё

Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Sub Form_Load()
SetWindowPos Me.hWnd, -1, Me.Left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, &H10 Or &H40
End Sub