mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Colloquio di due EXE

Salve,
    c'č un modo per far scambiare dati (principalmente stringhe di
informazioni a lunghezza variabile) tra due programmi indipendenti tra loro?
Per ora utilizzo un collegamento Socket, ma ricordo (chiedo scusa se
sbaglio) che avevo sentito di un set di API per creare ed utilizzare a tal
scopo un "buffer" di memoria nel quale i due EXE possano scriverci e
leggerci.
Sapreste darmi piů informazioni in merito?
Grazie
Tango

 scopo un "buffer" di memoria nel quale i due EXE possano scriverci e
beh di modi ce ne sono diversi  te ne posso dire un paio senza scomodare le
api:
un piccolo activex con variabili in un modulo
dde
son solo un paio di consigli vedi un po' se ti piacciono :)
--
-------
sito: 
www.dadev.it
ultime: Ocx per irc testi freeware
-------

 Sapreste darmi piů informazioni in merito?
Se non hai problemi con l'inglese:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ipc/ipc_57q
r.asp
Ciao.

 Grazie
Se mi dai retta usi  un activex, un database, un file di testo, un piccione
viaggiatore (in ordine di difficoltà decrescente...) ma NON delle API per un
compito di questa portata...
ciao
ugo

 - named pipes
tempi a dietro ho provato ad implementare questi metodi ma in vb trovato
molte difficoltà (e si trovano anche pochi esempi in internet).Hai qualche
info su come fare ?



Riporto dal mio stesso messaggio:


 info su come fare ?
[...]
In breve
Named pipes: è come aprire un file, solo che quello che leggi non va sul
disco ma ad un'altra applicazione che li legge. sono estremamente facili da
usare, e molto comode. Il problema nasce dal fatto che se tu scrivi e non
c'è nessuno che legge l'applicazione si blocca, e aspetta. Possibili
soluzioni: o un'applicazione multithreaded o lettura asincrona. e questo,
ovviamente, genera i problemi per Vb.
Memory mapped files: è un file che viene visto dall'applicazione come
un'area di memoria. si può quindi usare in tal senso, compresi i lock di
alcune zone, e questo permette di sincronizzare lettura e scrittura tra più
applicazioni, e quindi di usarlo come meccanismo di scambio di dati.
Ovviamente con molta attenzione, perchè presta il fianco a possibili, ed
evidenti rischi di blocco delle applicazioni.
Hth
Alfonso

Tango wrote:

Con win9x puoi usare le mail slot. Non e' complicatissimo. Ti darei il 
mio codice ma e' scritto da schifo ...
Prova a vedere su:
http://phoenix.liunet.edu/~mdevi/win32/MailSlots.htm
e' in C, ma tradurre nelle relative API e' semplice (ci sono riuscito io!)
Se hai bisogno ...
ciao
		maxx
Newsgroup: it.comp.lang.visual-basic
Titolo: Form trasparente!

Scusatemi in anticipo se magari questa domanda è già stata posta!
Esiste un modo per rendere lo sfondo di un FORM trasparente?
Mi sembra una cosa caruccia e mi è stata chiesta in merito alla possibilità
di inserire una GIF in movimento sul FORM che però così come lavoro adesso
si porta dietro sempre il suo sfondo mentre si muove!
Grazie dell'eventuale aiuto!
Salvatore De Patto

 di inserire una GIF in movimento sul FORM
Questo è già pressochè impossibile.
Dovresti delineare la "regione" visibile per ogni frame del gif e
aggiornarla a tempo.
Lavoraccio che non credo dia nemmeno buoni frutti :(
Ciao

Ma che mi illudi e  non mi dici come fare?
COme si rende trasparente un FORM ?

 COme si rende trasparente un FORM ?
Si fa un salto sul sito comune (ma comunque in giro ci sono tonnellate di
routine per gestire la trasparenza dei form):
http://www.it-lang-vb.net/
Ciao,
Carlo.


Dunque, vai su un motore di ricerca (io uso 
www.alltheweb.com
) e digita
"form transparent visual basic" e vedrai tutta la roba che ne esce....
Ciao
Sal

Questo è già
pressochè impossibile.
molti utilizzano file avi...
--------------------------------
Inviato via 
http://usenet.iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [?2] Conversione esadecimale con Cystal Report

Salve a tutto il NG
Ho la necessita' di convertire il valore di un campo numerico in Hex con CR 5.0
come posso fare ?
Mi sembra incredibile ma tra la miriade di funzioni che ha CR non esiste qualcosa tipo:
Hex(Tabella.Nomecampo) ....
Grazie infinite
--
DaX
-----------------------------------------------------------
Windows NT crashed.
I am the Blue Screen of Death.
No one hears your screams.
--= Togli NOSPAM per rispondermi =--
--= Remove NOSPAM to reply =--

Hex(Tabella.Nomecampo) ....
Non conosco CR, ma, se non trovi altro, potresti sempre farti restituire
il campo gia' opportunamente formattato nel recordset.
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: files Txt e lettura...

salve
ora vi spiego:
il programma deve mandare dei comandi con winsock, e questi comandi li 
prende da file. A me serve che il programma riconosca quando è finitauna 
riga del file txt ( un comando sta su una riga ). cosa posso fare?
c'è qualche comando che può fare al caso mio??
grazie a tutti

 ha scritto nel messaggio
news:3D8D918...@yahoo.it...

Mo te spiego....prendi la manina e chiacci F1!
cerchi LINE INPUT
sotto un esempio...che devi adattare al caso tuo........
Line Input #1, TextLine
By man :-)
----------------------------------------------------------
Tutti siamo liberi...anche di non premere F1!
Ma se lo premiamo...
ci liberiamo dalle domande stupide!
----------------------------------------------------------
(M.M.)

 By man :-)
grazie ciao :D

Newsgroup: it.comp.lang.visual-basic
Titolo: Eseguire un programma esterno in una mia form

Come da oggetto, vorre esegui un programma (WIndows Media Player)
all'interno di una mia PictureBox (che quindi gli funge da Padre).
Se ne conoscessi l'handle potrei usare Api SetParents (di cui allego
dichiarazione),
ma come faccio a trovarlo?
Io ho provato a scartabellare in mezzo alle API ma non riesco a trovare
esempi o documentazione sufficente a chiudere il cerchio....
Qualche suggerimento?
Grazie Mille
Ciao
Andrea
Allego le API che dovrebbero più o meno combinate risolvere il problema...
----------------------------------------------------------------------------
------------
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long,
ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA"
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal
lpsz2 As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA"
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long)
Private Declare Function GetWindowTextLength Lib "user32" Alias
"GetWindowTextLengthA" (ByVal hwnd As Long)

