MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Converter cor da imagem para escala de cinzentos

    Compartilhe
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 188
    Registrado : 24/02/2013

    Converter cor da imagem para escala de cinzentos

    Mensagem  brunogor em 14/10/2018, 18:49

    Olá a todos,

    Estou c/ mais um problema para resolver, pretendo converter a cor de uma imagem para a escala de cinzentos.

    Na net só encontro material para VB.net, mas neste site: [Você precisa estar registrado e conectado para ver este link.]

    encontrei o seguinte código, mas está sempre a dar erro:
    Código:
    Option Explicit

    Private Sub Command1_Click()
        Dim x As Long
        Dim y As Long
        Dim c As Long
        Dim r, g, b As Byte

        Picture1.Picture = LoadPicture("d:\disegni\fridgedoor_1683_28908208.gif")
        'convert picture lo grayscale
        With Picture1
        For x = 1 To .ScaleX(.Picture.Width, vbHimetric, vbPixels)
            For y = 1 To .ScaleY(.Picture.Height, vbHimetric, vbPixels)
                c = .Point(.ScaleX(x, vbPixels, .ScaleMode), .ScaleY(y, vbPixels, .ScaleMode))
                If c > 0 Then
                    b = c Mod 256
                    c = c \ 256
                    g = c Mod 256
                    r = c \ 256
                    c = (r + g + b) / 3
                    Picture1.PSet (.ScaleX(x, vbPixels, .ScaleMode), .ScaleY(y, vbPixels, .ScaleMode)), RGB(c, c, c)
                End If
            Next
        Next
        End With
    End Sub

    Conseguem-me ajudar?

    Cumprimentos

    Bruno Gordino
    avatar
    Estuardo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 20
    Registrado : 24/09/2014

    Re: Converter cor da imagem para escala de cinzentos

    Mensagem  Estuardo em 10/11/2018, 04:03

    Boa noite,
    Desafortunadamente o controlo Picture do Access não tem propriedade nem uma para interagir com a imagem que vai a apresentar.
    Propriedades como Scale, ScaleMode, PSet e outras não fazem parte do VBA, pelo que (até onde eu sei) não é possível converter ese código vb.Net para VBA.
    Pode sim, utilizar bibliotecas de terceiros (como KamelSoft) ou criar a sua propria aplicação em vb6/VB.net para fazer ese trabalho e consumir o resultado.
    Saludos
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 188
    Registrado : 24/02/2013

    Converter cor da imagem para escala de cinzentos

    Mensagem  brunogor em 13/11/2018, 16:22

    Viva,
    Parece que foi a 1ª vez que nos encontramos aqui no 'Forum'.
    Então será melhor abandonar o projeto ...
    Muito obrigado pela atenção que me dispensou, obrigado mesmo.
    Entretanto vou deixar o tópico em aberto não apareça aí alguma luz ...
    Cumprimentos

    Bruno Gordino

      Data/hora atual: 15/11/2018, 04:42