FORMULARIO
naum consigo fazer com que meu formulario fique sempre a frente de todas as aplicacoes !!! como que faço para que ee fique sempre em primeiro plano?
Option Explicit
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
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
Private Sub Form_Load()
Dim retValue As Long
Load Form1
retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, 100, 200, _
400, 200, SWP_SHOWWINDOW)
End Sub
'Cara peguei no proprio site do VB, é só dar uma procurada que aqui vc acha quase tudo...
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
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
Private Sub Form_Load()
Dim retValue As Long
Load Form1
retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, 100, 200, _
400, 200, SWP_SHOWWINDOW)
End Sub
'Cara peguei no proprio site do VB, é só dar uma procurada que aqui vc acha quase tudo...
form1.show vbmodal
isso não funcionou?
isso não funcionou?
Tópico encerrado , respostas não são mais permitidas