Tudo certo, pessoal?
Pessoal me dá uma força esta tendo um erro (escrito no titulo), e linha do erro esta em vermelha. Mas é engraçado eu, modifiquei de outro codigo mantendo a estrutura.
Abaixo estao o codigo com erro (que modifiquei), e o codigo original, respectivamente.
Valeu.
*****
CODIGO COM ERRO
Do While i <= CByte(Tx(0))
Do While j <= CByte(Tx(1))
If Img(0).Visible = False Then
'estabeleço a posição original, e depois deixo Visible=false
Lblc(i & j).Top = 2880 - ((i - 1) * rl)
Lblc(i & j).Left = 7560 - ((j - 1) * c)
Lblc(i & j).Visible = False
Txtb(i & j).Top = 2880 - ((i - 1) * rl)
Txtb(i & j).Left = 4440 - ((j - 1) * rc)
'Pois se alguma vez entrou na opçao da inversa, nao compensa
'usar If pois é apenas um comando (Enable), gastará 2 Tempo
'de execuçao o do IF e o do próprio comando.
Txtb(i & j).Enabled = True
Txtb(i & j).Visible = False
'p/ a k x [ ] teria de nao entra nas txta's. Tecnica acima
' usar o if opt(3).value=false then
If Opt(3).Value = False Then
Txta(i & j).Top = 2880 - ((i - 1) * rl)
Txta(i & j).Left = 240 - ((j - 1) * rc)
Txta(i & j).Visible = False
End If
Else
Lblc(i & j).Visible = True
Lblc(i & j).Top = 2880 + ((i - 1) * rl)
Lblc(i & j).Left = 7560 + ((j - 1) * c)
'P/ a Inversa tenho que exibir os elementos Txtb's normalmen
'te como as outras opcoes, porem apenas p/ exibir o valor da
'resposta que será aqui. Nao posso deixar o usuario digitar
'nada. Usando a opçao IF Opt(4).Value=True Then
Txtb(i & j).Visible = True
Txtb(i & j).Top = 2880 + ((i - 1) * rl)
Txtb(i & j).Left = 4440 + ((j - 1) * rc)
If Opt(4).Value = True Then
Txtb(i & j).Enabled = False
End
'p/ a k x [ ] teria de nao entra nas txta's
'Usar o if opt(3).value=true then
If Opt(3).Value = False Then
Txta(i & j).Visible = True
Txta(i & j).Top = 2880 + ((i - 1) * rl)
Txta(i & j).Left = 240 + ((j - 1) * rc)
End If
End If
j = j + 1
Loop 'AQUI
j = 1
i = i + 1
Loop
********
AGORA O CODIGO ORIGINAL:
Do While i <= CByte(Tx(0))
Do While j <= CByte(Tx(1))
Lblc(i & j).Visible = True
Lblc(i & j).Top = 2880 + ((i - 1) * rl)
Lblc(i & j).Left = 7560 + ((j - 1) * c)
'p/ a inversa teria de nao entra nas txtb's
' usar o if opt(4).value=true then
Txtb(i & j).Visible = True
Txtb(i & j).Top = 2880 + ((i - 1) * rl)
Txtb(i & j).Left = 4440 + ((j - 1) * rc)
'p/ a k x [ ] teria de nao entra nas txta's
' usar o if opt(3).value=true then
Txta(i & j).Visible = True
Txta(i & j).Top = 2880 + ((i - 1) * rl)
Txta(i & j).Left = 240 + ((j - 1) * rc)
j = j + 1
Loop
j = 1
i = i + 1
Loop