Bhe per il mio problema specifico forse è più semplice
utilizzare l'ocx di Windows Media Player... però mi
piaceva l'idea di catturare l'esecuzione di un programma e
portarmelo dentro una mia form....
... quindi il quesito rimane didatticamente valido!
CIao
Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: ADO / DAO 31 a 391

Sembra strano ma eseguendo la stessa query via ado e via dao ho ottenuto due
recordset diversi !
La particolarità della query è che uso due volte una tabella di trascodifica
che contiene decodifiche differenti:
select
    a.nome,
    a.cognome,
    b.desc as statocivile,
    c.desc as istruzione
from
    (anagrafica a left join decodifiche b on (a.id_dec=
b.id
 and b.tipo='S'))
    left join decodifiche c on (
a.id
=
c.id
 and c.tipo='I')
dove immaginate decodifiche per semplicità come
id    tipo    desc
1    S        celibe
2    S        sposato
3    S        divorziato
1    I         elementare
2    I         media
3    I         superiore
la stessa cosa si verifica se sposto parte del link nella where:
from
    (anagrafica a left join decodifiche b on (a.id_dec=
b.id
)
    left join decodifiche c on (
a.id
=
c.id
)
where
    (b.tipo='S' or b.tipo is null) and
    (c.tipo='I' or c.tipo is null)
Voi che ne pensate ?
P.S. prima di offendermi tenente conto che la struttura del DB non l'ho
"partorita" io e che comunque l'incongruenza di comportamento pare esserci.
Grazie per l'attenzione e ciao.

[full snip]
Saro' de coccio, ma non vedo il problema ...
Di abitudine preferisco scrivere la query nel secondo modo,
cioe' con i valori costanti nella where (mi sembra piu' coerente
considerarli un filtro piuttosto che un link)
pero' e' imho.
ciao, hal

 wrote in message
9gb7tj$80sun$1...@ID-56381.news.dfncis.de...


se 31 e 391 sono il numero di record restituiti, li hai aperti tutti o ti
sei limitato a testare il valore della recordcount? Perchè nel secondo caso
potrebbe essere un falso problema dovuto all'inaffidabilità della
recordcount.
--
----------------------------------------------------------------------------
Esiste un luogo dove tecnologia e arte si incontrano
www.tecnologiaEarte.net
----------------------------------------------------------------------------
Gianluca Pisano
ciao.

Eh eh... buona domanda, li ho visitati tutti con un do while not eof ed ho
incrementato un contatore.
Intanto sto andando avanti con l'analisi del problema e mi sembra che il
problema sia imputabile più all'oledb verso access che non all'ADO di per
sè.
Infatti interfacciandomi via odbc su un db sybase i risultati sono coerenti
(391 pari)
Ciao, Andrea.
Gianluca Pisano <gian...@tecnologiaEarte.net> wrote in message
9gci29$iht$1...@fe2.cs.interbusiness.it...


Ciao e grazie per ora.
Sono io che ringrazio te ;-)
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Help per utilizzo drag&drop da cartella di sistema

Ciao,
devo utilizzare la funzione drag&drop
da una cartella di sistema a una filelistbox di VB5
come posso fare?
come si deve impostare l'oggetto "filelistbox" e come
si deve intercettare l'evento drag&drop ?
se poteste farmi un piccolo esempio ... vi ringrazio
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 100,000 Newsgroups - 19 Different Servers! =-----

 se poteste farmi un piccolo esempio ... vi ringrazio
Sito Comune (
www.it-lang-vb.net
) e cerca FileSuite o Winpak. E' un programma
di compressione che ho creato io e supporta anche il drag e drop.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Datagrid e colonne

Salve, uso VB6 e vorrei personalizzare il nome delle colonne della mia 
datagrid attualmente i nomi che vedo sono quelli dei campi effettivi 
della tabella, come posso personalizzarli?
Ciao Max


Io farei cosi:
Flex1.row= 1 (o forse zero)
Flex1.col= 3
Flex.text= "Nome che vuoi"
Oppure nella query che usi per popolarla
--
Greg

 ha scritt

direi stia parlando di una datagrid, non di una flexgrid.
max: tasto destro sulla griglia >
properties > columns > datafield / caption.
quindi suppongo anche a runtime (mai provato, perņ):
dg.columns(0).caption= "aaa"
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET, ASP.NET] E' possibile verificare la presenza di acrobat reader ?

Ciao a tutti.
All'interno di una web form o pagina html è possibile verificare che acrobat
reader sia già installato nel client corrente ?
Grazie.
Roby

 acrobat reader sia già installato nel client corrente ?
Due sono le strade:
Vai nel registry e verifichi l'esistenza delle chiavi relative ad Acrobat
HKEY_LocalMachine\Software\Adobe\Acrobat Reader
Saluti.

HKEY_LocalMachine\Software\Adobe\Acrobat Reader
Ahem, e la seconda? ;-)
-- 
ciao, hal

 ha scritto nel messaggio
news:h3oglvk93ss68ec5k...@4ax.com...

quella della perdizione...  :P
(si capisce che oggi sono in vena di ot...?)
ciao
ugo

 ha scritto nel
messaggio news:bj9md8$hc0$1...@newsreader1.mclink.it...

Come è possibile dalla paginaHTML.aspx di un qualsiasi pc che sta navigando
?
giuseppeD

 wrote in message
news:omZ5b.25479$R32.7...@news2.tin.it...

Mettendoci dentro uno script?
Saluti.

 wrote in message
news:h3oglvk93ss68ec5k...@4ax.com...

Era quella di vedere se esiste da qualche parte l'exe Acrord32.exe,
però la cosa è pericolosa dato che per funzionare Acrobat ha bisogno dei
parametri scritti nel registry.
Saluti.

