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
|
|
|