Refus SetWindowPos, que faire ?

Le
LE TROLL
Bonjour,

SetWindowPos est refusé, voir l'erreur in fine, il y a à part la
réparation , peut être un autre moyen de mettre au premier plan et toujours
à l'écran avec vbNet ?

Public Class Form1
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 Flags = &H2 Or &H1 Or &H40 Or &H10

Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Dim r As Long
r = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, Flags)

Erreur 1 'hwnd' n'est pas un membre de 'nativewifi.form1

Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LE TROLL
Le #20856981
Merci, résolu, on met :

TopMost = True ' 1er plan toujours . l'écran


Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"LE TROLL" news:
Bonjour,

SetWindowPos est refusé, voir l'erreur in fine, il y a à part la
réparation , peut être un autre moyen de mettre au premier plan et
toujours à l'écran avec vbNet ?

Public Class Form1
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 Flags = &H2 Or &H1 Or &H40 Or &H10

Sub form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim r As Long
r = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, Flags)

Erreur 1 'hwnd' n'est pas un membre de 'nativewifi.form1

Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.




Publicité
Poster une réponse
Anonyme