secondo me vuole controllarlo lato server.....no?
se dovesse controllarlo lato client, allora è un problema, credo:
- si può accedere al registro via vbscript (!!!) ?
- posso ricercare un .exe sul pc dell'utente (!!! 2) ?
l'unico modo secondo me è cercare di fare una CreateObject lato client. Se
ritorna un errore, vuol dire che l'ocx di acro reader non esiste, e magari
lo reindirizzi su una pagina per farne il download.....
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 lo reindirizzi su una pagina per farne il download.....
Lo script, il file, scritto per quella operazione, si deve trovare nel pc
dell'utente,e in una directory.
Esatto ?
Messaggio all'utente: "Scaricati questo script e mettilo nella cartella
....."
- Come raggiungo quella cartella ?
- nell' HD necessita la presenza di wscript ? Penso di si
- Come dialogo con la risposta ? " Se non è presente o è una versione
precedente, come attivare il dowload del file ?"
Attraverso i Cookie ? - Non credo
- Con quale procedura la Microsoft si introduce nel mio HD per verificare le
versioni dei programmi, per annunciarmi il responso e l'aggiornamento in
automatico?
Allora è possibile !
Forse la Microsoft ha depositato degli script e sa dove cercarli ?
Quì si parla del linguaggio della microsoft,
forse usa Java ?
Se è così non vale, siamo [OT]
Ma se risolvi, come aprire una MessageBox, solo con Java, che [OT] è ?
Quindi come ne esco, come risolvo ?
Se l'utente ha bloccato l'ingresso a tutti gli script ?
Salve
giuseppeD

Se l'utente ha bloccato l'ingresso a tutti gli script ?
Questo e' il punto, ma l'utente medio di Microsoft solitamente lascia
non delle porte, ma delle autostrade a otto corsie aperte.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Save Posizione Form

Marco.
Nando

 impostando opportunamente i valori delle proprieta' Top e Left.

Newsgroup: it.comp.lang.visual-basic
Titolo: Invio di SMS

Salve a tutti, forse la mia domanda potrà sembrare molto assurda ma
purtroppo un mio cliente mi ha presentato il seguente problema:
Mi chiedeva se è possibile fare in modo che access invii un sms a un cliente
inserito nella mia tabella clienti o a tutti i clienti, non so se sia
realizzabile o meglio sicuramente si può fare magari non con access ma con
vb, se sapreste darmi un consiglio ve ne sarei grato. Io conosco bene access
e poco visual basic ma se avete codici che trattano questo argomento mandate
pure io li studierò con molto piacere.
Grazie a tutti, ciao.
Marco

Secondo me devi appoggiarti ad un componente che riceva in input un
messaggio e un numero di telefono e che si occupi di effettuare l'invio
mediante un cellulare collegato al pc oppure che effettui l'invio mediante
internet.
Stavo pensando di realizzare un componente del genere che effettui l'invio
tramite internet utilizzando gateways SMS a pagamento. Qualcuno è
interessato?
Il Pioniere.



Potresti usare VisualBasic con il componente per la gestione della
porta COM e quidi di un modem.
Se non e' necessario usare un cellulare, come ho detto, potresti usare
la linea telefonica normale senza collegarti ad internet (praticamente
inutile).
Comuque, visto che conosci poco VB, leggiti info su come usare la
porta COM e fatti risentire!
Ciao

 ha scritto nel messaggio
news:9cIj7.77567$TS4.5...@news2.tin.it...




Scusa, ho sbagliato soggetto, devo averti mandato per sbaglio una
email con una risposta pensando fossi l'utente del primo post!
Sorry


Puoi provare volasms-activex, serve per inviare sms.
Lo trovi su 
http://www.vola.it/vap/default.htm
 .

Newsgroup: it.comp.lang.visual-basic
Titolo: ?menu a discesa di Pannello di controllo

Ho scaricato da internet due programmi dimostrativi, che usano il menu a 
discesa, tipo quello che c'è sulla sinistra, del pannello di controllo di 
XP.
Volevo sapere se è possibile utilizzare quel menu in vb6
Grazie
Carmelo


http://www.vbaccelerator.com/home/VB/Code/Controls/Explorer_Bar_Control/article.asp
eccolo all'opera:
http://www.gbcdepot.com/%5Fiem2/popREAD.jpg
con un po' di buona volontà si riesce anche ad usare gli usercontrol, 
giusto per non inserire troppi ocx in un progetto
-> GbC
www.gbcweb.com
www.chiappori.com
Newsgroup: it.comp.lang.visual-basic
Titolo: How to best Terminate / Unload or close window

I was experimenting with unloading my Windows. Can anyone explain to me what
happens in VB6.
My understanding is that Unload is followed by a Terminate event.
But if the user closes using the Close menu option in the windows or the "X"
at the top right, what happens then?
Is there a way to disable or capture these events.
Many Thanks
Michael

"Michael Lee" ha scritto nel messaggio

Michael, you should take a look to the QueryUnload event in the on-line help,
which has the Cancel and UnloadMode parameters.
By the way, we're always glad to help everybody, but you could get better
advice on an international newsgroup. The "it." in the name of this NG
stands for Italian, not for Information Technology or something similar... ;-)
Good programming !
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: gaetano_d(chioccioletta)
hotmail.com

>The "it." in the name of this NG  stands for Italian, not for Information
Technology or something similar... ;-)<<
Heh heh..I must admit I did not notice this as I had a few newsgroups list
on my Netscape.
Thanks
Michael
"Paperino" <non...@lo.dico> wrote in message
news:99dq15$49f0$1...@stargate1.inet.it...


on my Netscape.
Hey, you're using Microsoft Outlook Express 5.00.2919.6700, not Netscape !
hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire-chiudere il cassetto del CD

Utilizzo il seguente:
<codice>
Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
'// Per aprire il cassetto CD
retvalue = mcisendstring("set CDAudio door open", returnstring, 127, 0)
'// Per chiudere il cassetto CD
retvalue = mcisendstring("set CDAudio door closed", returnstring, 127, 0)
</codice>
per aprire-chiudere il cassetto cd eseguendo il prog su un pc remoto.
Se il pc remoto ha più di un lettore cd (x es un lettore e un
masterizzatore) come faccio a indicare quale voglio aprire?
Grazie
--
S.
~~~~~~~~~~~~~~~~~~
www.apodittico.com
*La satira trendy*
~~~~~~~~~~~~~~~~~~

"Stefania S." <stefa...@TOGLIQUESTOinfinito.it> ha scritto nel messaggio
news:ailt6k$k89$1...@fe1.cs.interbusiness.it...
[cut]
ho inviato un esempio per fare quello che ti interessa su 
www.redangel.it
,
dagli un'occhiata.
ciao, assa.

 ciao, assa.
Perfetto.
Tnx a lot

Newsgroup: it.comp.lang.visual-basic
Titolo: Uso particolare delle proprietà

