• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Cybernavigator

Palette [RESOLVIDO]

3 mensagens neste tópico

Boas, tenho de fazer um código em vb6 pra criar uma palette de cores, a função k pensei usar eh a picture1.line

Mas o stress eh k nao sei como a usar.

Queria gerar uma palette automaticamente para rgb(i,i,i) de i = 0 ate i = 253

e depois adicionar mais 2 valores k sejam rgb(255,0,0) e rgb(0,255,0) alguém me pode ajudar?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tens mesmo de criar.

E que podes chamar uma ja existente. Criar uma common dialog e depois crias um botao e no botao poes o codigo:

CommonDialog1.ShowColor

Acho que e isto pois ja nao mexo em VB ha bue mesmo.

Cumps :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Mas o k eu keria sabia k dava

mas ja está resolvido

o código é este

Public Sub make_greyscale_palette(dest As PictureBox)
Dim X, Y As Integer
Dim n As Integer
n = 0
Y = 0
Do While Y <= 5
  X = 0
  Do While X <= 42
   If n = 253 Then
    dest.Line (X * 100, Y * 100)-((X * 100) + 100, (Y * 100) + 100), RGB(255, 0, 0), BF
   Else
    If n = 254 Then
     dest.Line (X * 100, Y * 100)-((X * 100) + 100, (Y * 100) + 100), RGB(0, 255, 0), BF
    Else
     dest.Line (X * 100, Y * 100)-((X * 100) + 100, (Y * 100) + 100), RGB(n, n, n), BF
    End If
   End If
   n = n + 1
   X = X + 1
  Loop
  Y = Y + 1
Loop
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora