INVALID PICTURE COMO RESOLVER ?

FBGSYSTEMS 01/05/2016 19:03:14
#461729
Boa noite pessoal.
Estou usando imagelist junto com listview eestoou baixando vários icones aqui que achei na net.
Alguem sabe como resolver o problema do Invalid Picture? Pois a maioria que eu acho aqui da essa mensagem e nao consigo utiliza-los.

Preciso de icones para restaurante.

Agradeço quem puder ajudar
JABA 01/05/2016 19:11:45
#461730
Os icones que você está baixando certamente estão no formato 32 bits. Converta-os para 24 bits, que é o formato do vb6; assim creio que funcionará perfeitamente.

Utilize esse programa para a conversão:
http://icofx.ro/
FBGSYSTEMS 02/05/2016 11:08:01
#461756
Entendi.
Consegui aqui mas ficou bem pequeno.
Agora pensei em fazer um array de botoes pois assim ficou bem feio e quase imperceptivel
FBGSYSTEMS 03/05/2016 12:05:51
#461806
Resolvi usando um array de command button e combinei com picture box.. vamos testar e ver se da certo.. Obrigado JABA pela ajuda, mas realmente ficaria inviavel fazer assim.

Abs

Fica a forma que fiz se servir pra alguem
Do While Not dsgrupo.EOF
    Load Command1(i)
    Load Picture1(i)
    
    If i Mod 4 = 0 Then
        Command1(i).Top = Command1(i - 1).Top + Command1(i - 1).Height + 100
        Command1(i).Left = Command1(i).Left
    Else
        
        Command1(i).Top = Command1(i - 1).Top [ô]+ Command1(i - 1).Height + 100
        Command1(i).Left = Command1(i - 1).Left + Command1(i - 1).Width + 75
    End If
    
    Command1(i).Visible = True
    Command1(i).Caption = dsgrupo!CODIGO
    
    i = i + 1
    dsgrupo.MoveNext
Loop
   


For i = 0 To Command1.UBound
    aa = aa + Command1(i).Height
    Command1(i).Tag = Command1(i).Top
    
    Set dsgrupo = New ADODB.Recordset
    dsgrupo.Open [Ô]select * from grupo where codigo=[Ô] & Command1(i).Caption & [Ô][Ô], con, adOpenKeyset, adLockOptimistic
    If Not dsgrupo.EOF Then
        Command1(i).Caption = dsgrupo!Descricao
        If Not IsNull(dsgrupo!caminho_icone) Then
            If Dir$(dsgrupo!caminho_icone) <> [Ô][Ô] Then
            
            
                Picture1(i).Cls
                Picture1(i).Move 0, 0, 1000, 1000
                Picture1(i).Picture = LoadPicture(dsgrupo!caminho_icone)
                Picture1(i).PaintPicture Picture1(i).Picture, 0, 0, 1000, 1000
    
                 Command1(i).Picture = Picture1(i).Image
            

                 
            End If
        End If
    End If
Next
VScroll1.Max = aa / 6
Tópico encerrado , respostas não são mais permitidas
Voltar