Non so se sia possibile, ma a me servirebbe un modo per impostare
una proprietà di un controllo senza specificarla da codice ma in modo
esterno. Faccio un esempio:
MioForm.<una qualsiasi proprità che imposto esternamenta dal codice>
oppure un modo per scorrere tutte le proprietà in modo analogo a quello che
si fa con
i controlli in un form (for each Control in Form1 .....)
grazie, spero di essere stato chiaro.
fgmac

 i controlli in un form (for each Control in Form1 .....)
Se usi VB6 c'è la CallByName()
Ciao
------------------------- SiDB Simple DataBase engine ----
------------------------- adParser Expression evaluator --
 
http://space.virgilio.it/zntf...@tin.it/
----------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto collegamento db su intenet

Salve a tutti.
Possiedo un sito internet e vorrei fare delle operazioni utilizzando un
programmino vb (invece che l'asp) sul db residente su tale sito.
Esiste qualche comando che mi permetta di collegarmi al database e di
utilizzarlo??
Ovviamente ho provato con l'istruzione:
Set miodatabase = OpenDatabase("
http://www.miosito.it/archivio.mdb
")
e ovviamente non funzione (sarebbe troppo facile).
Ringrazio in anticipo e saluto.
Antony
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

I casi sono 2
Siccome probabilmente sul server su cui risiede il tuo sito non avrai la
possibilità di usare SOAP et similia, ti consiglio di creare delle pagine
ASP che lavorano da "intermediario" (in GET s'intende) e sfruttando il
controllo inet
In alternativa, se il tuo file mdb non è troppo pesante, potresti sempre
scaricarlo in locale per poi ripubblicarlo (sempre usando il controllo inet)
Newsgroup: it.comp.lang.visual-basic
Titolo: Domande su ADD IN

Salve a tutti, sto sviluppando una semplice add in che cancella tutti i
records da un db (utie per eliminare tutte le prove quando il programma è
terminati), allinea il codice, ecc. ecc.
Ho 2 quesiti che spero l'esperto popolo di questo newsgroup possa risolvere:
1-C'è la possibilità di entrare in modalità di debug, oppure ogni volta che
faccio una modifica devo creare la dll e testarla?
2-Sono riuscito a creare il pulsante sulla barra del menù. Come faccio ad
associare un'immagine e un evento in risposta alquale dovrebbe partire una
procedura?

 procedura?
Non ti so rispondere perche' non ho mai fatto add-in e non so come hai fatto
il pulsante. Sorry.
Ciao
Aldo

 vbp) e la dll stessa.
Rispondo a questo messaggio anziché all'originale perchè temo che la
risposta fornita non sia corretta. Un addin è una dll che viene però
referenziata dall'ide di visualbasic il quale non riesce contemporaneamente
a far andare la dll e a refernziarla.
Per testare un addin l'unica strada che conosco (ma non sono pronto a
scommettere che quella proposta sia valida) è quella di caricare la tua dll
e lanciarla, dopo di che devi aprire un'altra istanza di vb e dal gestore
aggiunte caricare la tua dll. In questo modo viene caricata la dll che sta
esegundo vb e non quella che potresti aver eventualmente compilato prima.
Mettendo dei breack point nel codice potrei testarlo senza problemi. Ti
ricordo che nel caso l'entry-point del "programma" è l'evento onconnect
dell'interfaccia IExtensibility (forse il prefisso è diverso).
Per quanto riguarda la seconda domanda le tecnica per caricare un'immagine
consiste sostanzialmente nel copiare l'immagine nella memoria e poi usare il
metodo PasteFace dell'oggetto command. Di norma per caricare l'immagine
nella clipboard si infilano le immagini (rigorosamente .bmp 16X16 e non
.ico) in un file di risorse e poi si usa l'istruzione standard di vb SetData
(credo, cmq puoi controllare sull'help) per caricare un'immagine nella
clipboard. Non puoi usare .ico proprio perché questa istruzione vuole un
pointer a un oggetto picture che contenga una bitmap. Suppongo però che
possano esistere altre strade per copiare delle icone in memoria e quindi
poi utilizzarle.
Per catturare gli eventi la strada è un po più lunga ma non di tanto. Ti
devi dichiarare withevents una variabile di tipo VBIDE.CommandBarEvent. Dopo
aver creato il pulsante devi settare quasta variabile
=VBInstance.CommandBarEvents(nome del pulsante), dove VBInstance è la
variabile che punta al VBE e se hai usato la creazione guidata si chiama
gVBInstance. A questo punto gli eventi del pulsante vengono gestiti da
questa variabile.
Tutto quello che ti ho appena detto è spiegato, non so quanto meglio poiché
la documentazione a riguardo è un po' carente (a tratti inesistente), su
MSDN.
Ciao, Rick.

 risposta fornita non sia corretta.
Purtroppo il tuo non e' timore, ma certezza. Quando avevo risposto, non
avevo riflettutto sul fatto che si stava parlando di add-in.
Grazie per l' intervento, Rick.
Ciao
Aldo
'''''''''''''''''''''''''''''''

Newsgroup: it.comp.lang.visual-basic
Titolo: Ordinamento dati: Access VS VB

Dal debug: 
PRINT "_PBX_" < "00*ATT*"
False
Da Access
SELECT * FROM <Tabella> ORDER BY <Campo>
...
_PBX_
...
...
00*ATT*
Resto un attimo basito...sono obbligato, allora a aggiungere una routine
di sort ogni volta che leggo dati da una tabella, per essere sicuro che
VB non mi faccia scherzi strani?
Bye by SixaM 8-]
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Bye by SixaM 8-]
Per testare, provate a creare una tabella con un solo campo, con i
valori
1pippo
apippo
_pippo
*pippo
e a ordinarli: viene fuori (crescente)
*pippo
_pippo
1pippo
apippo
Il mio livello di basita' (= 'essere basito) si sta' alzando a livelli
preoccupanti...


Newsgroup: it.comp.lang.visual-basic
Titolo: Programma per comunicazione seriale

Qualcuno sà darmi qualche dritta su come realizzare un programma di
comunicazione asincrono rs232 in vb6 che mi permetta l'invio singolo di un
byte alla volta?
Questo nasce dalla necessità di inviare dei comandi ad un microprocessore
tramite interfaccia seriale. Ho provato anche con l'Hyperterminal ma non
funziona o non riesco a settarlo nel modo giusto. Invece al momento uso il
programma
LookRs 232 e funziona bene, solo che a me serve customizzare il tutto e
quindi quello che ci vuole è proprio un bell'exe
in vb6. E' gradito anche un eventuale suggerimento di codice.
Grazie a tutti :-)
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

