106
Programmazione (Gambas 2) / Re: Splash Screen
« il: 02 Novembre 2010, 16:49:18 »
come faccio a nasconderlo e a renderlo form di avvio?
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Screen 0: minimum 320 x 175, current 1280 x 800, maximum 1280 x 800
default connected 1280x800+0+0 0mm x 0mm
1280x800 50.0*
1024x768 51.0 52.0
840x525 53.0
832x624 54.0
800x600 55.0 56.0 57.0 58.0 59.0
800x512 60.0
720x450 61.0
720x400 62.0
700x525 63.0
680x384 64.0 65.0
640x512 66.0 67.0
640x480 68.0 69.0 70.0 71.0 72.0
640x400 73.0
640x350 74.0
576x432 75.0 76.0 77.0 78.0 79.0 80.0
512x384 81.0 82.0 83.0 84.0 85.0
416x312 86.0
400x300 87.0 88.0 89.0 90.0 91.0
360x200 92.0
320x240 93.0 94.0 95.0 96.0
320x200 97.0
320x175 98.0
hai fatto un loop infinito, il programma non si blocca perchè legge sempre la stesa rigainstr? Come si usa?
count = 4CitazioneSe utilizzo la funzione replace con parametri " ", "" per rimuovere gli spazi, essa me li rimuove tutti, come giusto che sia! Io vorrei che mi rimuovesse solo 3 spazi, è possibile?dovresti fare un lop e contare le cancellazioni però senza utilizzare replace ma ad esempio instr per trovare la posizione dello spazio e mid,left,righ per prelevare ciò che ti serve, oppure fare un altro split con carattere " " come separatore , dipende da cosa devi ottenere e dove devi metterlo
ps: ma che file stai cecando di manipolare?
DIM stringa, risultato AS String
DIM righe AS NEW string[]
DIM count AS Integer
count = 4
stringa = File.Load("~/lista")
righe = Split(stringa, "\n")
risultato = Replace(righe[count], " ", "")
ComboBox1.Text = risultato
IF righe[count] = ""
PRINT "vado avanti"
ELSE
count = count + 1
Button1_Click()
ENDIF
ciao come va?
io sono Mefrio ...
File.Save(User.Home & "prova", TextArea1.Text)