Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Declare vb2vfp
Message
 
 
À
01/05/2007 23:47:45
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
OS:
Windows XP SP2
Divers
Thread ID:
01221700
Message ID:
01221701
Vues:
61
Check this thread Re: How to get focus to my VFP app from a VFP utility once c Thread #1220775 Message #1220782

And http://news2news.com/vfp/?group=83&function=76 (and samples)
http://news2news.com/vfp/?group=83&function=464
http://news2news.com/vfp/?group=83&function=136


>Hi,
>Could someone help translate this VB code please...
>
>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
>
>Declare Function FindWindow Lib "user32" Alias _
>"FindWindowA" (ByVal lpClassName As String, ByVal _
>lpWindowName As String) As Long
>
>Const SWP_HIDEWINDOW = &H80
>Const SWP_SHOWWINDOW = &H40
>
>******Code to Hide the Taskbar
>
>Dim Thwnd as Long
>Thwnd = FindWindow("Shell_traywnd", "")
>Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
>
>*********Code to Show the Taskbar
>
>Dim Thwnd as Long
>Thwnd = FindWindow("Shell_traywnd", "")
>Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
>
>
>Thank you.
>
>regards
>
>Syah N
>
>
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform