MUDAR COM EM TEMPO DE EXECU?ÃO E PERMANECER?
Boa pessao!
Seguinte, estou tentando fazer uma coisa, mudar a cor dos textbox dos meus forms, mais ai, eu consigo:
Public Sub CorTextBox(FormX As Form, Cor As Integer)
Dim i As Integer
For i = 0 To FormX.Controls.Count - 1
If TypeOf FormX.Controls(i) Is TextBox Then
With FormX.Controls(i)
Select Case Cor
Case 0
.BackColor = 6197759
Case 1
.BackColor = vbWhite
End Select
End With
End If
Next
só que, quero saber como deixar essa escolha permanente?? como se fosse em tempo de desenho???
Valeu
Jeorbeth
Seguinte, estou tentando fazer uma coisa, mudar a cor dos textbox dos meus forms, mais ai, eu consigo:
Public Sub CorTextBox(FormX As Form, Cor As Integer)
Dim i As Integer
For i = 0 To FormX.Controls.Count - 1
If TypeOf FormX.Controls(i) Is TextBox Then
With FormX.Controls(i)
Select Case Cor
Case 0
.BackColor = 6197759
Case 1
.BackColor = vbWhite
End Select
End With
End If
Next
só que, quero saber como deixar essa escolha permanente?? como se fosse em tempo de desenho???
Valeu
Jeorbeth
JOERBETH,
Uma idéia para deixar isso permanente sugiro gravar de alguma forma em algum lugar.
Exemplos (não sei qual é o melhor):
- Gravar em um arquivo [Ô].XML[Ô] ou [Ô].TXT[Ô];
- Gravar no Registry;
- Gravar no Banco de Dados;
Dai quando você iniciar seu sistema, pode verificar se existe o arquivo ou a informação e se existir adotar aquele comportamento.
[][ô]s,
Tunusat.
Uma idéia para deixar isso permanente sugiro gravar de alguma forma em algum lugar.
Exemplos (não sei qual é o melhor):
- Gravar em um arquivo [Ô].XML[Ô] ou [Ô].TXT[Ô];
- Gravar no Registry;
- Gravar no Banco de Dados;
Dai quando você iniciar seu sistema, pode verificar se existe o arquivo ou a informação e se existir adotar aquele comportamento.
[][ô]s,
Tunusat.
boa, coloquei em um INI
valeu
valeu
Tópico encerrado , respostas não são mais permitidas