fai un salto su 
www.elettronicamente.com
 e vedi cosa trovi.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it

quindi quello che ci vuole è proprio un bell'exe
Direi che puoi usare Mscomm
sul sito comune c'è un buon articolo introduttivo,
http://www.it-lang-vb.net/Documentazione/Articoli/MSCOMM.htm
e sulla rete trovi moltissimi esempi di codice
ciao
  Stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: suoni record

Desidero sviluppare un programma che fa i funicones di una macchina di
risposta, tuttavia non come causare che quando l'attività nell'orificio del
modem è rilevata comincia a registrare, sto guardando gli esempi del MCI ma
credo che non sia contro ma approprio.
Qualcuno può aiutarlo....
Grazie molto
Noriepa


Ma se faccio la traduzione inversa, secondo voi il mittente riottiene 
l'originale?
Newsgroup: it.comp.lang.visual-basic
Titolo: VBA   combobox

salve
in vba la combobox NON ha il metodo combobox1.order o almeno io non l'ho 
trovato
quindi come fare a riempire una combobox in oerdine alfabetico
senza caricare tutti gli additem in una matrice o arrai e poi ordinarli con 
una sub di ordinamento
grazie della risposta
leonello 


Qui hai già guardato:
http://www.google.it/search?hl=it&q=excel+ordinare+combobox&btnG=Cerca+con+Google&meta=
http://groups.google.it/groups?hl=it&q=excel%20ordinare%20combobox&btnG=Cerca+con+Google&ie=UTF-8&oe=UTF-8&um=1&sa=N&tab=wg
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/
 

mi sono dimenticato di dire che la comboboc la uso in una presentazione di 
PowerPoiont ed il vba fra excel e PowerPointi sono diversi...purtroppo
leonello
"Mauro Gamberini" <maurogsc...@RIMUOVEREaliceposta.it> ha scritto nel 
messaggio news:46125e47$0$37200$4faf...@reader3.news.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Macro in Automatico

Ciao Ragazzi,
ho un file excel sul quale ho creato una macro che in automatico mi
salvi lo stesso file in formato prn in una certa cartella.
Vorrei schedulare questa macro in modo tale che parte da sola ad un
certo orario.
Mi potete dare una mano?
Grazie
Alessandro

 ha scritto nel messaggio
news:1152715724.2...@p79g2000cwp.googlegroups.com...

potresti mettere nel file excel una macro che si carica in automatico al
lancio del file : devi metterla in Microsoft Excel Oggetti - ThisWorkbook
e deve essere del tipo
sub Workbook_open()
'scrivi qui dentro cosa vuoi che faccia
    Modulo1.chiusuraserale  'per lanciare la routine ChiusuraSerale indicata
qui sotto
end sub
qui sotto ti scrivo la macro che uso io per far chiudere il file ad una
certa ora :
dim SchedRecalc
sub ChiusuraSerale()
    SchedRecalc =range("a1")  'indico qui l ora di chiusura del file
    application.ontime Schedrecalc "ChiudiFile"
end sub
sub ChiudiFile()
    activeworkbook.save
    application.displayalerts=false
    application.quit
end sub

pie...@libero.it
 ha scritto:

Sicuro che hai bisogno di Excel per questo....?
Ovviamente non conoscendo l'intera Macro posso sbagliare, ma se crei un
file
VBS nel quale tramite Automazione fai eseguire quello che eseguiva la
Macro, puoi anche schedulare l'esecuzione del File.VBS tra le
operazioni pianificate di Windows.
@Alex
Newsgroup: it.comp.lang.visual-basic
Titolo: Protezione!!!

E' possibile autorizzare l'apertura di una pagina Internet, in html o
php, solo partendo da un controllo ActiveX riguardante Password,...cmq
già creato in modo da avere una certa protezione? Grazie.
Andrea.


imho no... ammenochè il controllo non contenga a sua volta un borwser che
nasconda l'indirizzo della pagina all'utente...

 già creato in modo da avere una certa protezione? Grazie.
