BackSpace

É Bem fácil fazer o negocio ali dos textbox.. Pra você fazer ela ficar de uma cor e trocar, é só utilizar a propriedade BackColor E para determinar quando essa textbox deve mudar de cor, utilize os Events.. O código básico para a alteração da cor de fundo é TextBox1.BackColor = Color.COR Agora, para definir quando isso deve acontecer, abra a guia Events, que fica do lado de Propriedades.. Eu recomendo usar o evento Focus Leave. Vai ficar mais ou menos assim: Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave TextBox1.BackColor = Color.Red End Sub Então, o código final para fazer o que você quer seria assim: 'TextBox cor branca, é a padrão, então não necessita de código.' 'Aqui você define que enquanto o foco estiver na textbox, ela fique amarela.' Private Sub TextBox1_Enter(sender As Object, e As EventArgs) Handles TextBox1.Enter TextBox1.BackColor = Color.Yellow End Sub 'Aqui você define que quando o foco sair da textbox, ela fique verde.' Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave TextBox1.BackColor = Color.Green End Sub Se não entendeu alguma coisa, fala ae.. Abrçs...

Eu acho que tem um jeito mais facil.. No vb, você não pode fechar o formulário inicial, se não o projeto se fecha. Então cria um formulario vazio e coloca a propriedade Visible = False, então, no Form_Load deste form vazio, coloca: Me.Visible = False Form2.Show Sendo assim, você vai ter apenas o formulario q você quer aberto.. então, quando quiser abrir o outro, já pode dar close no primeiro.. ficou meio confuso.. mas olha o exemplo abaixo 'Você tem 2 formularios, por exemplo, um de download e outro de upload' 'Form1 = Download' 'Form2 = Upload' 'Então acrescente um form e torne ele o form principal, no caso será o Form3' 'No load do form3, coloque:' Me.Visible = False Form1.Show 'Agora, qnd vc abrir o programa, ele vai abrir o form3, mas como o form3 ta invisivel e seu codigo chama o form1 direto, vc vai ver somente o form de download' 'então, qnd vc quiser abrir o de upload e fechar o de download, é so usar:' Form1.Close Form2.Show Se não entender, responde aqui que eu te mando um projeto de exemplo.. Abrçs

Na verdade, no VB.Net é diferente.. Nele você tem que tirar a cor de fundo e as bordas.. Recomendo colocar uma label sem fundo, e colocar o código do botão na label.. talvez fique melhor..

Muito bom. Parabéns pela ideia... Gostei muito do site.

Vou dar uma olhada.. Já já eu edito aqui... @EDIT: O site ta muito bom, não sou expert em web, então, ao olhar de um "amador" está realmente muito bom.. Não achei algum tipo de bug ou algo do tipo, fora que a imagem de "Suporte Offline" está por cima do botão de "Topo", ou seja, não da pra clicar ali.. Fora isso, ta muito bom... Nota 10 :D

Também poderia ser fácil usar o método do "SuporteHSL", de salvar tudo em um TXT, com um timer por exemplo, e então fazer upload para algum diretório FTP, assim você pode visualizar o arquivo pela web. Tem vários métodos de fazer upload silencioso, sem nenhum dialogo, e para salvar o TXT, salve em uma pasta que poucas pessoas acessam e que não precise de permissões, por exemplo na pasta Roaming. Se precisar de ajuda, pode chamar.. falou

Suponho que você já tenha algum código para salvar seu texto, então só modifique este. Caso queira colocar em um botão só: If Not My.Computer.FileExists("Local do arquivo\arquivo.txt") Then 'Abre um SaveFileDialog para salvar um novo arquivo' ElseIf Mt.Computer.FileExists("Local do arquivo\arquivo.txt") Then 'Apenas salva o arquivo' End If Caso queira colocar em botões diferentes: 'Botão SALVAR' If Not My.Computer.FileExists("Local do arquivo\arquivo.txt") Then If SaveFileDialog.ShowDialog() = DialogResult.OK Then 'Salva seu arquivo' End If Else 'Salva seu arquivo' End If 'Botão Salvar Como' If SaveFileDialog.ShowDialog() = DialogResult.OK Then 'Salva seu arquivo' End If Testa e me diz o que aconteceu por que to sem o VB aqui e não tenho como testar... Abrçs...

Tenta fazer diferente.. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick If My.Computer.Keyboard.AltKeyDown Then AxWindowsMediaPlayer1.Ctlcontrols.play() Elseif My.Computer.Keyboard.Outra Key Then AxWindowsMediaPlayer1.Ctlcontrols.stop() End If End Sub Talvez funcione..