For Next em Caption de Labels

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

For Next em Caption de Labels

Mensagem por Guimath em Qui Jul 28, 2016 3:00 pm

Ola Pessoal,

Estou precisando criar um laço para verificar o CAPTION de várias LABELS, mas estou me embolando em alguma coisa. Será que alguém poderia me dar um help.

Abaixo segue minha rotina, que da forma como coloquei esta dando erro 13 "Tipos Incompatíveis".

Valeu

Código:
For k = 1 To Label37
         
                If k.Caption < FORMAG3.ListBox1.List(a, 3) Then
                             
                    If ListBox1.List(a, 1) = "M" Then
                        k.BackColor = &HFF8080
                    ElseIf ListBox1.List(a, 1) = "A" Then
                        k.BackColor = &H80FF&
                    ElseIf ListBox1.List(a, 1) = "PG" Then
                        k.BackColor = &HFF00&
                    ElseIf ListBox1.List(a, 1) = "C" Then
                        k.BackColor = &HFF&
                    End If
                End If
         
          Next k

Guimath
Membro
Membro

Mensagens : 2
Data de inscrição : 27/06/2016

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum