Criptatore di file

[vuott]

Dopo aver avuto altre esperienze di programmazione (linguaggio macchina, C, HTML ed altro) mio fratello si è avvicinato da poco anche a GAMBAS. Ha realizzato in breve tempo questo Criptatore di file, e mi ha chiesto di presentarlo a questa Comunità, non essendovi iscritto.
In ultimo c'è il sorgente. Provatelo.  

[alcresio]

Sulla mia Debian squeeze kernel 2.6.39-bpo.2-amd64 funziona alla perfezione...
non capisco però una cosa, i componenti hanno H e W minuscolissimi in proporzione alla finestra...  :

Ora fai inscrivere tuo fratello a questo forum sempre poco frequentato... c'è bisogno di materie grigie!  

EDIT:

Ho trovato un bachetto...
dalla riga 53 riporta il seguente codice:

Select Case fileExt
'  ------------------------- se file immagine
  Case "jpg", "jpeg", "png", "bmp", "gif", "xpm", "tif"
  TextArea1.Visible = False
  TextArea2.Visible = False

se fileExt fosse "Jpg" il codice cannerebbe...

l'ho corretto come segue:

Select Case lcase(fileExt)
'  ------------------------- se file immagine
  Case "jpg", "jpeg", "png", "bmp", "gif", "xpm", "tif"
  TextArea1.Visible = False
  TextArea2.Visible = False

così funzia!

[vuott]

EDIT:

Ho trovato un bachetto...

Bene, grazie.
Avendo il sorgente, ho effettuato io stesso la piccola aggiunta.

Allego il nuovo sorgente con la modifica da te suggerita.