VB6 ed icone nei file eseguibili

[roby1483]

È possibile inserire più di una icona nei file eseguibili di VB6 di modo da poter scegliere l'icona da associare ai file di quel programma?
Spero di essere stato abbastanza chiaro.

Grazie a tutti .

[matpez]

Si ho capito bene, tu se editi l'icona di un file e clikki sull'exe windows ti da quello specchietto con tutte le icone disponibili.

Il trucco è molto semplice, devi creare un file RESOURSE!

Questo è un particolare file che si aggancia al progetto dove puoi caricarli qls cosa tu voglia, file, icone, immagini, cursori, ecc ecc.

In questa maniera tu puoi per esempio creare i file in runtime (non so magari un file ini precedentemente caricato) e altre belle cosine.

Se tu invece carichi icone e apri il file exe allora vedrai l'elenco delle tue iconcine

Ti allego un file di prova!

PS: se per caso il tuo VB nn trova il file RES allora devi caricarlo come add-ins , io te lo spiego in inglese dato che il mio VB è inglese: Menu Add-Ins -> Add-Ins Manager e qui selezioni Surce Code Control e in basso a destra selezioni Loaded e Load on startup

Fatto!

Dimmi se ti funziona

[roby1483]

Nele aggiunte non ho il source code control, ho una serie di creazioni guidate e poi Barra degli strumenti aggiunte VB6, Component services add-in for vb5.0/6.0, conversione guidata documenti activeX VB6, Debugger T-SQL VB, DTC Framework register, Editor risorse VB6, Gestione modelli VB6, Visual component manager 6.0, Visualizzatore API VB6.

Niente che riguardi il controllo del codice sorgene .

[roby1483]

Altra domandina:
sapete dirmi perchè quando vado a leggere un file con il metodo open NOME_FILE for input as #1 e mi trova il carattere che corrisponde al codice ASCII 26 termina la lettura considerandolo la fine del file?

[matpez]

Conviene che fai un ciclo while per leggere tutto il file

dim nFreeFile as interger

nfreefile=freefile
Open "ciao.txt" for input as #nfreefile
while not eof(nfreefile)
'QUI LEGGI IL FILE
wend
close #nfreefile

[roby1483]

Ho fatto con un while (ho provato anche until) ed EOF come condizione ma sembra che quel carattere lo riconosca come la fine del file e non riesco a spiegarmi il perchè. Se mando in esecuzione passo passo quando arriva alla riga dove c'è quel carattere la legge fino a quel carattere escluso e quando rivaluta la condizione EOF esce dal ciclo.

[matpez]

Prova a leggerlo in binario così:

  
nFreeFile = FreeFile
Open "ciao.txt" For Binary As #nFreeFile
  sFile = Input(LOF(nFreeFile), nFreeFile)
Close #nFreeFile

[roby1483]

Si così funziona, grazie!
Per quanto riguarda il resourse che mi dici?

[matpez]

Prova questa voce: Editor risorse VB6

[roby1483]

La voce è quella ed è proprio quello che cercavo.
Per le icone è semplice ma se volessi inserirci una bitmap o qualsiasi altro file come devo fare poi per utilizzarla all'interno del progetto?

Grazie mille

[matpez]

Se hai l'MSDN cerca questa funzione: LoadResPicture

Altrimenti se nn c'è l'hai ti dico come si usa io

[roby1483]

Si ce l'ho ed ho visto le funzioni LoadResData, LoadResPicture e LoadResString.
Grazie mille per l'aiuto che mi hai dato, spero di poter ricambiare anche se credo sarà impossibile, almeno su VB .

[matpez]

Originariamente inviato da roby1483
Si ce l'ho ed ho visto le funzioni LoadResData, LoadResPicture e LoadResString.
Grazie mille per l'aiuto che mi hai dato, spero di poter ricambiare anche se credo sarà impossibile, almeno su VB .

Prego!

[roby1483]

C'era anche un'altra cosetta che volevo chiederti ma adesso mi è sfuggita di mente. Appena ritorna non esiterò a postare .

EDIT:
Mi è tornata in mente subito dopo aver premuto invia.

Se da un programma VB richiamo il mailto attraverso la ShellExecute c'è modo di mettere in automatico un allegato?
Se con questo metodo non si può ne conosci uno che permetta di farlo?

[matpez]

La ShellExecute nn lancia solo la schermata della mail, infatti nn ha un parametro per farlo!

Ti allego due progetti per sendare le mail con allegati..potresti crearti tu una form!

[matpez]

Hai per caso scritto qlc ?

Perchè ho visto che c'erano due mail in riferimento a questo 3d alle 9.40 e alle 10.20 mi sembra...ma arrivato qui nn c'era nulla di nuovo...

[roby1483]

No non ho scritto niente.
Ho guardato i due progetti ma non me ne funziona nessuno dei due ed uno da addirittura un errore. Adesso non ricordo di preciso e vado di fretta, appena riprovo ti faccio sapere.