Visual Basic 2008
o trial é de apenas 30 dias se quiser continuar criando programas registre-se.
Botão no menu, nova janela:
Dim f As New Form1
f.Show()
Botão no menu, Sair:
End
Botão no menu Configurar Página:
WebBrowser1.ShowPageSetupDialog()
Botão no menu,Visualizar Impressão:
WebBrowser1.ShowPrintPreviewDialog()
Botão no menu, imprimir:
WebBrowser1.ShowPrintDialog()
Botão no menu, Propriedades:
WebBrowser1.ShowPropertiesDialog()
Botão no menu, Desfazer:
WebBrowser1.Document.ExecCommand("Undo", False, vbNull)
Botão no menu, Refazer:
WebBrowser1.Document.ExecCommand("Redo", False, vbNull)
Botão no menu, Recortar:
WebBrowser1.Document.ExecCommand("Cut", False, vbNull)
Botão no menu, Copiar:
WebBrowser1.Document.ExecCommand("Copy", False, vbNull)
Botão no menu, Colar:
WebBrowser1.Document.ExecCommand("Paste", False, vbNull)
Botão no menu, Selecionar Tudo:
WebBrowser1.Document.ExecCommand("SelectAll", True, vbNull)
Botão no menu, Voltar:
WebBrowser1.GoBack()
Botão no menu, Avançar:
WebBrowser1.GoForward()
Botão no menu, Atualizar:
WebBrowser1.Refresh()
Botão no menu, Parar:
WebBrowser1.Stop()
Botão no menu, Ir:
WebBrowser1.Navigate(TextBox1.Text)
Botão no menu, Página Inicial:
WebBrowser1.GoHome()
Botão no menu, About US (Sobre Nós):
msgbox ("insira algo aqui.")
Como adicionar os códigos aos seus botoes?
Olhe na lista acima o código, copie, agora clique duas vezes no botão do seu código, uma lista vai aparecer cole-o lá!
faça isso em todos os botoes..
!
Nenhum comentário:
Postar um comentário
Observação: somente um membro deste blog pode postar um comentário.