Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Control Windows Center v.2.0 - labelnote.frm

labelnote.frm

Caricato da:
Scarica il programma completo

  1. Dim file As String
  2. Private Sub MenuApri_Click()
  3. file$ = InputBox("Inserire il nome del file da aprire completo di estensione", "Apertura File")
  4. Text1.Text = ""
  5. f = FreeFile
  6. Open file$ For Input As #f
  7. Do While Not EOF(f)
  8. Line Input #f, a$
  9. Text1.Text = Text1.Text + a$ + vbCrLf
  10. Loop
  11. Close f
  12. End Sub
  13.  
  14. Private Sub MenuEsci_Click()
  15. Unload Me
  16. Inizio.Show 1
  17. End Sub
  18.  
  19. Private Sub MenuNuovo_Click()
  20. Text1.Text = ""
  21. End Sub
  22.  
  23. Private Sub MenuSalva_Click()
  24. file$ = InputBox("Inserire il nome del file da salvare completo di estensione", "Salvataggio File")
  25. f = FreeFile
  26. Open file$ For Output As #f
  27. Print #f, Text1.Text
  28. Close #f
  29. End Sub