USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  cmd & pictures :S
Dilies
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 25/11/2005 09:25 hs            
Estou com um projeto parado pois ainda me faltam muitas informações eu preciso de + muito + ...... bom um dos problemas eh q eu não consigo colocar uma figura em um botão , pois tenho alguns options e se esses options forem clicados aparece automaticamente um "X" (figura) no botão e se for trocado uma das options o "X" (figura) muda de lugar !
Como eu posso fazer isso ?
 
Obrigado
 
   
Joseph
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 25/11/2005 14:00 hs            
Amigo Dilies,
 
Para colocar uma figura em um CommandButton, vc deve configurar sua propriendade
'Style' assim: [ Style = 1 - Graphical ].
 
 
Joseph
Técnico em Informática/Programador
São Paulo/SP
 
 
   
Dilies
não registrado
ENUNCIADA !
Postada em 25/11/2005 14:13 hs   
Então isso sei.... o que eu preciso é o seguinte: tenho 4 opt em uma frame e 3 opt em outra frame sendo q vc escolhe 1 opt de cada frame e assim q se eh clicado aparece a figura no cmd, q por sinal formam uma matrix de 4x3 com cmd, então se derrepente o usuario na mesma tela clicar em outro opt de qq uma das frames o "X" ( figura ) muda de quadrado.
 
Me desculpe pelas abreviações é que aki esta um pouco corrido.....
 
   
Joseph
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 25/11/2005 14:44 hs            
Dilies, tente o seguinte código (se é que eu entendi seu problema):
 
---------------------------------------------------------------------------------
Private Sub opt_Click(Index As Integer)
      Dim i As Integer
      For i = 0 To opt.UBound
             If (i = Index) Then
                   cmd(i).Picture = LoadPicture("arq. figura")
             Else
                   cmd(i).Picture = LoadPicture("")
             End If
      Next i
End Sub
---------------------------------------------------------------------------------
 
 
Joseph
Técnico em Informática/Programador
São Paulo/SP
 
 
 
   
Joseph
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 25/11/2005 14:57 hs            
Dilies, tente esse outro código, que deve ser usado com dois grupos de 'Options' e dois grupos de 'CommandButtons':
 
---------------------------------------------------------------------------------
Private Sub opts1_Click(Index As Integer)
    Dim i As Integer
    For i = 0 To opts1.UBound
         If (i = Index) Then
             cmds1(i).Picture = LoadPicture("arq. figura")
         Else
             cmds1(i).Picture = LoadPicture("")
         End If
    Next i
End Sub

Private Sub opts2_Click(Index As Integer)
    Dim i As Integer
    For i = 0 To opts2.UBound
         If (i = Index) Then
             cmds2(i).Picture = LoadPicture("arq. figura")
         Else
             cmds2(i).Picture = LoadPicture("")
         End If
    Next i
End Sub
---------------------------------------------------------------------------------
 
 
Joseph
Técnico em Informática/Programador
São Paulo/SP
   
Dilies
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/11/2005 08:43 hs            
Olá Joseph,
 
Estou tentando usar esse codigo mas me confundi um pouco.... masdei pra vc um e-mail com anexo.... me desculpe pela ousadia e insistencia.....
 
obrigado
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página