APPLICATION TOUJOURS VISIBLE

Commentaire de PCPT le 26/12/2005 02:37:45 administrateur CS

salut,
Me.TopMost = Not(Me.TopMost)        ne fonctionne pas en .net??

Commentaire de PCPT le 26/12/2005 03:56:05 administrateur CS

en effet, tu n'as pas trop compris ;)
ps : je n'ai pas .net!     structure if? ...

Commentaire de violent_ken le 26/12/2005 23:07:08

Ok. Ce que veut dire PCPT, c'est que :

a est une booléenne
Si a=true then
    a=false
else
    a=true
fin si

se remplace par

a=not(a)

Au mieux de faire If... then...else, tu n'as qu'une ligne de code !
Ce n'est qu'une supposition, puisque PCPT ne possède pas vb.net (moi non plus d'ailleurs).

Remplace donc ton code par :

'Mettre l'application toujours au premier plan.
'Si on reclic sur le bouton alors que l'application est deja toujours au premier plan on désactive cela.
  
Me.TopMost = Not(Me.TopMost)  
  
'Mettre l'application momentanément au premier plan
'Si l'application est derrière et qu on clic sur le bouton l'application sera au premier plan mais on peux toujours remettre l'application derrière une autre fenêtre.

        If Me.TopMost = True Then
            Me.TopMost = False
        End If



Et dit nous si çà marche !

@+

Commentaire de olixelle le 27/12/2005 14:58:21

ché pas si ca méritait un source ce truc... moi jvé faire une source sur comment utiliser la couleur de fond d'un bouton :p

Commentaire de OneHacker le 21/02/2006 21:37:30

Ben oui que ca marche ! 6/10 !

Bonne continuation !

Redman

Commentaire de violent_ken le 15/05/2006 19:26:03

En fait, Me.TopMost renvoie uen booléenne.
Et quelle que soit la nature d'origine d'une booléenne (variable, condition, propriétés d'un composant...), écrire (en notant bValeur la booléenne)

bValeur = Not(bValeur)

inverse la valeur de bValeur.
C'est de l'algèbre de boole pur et simple.

De même, le résultat du code

Private Sub Form_Load()
Dim a As long
a = 1
For x = 1 To 50
    a = Not (a)
    MsgBox a
Next
End Sub

permet d'étendre l'expression  B=not(B) aux Integer, Long....

Ainsi, le code

Private Sub Form_Load()
Dim a As long
a = 1
For x = 1 To 50
    If a = 1 Then a = -1 Else a = 1
    MsgBox a
Next
End Sub

peut être remplacé par

Private Sub Form_Load()
Dim a As long
a = 1
For x = 1 To 50
    a = Not (a) - 1
    MsgBox a
Next
End Sub

Pas très propre, mais fonctionnel.


@+

Commentaire de violent_ken le 30/08/2006 10:48:30

Utilise cette source :
http://www.vbfrance.com/codes/FEUILLE-TOUJOURS-VISIBLE-MODTOUJOURSVISIBLE-69VOBD3_4089.aspx
@+