CONCATENAR CHECKBOX

USUARIO.EXCLUIDOS 20/04/2007 14:29:28
#213011
Olá,
gostaria de saber se tem como "concatenar" strings, de forma que o valor concatenado possa ser usado para uma checkbox, por exemplo.

Exemplo:

dim b as integer
for b=1 to 10
"check" & b & ".value=1" 'esse comando não existe,gostaria de 'saber um que me ajuaria nessa situação. Eu quero atribuir o valor 'através das strings em número inteiro.
next b


quem puder me ajudar

desde já eu agradeço

abraços
DANIELCPAETE 20/04/2007 14:36:56
#213016
bom cara o que você poderia fazer é um array de checkbox

tipo crie todas as checks com o mesmo nome e cada uma com sue index tipo

check(1) check(2) check(3)

ai na hora de verificar seria

for b = 1 to 10

check(b).value = 1
next
USUARIO.EXCLUIDOS 20/04/2007 14:49:03
#213026
é verdade^^
hAUaHuAhaUaHuAhuA

eu estava tão ancioso com este programa que nem lembrei disso^^
hAUAHUAHuahua

vou testar!!
USUARIO.EXCLUIDOS 23/04/2007 12:11:27
#213337
desculpe me,mas não irá funcionar essa idéia, devido ao fato de eu usar letras como index, eu usaria dois index,ou um, mas teria que mudar todo o sistema!
você tem certeza que não existe nenhum método de fazer com que a string "check" & b & ".value=1" vire objeto??

bom, desde já eu agradeço

abraços
DANIELCPAETE 23/04/2007 14:24:47
#213371
bom Até existe como você pode percorrer os controles do form


Private Sub Command1_Click()
  Dim Controle As Control
  
  For Each Controle In Form1
    If TypeOf Controle Is CheckBox Then
      If Controle.Caption = "CheckA" Then
        Controle.Value = 1
      End If
    End If
  Next
End Sub
DANIELCPAETE 23/04/2007 14:28:17
#213376
ou ainda existe esta outra maneira que eu usava para VBA do excel pois o mesmo não possui Index

Private Sub Command1_Click()
  Dim Controle As Variant
  Dim X As Integer
  
  Controle = Array(Check1, Check2, Check3)
  For X = 0 To UBound(Controle)
    MsgBox Controle(X).Caption
  Next
  
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar