Venho trazer um mini aplicativo bom é totalmente inútil só para fazer uma amostra desse tutorial
I bring a mini app is totally useless only good to make a sample of this tutorial
I bring a mini app is totally useless only good to make a sample of this tutorial
- Code:
'CODIGO DO BOTÃO CODE BUTTON
Dim arq As New StreamWriter(Application.StartupPath & "\NOMETXT.txt", False)
arq.WriteLine(RichTextBox1.Text)
arq.Close()
MsgBox("Dados Salvados Com Sucesso", MsgBoxStyle.Information)
- Code:
'CODIGO DO BOTÃO CODE BUTTON
Dim arq As New StreamWriter(Application.StartupPath & "\nome.txt", False) 'Esta linha Tem como objetivo Monstrar o caminho de salvação para onde vai o arquivo text e seu nome lembrando que voce pode mudar a esteção de txt para .bat .CFG
arq.WriteLine(RichTextBox1.Text) '
arq.Close()
MsgBox("Dados Salvados Com Sucesso", MsgBoxStyle.Information)
- Attachments
- textos salve.zip
- You don't have permission to download attachments.
- (95 Kb) Downloaded 0 times