CONTROLES DE ARRAY NO VB.NET
e ae galera, estou perdendo os (poucos que me restam ) cabelos para resolver essa parada...
no VB6 eu tinha 12 picturebox, 12 textbox e 12 maskEdbox, relativo aos meses do ano, todos com index definidos.
bem, se ao clicar em cada picturex, ativava o referido picture e os textbox para colocar valores, que funcionava assim:
dessa forma, com pouca linha de codigo eu consguia o que queria.
funciona perfeito no VB6, mas estou migrando o sistema para VB.NET e nao tem a opcao de arrays no VB.NET
já fiz a conversao automatica disponivel no VS2008 e só complicou as coisas...
alguem pode me dar uma luz de como fazer isso funcionar no VB.NET???
no VB6 eu tinha 12 picturebox, 12 textbox e 12 maskEdbox, relativo aos meses do ano, todos com index definidos.
bem, se ao clicar em cada picturex, ativava o referido picture e os textbox para colocar valores, que funcionava assim:
Private Sub pctMeses_Click(Index As Integer)
[ô]se estiver selecionado
If pctMeses(Index).BackColor = cCorSelecionada Then
pctMeses(Index).BackColor = cCorNaoSelecionada [ô]deseleciona
txtValorPago(Index).Visible = False [ô]escondendo
txtDiaPagamento(Index).Visible = False [ô]escondendo
Else [ô]senao seleciona
pctMeses(Index).BackColor = cCorSelecionada [ô]deixa ele selecionado
txtValorPago(Index).Visible = True [ô]mostra
txtValorPago(Index).SetFocus [ô]poe o foco no valor
txtDiaPagamento(Index).Visible = True [ô]mostra
If txtDiaPagamento(Index).Text = [Ô] / / [Ô] Then [ô]se estiver vazio
txtDiaPagamento(Index).Text = Format(Now, [Ô]dd/mm/yy[Ô]) [ô]preenche neste formato
End If
End If
End Sub
dessa forma, com pouca linha de codigo eu consguia o que queria.
funciona perfeito no VB6, mas estou migrando o sistema para VB.NET e nao tem a opcao de arrays no VB.NET
já fiz a conversao automatica disponivel no VS2008 e só complicou as coisas...
alguem pode me dar uma luz de como fazer isso funcionar no VB.NET???
Na verdade amigão, o VB.Net não permite o uso de arrays de controles como no VB6.
Um exemplo que encontrei para resolver seu problema foi esse:
http://social.msdn.microsoft.com/forums/pt-BR/vsvbasicpt/thread/f3e946f1-046a-461f-b5b2-784e5d9a4067
Veja se te ajuda !!!
Abraços !!
Um exemplo que encontrei para resolver seu problema foi esse:
http://social.msdn.microsoft.com/forums/pt-BR/vsvbasicpt/thread/f3e946f1-046a-461f-b5b2-784e5d9a4067
Veja se te ajuda !!!
Abraços !!
Tópico encerrado , respostas não são mais permitidas