mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Aprire un file col programma predefinito

Credo sia banale ma lo chiedo lo stesso.
Come si fa ad aprire un file con il programma predefinito dal codice di
visual basic. Tipo apro una bmp e si apre con lo stesso programma con cui si
aprirebbe se lo aprissi con gestione risorse.
Shell serve solo ad eseguire eseguibili vero?



Non ne sono sicuro, ma penso che ci siano delle chiavi del registro di
sistema proprio per questo. Basta quindi andare in lettura nel registro
per trovare l'estensione e il percorso del programma associato. Userai
poi shell per avviare il programma relativo.
io l'ho trovato sotto HKEY_CLASSES_ROOT:
c'è l'estensione che ha il valore predefinito che linka al tipo di file
(associazione), e se esamini quest'ultimo sotto il ramo
\shell\open\command trovi come valore predefinito la riga di comando per
avviare il programma (esecuzione).
Ciao!
Davide
-- 
Volontario Anti-Troll (TM) 
SecurFaq: 
http://members.nbci.com/gouldukat/
DocTrolls: 
http://it.geocities.com/roccopapaleo/faq/italiano/Troll.html
Netiquette: 
http://www.inferentia.it/netiquette/dis.html

 poi shell per avviare il programma relativo.
shell "start " & nomefile

 Shell serve solo ad eseguire eseguibili vero?
si
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #26 delle Mitiche Brigate Takahashi sezione Sud

 ha scritto nel messaggio
news:9mj17t$1098u$1...@news02.it.net...



Che sistema operativo usi?
Per vedere se hai commeso qualche errore su VB,
crea un semplice file di testo in c:\ e lo chiami pippo.txt
poi prova scrivendo da riga di comando:
start c:\pippo.txt

 visual basic.
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
    ShellExecute Me.hwnd, "Open", NomeFileCompleto, vbNullString, CurDir, 1
End Sub

 ha scritto nel messaggio
news:9mj4bb$10aju$1...@news02.it.net...


Grazie a tutti per l'aiuto, siete dei fenomeni.

 Se hai qualche suggerimento migliore aspetto....
Se dovessi far girare il programma sia su Win98 che su WinNT e Win2000
farei una funzione per ricavare la versione del sistema operativo
(che può sempre tornare utile) e, a seconda del sistema lancerei:
"WIN95", "WIN98"
    shell "start " & nomefile
"WIN2000", "WINNT"
    shell "CMD /C start " & nomefile
Sul Sito comune ci dovrebbe essere tale funzione (credo sia in
VerSisOp.zip).

Newsgroup: it.comp.lang.visual-basic
Titolo: Registri di Windows

Esiste un settaggio dei registri di Windows che permetta di bloccare il
mouse,o farlo scomparire.


Nel registry non credo.
Ci sono delle funzioni API (ClipCursor e ShowCursor).
Se ti servono maggiori informazioni, chiedi pure.
--
Roal Zanazzi
z...@iol.it


Esistono delle API che fanno quel lavoro, se le vuoi fammelo sapere...
Ciao
Maurizo
Newsgroup: it.comp.lang.visual-basic
Titolo: Transazioni

VB6 - SP1 ADO con Jet:
Con DAO, sfruttando i WorkSpace era possibile fare delle transazioni
indipendenti:
Secondo voi è possibile fare delle transazioni indipendenti tramite l'ogg.
Connection di ADO  ??
Esempio:
Apro il form di modifica del Cliente avviando una transazione che si
concluderà con Commit o RollBack a seconda del tasto che premo (OK o
annulla).
Se pero', mentre sono all'interno del form, voglio aggiungere una città alla
lista delle città presenti nella combo, e la confermo... poi non voglio
salvare le modifiche del cliente e clicco su annulla, logicamente mi annulla
anche la città aggiunta.
Devo forse fare una connessione nuova,nuova  completamente staccata da
quella principale dell'applicazione ??
Ciao,
Riccardo Guirrini
Web :          
http://space.tin.it/computer/rguirrin
E-Mail:         
del...@tin.it

 wrote in message
