Início
![[Resolvido]Não aceita a cor azul para linha Empty](https://2img.net/i/empty.gif)
ilvecchio 15/5/2014, 18:52Buenas!
Estou usando este código para desenhar linhas em um relatório:
-----------------------------------------------------------------
Dim CorLinha As Integer
CorLinha = 255 'vermelho
Me.Line (0 * 567, 0 * 567)-(0 * 567, 6 * 567), CorLinha
-----------------------------------------------------------------
Funciona para o vermelho (255) e o preto (0). Preciso do código do azul.
Tentei os formados RGB e QBColor.
CorLinha = RGB(0,0,255) azul ou
CorLinha = QBColor(1) azul
Nenhum funciona. Funcionam para as cores vermelho e preto
CorLinha = RGB(0,0,0) preto ou
CorLinha = QBColor(0) preto
CorLinha = RGB(255,0,0) vermelho ou
CorLinha = QBColor(4) vermelho
A cor azul (16711680) usada em uma linha criada manualmente não é aceita.
O erro é: Erro em tempo de execução '6' : Estouro
É algum bug?
Estou usando este código para desenhar linhas em um relatório:
-----------------------------------------------------------------
Dim CorLinha As Integer
CorLinha = 255 'vermelho
Me.Line (0 * 567, 0 * 567)-(0 * 567, 6 * 567), CorLinha
-----------------------------------------------------------------
Funciona para o vermelho (255) e o preto (0). Preciso do código do azul.
Tentei os formados RGB e QBColor.
CorLinha = RGB(0,0,255) azul ou
CorLinha = QBColor(1) azul
Nenhum funciona. Funcionam para as cores vermelho e preto
CorLinha = RGB(0,0,0) preto ou
CorLinha = QBColor(0) preto
CorLinha = RGB(255,0,0) vermelho ou
CorLinha = QBColor(4) vermelho
A cor azul (16711680) usada em uma linha criada manualmente não é aceita.
O erro é: Erro em tempo de execução '6' : Estouro
É algum bug?
