Transparence

Question

Salut!

 -Comment rendre un form transparente, que la form, les controls reste visible.

-Merci

jmfmarques · Answer

"Comment rendre un form transparente, que la form, les controls reste visible."

Précise, s'il te plait, notamment en ce qui concerne ce que tu entends exactement par "Form transprente" !
Transparente ou translucide ? (ce n'est pas la même chose ...)

vbnino · Answer

Transparente

jmfmarques · Answer

Je vois....

Alors (et à toi d'en tirer ce qui te va, donc)..

Une Form.

Sur ta form, un bouton de command Compmand1 (juste pour que tu voies que lui, il reste opaque)
Un timer Tmer1

Ce code :

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_TRANSPARENT = &H20&
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_SHOWME = SWP_FRAMECHANGED Or _
SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_NOTOPMOST = -2


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 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




Private Sub Form_Load()
  Timer1.Enabled = True
  Timer1.Interval = 1000
  Me.BackColor = vbBlue
  Me.Move Screen.Width / 3, Screen.Height / 3
End Sub


Private Sub Timer1_Timer()
  Static toto As Boolean
  If toto Then
    SetWindowLong Me.HWND, GWL_EXSTYLE, 0
    Me.Hide
    Me.Refresh
    Me.Show
  Else
     SetWindowLong Me.HWND, GWL_EXSTYLE, WS_EX_TRANSPARENT
     SetWindowPos Me.HWND, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME
  End If
  toto = Not toto
End Sub

Voilà donc !


 


Lance et vopis ce qui se passe !

vbnino · Answer

Salut!

 -J'ai écris le code , mais pour-quoi ça ne marche pas bien , ça cligniote

-Merci

jmfmarques · Answer

Evidemment que ça clignote (toutes les secondes, même )...
Voilà exactement ce que je voulais savoir... et je le sais maintenant !
Tu ne sais pas analyser... juste copier/coller... mais tu veux approcher l'utlisation de fonctions de l'API !
Je t'ai pourtant tout donné, là ... mais tu ne sais qu'en faire...
Ne compte pas sur moi pour aller plus loin (je ne veux pas être le complice de çà !!!)

vbnino · Answer

Excuse moi , ta raison je fais que copie\coller , mais maintenant j'ai bien veu le code et j'ai fais des modification voila:

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_TRANSPARENT = &H20&
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_SHOWME = SWP_FRAMECHANGED Or _
SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_NOTOPMOST = -2
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 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

Private Sub Form_Load()
  Timer1.Enabled = True
  Timer1.Interval = 1000
  Static toto As Boolean
 
 If toto Then
    SetWindowLong Me.HWND, GWL_EXSTYLE, 0
    Me.Hide
    Me.Refresh
    Me.Show
  Else
     SetWindowLong Me.HWND, GWL_EXSTYLE, WS_EX_TRANSPARENT
     SetWindowPos Me.HWND, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME
  End If

  End Sub

jmfmarques · Answer

Hé bé !!!
Tu vas analyser, oui ?
Et te débarrasser de ce timer, oui ?????
et ne prendre dans le timer que ce qui te convient, oui ????
C'est pas vrai, çà !!!!!!

Tu développes ou tu t'amuses ????

vbnino · Answer

Que veux tu dire par la?

vbnino · Answer

Merci

Transparence

9 réponses

Votre réponse

Discussions similaires