news:7f4d94$8cs$1...@nslave1.tin.it...
| .......
| Esempio:
|
| Apro il form di modifica del Cliente avviando una transazione che si
| concluderà con Commit o RollBack a seconda del tasto che premo (OK o
| annulla).
| Se pero', mentre sono all'interno del form, voglio aggiungere una città
alla
| lista delle città presenti nella combo, e la confermo... poi non voglio
| salvare le modifiche del cliente e clicco su annulla, logicamente mi
annulla
| anche la città aggiunta.
e questo è normale quando sei sotto transazione;
|
| Devo forse fare una connessione nuova,nuova  completamente staccata da
| quella principale dell'applicazione ??
Beh il discorso è semplice: devi gestire tu a mano le insert/update/delete
facendo commit o rollback quando ti serve.
Ad esempio quando fai una query metti poi a video il risultato della query,
l'utente si accinge a modificare e fin qui non sei ancora sotto transazione;
se intanto viene aggiornata una tabella secondaria puoi aprire la
transazione, fare l'update/insert, e poi commit. Quando l'utente aggiornerà
la maschera principale allora nuova transazione, update e commit (o nulla se
l'utente fa annulla)

Ok, grazie. Ma la mia domanda non era quella.
Volevo sapere SE si possono gestire transazione INDIPENDENTI con ADO.
Ripeto, con DAO si puo', ed è logico poterle gestire.
Con ADO, dicendo che hanno voluto "semplificare" la struttura, rendendola
meno gerarchica, hanno tolto tante cose, fra cui i WorkSpace che, in questo
caso, erano utili.
Grazie comunque,


Newsgroup: it.comp.lang.visual-basic
Titolo: Retrieving OS parameters specific to processes

Hi,
I have to write an application that moniters a particular process, say
notepad.exe, and kill it if its CPU usage is > 90% for 15 sec or more.
The other instances of notepad should not be killed. we should kill
only that process which is consuming the CPU more.
I could not get the CPU usage pertaining to a particular process
id(pid)
suppose: there are 10 instances of notepad.exe, (pid ranging from 220
to 229), and the instance with pid=225 is consuming the maximum CPU, I
have to kill pid 225.
How can I calculate the CPU usage based on PID?
Please help.
Thanks,
Rao,
TCS.

 Thanks,
Bye
Ric
Newsgroup: it.comp.lang.visual-basic
Titolo: Run a stor proc and compile error:Type mismatch

 End Sub

 wrote in message
news:42a43c0e.03081...@posting.google.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: controllo data e access 2000

ho il grosso problema di usare il dbgrid associato ad un controllo DATA che
deve essere collegato a un db access 2000
premetto che nei riferimenti
ho usato DAO 3.6 Library e che a livello di connessione e apertura
recordset è tutto a posto ....
ma con il controllo DATA continua a darmi
Formato del database non riconosciuto 
qualcuno ha qualche dritta???
grazie in anticipo
--------------------------------
Inviato via 
http://usenet.iol.it

 ha scritto nel messaggio
news:195Z7Z19Z10Y10...@usenet.iol.it...


 ha scritto nel messaggio
news:195Z7Z19Z10Y10...@usenet.iol.it...


gestite i vostri progetti con la Project Zone!
--------------------------------
Inviato via 
http://usenet.iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 + Word

Un mio programma...giunto all'istruzione:
  objDoc.SaveAs App.Path & "\" & nomeFile 
mi da il seguente errore:
Variabile oggetto o variabile del blocco with non impostata
PErché?
Qui di seguito riporto la parte di programma che ci interessa
  Dim objWord As Word.Application
  Set objWord = New Word.Application
  Dim objDoc As Word.Document
  Set objDoc = New Word.Document
'qui scrivo dentro al documento
  objDoc.SaveAs App.Path & "\" & nomeFile ' Qui mi da l'errore
  objDoc.Close
  objWord.Quit
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

   objWord.Quit
Strano, il tuo codice da me funziona...
Il problema sta da qualche altra parte.
Secondo me hai una routine o qualcosa che ti setta a nothing l'oggetto
Prova, ad aggiungere prima della fatidica riga dove hai l'errore, di nuovo
Set objDoc = New Word.Document
Secondo me così l'errore scompare, anche se rimani un problema grosso,
perchè il tuo oggetto viene chiuso prima del salvataggio e devi trovare
dove.
-- 
Guarda, ma non toccare!
Tocca, ma non gustare!
Gusta, ma non inghiottire!
Per rispondere in privato elimina dall'indirizzo "togliquesto"
MasterDavidex - David Ruscelli

 dove.
Ho fatto come mi hai detto tu e cosě abbiamo bypassato quella riga ma...
:(((( mi ha dato l'errore anche in objWord.Quit ed ho dovuto aggiungere
nella riga precedente
Set objWord = New Word.Application
bypassato anche questo...cosa mi succedeeee???
mi dice che un altro utente sta utilizzando il normal.dot
ma che č pazzo???
Considera che un paio di giorni fa mi funzionava tutto :((((



Hai provato a riavviare, vero?

 Hai provato a riavviare, vero?
Of course :(((
proverò in un altro pc


Newsgroup: it.comp.lang.visual-basic
Titolo: come si mette in primo piano?

Salve, ho realizzato un piccolo timer in VB5 per impedire che mia figlia
rimanga troppo tempo col PC acceso.
Il timer va in esecuzione ridotto ad icona nella barra delle applicazioni.
Quando mancano 3 minuti al reset del sistema vorrei fare apparire un form su
tutto lo schermo che avverta del tempo che sta per scadere.
Come faccio a posizionarlo in primo piano rispetto agli eventuali programmi
aperti da mia figlia (es. programmi di disegno, ecc...)?
Grazie

 wrote in message
9c3fjs$opg$1...@serv1.iunet.it...

 wrote in message
ZQbF6.1787$4u1....@news1.tin.it...


Sito comune c'č un esempio

 Grazie comunque.
'Questo in un modulo o tra le dichiarazioni
Public Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal
hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long,
ByVal cy As Long, ByVal wFlags As Long)
'Questo nell'evento load della tua form
SetWindowPos Me.hwnd, -1, 0, 0, Screen.Width / Screen.TwipsPerPixelX,
Screen.Height / Screen.TwipsPerPixelY, &H40
ciao
--------------------------------------------
             ASSA
http://assatarram.yohoo.it
Napster: Assatarram3
it.comp.lang.visual-basic: Assa
--------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: corso vb

Mi hanno proposto un corso di vb organizzato dall'enaip.
Qualcuno ha esperienza? Sono validi come corsi?

 ha scritto nel messaggio
news:l4nH8.80268$CN3.2...@news2.tin.it...


  5gg L. 3.000.000 + IVA
Visto che stasera volgio rompere le palle, vorrei commentare anche questo
post.
Secondo me imparare vb in 5 giorni non è possibile, quindi sarebbero 3 pali
buttati via.
Ci sono enti che con gli stessi soldi o anche meno ti fanno un bel corsone
di due mesi, 1 o 2 giorni alla settimana, con tanto di compito da fare a
casa per dimostrare di aver capito la lezione, un po' come a scuola, ora...
di vb non ne ho mai seguiti personalmente, però ne ho fatto uno di
sqlwindows, e devo dire che sicuramente rispetto a 5 giorni di nozioni
buttate là c'è la sua differenza.

buttate là c'è la sua differenza.
Boh, io non ho mai fatto nessun corso ....
-- 
ciao, hal


Non per andare ot, però per sqlwindows anche tu forse l'avresti fatto un
corso in quanto:
non esiste documentazione sul web, non esistono manuali in italiano, quelli
in inglese sono introvabili, è molto più complesso di vb.

 casa per dimostrare di aver capito la lezione, un po' come a scuola,
bhe su questo ci sarebbe da fare una bella discriminazione , per esempio io
insegno corsi di informatica di base , ECDL e altre cavolate , la ditta fa
fare 3 - 4 esamini ma lo facciamo per tutelarci noi + che per offrire un
servizio al cliente cioe':
io ti insegno per 2 mesi , tu mi fai 3 esami : 1 in ingresso , 1 dopo 30 gg
e uno finale , se le tue risposte denotano che non hai capito un cavolo e'
colpa tua e non dell' insegnante / ditta ^_-
eh eh eh , io personalmente snobberei i corsi fatti da terzi e mi butterei
sull'autoapprendimento con dei bei manuali : Meno Costosi e senza obblighi
di tempo , mi posso divorare anche un Balena in in baleno ( ok questa
battuta mi fara' vincere l'oscar ) come metterci 5 anni , poi sta a me
vedere cos'ho imparato o cosa no , in questo modo tu sei il tuo insegnante ,
tu decidi cosa studiare oggi e cosa approfondire se non hai capito bene !
morale : MANUALI RULEZ !

 in inglese sono introvabili, è molto più complesso di vb.
Quando ho visto i 12 (DODICI !) manuali e non so quanti CD
nella scatola di SQL, ho ringraziato il cielo di non doverli
studiare io :-).
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: [API] SetWindowHookEx - piccolo quesito

Salve, sto realizzando un programma che necessita l'inserimento di un hook da tastiera in una applicazione non mia (devo intercettare la pressione di CTRL+X e filtrarla).
Ho trovato l'API che serve, solo che il 4° parametro e' il ThreadID dell'applicazione da hookare e io non so ricavarmelo, ho gia il HWND della finestra.
Grazie a tutti coloro mi aiuteranno.
See Ya
------------------------------------------
Posted via web GlobalNews
www.globalnews.it
------------------------------------------

 Ho trovato l'API che serve, solo che il 4° parametro e' il ThreadID
dell'applicazione da hookare e io non so ricavarmelo, ho gia il HWND della
finestra.
Devi usare GetCurrentThreadId()
Guarda sul sito comune del NG c'è un mio esempio: adHook
Cerca il metodo SetHook()
http://www.it-lang-vb.net
Ciao

Grazie mille, corro a leggere :D


 il HWND della finestra.
Se devi installare, come mi pare di capire, un hook per un'applicazione
diversa da quella che stai scrivendo, non puoi utilizzare VB, perché la
HookProc deve stare in una dll (che esporti la funzione, non un
Active-X). In VB puoi solo intercettare (ma non modificare e/o filtrare)
i messaggi della tastiera (con un hook di tipo WH_JOURNALRECORD).
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Dir List Box

Ciao a tutti,
qualcuno sa come si fa a selezionare ed aprire una directory da dirlist box
da riga di comando?
Mi spiego: vorrei cliccare su un pulsante e fare in modo che venisse
selezionate ed aperta la prima directory di una dirlist box.
grazie
ciao
--
Luca Contini
---------------------------------
Mediatech s.r.l.
System Engineer
Office: 
(+39) 070 2466 5503
Mobile: 
(+39) 328 911 6656
Fax: 
(+39) 070 2466 1111
luca.c...@mediaenabling.com
URL: 
http://www.mediaenabling.com
---------------------------------

 ha scritto nel messaggio
news:am9f97$3r0iu$1...@ID-139455.news.dfncis.de...

Scusa se ti do una bacchettata sulle dita e ti invito ad aprire l'help ma
quello che chiedi denota che non l'hai guardato.
Private Sub Command1_Click()
    pippo = Dir1.Path
End Sub
Come vedi  è il semplice uso della prorietà Path del controllo.
Eventualmente ti serve anche per impostare la dir di default.
Un JKLJKL che ti fa l'applicativo ! (he he he !!)

 selezionate ed aperta la prima directory di una dirlist box.
anche se non sono sicuro di aver capito la domanda ( e neppure l'utilita')
Private Sub Command1_Click()
    Dir1.Path = Dir1.List(Dir1.ListIndex)
End Sub
beppe

 wrote in message
news:am9sl8$41ogo$1...@ID-96007.news.dfncis.de...


Cosa ho sbagliato questa volta?


 >
Nulla stai tranquillo, scherzo !!
E' solo che non hai trovato una proprietą banale come
Path dell'oggetto DirListBox.
Ciao e buon lavoro !!!
(Funziona ancora tutto ?!)
JKLJKL
Newsgroup: it.comp.lang.visual-basic
Titolo: Alter Table

ciao, giorni fa ho chiesto come modificare una tabella tramite codice vb.
Ho seguito i vostri suggerimenti ed ho fatto!
Adesso ho un problema.
Il campo che ho aggiunto dovrebbe, perchè funzioni, avere impostato il 
valore predefinito a "0" (zero)
Purtroppo sul pc dove fira il programma non c'è Access 97 e senza 
quell'accorgimento il programma non funziona.
Ho cercato su internet e sulla giuda ma mi sono perso prima di trovare 
qualcosa.
Potete aiutarmi?
Grazie. 

Gianni ha scritto:

Hai 2 Soluzioni veloci:
Soluzione 1
"ALTER TABLE [T1] ALTER COLUMN [ColumnName]
TEXT(40) DEFAULT QUELLOCHEVUOI"
Soluzione 2
Usare DAO:
        Property DefaultValue As Variant
            Membro di DAO.Field
Dim tdf as DAO.Tabledef
Dim dbs as DAO.Database
set dbs=DAO.OpenDatabase(......)
Set tdf = dbs.TableDefs("T1")
tdf.Fields("NomeCampo").DefaultValue = "0"
tdf.close
dbs.close
Set tdf=Nothing
Set dbs=Nothing
C'è anche ADO ma hai detto che si tratta di A97 e forse potrebbe darti
qualche problema...
@Alex

Grazie.

Newsgroup: it.comp.lang.visual-basic
Titolo: Cercasi Grid disperatamente

Stò disperatamente cercando un controllo GRID per VB 5.0/6.0 che abbia una
buona AFFIDABILITA'  e versatilità in modalità non associata ai dati
(UNBOUND).
 Ho già scaricato le versioni demo della Janus GridEX 1.5, della Apex True
DBGrid Pro 6.0 e della Video Soft FlexGrid Pro 6.0.
A prima vista la Janus sembra la migliore.
Gradirei molto un vostro parere.
Grazie

...



Utilizzo come installatore e "manutentore" un applicativo gestionale che
utilizza TrueDBGrid 5 Professional e per la mia piccola esperienza posso
confermare che si tratta di un ottimo controllo. Per gli altri non ti so
dire.
Saluti
Angelo

 wrote in message


Newsgroup: it.comp.lang.visual-basic
Titolo: open database

Ho una applicazione che gira ormai da qualche anno, scritta ancora il vb4.
Non ho avuto mai problemi, oggi dopo l'ennesima installazione, su un
computer nuovo (centrino duo), il programma si pianta
sull'opendatabase..... dando una segnalazione di errore:
2004, memoria esaurita generato da DAO.Dbengine
Che vol di????
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Che vol di????
Ciao,
guarda se questo articolo puo' esserti d'aiuto:
"ACC97: "2004: Out of Memory" Error when Running Query"
http://support.microsoft.com/kb/191743/EN-US/
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

 
http://support.microsoft.com/kb/191743/EN-US/
Fatto!! Ringrazio infinitamente per il suggerimento

Newsgroup: it.comp.lang.visual-basic
Titolo: codicebarre

Insisto su un quesito, che ho posto su un altro news ma al quale non 
riescono a dare una risposta
 ho un lettore codice a barre Bancolini
che collegato alla seriale dovrebbe trasmettermi i codici  ad una form in un 
campo codicedicebarre- Ho provato ma non funziona ho letto il manuale e c'è 
la
possibilità di inserire il codice che ho copiato :
Ho cercato sul  pc e in effetti la ddl b31win32.ddl è in effetti caricato.
Ho capito che il lettore  è idterminale=0
                                        com=1
                                        baud=9600
e con questi dovrei sistemare il codice sotto
declarefunction b30xferrx lib "b31win32.dll" (_
Byval commandstr as string ) as long
 Parametri d'ingresso:
 "p=port,b=baud,i=idterm.f=filename,path=filepath"
 i valori assegnabili  agli argomenti sono i seguenti
 port:1,2,3,4
 baud:9600,4800,2400,1200
 idterm:da 0 a 255
 filename:se non presente (default)è creato dalla dll il file con
 formato
 <filename_su_b30>.<idterm_a_3cifre>
 filepath:è la directory in cui la dll salva il file ficevuto.
 Ritorna
o, trasmissione corretta
 <>o, in caso di errore
Mi date una mano per cortesia e un'altra domanda dove lo inserisco questo
codice direttamente nella casella codicebarre e su quale evento?

 ha scritto nel messaggio 
news:jMeik.3966$0N....@tornado.fastwebnet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Esportare dati da tabella VB6 a Excel

Dal mio programma in VB6 vorrei esportare i dati contenuti in una tabella
Access in un foglio di lavoro di Excel lanciandolo (e visualizzandolo)
semplicemente cliccando su un tasto (command).
Come posso fare?

 wrote in message
uGqm8.54496$1S3.1...@twister1.libero.it...

Vai su Progetto --> Riferimenti
e includi Microsoft Excel 8.0 (o 9.0).
Cosi potrai usare le classi di Excel:
Dim x as Excel.Application
da qui e' semplice, basta che ti guardi gli esempi dell'help.
Ciao

 ha scritto nel messaggio
news:a7dmn6$nho$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:emtm8.53675$%g7.16...@twister2.libero.it...



ma scusa...
tutta la pappardella di ieri non andava bene?
ciao
ugo

 ha scritto nel messaggio
news:a7eoei$km9eb$1...@ID-96367.news.dfncis.de...


 ha scritto nel messaggio
news:tQPm8.58535$%g7.18...@twister2.libero.it...


 ha scritto nel messaggio
news:rM4n8.62001$%g7.19...@twister2.libero.it...
Sempre nel codice dell'altro giorno, c'č anche il
parametro nome foglio e un accenno
di gestione delle ripetizioni dei nomi foglio.
Prova a leggere il codice.
Copy/paste non porta a niente...
ciao
ugo

 Sempre nel codice dell'altro giorno, c'è anche il


 ha scritto nel messaggio
news:kmtn8.69590$1S3.2...@twister1.libero.it...


 chiede se voglio salvarle.
Sempre nell'esempio dell'altro giorno:
WKS.SaveAS "C:\" & sName
Dopodichè, se non provi almeno a leggere l'help, personalmente opto per il
"silenzio stampa"...
ciao
ugo

 ha scritto nel messaggio
news:a7n1dv$lqseh$1...@ID-96367.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Gestione Errori

Ho bisogno di fare una funzione che mi gestisca gli errori di run-time, in
esecuzione durante il programma.
Il problema è che la funzione deve essere globale per tutto il progetto; in
caso di errore imprevisto infatti, devo scrivere su un file una specie di
log, per sapere cosa è successo esattamente al momento dell'errore.
L'istruzione On Error Goto..... va specificata all'interno di ogni sub,
mentre io non vorrei ripeterla ogni volta, ma specificarla una volta per
tutte, e che sia valida ovviamente per l'intero progetto.
Come posso fare?
Damiani Igor
ico...@simcity.it

scrivi una funzione
public sub MessErrore (errore as string)
msgbox errore
' fai qua quello che vuoi
end sub
nelle tue sub metti...
on error goto Errore
Errore:
MessErrore err.description
resume next
auguri!

Newsgroup: it.comp.lang.visual-basic
Titolo: Accedere al browser predefinito

Ciao a tutti,
come posso fare per avviare il browser internet predefinito dal sistema
(ovviamente andando ad un URL che gli passerò come parametro) ? Mi serve per
aggiungere ad un menù una voce per visitare una homepage.
Ne approfitto per chiedere delucidazioni sull'oggetto HyperLink (mi ci sono
imbattuto cercando di risolvere il mio problema): ho visto che permette di
navigare, ma è presente solo nei controlli activeX; ma da quello che so, i
controlli activeX non sono solamente oggetti da inserire in documenti HTML,
ma possono anche essere componenti da utilizzare in altri progetti - ma
allora l'oggetto HyperLink non dovrebbe essere presente solo quando c'e' la
certezza che l'applicazione verrà eseguita in un browser?
Bah, mi sa che sto facendo un po' di confusione, comunque se qualcuno può
chiarirmi le idee... grazie!
Alberto

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa

Salve a tutto il ng,
esiste un tool per visual basic .NET che fornisca un supporto per la stampa. 
In pratica che aiuti graficamente a effettuare report di stampa?
grazie
alberto 

"alberto" <nos...@nospam.kk> ha scritto nel messaggio
news:E9Fwd.27846$
Lg7.8...@twister1.libero.it

Crystal report
bye
-- 
"Seminate Linux, che Windows si pianta da sè...." (Antico Adagio)
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.nicolaottomano.it/public/sinapsi.htm
email spamtrap: 
spam...@nicolaottomano.it
Velocipedi Equestri su
http://www.nicolaottomano.it/velocipedi_equestri.htm
Newsgroup: it.comp.lang.visual-basic
Titolo: MAPIMessage

Ma č possibile che la proprietą AttachmentPathName dell'oggetto MAPIMessage
torna il nome del file di un attachment in formato corto
(c:\temp\docume~0.doc per intenderci)?
O sono io a sbagliare qualcosa?
Non posso crederci!!!

(c:\temp\docume~0.doc per intenderci)?
Poco male... tempo fa un nger (ora su due piedi non ricordo chi, chiedo scusa) mi ha dato lo spunto
per buttar giù questa funzioncina che ritorna il nome lungo di un file a partire dal suo nome dos
8.3:
Public Function NomeLungo(ByVal strShortPath As String) As String
 
    Dim strResult As String
    Dim BSPos As Integer
 
    BSPos = InStr(4, strShortPath, "\")
    strResult = Left$(strShortPath, 3)
 
    Do Until BSPos = 0
        strResult = strResult & Dir$(Left$(strShortPath, BSPos - 1), vbDirectory) & "\"
        BSPos = InStr(BSPos + 1, strShortPath, "\")
    Loop
    NomeLungo = strResult & Dir$(strShortPath, vbDirectory)
End Function
Magari ti può tornar utile...
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 End Function
                Ciao
                            Allanon

Usala... é piů sicura... ;)
anch'io prima di chiedere al ng avevo "spogliato" msdn, ma niente... avevo trovato getfullpathname o
qc del genere che pensavo fosse l'ovvio opposto di getshortpathname, ma invece nada...
qual'č questa funzione?


 qual'è questa funzione?


Newsgroup: it.comp.lang.visual-basic
Titolo: stampa unione e origine dati

Salve a tutti, vorre sapere come lanciare una stampa unione da codice
vb, e assegnargli anche l'origine dei dati ( se ci fosse un pò di
codice sarebbe meglio...=D ).
ciao e grazie
Kylnas

 codice sarebbe meglio...=D ).
Se tu accendessi il registratore di macro avresti tutto il codice in tre
minuti...=D ).
Alberto

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] OCX Microsoft Telephony

Scusate l'OT..
Leggendo sul numero di Febbraio di IoProgrammo alla ricerca di un articolo,
ne ho trovato uno che parla di questo OCX e del suo utilizzo all'interno di
applicazioni telefoniche.
Sarei curioso di provarlo ma non riesco a trovarlo, ho provato nel sito
Microsoft sia italiano che inglese ma non ho trovato niente. Qualcuno
saprebbe darmi qualche indicazione su dove cercare?
Grazie.
Ciao, Enrico.
------------------------------------------------
Dim VbEnry As Enrico
e-mail : 
vbe...@supereva.it
ICQ: 93357350
------------------------------------------------

 wrote in message 8up7n4$vv$1...@nslave3.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: "Gestire la terminazione di un processo"

Ho un disperato bisogno sapere come si fa ad avvertire un processo in
esecuzione che sta per essere terminato. In modo tale che il processo possa
eseguire una funzione contenente tutte le oprazioni necessarie per gestire
la terminazione del processo. Il problema si pone specialmente quando viene
arrestato il sitema operativo e con esso tutti i programmi in esecuzione. Un
pò quello che avviene se si arresta il sistema prima di aver salvato un
progetto Visual Basic. Grazie mille
--------------------------------
Inviato via 
http://usenet.libero.it



 progetto Visual Basic. Grazie mille
In un programma creato con VB puoi utilizzare l'evento QueryUnload (ed i 
suoi parametri).
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Come si fa a fare un file bootimage.bin

Come da oggetto, devo fare un cacchio di file bootimage.bin
con dos 6.22 da dare in pasto ad easy cd creator 6 per fare
un cd avviabile.
Il problema è che la funzione interna, qunado gli dico di leggere
il disco del dos nel lettore, mi dice che il disco non è avviabile.
Che diavolo vuole??
idee, link ... non trovo nulla di utile sulla rete
Ciao
Andrea

 il disco del dos nel lettore, mi dice che il disco non è avviabile.
Domanda scema: hai controllato che il dischetto sia realmente
avviabile ? :-)
...e leggibile ?
Bye, G.

Risposta alla domanda scema ... è il disco n.1 di ms-dos 6.22
se non è avviabile quello ...
A leggerlo si legge ... se sfoglio le risorse ... vedo tutto ...
Ciao
Andrea

Il 07/04/2004 21.05, Andrea Moro scrisse:

Se hai una macchina linux:
http://www.linux.org/docs/ldp/howto/CD-Writing-HOWTO-4.html#ss4.11
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 A leggerlo si legge ... se sfoglio le risorse ... vedo tutto ...
Prova a fare il boot! ;-)

 Che diavolo vuole??
umm umm non e' che hai l'ntfs e lui vuole una fat32 ? Io con i cd-boot ci ho
sbattuto sempre la testa sia con nero che con ecc bho ! In bocca al luppolo
!
-- 
-Gigio@Work(?)-
Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO excel e vba: assegnare un nome ad una zona non usando r1c1

Ciao a tutti e grazie in anticipo per l'aiuto
Ho una serie di celle che una macro deve etichettare come
"matricequote"; il problema è che questa zona è una matrice che cambia
dimensione e non riesco a fare una macro che gli assegna un nome
usando due contatori, uno di riga e uno di colonna
 il rgistratore di macro mi dice
    Range("C8:C18").Select
    ActiveWorkbook.Names.Add Name:="matricequote", RefersToR1C1:= _
        "=F_Efficiente!R8C3:R18C3"
quello che vorrei fare io è qualcosa del tipo
range(cells(1,1),cells(contatoreA,contatoreB).select
e poi?
ActiveWorkbook.Names.Add Name:="matricequote", ***assegnalo alla
selezione***
Chi mi può aiutare?
grazie
lorenzoq...@libero.it

 ActiveWorkbook.Names.Add Name:="matricequote", ***assegnalo alla
selezione***
Quindi, se ho capito bene, vuoi assegnare un nome ad un intervallo di
"contatoreA" righe e "contatoreB" colonne partendo dalla cella "A1". Giusto?
Potresti fare cosi`:
    With ActiveWorkbook.ActiveSheet
      .Parent.Names.Add _
          Name:="matricequote" _
        , RefersTo:=.Range( _
            .Cells(1, 1) _
          , .Cells(1, 1) _
            .Offset(contatoreA - 1, contatoreB - 1))
    End With
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: midi to mp3

ciao a tutti
vorrei sapere se è possibile convertire midi file
in file mp3 e wav...in visual basic
grazie a tutti per l'attenzione
Fabry

 ha scritto nel
messaggio
news:ib5i9.14717$Hc7.2...@twister1.libero.i
t...

SI

 > vorrei sapere se č possibile convertire


Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto urgente per VB4 per un principiante!

Ragazzi chi mi sa dire come impedire ad una variabile Boolean di tornare al
valore che assume quando avvio il programma e lasciarle quindi l'ultimo
valore che ha assunto prima di chiudere il programma!
Cerco di spiegarmi meglio: supponendo di avere la variabile boolean
denominata "pippo" che quando il programma viene eseguito assume valore
False. Supponiamo che l'ultima volta che ho usato il pogramma questa
variabile ha assunto il valore True e poi ho chiuso il pogramma: ecco io
vorrei che la prossima volta che carico il programma questa variabile resti
al valore True.
Come faccio?
Grazie
Gradite risposte anche via Email
--
run...@adria.it
www.pianeta.com/-/Antonello

al valore True.
Devi salvare il suo valore in un file che leggerai all'avvio del programma.
--
Ciao.
Maurizio

...

Newsgroup: it.comp.lang.visual-basic
Titolo: indice massimo delle scrollbar

Salve ho un probemino con alcune scroll-bar
ovvero  ho un indice di circa 10000 elementi
ma l'indice di una scroll-bar non arriva a tanto
c'e una soluzione?
ciaooo
--
Roberto "deko o muteking"
de...@netbusiness.it
42000 all'ora -> 
http://www.intelliad.com/?24031BD6
http://www.extrasalary.com/go.asp?refid=5220027547E2


Grazie e' che ho fatto un po' casino
gli elementi che ho sono 40998 ma usando anche i  -32767 ho risolto grazie
comunque


Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco demo Crystal Report 7 o 8 ?

Salve qualcuno mi sa dare qualche link dove posso trovare una demo
funzionante di crystal report 7 o 8?
ciao

 funzionante di crystal report 7 o 8?
Non esiste una versione demo di crystal reports 7-8
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: AddressOf - Valore di ritorno

Come faccio a farmi ritornare un valore di ritorno da una dll?
Mi spiego meglio, altrimenti mi prendete per cretidiota.
Dovrei far girare una dll che fa n compiti, al verificarsi di un
errore nella dll, senza fare il raiseerror che mette comunque
in halt il sistema, vorrei fargli sputare fuori un valor, quindi
recuperarlo e segare la funzione o la sub che sta chiamando
la dll. Una cosa del tipo addressof mia dll ...
Non sň se l'addressOf potrebbe fare al caso mio ... e se si,
francamente guardando l'help e gli esempi, compresi quelli
del subclassing non č che mi abbiano acceso la lampadina,
anche perchč se non erro l'address of restituisce solo valori
long .. e comunque viene utilizzato solo per dll in c.
A parte tutto, non vorrei nemmeno fare una chiamata alla
dll e subito dopo un if ritorno = true then continua else esci.
Idee? Correzioni? Suggerimenti?
Grazie
Andrea

 la dll. Una cosa del tipo addressof mia dll ...
prima cosa non puoi segare la sub che sta chiamando la funzione della dll
altirmenti lo stack si incasina.Di conseguenza dovrai uscire dalla funzione
della dll ocn un valore di ritorno che avverte dell'errore.
Dalla dll però puoi chiamare una funzione(messa in un modulo)che gestisce il
tuo errore.Queste funzioni sono le ormai famose callback che puoi chiamare
tramite un puntatore  a funzione dichiarato nella tua dll
ciao

 ha scritto nel
messaggio news:tKMa9.109252$lu5.2...@twister1.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Collegamento tabelle via codice

Come si può impostare il collegamento di tabelle esterne al database Access
ad esempio .dbf   ??
La necessità sussiste perchè le procedure utilizzate dai client utilizzano
una lettera diversa per la connessione di rete, quindi se la tabella
collegata nel mdb in uno è F:\Dati\Archivio.dbf in un altro può essere
d:\dati\archivio.dbf

 ha scritto nel messaggio
news:Vv0H8.80994$zW3.1...@news1.tin.it...

Per collegamento intendi il percorso del database?
Puoi dire che cosa usi?
Usi un controllo DAO?
                                danilo

 ha scritto nel messaggio
news:Vv0H8.80994$zW3.1...@news1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: VB4: Protezione database Access

Come si fa a proteggere un database di Access 2.0.
La situazione e' questa;
ho un programma (VB4 per Win 3.x) che legge
un database di Access 2.0, permette l'interrogazione
e la stampa di parte dei dati. Ho bisogno di evitare
che le tabelle, nella loro totalita' _non_ siano
accessibili all'utente; quindi il database non
deve essere leggibile.
Se non ho capito male il meccanismo di protezione dei dati
di Access 2.0 prevede l'utilizzo di un file system.mda 
(ovvero system.mdw) per gestire le autorizzazioni. Questo
file e' pero' "intrinseco" di Access. Se devo distribuire
il database come faccio a collegarlo ad un .mda (o .mdw)
specifico della mia applicazione, in cui, ad esempio,
il programa si collega come guest con una password
e legge i dati, mentre usando Access (nel caso
in cui l'utente lo possieda) non si riesce ad entrare
(a meno che non si conosca la password...).
Scusate la prolissita'...
ema
P.S.
Rispondetemi magari via e-mail, poi postero' una 
raccolta delle info's.
-------------------------------------
Emanuele Quinto
D.I.I.A.R. Politecnico di Milano
Phone:     +39 2 23996432
InterNet:  
qui...@amb1.amb.polimi.it
 
qui...@italymail.com
 
Sometimes you can only find something 
   by losing it
-------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: filmato flash

Salve ragazzi,
ho la necessità di chiudere un form (unload form), dopo avere cliccato una
volta all'interno di un filmato flash.
Come posso fare?? Soprattutto è possibile??
grazie

 ha scritto nel messaggio
news:eENUb.197702$VW.80...@news3.tin.it...

ho lavorato poco tempo fa con flash e vb. Io metterei il filmato flash in
uno UserControl, poi posizioni lo UserControl sul form. In questo modo puoi
gestire l'evento Click dello UserControl, ed è come se tu cliccassi sul
filmato flash.
ho trovato questa soluzione anche perchè ho avuto qualche problema a gestire
l'ocx di flash sul form vb (ad esempio per spostarlo e ridimensionarlo)
good coding!!!
-- 
Alletun
"Io lo so che accadrà. La voce sussurra nei miei pensieri di Jair, Rone,
Allanon e soprattutto nelle Mortombre.
Sussurra segreti che mi sono tenuti nascosti, nella grigia oppressione
di questo giorno e nell'oscurità caliginosa di quello che mi aspetta.
Saremo distrutti. Tutti."
Brin Ohmsford - La Canzone di Shannara - T. Brooks

ma come faccio a creare l'evento click nel usercontrol.
Perchè cmq non esiste.

 Perchè cmq non esiste.
ma, scusa, hai provato? se fai doppio-click in progettazione su uno
UserControl, hai eccome l'evento click, provare per credere....
Private Sub UserControl_Click()
MsgBox 1
End Sub
l'ho appena fatto, good coding!!!


allora in fase di progett. esiste l'evento ma sempre per il form.
Allora io ho fatto:
ho aprto un nuovo controllo utente.
ho inserito il riquadro flash
Adesso l'evento click esiste solo sul controllo, ma non nel riquadro flash.
Siccome a me interessa avere il riquadro grande quanto il controllo,
l'evento non si attiverà mai.

scusa ma nicola=bepi

> scusa ma nicola=bepi
cerca di usare sempre lo stesso  nick perche il morphing genera confusione.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

Newsgroup: it.comp.lang.visual-basic
Titolo: L'ennesimo problema!!!

Ragazzi come posso creare invece del "solito" setup.exe i file .inf per
l'installazione dei miei programmi???? (chiamali programmi!!!)
grazie
Vincenzo
(se imparo il Visual Basic da autodidatta mi danno il premio!!!)

>(se imparo il Visual Basic da autodidatta mi danno il premio!!!)
.....che premio e' ????  :-)
Guarda che non sei mica l'unico....
Basta frequentare i NG giusti (questo) e impari subito...
Comix
Newsgroup: it.comp.lang.visual-basic
Titolo: Archivio news

Dove posso trovare l'archivio delle news passate su questo NG!?
Grazie E saluti
                                                            Chachi


Newsgroups: it.comp.lang.visual-basic
Subject: archiviare messaggi del ng
Date: Wed, 10 May 2000 17:28:40 +0200
vorrei rifare il punto sull'archiviazione messaggi.
io me li gestisco con un vbp (vb5sp3/mdb97), procedendo cosi':
* salvo i messaggi come .eml/.nws (file di testo)
* sposto i file in una subdir del programma
* glieli faccio importare: il prg mette la data corrente in un campo
apposito, il nome del file diventa il soggetto, ecc.
il casino e' dopo:
* quando ho tempo/voglia, ripulisco il testo di un po' di schifezze, segno
l'autore e il soggetto vero, classifico (c'e' un listbox con le varie
classi, che sono indicizzate), ecc.
c'e' un txtbox che permette di inserire semplici query tipo select all from
vbtrix where text like '*domenico statuto*'
il programma non e' affatto a punto, a me e' servito soprattutto per fare un
po' di test. ogni tanto (spessino...) crolla, anche perche' schedare
"january 08, 2000" non e' cosi' automatico...
al momento e' un po' che non ci metto mano, ma fra indici e sql di solito
quello che mi serviva lo trovavo.
onde evitare uno stillicidio di mailing, se a qualcuno interessa, qui sotto
ecco gli url dove ho appoggiato i due zip:
http://www.comune.modena.it/cittadini/apal/tmp/vbtrix.zip
http://www.comune.modena.it/cittadini/apal/tmp/vbtrix_mdb.zip
nel primo (400k) ci sono i sorgenti e 500 schede come demo.
nel secondo (1.3m) il solo mdb, 3.2 mb circa, con vari messaggi gia' pronti
e in parte ripuliti.
a chiunque lo scarichi chiederei solo:
0. di non sogghignare sul codice. cominciavo... -- piuttosto, se qualcuno
vede errori evidenti, puo' rendermi felice suggerendomi una correzione.
1. di non chiedermi istruzioni o aiuti. giuro che non ne ho il tempo.
2. di non maledirmi perche' non ci sono commenti. pesano, e il programma era
nato per uso personale :)
3. di ragionarci un po' sopra prima di valutarlo, guardandosi il codice. ho
una certa esperienza di archiviazione e classificazione, e ritengo che un
nucleo sensato ci sia.
4. di tenere comunque presente che il punto e' sempre l'input (trash in,
trash out). se ci si mettono cose sensate, ci si saltera' fuori in qualche
modo. seno'...
5. se ancora ne avra' voglia, di mandarmi due righe di
commenti/suggerimenti. please astenersi insulti :)
hth, pal
--
andrea....@tin.it
free vb/sw: 
http://www.comune.modena.it/cittadini/apal/html/
Newsgroup: it.comp.lang.visual-basic
Titolo: Beep su Tab

Salve Ragazzi,
    ho un fastidioso problema.
    Ho cercato di passare da un campo all'altro con il tasto INVIO, prima
con il SendKeys che mi bloccava la tastiera
    poi con le api che funzionano egregiamente (finora). Il problema
sussiste nel beep che si sente ogni volta che si usa il sendkeys o le api.
    Cosa posso fare oltre che spegnere le casse ?
    PS
    su un altro PC lo fa con il beeper nel Case.
Grazie Mille in Ancicipo.
Alberto.

 wrote in message
news:r5Pl8.6925$S52.1...@news2.tin.it...


 sussiste nel beep che si sente ogni volta che si usa il sendkeys o le api.
[SNIP]
Se, come credo, esegui la procedura nell'evento KeyPress, dovrebbe essere
sufficiente aggiungere
KeyAscii = 0
dopo aver intercettato il tasto INVIO
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Newsgroup: it.comp.lang.visual-basic
Titolo: Codifica files in xor

Ciao a tutti
ho creato un programma in grado di criptare e decriptare file col metodo
xor.
ho pero un problema, il programma funziona solo in caso di files di testo,
se iinserisco altri file la codifica e la decodifica avvengono, ma il file č
inutilizzabile? come devo fare?
dovrei convertire tutto in codice binario? come si fa?
grazie!!!

 dovrei convertire tutto in codice binario? come si fa?
[cut]
Se ho capito, prova ad aprire il file così:
Dim vettFile() As Byte
ReDim vettFile(0 To 9)
Dim NumFile
NumFile = FreeFile
Dim c As Integer
   Open Text1.Text For Binary As #NumFile
   For c = 0 To 9
      Get #NumFile, c, vettFile(c)
   Next c
   Close #NumFile

Newsgroup: it.comp.lang.visual-basic
Titolo: Unload matrice frame

Ciao 
all'avvio dell'applicazione ho una matrice di frame che viene caricata
(frmEstate(0), frmEstate(1), frmEstate(2), ....)
Ad un evento ho bisogno che tutti i frame vengano scaricati
Ho usato questo codice, ma non sembra funzionare sulla matrice ma solo
sul frame di nome frmEstate che non esiste
For Each Control In Me.Controls
    If TypeOf Control Is Frame Then
        If InStr(1, Control.Name, "frmEstate") Then 
	Unload Control.Name
        End If
    End If
Next
Grazie e buon lavoro


Il testo dell'errore ("necessario oggetto") avrebbe gia' dovuto evidenziare
il problema: il metodo Unload, cosi' come il metodo Load prendono come
parametro un oggetto, non il suo nome (una stringa) come nel tuo codice qui
sopra.
Inoltre ricorda che non puoi scaricare un controllo definito in fase di
design, come immagino sia frmEstate(0); nel tuo ciclo devi assicurarti, una
volta identificato il frame corretto, di non eseguire Unload sull'elemento 0
dell'array
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown
Newsgroup: it.comp.lang.visual-basic
Titolo: è possibile ?

in VB6 esiste la possibilità di serializzare una classe ?

 in VB6 esiste la possibilità di serializzare una classe ?
Se intendi la possibilità di trasformare un oggetto in uno stream di bytes, dai
un'occhiata qui:
http://www.lhotka.net/Article.aspx?id=7e9b93f9-f3bf-49be-ad65-e974f31ca3f7
Comunque la cosa più semplice è usare l'oggetto PropertyBag.
Devi impostare la proprietà Persistable della classe (che deve essere pubblica).
Poi, supponi che la classe abbia 2 proprietà pubbliche Name e ID, definisci 2
metodi Serialize e Deserialize, come in questo esempio:
Private mName As String
Private mID   As Long
Public Property Get Name() As String
    Name = mName
End Property
Public Property Let Name(ByVal Value As String)
    mName = Value
End Property
Public Property Get ID() As Long
    ID = mID
End Property
Public Property Let ID(ByVal Value As Long)
    mID = Value
End Property
Public Function Serialize() As Byte()
Dim PropBag As New PropertyBag
    Class_WriteProperties PropBag
    Serialize = PropBag.Contents
End Function
Public Sub Deserialize(Stream() As Byte)
Dim PropBag As New PropertyBag
    PropBag.Contents = Stream
    Class_ReadProperties PropBag
End Sub
Private Sub Class_ReadProperties(PropBag As PropertyBag)
    mID = PropBag.ReadProperty("ID")
    mName = PropBag.ReadProperty("Name")
End Sub
Private Sub Class_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty "ID", mID
    PropBag.WriteProperty "Name", mName
End Sub
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.

Newsgroup: it.comp.lang.visual-basic
Titolo: Come si creano tasti di scelta rapida personalizzati?

Come si fa ad impostare nei menu` dei tasti di scelta rapida diversi
da quelli presenti nell'elenco dell'Editor di menu`?

 ha scritto nel messaggio
news:3b247fd8...@news.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: visualizzare un file di testo in una listview

sapete dirmi come si fà a caricarlo in una list view o ci sono controlli più
appropriati per fgestire il testo di un file .txt??????
Grazie a tutti.

 Grazie a tutti.
ciaociao
Newsgroup: it.comp.lang.visual-basic
Titolo: Ricerche in una stringa

Salve
è possibile cercare in una stringa lunga una parola o una frase di cui si
conosce sempre le ultime tre lettere ma non la lunghezza?
Ad esempio
in un indirizzo internet qualsiasi come
www.prova.com/principale/prova.xml
devo riuscire a prendere solo prova.xml ed in questo modo tutti gli altri
file che terminano con *.xml
Grazie

[jack80] scrisse:

Quesito un po' confuso, direi....
Per prendere gli ultimi n caratteri di una stringa io farei
right$(stringa,n)
per vedere se una stringa termina con una determinata sottostringa direi
if sottostringa = right$(stringa, len(sottostringa)) then
hth
--
Salutoni
Sergio

 ha scritto nel messaggio
news:b28dvk$18pc0o$1...@ID-173193.news.dfncis.de...

si ma della sottostringa non so ne la lunghezza ne come è formata ma so solo
che termina con ".xml"
vedi indirizzo internet di sopra.
Grazie per la tua disponibilità

 so solo che termina con ".xml"
?
Mi sfugge qualcosa?
Alberto

 Grazie per la tua disponibilità
allora, riproviamo: ho una serie di stringhe, voglio trovare tutte quelle che
finiscono in un determinato modo, di quelle che finiscono in questo modo voglio
prendere tutti i caratteri dall'ultimo slash in poi. E' questo il quesito?
Se sì:
public function RitornaStringa(s as string, Sottostringa as string) as string
dim PosSlash as integer
if right$(s, len(sottostringa)) = sottostringa then
    posslash = instrrev(s,"/")
    Ritornastringa = mid$(s,posslash +1)
else
    ritornastringa = ""
end if
end function
Se non ho preso cantonate (sempre possibili) questa funzione ti restituisce
quanto da te richiesto, o stringa vuota se la stringa passata non finisce con
quanto indicato da sottostringa.
--
Salutoni
Sergio

 vedi indirizzo internet di sopra.
prova così:
pagina = mid$(stringa,InStrRev(stringa,"/")+1)
naturalmente devi sapere qual'è il carattere di separazione, ma trattandosi
di un indirizzo internet...
aloHa!
elefante

 ha scritto nel messaggio

beh se le stringhe sono tutte di quel tipo, allora prima puoi controllare se
terminano effettivamente con xml,
quindi puoi leggere la stringa a partire da destra e fermarti al primo "/"
quindi prendere quello che c'è da questo carattere in poi...
E' solo uno spunto senza codice...
ma credo che renda l'idea

 di un indirizzo internet...
ecco appunto.
Qualcosa del genere intendevo dire.
P.S. Maledetto OE, fa come cazz gli pare e mi scarica i messaggi quando
vuole (ma mi sa che fastweb ci mette del suo)

 naturalmente devi sapere qual'č il carattere di separazione, ma


 Se sě:
