Tudo certo, galera?

pessoal, coloquei no formulario um label e uma Image. O Label emcima do Image, e fizer um codigo para teste, e esta dando um erro, creio que é erro de sintaxe, pois nao sei for a pergunta com o zorder. Vejam para mim.

 

Tem um erro na linha do IF () THEN, como verifico se o label1 esta no estado de zorder (1).

 

Private Sub Command1_Click()
If Label1.ZOrder = (1) Then
  Label1.ZOrder (0)
Else
  Label1.ZOrder (1)
End If
end sub

 

Valeu

desculpe a ignorancia, mas o que é este tal ZOrder ?

Olá!

 

semmer o método ZOrder especifica a posição Z do controle no formulário, equivale às ações "Bring to front" e "Send to back" que você pode executar em design mode.

 

léee, você não pode utilizar a instrução "If Label1.ZOrder = (1) Then" porque ZOrder é um Sub e não retorna valores. Você deve armazenar a posição Z do Label numa variável fora do escopo do evento Command1_Click pra fazer o controle. Ex:

 

Private ZPosition As Byte

 

Private Sub Command1_Click()

 

   If ZPosition = 0 Then
      ZPosition = 1
   Else
     ZPosition = 0
   End If
  
   Label1.ZOrder ZPosition
  
End Sub

 

Abraço!