Se il controllo ActiveX è sulla pagina da proteggere, al limite puoi
controllare se l'accesso è consentito o meno, e quindi redirigere
istantaneamente su una pagina di warning. Il trucco però è superabile,
perchè basta inibire l'esecuzione degli ActiveX, e il tuo Ocx diventa un
quadratino colorato morto.
Se invece il tuo Ocx è, diciamo così, la prima schermata di un applicativo,
l'utente inserisce la password, e poi devi attivare altre cose, una
soluzione esiste, ma richiede un po' di lavoro.
Io faccio così:
La mia applicazione è TUTTA in un unico Ocx. Chiamiamolo Main.
Main, appena si attiva, visualizza dentro di se l'Ocx FIRST.
In questo Ocx viene inserita la password. Se è corretta, First si uccide e
un attimo prima di morire chiama SECOND, che è in realtà un menu, da cui con
lo stesso trucco puoi navigare fra Ocx.
In pratica, l'applicazione usa gli Ocx come se fossero Form, ed il Container
di tutte queste Form/Ocx è un Ocx a sua volta contenuto in una pagina Html
(che non cambia mai, perchè la 'navigazione' è dentro all'Ocx 'Main').
Se, ultima possibilità, il tuo Ocx deve autenticare la pwd e poi chiamare
delle pagine Html ubicate altrove, non vedo altra soluzione che lavorare un
po' sui permessi del server web, ma a questo punto su questo NG diventa un
po' OT.
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: Risoluzione Video&References=<36bdd94a.2224934@news.tin.it>

HO RICEVUTO QUESTO PROGRAMMA DA UN'ANIMA BUONA DI QUESTO SITO
e volentieri lo riciclo, lo ho appena un po' completato, ma non è merito
mio
Nel form_load del form principale devi mettere:
Dim RapportoOres!, RapportoVres!
RapportoOres = (Screen.Width / Screen.TwipsPerPixelX) / 1024 
RapportoVres = (Screen.Height / Screen.TwipsPerPixelY) / 768 
poi, per tutti i form:
Call SetReso(<nome dei vari form>, RapportoOres, RapportoVres)
Sub SetReso(frm As Form, RO!, RV!)
   On Error GoTo ErrH
' dimensione della form
    frm.Width = frm.Width * RO
    frm.Height = frm.Height * RV
' dimensione e posizione dei control
For i = 0 To frm.Controls.Count - 1
    frm.Controls(i).Left = frm.Controls(i).Left * RO
     frm.Controls(i).Top = frm.Controls(i).Top * RV
    frm.Controls(i).Width = frm.Controls(i).Width * RO
    frm.Controls(i).Height = frm.Controls(i).Height * RV
    frm.Controls(i).FontSize = frm.Controls(i).FontSize * RV
Next i
'posizione eventuali linee
   For i = 0 To frm.Linea.Count - 1
      frm.Linea(i).X1 = frm.Linea(i).X1 * RO
      frm.Linea(i).X2 = frm.Linea(i).X2 * RO
      frm.Linea(i).Y1 = frm.Linea(i).Y1 * RV
      frm.Linea(i).Y2 = frm.Linea(i).Y2 * RV
   Next
Exit Sub
ErrH:
    Resume Next
End Sub
a me funziona benissimo, tieno conto che ho un monitor 1024x768, devi
cambiare questi numeri, fammi sapere il risultato
Giorgio Barozzi
g.ba...@pronet.it
--
Posted from 
helium.pronet.it
 [194.183.5.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

Scusa, mi potresti dire che cosa fa questo programma? GRAZIE.

Ridimensiona tutti i controlli di un form a seconda della risoluzione corrente.
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

...


controlli di un form ??
Se tu cambi risoluzione, una form che occupava tre quarti dello schermo a 1024x768, non ti sta piů a 640x480. Di
conseguenza devi rimpicciolire controllo per controllo (cambiandone i font) per poter rimpicciolire il form? Claro?
Cosě, in pratica, ancori la dimensione del form allo spazio visivo del monitor....
Ciao,
Morneo


Newsgroup: it.comp.lang.visual-basic
Titolo: Tooltiptext multiline

Ciao, come faccio a far andare a capo quando voglio i messaggi dei
tooltiptext?
Ho provato con
command1.tooltiptext = "Prima riga" & vbcrlf  & "Seconda riga"
ma quando provo se funziona, mi scrive
Prima riga||Seconda riga
Come faccio??
Grazie

 Come faccio??
Sito comune cerca tooltiptext
http://www.it-lang-vb.net/
Newsgroup: it.comp.lang.visual-basic
Titolo: ricercare word

Salve a tutti,
come posso rilevare in VB5 se word è installato sul PC e se si in quale
cartella?
Grazie
Sandro

 cartella?
Basta dare una sbirciatina nel registro, trovati una chiave o una stringa
mese li' da word ed e' fatta.
ES.
HKEY_CLASSES_ROOT\CLSID\{00020906-0000-0000-C000-000000000046}\LocalServer32
Ce ne sono decine.
CiaoZ


Dimmi a che ti serve..............
Sergio

 ha scritto nel messaggio
news:8reitm$64e$1...@fe1.cs.interbusiness.it...



prova con questo frammento di codice, dovrebbe fare al caso tuo;
Public Function MsWordPath() As String
    On Error GoTo err_MsWordPath
    Dim obj As Object
    Set obj = CreateObject("Word.Application")
    MsWordPath = obj.Path
    Exit Function
err_MsWordPath:
    MsWordPath = ""
End Function
se MsWord è installato allora la funzione ritorna il path della directory
dove è installato, altrimenti ritorna una stringa vuota;
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Form in caricamento

Salve a tutti.
In fase di progettazione ho assegnato ai vari controlli delle caption
a casaccio (o magari mirate a verificare la larghezza massima delle
stringhe consentite). Ovviamente tali valori vengono tutti subito
cancellati o sostituiti a run-time.
Adesso pero' che il programma sta avendo una sua certa consistenza,
osservo che (soprattutto nelle macchine piu' lente) in fase di
caricamento il form assume, per un tempo non impercettibile, l'aspetto
che ha in fase di progettazione.
Desidererei pertanto sapere se e' possibile evitare questo piccolo
fastidio, magari rendendo il form visibile soltanto al termine del
caricamento... ho pero' provato una cosa simile, ma purtroppo non ha
dato risultati.
Grazie in anticipo!

 wrote in message
lbpppss3ho2vjrb9a...@4ax.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: Sviluppare un backup

ciao gente,
aiutatemi a risolvere il mio problema, devo creare una funzione di backup e
ripristino da backup per il mio software (praticamente solo il .mdb) ma
tutto questo senza l'aiuto di tools esterni professionali a pagamento.
Visto che dovrei anche compattare, o almeno dare la possibilitŕ di splittare
il backup stavo cercando qualche bel ocx di quelli freeware oppure stavo
cercando di pilotare tramite subclassing il backup di win95/98 ma c'č da
spararsi !!!!
vi prego aiutatemi !!!
se sapete come risolvere il mio problema fatemelo sapere .. grazie

 cercando di pilotare tramite subclassing il backup di win95/98 ma c'è da


ti ringrazio molto per il consiglio di ZLibTools ma non mi pare che permetta
di splittare
il file compresso ... sai come posso farlo ?
grazie ancora ciao

Per splittare un file basta che apri l'origine come file in modalità
binary. Apri un altro file di destinazione sempre in modalità binary e
poi ci copi a mano byte per byte fino a che non raggiungi la dimensione
desiderata del file. Chiudi il file di destinazione pieno, ne apri
un'altro e ricominci finché non arrivi in fondo al file di origine. Per
la compressione non so che dirti. Ho visto da qualche parte ocx che
comprimevano in formato zip o qualcosa del genere.
Ciao!
-- 
May
---------------------------------------------------------
MaySist...@lycosmail.com
Togliere MAYBE
ICQ_UIN: 27234690
---------------------------------------------------------
Alessandro ha scritto:


Newsgroup: it.comp.lang.visual-basic
Titolo: excel <> access

come posso fare per convertire un file di excel in un dbase access?
qualcuno sa' qualche cosa?
grazie

...


 wrote in message
82isdt$spj$1...@lacerta.tiscalinet.it...


ci ho provato, ma se mi potessi dare un esempio molto semplice, o qualche
informazioni in +, ti sarei grato.
solo la parte excel, la parte dbase non c'e' problema...

Newsgroup: it.comp.lang.visual-basic
Titolo: Non ne posso più !!

Ciao,
Non riesco a venirne fuori.... se imposto i caratteri grandi in windows, mi
si reimposta anche la grandezza del form e di una picture box che ho
all'interno.....il problema è che l' immagine in essa contenuta mantiene le
dimensioni originali...pensavo di venirne fuori con queste due righe di
codice:
Me.picture1.picture.height = picture1.height
me.picture1.picture.width = picture1.width
...pensando di assegnare la larghezza e l'altezza del controllo Picturebox
all'immagine.
Purtroppo mi dice "Utilizzo non valido di Property", segandomi ancora una
volta le gambe
....ergo.....AIUTOOOOOOOOOOOOOOOOOOOOOOOOOO
Alessandro

 ha scritto nel messaggio
news:9d3drg$j3v$1...@pegasus.tiscalinet.it...

Così non puoi risolvere, perchè non esistono le proprietà height e width
dell'immagine di una pictureBox, per risolvere prova questo codice:
me.picture1.paintpicture Picture1.image,0,0,picture1.width,picture1.height
Non so se funziona, non ho provato...
ciao
P.S. La prossima volta cerca di postare un subject + decente...
---------------------------------------------------------
             ASSA
http://assatarram.yohoo.it
Bookmark download:
http://www.redangel.it/beta_zone/Click_p.asp?ID_P=19
Napster: Assatarram3
---------------------------------------------------------

 codice:
Usa un controllo image con la .stretch=true
ciao
ugo

 ....ergo.....AIUTOOOOOOOOOOOOOOOOOOOOOOOOOO
Inaftti AIUTOOOOOOOOOOOOOOOO, basta subject del c*zzo!!!!!!!!!!
Anchio non ne posso più!!!!
--
Timothy Redaelli
timothy....@email.it
P.S. Scusate l'OT ma mi dovevo sfogare!!

Funziona...:-)) ; perň mi rode dargliela vinta cosě....ora voglio provare
anche il suggerimento di Assa


chiedo scusa


codice:
Prova ad impostare ScaleMode a pixel, sia per il form che per le picture.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: ping e nbtstat (si possono fare in vb) ?

Ciao a tutti
dovrei, dato un range di indirizzi ip, eseguire i comandi PING e
NBTSTAT.
Come posso fare questo evitando di far comparire la maschera del
comando DOS ?
Ciao a tutti
Sam

Per Ping sul sito comune c'è un esempio completo.

 comando DOS ?
Per quanto riguarda Nbtstat guarda la funzione Netbios
(netapi32.dll). La struttura NCB che viene passata,
permette di specificare quale comando deve essere
eseguito. Trovi tutti gli equivalenti delle opzioni -n -a -A
ecc.



Dove trovo la struttura della funzione Netbios ?
Grazie
Sam

> Dove trovo la struttura della funzione Netbios ?
' Net Control Block
Public Const NCBNAMSZ = 16
Public Type NET_CONTROL_BLOCK  'NCB
   ncb_command As Byte
   ncb_retcode As Byte
   ncb_lsn As Byte
   ncb_num As Byte
   ncb_buffer As Long
   ncb_length As Integer
   ncb_callname As String * NCBNAMSZ
   ncb_name As String * NCBNAMSZ
   ncb_rto As Byte
   ncb_sto As Byte
   ncb_post As Long
   ncb_lana_num As Byte
   ncb_cmd_cplt As Byte
   ncb_reserve(9) As Byte ' Riservato, deve essere 0
   ncb_event As Long
End Type
Public Declare Function Netbios Lib "netapi32.dll" _
    (pNCB As NET_CONTROL_BLOCK) As Byte
La funzione ritorna il codice definito da ncb_retcode
Per quanto riguarda i membri ncb_command e ncb_retcode,
i valori attribuibili al primo e quelli restituiti dal secondo li
trovi tutti nell'Api Text Viewer come NCB_* e NRC_*
E' comunque necessario che tu consulti l'SDK o l'MSDN
per conoscere le modalità di utilizzo dei comandi e
l'interpretazione dei codici di ritorno. Per spiegarli tutti
bisogna scrivere un libro.



Grazie
Sam

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] News.CIS.DFN.DE

Sti tedeschi svuotano il server news sempre più spesso, quindi mi ritrovo il
NG senza messaggi quasi ogni giorno.
Qualcuno conosce qualche altro server news (poss. gratis)?
Thanks!
SebaMix

 ha scritto

se cerchi in google news serve e simili, autore paperino, mi sembra avesse
postato una luna lista.
non capisco pero' cosa intendi. io continuo a fare aggiornamenti o varie
volte al giorno o a volte dopo weekend anche lunghi e mi sembra che di
messaggi ce ne siano parecchi.
ciao, a.

 Qualcuno conosce qualche altro server news (poss. gratis)?
Sul mio sito c'era un articoletto con alcuni motori di ricerca per news
servers free è un po' che non li testo...
http://www.hardwaretips.com/modules.php?name=News&file=article&sid=8

 ha scritto nel messaggio
news:a7nneb$mrqha$1...@ID-66833.news.dfncis.de...

pubnews.netcom.net.uk
Ciao
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com

 
pubnews.netcom.net.uk
grazie, buono a sapersi.
poco fa comunque ho sincronizzato 3 ng sul pc di casa, sul quale da vari
giorni non usavo outlook, e mi ha scaricato un bel po' di messaggi
arretrati.
ciao, a.

 ha scritto nel messaggio
news:a7nneb$mrqha$1...@ID-66833.news.dfncis.de...

Prova a dare un'occhiata su questa lista:
http://www.newzbot.com/serverlist.php
è dinamica !!!
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Logo aziendale - File BMP

Sono a buon punto per le stampe della mia modulistica (DDT , ordini,
fatture) con l'oggetto printer.
Ho riservato uno spazio nell'angolo superiore sinistro del foglio per la
stampa del Logo dell'azienda.
Ho fatto alcune prove in proposito per stampare un file BMP.
Quando ho provato a stampare un logo effettivo mi sono poi provato in
difficoltà.
Ho provato a catturare l'immagine con lo scanner da un bigliettino da
visita.
Pessimo risultato.
Sarei curioso di sapere come, chi di Voi ha affrontato il medesimo problema,
lo ha poi risolto.
A questo punto pensavo:
- Scrivo per benino la ragione sociale in un file di word.
- Da quel file ottengo un'immagine BMP (come ??).
Non aggiungo altro ed attendo qualche gentile consiglio.
Ciao, Sauro

 scrive in
news:Tp44a.126857$
YG2.3...@twister1.libero.it
: 

Devi cercare di rispettare le dimensioni che hai usato quando lo hai letto 
con lo scanner e non andare sotto i 300 dpi.
Cioè... Se hai letto una immagine da 5x3 cm, nella stampa devi lasciare 
queste dimensioni. Altrimenti il driver di stampa 'streccha' l'immagine ed 
i risultati sono imprevedibili (ed in genere di qualità scarsissima).
Certo che puoi farlo solo usando l'oggetto printer :))
Bye
-> GbC

 - Da quel file ottengo un'immagine BMP (come ??).
1)
Puoi 'scrivere per benino' direttamente in Paint, così hai già un BMP.
2)
Premi 'Stamp' sulla tastiera, apri Paint, premi CTRL+V, dici Sì, manipoli le
dimensioni e salvi.
Ciao
Alberto

 Alberto
La prima prova non ha dato un gran risultato.
Però ho visto come funziona e penso di riuscire con
il metodo che mi hai suggerito.
Grazie, Sauro


Grazie, Sauro
Newsgroup: it.comp.lang.visual-basic
Titolo: mci

Vorrei fare un lettore di file video.
con l'api mciSendString
dopo averlo aperto.....
percorso = App.Path & "\MyFile.avi"
r1 = mciSendString("OPEN " & percorso & " ALIAS  myavi", rtn, Len(rtn), 0)
e mandato in esecuzione con ....
 r5 = mciSendString("PLAY myavi", rtn, Len(rtn), 0)
Tutto funziona..però se avvio (monitor di sistema)
e visualizzo (Utilizzo Del Processore)
mi accorgo che sta lavorando al 100%
mentre se utilizzo Windows Media Player
e al minimo.
dov è l'errore.
potete darmi consigli o link di esempi .

dov è l'errore.
Penso che sia in come aspetti che abbia finito...
Ho appena provato con un mp3, non ho avi abbastanza lunghi sotto mano,
ma garantisco che l'occupazione del processore e' minima:
<code>
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" _
		Alias "mciSendStringA" ( _
                ByVal lpstrCommand As String, _
		ByVal lpstrReturnString As String, _
                ByVal uReturnLength As Long, _
		ByVal hwndCallback As Long) As Long
Public Sub Main()
    Dim percorso As String
    percorso = "F:\Miomp3.mp3"
    Call mciSendString("open """ & percorso & """ alias barbie", _
 			vbNullString, 0, 0)
    Call mciSendString("play barbie wait", 0&, 0, 0)
    Call mciSendString("close barbie", 0&, 0, 0)
End Sub
</code>
-- 
ciao, hal

 ha scritto nel messaggio
news:pevgkv8ccousv0a11...@4ax.com...


si... ma non x i video..........
Ho appena provato adesso con un divx da 570MB: l'occupazione della cpu
e' identica ad aprire il player predefinito.
Come ti ho gia' scritto, il problema sta in come aspetti, ma non mi
hai risposto.
A proposito: per favore impara a quotare...
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Path MS-Office

Ciao a tutti,
qualcuno e' in grado di dirmi come ricavare la direttory dove e' installato
MS-Office.
N.B. Uso Vb4 e MS-Office 7
Grazie.

La routine che segue arriva da un
manuale che ho letto da poco.
Lo scopo della routine e' quello di
lanciare l'applicativo
"Microsoft System Info".
Se noti nella routine viene cercato
il percorso del programma.
Se funziona con "Microsoft System Info"
potrebbe funzionare anche con Office.
Se riesci a modificarla per il tuo
caso dovresti risolvere il problema.
Attenzione alla variabile dove
si memorizza il percorso,
contiene anche il nome dell'eseguibile.
Forse esiste un modo piu' semplice,
ma questo e' tutto cio' che ho trovato.
Ciao,   fabrizio.
---CODICE--------------------------------------------------------------------------------------------------------------
' Dichiarazioni
#If Win16 Then
    Declare Function GetProfileString Lib "Kernel" _
     (ByVal AppName$, ByVal KeyName$, ByVal KeyDefault$, _
      ByVal ReturnString$, ByVal NumBytes As Integer) _
      As Integer
#Else
    Declare Function GetProfileString Lib "Kernel32" _
     Alias "GetProfileStringA" _
     (ByVal AppName$, ByVal KeyName$, ByVal KeyDefault$, _
      ByVal ReturnString$, ByVal NumBytes As Integer) _
      As Integer
#End If
'
'
'
Private Sub DisplaySystemInfo()
Dim iRetVal As Integer
Dim sTemp As String * 255
Dim sysInfoPath As String
    ' Locate the path to the system info.
    iRetVal = GetProfileString("Microsoft System Info", "MSINFO", "",
sTemp, Len(sTemp))
    If iRetVal = 0 Then
        MsgBox "Microsoft System Info is not available on this
computer."
    Else
        sysInfoPath = Left(sTemp, iRetVal)
        ' Start MS System Info
        #If Win16 Then
            Dim retVal As Integer
        #Else
            Dim retVal As Long
        #End If
        retVal = Shell(sysInfoPath, vbNormalFocus)
    End If
End Sub
---CODICE--------------------------------------------------------------------------------------------------------------------------------------
-------


caso dovresti risolvere il problema.
Non credo sia possibile adattare il tuo codice alle mie esigenze,
perche' da quello che ho capito, con GetProfileString e' necessario che il
percorso che cerco sia presente sul Win.ini, mentre i prog. per WIN95
scrivono queste informazioni sul file di registro.
Comunque grazie infinite lo stesso per l'interessamento.
Ciao Francesco
P.S.
Se ti dovesse venire in mente qualcos'altro fammelo sapere ;-)
Grazie

MS-Office.
	Tutti (o quasi) i programmi win95 si autoregistrano nel
registro di configurazione nella chiave
 "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App
Paths\"=20
	Office scrive la chiave "MSOFFICE.EXE" con la chiave PATH. Per
leggere tale informazione puoi usare (se non hai gia' un'utility) la
RegistryClass che puoi trovare nel sito in firma.
	Spero di esserti stato d'aiuto ...
	Bye.
Enzo Marinacci- Roma   (Italy)=20
http://www.pulsar.it/windows95
 Il Club dedicato a Win95!
http://www.bns.it/EMware
       Freeware & VisualBasic Utilities
*** Rimuovere NO-SPAM per rispondermi in E-Mail! ***