AJUDA COM PROGRAMA DE TESTE DE APOSTILA VB6

MACRACANTHUS 07/10/2009 22:03:57
#324754
Estou tentando aprender um pouco sobre VB e VBA, estou lendo e fazendo os execicios de uma apostila de VB6 que eu baixei aqui no VB Mania, ao executar o programa ele retorna um erro ~ ForeColor~ que esta abaixo, sera que vcs podem me ajudar a solucionar esse erro.


Public Sub MudaCorTexto()

lblTeste.ForeColor = QBColor(vCorTexto)

Segue Todo o programa de teste.


Dim vCorTexto As Integer
Dim vCorFundo As Integer

Private Sub cmdTextoAnt_Click()

vCorTexto = vCorTexto - 1
If vCorTexto < 0 Then vCorTexto = 15
MudaCorTexto

End Sub

Private Sub cmdTextoProx_Click()

vCorTexto = vCorTexto + 1
If vCorTexto > 15 Then vCorTexto = 0
[ô]Chamada da subrotina:
MudaCorTexto

End Sub

Private Sub Form_Load()

vCorTexto = 0
vCorFundo = 15

End Sub

Public Sub MudaCorTexto()

lblTeste.ForeColor = QBColor(vCorTexto)
With lblTexto
Select Case vCorTexto
Case 0
.Caption = [Ô]0 - Preto[Ô]
Case 1
.Caption = [Ô]1 - Azul[Ô]
Case 2
.Caption = [Ô]2 - Verde[Ô]
Case 3
.Caption = [Ô]3 - Ciano[Ô]
Case 4
.Caption = [Ô]4 - Vermelho[Ô]
Case 5
.Caption = [Ô]5 - Magenta[Ô]
Case 6
.Caption = [Ô]6 - Amarelo[Ô]
Case 7
.Caption = [Ô]7 - Branco[Ô]
Case 8
.Caption = [Ô]8 - Cinza[Ô]
Case 9
.Caption = [Ô]9 - Azul Claro[Ô]
Case 10
.Caption = [Ô]10 - Verde Claro[Ô]
Case 11
.Caption = [Ô]11 - Ciano Claro[Ô]
Case 12
.Caption = [Ô]12 - Vermelho Claro[Ô]
Case 13
.Caption = [Ô]13 - Magenta Claro[Ô]
Case 14
.Caption = [Ô]14 - Amarelo Claro[Ô]
Case Else
.Caption = [Ô]15 - Branco Brilhante[Ô]
End Select
End With
End Sub
TECLA 07/10/2009 23:12:53
#324757 Resposta escolhida
Verifique se os controles abaixo estão no FORM:
LABEL
  • lblTexto
  • lblTeste

    COMMANDBUTTON
  • cmdTextoAnt
  • cmdTextoProx


    Copie e código abaixo e teste novamente:

    • [ô]Declaração no General Declarations
    Dim vCorTexto As Integer
    Dim vCorFundo As Integer

    Private Sub cmdTextoAnt_Click()
    lblTeste.ForeColor = QBColor(vCorTexto)
    vCorTexto = vCorTexto - 1
    If vCorTexto < 0 Then vCorTexto = 15
    MudaCorTexto
    End Sub


    Private Sub cmdTextoProx_Click()
    vCorTexto = vCorTexto + 1
    If vCorTexto > 15 Then vCorTexto = 0
    MudaCorTexto
    End Sub


    Private Sub Form_Load()
    vCorTexto = 0
    vCorFundo = 15
    End Sub


    Public Sub MudaCorTexto()
    With lblTexto
        Select Case vCorTexto
            Case 0
                .Caption = [Ô]0 - Preto[Ô]
            Case 1
                .Caption = [Ô]1 - Azul[Ô]
            Case 2
                .Caption = [Ô]2 - Verde[Ô]
            Case 3
                .Caption = [Ô]3 - Ciano[Ô]
            Case 4
                .Caption = [Ô]4 - Vermelho[Ô]
            Case 5
                .Caption = [Ô]5 - Magenta[Ô]
            Case 6
                .Caption = [Ô]6 - Amarelo[Ô]
            Case 7
                .Caption = [Ô]7 - Branco[Ô]
            Case 8
                .Caption = [Ô]8 - Cinza[Ô]
            Case 9
                .Caption = [Ô]9 - Azul Claro[Ô]
            Case 10
                .Caption = [Ô]10 - Verde Claro[Ô]
            Case 11
                .Caption = [Ô]11 - Ciano Claro[Ô]
            Case 12
                .Caption = [Ô]12 - Vermelho Claro[Ô]
            Case 13
                .Caption = [Ô]13 - Magenta Claro[Ô]
            Case 14
                .Caption = [Ô]14 - Amarelo Claro[Ô]
            Case Else
                .Caption = [Ô]15 - Branco Brilhante[Ô]
        End Select
    End With
    lblTeste.ForeColor = QBColor(vCorTexto)
    End Sub
    MACRACANTHUS 08/10/2009 15:24:43
    #324824
    Tecla o erro ainda esta ocorrendo, quando executo o programa e clico no primeiro botão aparece o seguinte menssagem

    Complile error :
    Method or data Member Not Found

    e aparece selecionado .ForeColor =


    Private Sub cmdTextoAnt_Click()
    lblTeste.ForeColor = QBColor(vCorTexto)
    vCorTexto = vCorTexto - 1
    If vCorTexto < 0 Then vCorTexto = 15
    MudaCorTexto
    End Sub
    TECLA 08/10/2009 15:37:55
    #324825
    Tem certeza?

    Veja o resultado que eu obtive com o código que postei.
    MACRACANTHUS 08/10/2009 16:49:55
    #324832
    Sera que pode ser Problema no VB que eu estou utilizando ?

    Estou no trabalho no momento utilizo um VB6 portable.

    Quando eu chegar em casa vou testar no VB6 que esta no meu PC.
    MACRACANTHUS 09/10/2009 15:43:45
    #324919
    Tecla ontem instalei o VB6 no PC de casa que esta com o Windows seven, esta dando uma menssagem de incompatibilidade mas deixou instala.

    Fiz o teste e deu o mesmo erro .... e ao clicar na ajuda da mensagem de erro ela dis que não foi instalado o MSDN.
    Tentei instala o MSDN pelo CD, mas devido a incompatibilidade não foi possível, vo procurar na rede p/ baixar.
    V/c sabe o que e esse MSDN?
    Tópico encerrado , respostas não são mais permitidas
    Voltar