Alain
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 02/09/2004 19:54 hs
Fala galera
to montando um programa aki q qdo eu clico nun option button ele roda pelo getsettings todas as opcoes de check box contindas na ultima utilizacao, porem eu to com um pequeno problema, qdo eu mudo do option 1 pro dois o programa naum faz a atualizacao no form, e eu to usando um for pq tenho 30 variaveis de memoria (de 1 a 30) , ai o codigo ficou assim:
code:
Private Sub Option1_Click()
For i = 1 To 30
ac(i) = GetSetting(App.EXEName, "opt1", "ac(i)", 0)
Select Case ac(i)
Case ac(1)
Check1.Value = ac(1)
Case ac(2)
Check2.Value = ac(2)
Case ac(3)
Check3.Value = ac(3)
Case ac(4)
Check4.Value = ac(4)
Case ac(5)
Check5.Value = ac(5)
Case ac(6)
Check6.Value = ac(6)
Case ac(7)
Check7.Value = ac(7)
Case ac(8)
Check8.Value = ac(8)
Case ac(9)
Check9.Value = ac(9)
Case ac(10)
Check10.Value = ac(10)
Case ac(11)
Check11.Value = ac(11)
Case ac(12)
Check12.Value = ac(12)
Case ac(13)
Check13.Value = ac(13)
Case ac(14)
Check14.Value = ac(14)
Case ac(15)
Check15.Value = ac(15)
Case ac(16)
Check16.Value = ac(16)
Case ac(17)
Check17.Value = ac(17)
Case ac(18)
Check18.Value = ac(18)
Case ac(19)
Check19.Value = ac(19)
Case ac(19)
Check19.Value = ac(19)
Case ac(20)
Check20.Value = ac(20)
Case ac(21)
Check21.Value = ac(21)
Case ac(22)
Check22.Value = ac(22)
Case ac(23)
Check23.Value = ac(23)
Case ac(24)
Check24.Value = ac(24)
Case ac(25)
Check25.Value = ac(25)
Case ac(26)
Check26.Value = ac(26)
Case ac(27)
Check27.Value = ac(27)
Case ac(28)
Check28.Value = ac(28)
Case ac(29)
Check29.Value = ac(29)
Case ac(30)
Check30.Value = ac(30)
End Select
Next
End Sub
o option2 eh igual so q inves de ac eh bc, vlww
[]'s
Burn Killer
|
|
|
|
|
|
|
|
Postada em 03/09/2004 00:07 hs
Com toda a certeza dentro dos cheksbox vc realiza algum processamento, que pode fazer com que a variavel I fique "suja" ou interrompa o processamento. T+ |
|
|
|
|
|
Postada em 03/09/2004 14:31 hs
eu tenho q fazer uma alteracao no form principal e depois faco um save settings , tipo assiim Private Sub Check1_Click()
If Check1.Value = 1 Then
Form2.Text1.Visible = True
Form2.Text2.Visible = True
Form2.Text3.Visible = True
Else
Form2.Text1.Visible = False
Form2.Text2.Visible = False
Form2.Text3.Visible = False
End If
If Option1 = True Then
SaveSetting App.EXEName, "opt1", "1", Me.Check1.Value
End If
If Option2 = True Then
SaveSetting App.EXEName, "opt2", "1", Me.Check1.Value
End If |
|
|
|
|
|
Postada em 03/09/2004 22:01 hs
Vc tem que fazer esse salvamento na hora? Vc não pode por exemplo fazer isso na hora da pessoa por exemplo fechar o form? que acho até que é mais logico, pense o seguinte, seu form tem 40 opções, a pessoa clica em um, salvou... dai ela pensa, ah... escolhi errado, muda, vc vai la e salva, e vai nisso até ela se dar por satisfeita... Quando se fosse na hora de fechar o form, ele faria apenas um processamento, do começo ao fim das opções e pronto.... Tente mudar esse critério e veja se o erro persiste. T+ |
|
|
|
|
