VB6DeveloperJr

Kuroi, andei testando essa forma de validação para alterações no Formulário utlizando arrays, porém tive certos problemas no momento de alterar a propriedade via código de determinados TextBox, Por exemplo: Option Explicit Dim txtRazaoSocial As TextBox Dim txtEndereco As TextBox Dim txtFone As TextBox Private Sub Form_Load() Set txtRazaoSocial = txtDadosPrincipais(0) Set txtEndereco = txtDadosPrincipais(1) Set txtFone = txtDadosPrincipais(2) End Sub Private Sub txtDadosPrincipais_KeyPress(Index As Integer, KeyAscii As Integer) --> If txtFone Then If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> vbKeyBack Then KeyAscii = 0 End If End If End Sub Como eu faço para identificar qual index do array estou trabalhando? porque com essa sintaxe aparece erro!

Ok, deu certo, pelo visto esta é a única maneira de resolver o problema para alteração no Formulário.

Private Sub Form_Load() Dim txtNome As TextBox Dim txtRazaoSocial As TextBox Dim txtEndereco As TextBox Set txtNome = txtDadosPrincipais(0) Set txtRazaoSocial = txtDadosPrincipais(1) Set txtEndereco = txtDadosPrincipais(2) End Sub é uma boa ideia essa, mas no meu caso eu teria que usar essas variaveis como publica então, porque o TxtNome só existe dentro dessa Sub, caso eu queira mudar alguma propriedade dele teria que identifica-lo como o Array txtDadosPrincipais(0).

Expliquei errado, interação com banco de dados que eu digo, é que o conteudo destes TextBox eu utilizo para inserir no Banco de Dados, ficaria muito complicado para identificação dos TextBox.

Certo, é uma boa idéia essa de criar Array, mas não é muito aconselhavel para o meu sistema porque pelo que parece o VB6 só aceita Index de array como Integer, daria mais trabalho para a manutenção, principalmente eu q uso interaçao com Banco de Dados, vamos ter que continuar procurando uma solução para isso!

Boa Tarde, Estou com um problema, gostária de fazer uma função parecida com a do Word, Notepad: Quando o formulário é fechado o sistema verifica se algum campo foi alterado e abre uma mensagem para saber se o usuário pretende mesmo fechar sem salvar, caso nada tenha sido alterado o Formulario é fechado sem mensagem alguma. Eu encontrei uma forma, criando uma variavel Booleana pública, e em todo evento Change dos TextBox, ComboBox e CheckBox, a variavel recebia Tue, sendo assim no momento de fechar o Form é feito uma verificação dessa variavel. Porém creio eu q exista outra maneira de se obter o mesmo resultado sem precisar abrir o evento Change de mais de 20 controles do Formulario. Caso alguém saiba, favor me ajudar!!!

Jonathan, Obrigado pela atenção mais uma vez, vou ser mais especifico dessa vez eu tenho uma variável inteira com o valor 2 correspondente ao dia da semana. Agora no sistema eu preciso calcular com base na data de hoje qual foi a ultima segunda feira, algo que me retorne um Date.

Pessoal, Boa Tarde... Estou com a seguinte duvida, tenho o valor da semana por exemplo: 2(Segunda-Feira) e gostaria de retornar a data corrente da semana, por exemplo: 22/06/2009. Enfim, alguém tem alguma ideia de como posso fazer isso? Obrigado

Obrigado Jonathan!!! Era exatamente isso que precisava.

Jonathan, Com esta função o retorno é em Inteiro, Segunda = 2, eu precisaria do nome da semana em string!

Bom Dia, Estou precisando encontrar uma função em VB6 que receba uma data dd/mm/yyyy e retorne o nome do dia da semana por exemplo: Segunda Alguém poderia me ajudar com isso? Obrigado!

Olá, gostária de saber se existe uma forma de calcular o tamanho do TextBox pelo tamando da String, em tempo de execução seria +/- isso: txtNome.Height = CInt(Len(txtnome)) alguém sabe uma maneira de se fazer isso?

Bom se eu entendi sua pergunta é o seguinte: Voce nas propriedades do text tem a opção Multiline, deixe ela em True e no Alignment deixa na opção 1- Right Justify. E veja se é isso que voce deseja. qualquer coisa posta ae denovo. é acho que elaborei mal a pergunta...eu gostaria somente de fazer um text em formato de caixa eletronico...tem um exemplo neste site da Caixa no campo "Qual é o valor aproxima do imovel" http://www8.caixa.gov.br/siopiinternet/sim...cializarCasoUso Entendeu? Obrigado.

Ola, é muito simples criar mascara para formato moeda mas eu não quero usar o MaskedEdit do VB6, e costumo fazer as mascaras em linhas de codigos no textbox mesmo no evento KeyPress Gostaria de uma ajuda para criar uma mascara estilo Caixa Eletronico, da direita para a esquerda, para o resultado ser esse: 1 1,2 1,23 12,34 Se alguém souber me da uma força! Obrigado.

Bom Dia Pesssoal, Estou com um problema na minha aplicação pois quero utilizar uma Skin para dar uma apresentação melhor ao sistema feito em VB6. Encontrei a ferramenta VBSkinner, porém ela tem um icone de ? (Ajuda) em todas as janelas que abre uma pop-up informando sobre o site do VBSkinner, isso não ficaria legal para os usuarios visualizarem. Minha questão é...alguém que já usou o VBSkinner conseguiu resolver este problema? seria possível eu tirar o botao (?) da barra de titulo? ou é possível entrar no arquivo OCX para mudar isso? Obrigado!