mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Lanciare 2 comandi shell in sequenza

se ho:
shell("c:\programma1.exe")
shell("c:\programma2.exe")
e' possibile fare in modo che la seconda riga venga eseguita non
appena termina l'esecuzione della prima riga ?
ci tengo a precisare che io non so, a priori, quanto durera'
l'esecuzione di Programma1
Grazie. 

 ha scritto nel messaggio
news:470a8db6$0$4789$4faf...@reader4.news.tin.it...

Usa questa versione di Shell WSH passando il parametro WAIT=True
Sub SincShell(ByVal Percorso As String, _
            ByVal windowstyle As Integer, _
            ByVal Wait As Boolean)
Dim wshell As Object
Set wshell = CreateObject("WScript.shell")
wshell.Run Percorso, windowstyle, Wait
Set wshell = Nothing
End Sub
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: threed32.ocx

Ho un problema:
Avevo un programma fatto in vb4, che è stato trasformato in vb6.
Successivamente è stata formattata la macchina e alla riapertura del
progetto, il VB6 mi segnlala che non ho la licenza dell'ocx in oggetto
(nel .log).
Come posso fare per fargli rivedere l'ocx ?
Grazie in anticipo.
	Filippo

Come posso fare per fargli rivedere l'ocx ?
Nel terzo (mi pare) cd di visual studio c'e' una directory "Controls".
Fra le varie cose contiene l' ocx e il file per usarlo nell' ambiente di
sviluppo. Ci dovrebbe essere anche un readme che spiega tutto.
-- 
ciao, un hal in ferie

Funziona perfettamente.
Grazie e ciao.
	Filippo


Newsgroup: it.comp.lang.visual-basic
Titolo: Dove sbaglio?

Sto utilizzando questa query che dovrebbe restituirmi i record di un certo
intervallo di tempo definito dalle date Inizio e Fine.
La stringa da Access funziona, mentre da VB mi restituisce un solo record!
Come mai? Dove sbaglio?
Public dbase As Database
Public rsStorico As Recordset
Public qdfStorico As QueryDef
    Set dbase = OpenDatabase(App.Path & "\mioDB.mdb", False)
    Set qdfStorico = dbase.CreateQueryDef("")
    qdfStorico.SQL = "SELECT Archivio.* " & _
                     "FROM Archivio " & _
                     "WHERE (Archivio.[Data e Ora Richiesta] >= #" &
Format$(Inizio, "mm-dd-yyyy") & "#) " & _
                     "AND (Archivio.[Data e Ora Richiesta] <= #" &
Format$(DateAdd("d", 1, Fine), "mm-dd-yyyy") & "#) " & _
                     "ORDER BY Archivio.[Data e Ora Richiesta]"
    Set rsStorico = qdfStorico.OpenRecordset
Grazie a tutti x l'attenzione!

 ha scritto nel messaggio
news:a6Gm8.57535$1S3.1...@twister1.libero.it...

ma è espresso nel formato MM DD YYYY !

Per la miseria, vediamo di "quotare" come si deve:
quaranta righe di quoting per una di risposta :-(
-- 
ciao, hal

 Per la miseria, vediamo di "quotare" come si deve:
In compenso Carmelo si è quotato anche la sua di risposta :)
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Verifica della validità di una istanza in un oggetto collection

Mi sono impasticciato un po' con le classi.
Ho un componente out of process che espone la classica classe user; una
collection globale (Users) contiene tutti i riferimenti alle istanze
allocate dai client, per cui ...
Sub Class_Initialize()
    Users.Add Me, Chiave
End Sub
ora, se dal client imposto l'istanza a Nothing, non essendo l'unico
riferimento a tale classe, l'istanza non viene deallocata (quindi la
variabile del client non assume valore Nothing) mentre tutte le proprietà
vengono ri-inizializzate (per esempio le proprietà di tipo string diventano
"" ecc..).
La cosa strana è, che se imposto l'istanza del client a Nothing, nel client
mi ritrovo tutte le proprietà riinizializzate ma la cosa non succede per il
riferimento contenuto nella collection ...
Esempio :
Dim x as New User
Dim Users as New Collection
x.Nome = "Pippo"
Users.Add x, x.Nome
x.Nome = "Pluto"
MsgBox Users("Pippo").Nome           '"Pluto"    'Ok
Set x = Nothing    'L'evento Class_Terminate non viene generato
(giustamente)
MsgBox x.Nome  'Restituisce una stringa vuota
MsgBox Users("Pippo").Nome     'Restituisce Pluto
Ma Users("Pippo") non è un riferimento diretto all' istanza creata da x ??
Grazie in anticipo
Saluti

 Dim Users as New Collection
[SNIP]
Non ho guardato attentamente il codice per cui potrei dire una fesseria,
comunque la prima cosa da provare sicuramente e' questa:
Dim x as User
Dim Users as Collection
Set x = New User
Set Users = New Collection
questo perche', con la sintassi " As New ", gli oggetti vengono automaticamente
istanziati ogni volta che fai loro riferimento, mentre con la sintassi qui
sopra, quando imposti un'istanza di oggetto a Nothing, resta Nothing!
Ciao
--
Luca Dormio
luca....@tin.it

 Ciao
Ti ringrazio per la celere risposta; purtroppo il problema non è quello in
quanto il codice che ho scritto è solo una semplificazione di quello reale,
infatti la classe User la devo dichiarare con WithEvents, per cui
l'istanziazione la devo gestire obbligatoriamente da codice ...
Saluti

 Saluti
E' proprio come dici tu invece ... mi sono perso nel classico bicchiere
d'acqua ...
Grazie ancora e scusa per non aver letto bene la tua risposta ...
saluti
Newsgroup: it.comp.lang.visual-basic
Titolo: Combobox

Che tipo di variabile devo assegnare come index per i combobox?
Se faccio:
for x=1 to 10
combo1.additem "Ciao", x
next
oppure se uso un'altra variabile come integer
mi da' sempre errore 5, perche? Grazie.
_____________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

 ha scritto nel messaggio
news:DlSY5.10063$x_2.8...@twister1.tin.it...


 next x
Ma io voglio assegnare il posto nel combo dove dico io, nel senso
che leggo record da un file con relativo campo indice e voglio assegnare
al combo l'index in modo da recuperare il record x con una get.
Come fare?


 al combo l'index in modo da recuperare il record x con una get.
Ciao,
prova a modificare il ciclo, partendo da 0 invece che da 1.
La proprietà Index della ComboBox è infatti 0-based.


Provo...


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

Qualcuno di voi ha già provato qualche ocx per gestire le mail pop3 anche
con attachements.
Grazie

 con attachements.
1) Prima di postare fai una ricerca nei vecchi messaggi per vedere se la
domanda è già stata fatta
2) Prova a visitare 
http://www.vbip.com
Ciao
Faber

 con attachements.
easy send and receive e-mail from your VB programs
SendMail.ocx (require MSWINSCK.OCX) download (28 KB)
POP3ocx.ocx (require MSWINSCK.OCX) download (31 kB)
http://members.xoom.com/dd_software/
free, non provati.
cerca anche kmail e kftp su
http://neti.hypermart.net
o
http://winfiles.cnet.com
ciao, a.

con attachements.
SIto COmune
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Tasti

Scusate esiste un modo per intercettare la pressione di un tasto anche in
applicazioni che non siano quella mia?
Vorrei sapere (magari scrivendolo in un file LOG) tutti i tasti premuti
durante la giornata al pc.
Anzi... il modo c'è... qualcuno sa indicarmelo per piacere? THX!!!
---------------------------------
Saluti dal Grande VEGETA PRINCIPE DEI SAIYAN
     /\    /\
\_/    \/    \_/

Scusate esiste un modo per intercettare la pressione di un tasto anche
in
]zac[
Cerca hook, e spera di trovare un ocx gia' fatto, altrimenti serve c++ e
dll.

 ha scritto nel messaggio
news:UQiA8.49018$W9.11...@twister2.libero.it...

File: KeyLog.zip
Link: 
http://www.visual-basic.it/scarica.asp?T=U&ID=462
Descrizione: Piccolo esempio su come catturare i tasti premuti e
riportarli su un file di LOG
Categoria: Miscellanea
N.Download: 1967
Fornitore: Fornito da: 
mm...@tiscalinet.it
 Marco Piras
Ciao
    Mavimo

 durante la giornata al pc.
Sito Comune:
syshook.zip (2 Kb)
    Un progetto di esempio per installare un'Hook per intercettare
    tutti gli eventi di tastiera (anche quelli diretti alle altre applicazioni!).
P.S.: i keylogger sono visti mooooolto di traverso dagli
amministratori di rete, per ovvi motivi. Se sei in una ditta,
evita, rischi di farti licenziare.
Bye, G.
--
Le risposte alle tue domande sono sul Sito Comune
di questo NewsGroup: 
http://it-lang-vb.net/
... e nell'help in linea !

Newsgroup: it.comp.lang.visual-basic
Titolo: VB.net e immagini

Dovrei aggiungere al mio script due cose ma ho bisogno del vostro aiuto.
1) Devo creare un immagine  che contenga 8 immagini di dimensioni inferiori.
2) Devo inserire, in un determinato punto, un testo e poi devo stampare il
tutto.
Riassumendo vorrei sapere come posso caricare più immagini e distribuirle in
un immagine formato A4 aggiungere una stringa in un determinato punto e poi
stampare il tutto.
Mi potete aiutare?

 ha scritto nel messaggio
news:Z2oCa.51547$Ny5.1...@twister2.libero.it...

Mi vengono in mente due soluzioni:
1-
1.1- Add PictureBox e colleghi l'immagine
1.2- eliminazione bordi
1.3- Per la scritta puoi dare uno sguardo al proggetto
ClassArraySort,
http://www.it-lang-vb.net/
, maschera frmInformazioni.vb
1.4- con ctrl + Stamp, caricare in memoria la grafica della maschera,
incollarla in Paint e dopo stamparla
2-
invariati gli altri punti
2.4- by la classe System.Drawing.Printing, costruire un documento che è la
superficie della maschera, quindi stamparla.
giuseppeD

Newsgroup: it.comp.lang.visual-basic
Titolo: Consiglio stampa su modulo prestampato

Volendo stampare delle informazioni su un modulo prestampato
Qual è il vostro metodo consigliato per questo scopo, in vb 6.0?
Grazie per l'interessamento a tutti 
quelli che parteciperanno.

 Qual è il vostro metodo consigliato per questo scopo, in vb 6.0?
CrystalReports. E, se è appena possibile, stampa tu stesso il modulo...

Lorenzo ha scritto:

Con l'oggetto Printer puoi pilotare le stampe come vuoi, dando le
coordinate tramite le proprietà Printer.CurrentX e Printer.Currenty.
Nella guida puoi cercare sotto la voce "Oggetto Printer".
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: SQL - Sintassi (bis)

Buona giornata ,
in precedenza ho proposto lo stesso quesito, ma forse in modo non molto
chiaro ( forse per questo nessuno mi ha risposto!! ).
il mio problema consiste nel fatto che il comando select :
Set rstdat00 = dbsspa.OpenRecordset("SELECT * FROM CLIINF where infraf = ' "
& text1.text & " ' ")  va in errore quando in text1.text c'è un nome con
l'apice.
qualcuno potrebbe aiutarmi ?
Vi ringrazio veramente molto  .          ciao guido b.

 ha scritto nel messaggio
news:8tu0te$p23$1...@nread1.inwind.it...


 wrote in message
MSwM5.7643$fx4.2...@news.infostrada.it...


 wrote in message
news:8tu0te$p23$1...@nread1.inwind.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Come individuare il browser di default?

Egregi Signori,
vorrei aggiungere due funzioni alla mia applicazione:
1) help in formato HTML;
2) collegamento ad un sito internet, utilizzando il browser di default
   impostato per Windows 95.
Risolverei velocemente le due faccende trovando e richiamando con Shell()
il browser di default.
Devo accedere ai registri?
Qualcuno mi indica come?
/////////////////////////////
Patrizia Arrigoni
MENHIR Informatica snc
Mozzo (BG)
/////////////////////////////

 Qualcuno mi indica come?
  Dovrebbe essere sufficiente utilizzare questo codice senza dover cercare 
nel registry qual e' il browser di default:
***************************************************************************
*************************
'Windows API/Global Declarations for :Open Web Browser (i.e. 
netscape,internet explorer)
***************************************************************************
*************************
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
----------
***************************************************************************
*************************
' Name: Open Web Browser (i.e. netscape,internet explorer)
'Description:How do I open the web browser and make it show a web page? 
Here's h
'     ow:
'By: VB FAQ
'
'     'Inputs:None
'     'Returns:None
'     'Assumes:None
'     'Side Effects:None
'
'Code provided by Planet Source Code(tm) 'as is', without
'     warranties as to performance, fitness, merchantability,
'     and any other warranty (whether expressed or implied).
***************************************************************************
*************************
'And create a button (or whatever) and call the default web browser using 
this m
'     ethod:
Private Sub cmdGotoHomesite_Click()
         Dim ret&
         ret& = ShellExecute(Me.hwnd, "Open", "
http://home.sol.no/jansh/
", 
"", App.Path, 1)
End Sub
  sostituendo il nome del tuo file di help all'URL qui sopra.
-- 
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire DIESPAMMERS con MC1258
  In the address, replace DIESPAMMERS with MC1258
Newsgroup: it.comp.lang.visual-basic
Titolo: Urgente! Ci sono i manuali nel kit vb 60??

1)  Ho telefonato ai rivenditori in zona (computer discount, Computer
Union ecc...) mi hanno detto che i manuali se acquisto sia VB 60
Professional che Licenza Studenti CI SONO.
2) Telefono direttamente alla Microsoft di Milano mi dicono che
Microsoft non inserisce più i manuali nel prodotto.
Chi sà dirmi la verità dopo che ha già acuistato VB 6.0???
Grazie Gianluca

Zangheri gianluca wrote:

non ci sono purtroppo..
Stefano

Grazie Gianluca
Non ci sono, ma esiste sempre il MEGA manuale/Help da 1,2 giga su CD...  :-(

Chi sà dirmi la verità dopo che ha già acuistato VB 6.0???
i manuali non ci sono, ma si prende a parte con il kit MSDN.
Sidewinder
---------------------------------------------------
"C'e' una luce in fondo al tunnel....
   ... E' Tux con il casco da minatore!"


I manuali stampati non ci sono (nemmeno nella Enterprise :-(
Pero' ci dovrebbero (non sono sicuro per la pro-student) i manuali in
formato elettronico, vale a dire i .DOC sul CD.
I manuali cartacei sono acquistabili separatamente (altri soldi per M$) da
Mondadori, che importa i testi Microsoft Press.
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Esistono Librerie o Ocx per comprimere file anche non gratutiti?

Come da subject
Danilo
 
minerv...@inwind.it

Come da subject
consiglio la zlib, funziona su tutti i sistemi operativi, ed e' uno standard
de-facto (altro che pkzip), il fatto e' che e' fatta per comprimere stream di
dati piu' che file, quindi comprime un file solo alla volta (ma lo schiaccia
per benino), ma ha il vantaggio di poter comprimere qualsiasi dato

 wrote in message
news:Xns9010CA...@127.0.0.1...


Uhm... Si deve fare un tgz? :)
se vuoi archiviare dei file, si'
se vuoi comprimere dati e basta, allora gzip

 wrote in message
news:Xns9011A0...@127.0.0.1...

Gzip in senso stretto? Cioe' i dati possono essere decompressi via gunzip?
Ciaotutti,
Alessandro

Newsgroup: it.comp.lang.visual-basic
Titolo: come raggruppo gli option button di una form?

esiste un modo per raggruppare gli option button di una form?
Mi spiego:
su una form ho 5 option button e vorrei dividerli in 2 gruppi: uno da 3 e
l'altro da 2.
grazie a coloro che mi saranno di aiuto

 
Metti gli option button dentro uno o piu' frame!
ciao
		maxx

 Metti gli option button dentro uno o piu' frame!
Oppure gli indicizzi!
________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

 wrote in message
FdJT8.90226$j65.2...@twister1.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic and CORBA

Anyone have any experiences using VB to interact with CORBA services written
in Java? I am looking to return multi-row resultsets from a middle-tier
CORBA service written in Java, to fetch results from Oracle.

Craig S. Paterson ha scritto nel messaggio ...

AFAIK VB doesn't support CORBA, only COM (and DCOM).
As an alternative you can use Borland (Inprise) Delphi 4 which DO support
both COM and CORBA (i'm not sure about C++Builder 4).
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Addnew con ADO e SQL Server

Ciao a tutti
Ho un database SQL Server (gestito nel caso mio da MSDE).
Tramite Visual Basic 6.0SP4 e ADO apro un recordset di questo database in
cui c'è un campo ID di tipo int e caratteristica IDENTITY con autoincremento
(in modo da simulare il campo "Contatore" di Access). L'apertura avviene con
un ADODB.Recordset e i parametri adUseClient, adOpenKeyset e
adLockOptimistic.
Mentre con Access appena faccio Addnew ho subito a disposizione l'ID, con
SQL Server devo aspettare l'Update e questo non mi va bene perché durante la
registrazione di un record mi serve già il valore dell'ID.
Si può avere, e in caso affermativo in che modo, lo stesso comportamento
avuto in Access?
Grazie in anticipo
---
Davide Guida
davide...@inwind.it

 Davide Guida
Andrea

 Prova con i generatori ed i trigger, dovrebbe funzionare.
Grazie, ci proverò.
Per il futuro, ti consiglio di giungere molto prima al dunque con la
risposta, senza dare consigli, altrimenti ci perdiamo in chiacchiere inutili
:-)
Ciao
---
Davide Guida
davide...@inwind.it

 Davide Guida
Andrea

Newsgroup: it.comp.lang.visual-basic
Titolo: Pulsanti tipo outlook.

Qualcuno sa dove posso trovare dll o ocx che consentono di avere dei
pulsanti tipo outlook, pulsanti con immagine che si attivano al passaggio
del mouse ecc.
Ciao
Veronica

Io uso questa utility:
http://www.bestofware.com/home.asp
E' un controllo molto flessibile che permette di fare di tutto compresa la
barra tipo outlook, 
att.ne
 però per avere la versione registrata devi
acquistarlo al sito qua sopra.
Altrimenti prova a vedere 
http://vbaccelerator.com
  troverai delle dll che
fanno al caso tuo.
Ciao GG

Newsgroup: it.comp.lang.visual-basic
Titolo: Riconoscimento vocale





Ciao a 
tutti.




S
to cercando di fare un programma con 
riconoscimento vocale. Vorrei che quando pronuncio una certa parola schiacci un 
bottone (ad esempio).


Sai chi possa 
aiutarmi?


Grazie


 


FAbrizio...@usa.net



Ciao ragazzi!
Sto cercando di fare un programma con riconoscimento vocale. Vorrei che
quando pronuncio una certa parola schiacci un bottone (ad esempio).
Sai chi possa aiutarmi?
Grazie
fabrizio...@usa.net

Usa le SAPI, le trovi sul sito della M$, però sono in inglese, sono uscite
anche quelle in italiano della IBM, ma non so dove le puoi trovare....
Ah ti avverto che le prime sono grandi 40 MB.....Auguri....
-----------
Ciao
Sabba

Ah ti avverto che le prime sono grandi 40 MB.....Auguri....
e quelle di IBM 150  MB. :-((  comunque sui numeri di IoProgrammo n. 31,32 e
33 trovi degli articoli che possono servirti, sul cd allegato al n 28 trovi
l'IBM ViaVoice SDK 1.5
Ciao Stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Studio 2005 Pro

Salve a tutto il ng,
vorrei sapere se in commercio ad tutt'oggi esiste solo la versione in
inglese.
saluti
alberto

 > solo la versione in inglese.
Direi di sì, quella italiana arriverà (secondo 
gorilla.it
) fra un mesetto.


Microsoft me lo ha mandato in tutte le lingue... tranne italiano!!!
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: ftp + controllo file esistente

ciao
c'e' un modo per sapere se su di un server ftp una dir e un file
esistono?
grazie
Dimentica, per favore, tutto quel che hai studiato a scuola, 
tanto non lo hai imparato.
					 Emil Landau.

 esistono?
Invia al server Ftp il comando LIST
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

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto algoritmo

   Ciao a tutti,ho un enorme problema.Ho un Griglia (Msflexgrid) e
all'interno vi sono vari elementi che possono essere diversi a seconda del
caso.Gli elementi sono disposti nel seguente modo:
A
A
B
A
C
C
A
B
C
C
A
Come posso contare quante A sono presenti,quante B e quante C non conoscendo
inizialmente il nome degli altri elementi?(Un valore posso conoscerlo)
Voglio dire senza effetturare un ciclo del tipo
 For i =1 to msflexgrid.rows-1
Msflexgrid.row=i
if Msflexgrid.text=A then contatore=contatore+1
Dentro la griglia io posso conoscere il numero totale degli elementi
presenti e un valore  in questo caso a,ma per gli altri come potrei  fare?
Ringrazio fin d'ora idee o suggerimenti.
-- 
Posted from 
mail.arcanet.it
 [151.99.191.3] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:000501c0379f$0351e3c0$129fdfc3@vampire...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Common dialog: documentazione

dove posso trovare la documentazione dei controlli
Microsoft Common Dialog Version 6.0?
grazie e ciao.
accursio.

 Microsoft Common Dialog Version 6.0?
Se intendi quelle incluse con VB6 basta F1
Ciao

 Microsoft Common Dialog Version 6.0?
Nella guida di VB.

Newsgroup: it.comp.lang.visual-basic
Titolo: file wav

1)Ho VB6 vorrei far partire un file wav o winamp al cliccar di un bottone,si
puo' fare? e se si come?Mi spiegate passo passo :) grazie
2) come faccio a cambiare la caption di un msgbox

 2) come faccio a cambiare la caption di un msgbox
Premere F1 molte volte durante la giornata.
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 ha scritto nel messaggio
news:c3dbvb$mls$1...@grillo.cs.interbusiness.it...

crea un modulo e metti questa api
Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal _
lpszSoundName As String, ByVal uFlags As Long) As Long
in una form aggiungi questi 2  bottoni
sub cmd_suona_file_click
Dim wave As Long
wave = sndPlaySound("c:\tuacartella\tuo_file_musicale.wav", 1)
end sub
sub cmd_stop_suono_click
Dim wave As Long
wave = sndPlaySound("", 0)
end sub
ciao leonello
Newsgroup: it.comp.lang.visual-basic
Titolo: File di testo

In un file di testo sono presenti delle tabulazioni come faccio ad
individuarle?
E spostarmi da una all'altra?
Grazie mille
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 E spostarmi da una all'altra?
Ciao, Alessandro.
    Per esempio cosi`: sperimenta digitando quanto segue nella finestra
Immediata e concludendo con Invio:
f%=freefile(0):open "D:\Percorso\Nuovo Documento di testo con TAB.txt" for
input AS #f:?replace(input(lof(f),f),chr$(9),"<TAB>"):close
    Cosa intendi con "spostarmi"?
-- 
Ciao :o)
Maurizio Borrelli, Microsoft MVP - Office Systems - Access
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: cercare una stringa parziale in mezzo ad un campo testo

Salve a tutti.
Vorrei cercare un frammento di testo in un campo testo.
Per es. vorrei visualizzare tutti i "Mazzini" registrati in un campo di
indirizzi in cui però ci sono "Via Mazzini", "Viale Mazzini", "Pza Mazzini".
Con la Query: SQL$ = "select * from Anagrafiche Where Indirizzo like '" &
Indirizzo & "* ;"
trovo infatti solo quelli che INIZIANO con la mia stringa di ricerca; come
posso ricercare la stringa anche in mezzo al testo?
Grazie!
Giorgio

 posso ricercare la stringa anche in mezzo al testo?
LIKE '%Mazzini%'	-- se usi ADO
LIKE '*Mazzini*'	-- se usi DAO
-- 
ciao, hal

 come posso ricercare la stringa anche in mezzo al testo?
like '*' & Indirizzo & '*'
--
Greg

Newsgroup: it.comp.lang.visual-basic
Titolo: Indirizzo sito comune

Come da subject

http://www.it-lang-vb.net/
Come da indirizzo.. :-)
--
__________________
www.sasim.cjb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] [.net] connessione a SQLserver con pocketPC

Ciao a tutti
In questo giorni sto provando VisualStudio.net per lo sviluppo su PocketPC.
In particolare mi interessa la connessione a SQLserver.
Adesso, io riesco a connettermi, ma i tempi per fare il 
DataAdapter.Fill(DataSet) sono veramente leeeeeeenti.
Roba che per tirare fuori una decina di record da una tabella ci mette 
oltre 30 secondi.
La stessa app compilata come win32 app è una scheggia.
Qualche idea?

Qualche idea?
Purtroppo no, ma spero che tu possa risolvere il problema e di
notificarlo al ng.
Uno dei pochi motivi per cui ritengo valido il framework .net (al di
la che mi fornisce lo stipendio quando mi arriva una commessa da
sviluppare in .net e non posso scegliere diversamente) e' proprio la
sua portabilita' sulle piattaforme pocket pc, se mi cade questo punto
mi deprimo :-(
Stefano "HappyMan" (Lago Maggiore - NO)
--
Personal Web 
http://www.sgr.info
Email happyman69 (at) 
despammed.com

 mi deprimo :-(
Infatti noi stiamo passando a VS2003 proprio perchè è l'unico che offre 
la possibilità di sviluppo su PPC.
E funziona benissimo.
Solo la connessione a SQLserver mi da quel problema.
Se qualcuno che ha la possibilità potesse provare questa cosa, solo per 
vedere se è un mio problema o se è proprio così, me lo faccia sapere.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Download Visual Basic

Ciao a tutti mi chiamo Emanuele e sono nuovo del NG,
vorrei sapere da dove č possibile, se lo č, scaricare Visual Basic 6.
Grazie a chi risponde.
Emanuele

 ha scritto nel
messaggio news:F4hq8.42906$pT1.1...@news1.tin.it...

Spero che tu abbia una buona connessione...
Se vuoi una beta credo che ce ne siano un po' in giro, altrimenti usa un p2p
(x es. winmx) e spera di trovare qualcuno che abbia VB. ovviamente non
sperare di trovare la versione italiana!
Ciao
Ghigo    :)

 sperare di trovare la versione italiana!
Già che ci sei consigliagli come opzione alternativa il pirata di fiducia e
ricordagli pure di farsi copiare i cd dell'msdn così poi non si mette a
piangere se F1 non funziona... :-(
Cmq una volta esisteva la Learnig Edition, legale scaricabile e limitata...
oppure la licenza studente...
Ciao

Ne ho già sentito parlare della licenza studente come funziona??
Io ho anche Working model edition?? ma non me ne faccio di niente visto che
ho vb6 pro original!!!
"Lord Rayden" <ray...@hardwaretips.com.rimuovimi> ha scritto nel messaggio
news:a8ccp5$h5i$1...@half.spin.it...



La mia era solo un'alternativa... dato che parlava di "scaricare" ho pensato
subito che magari non voleva realizzare dei programmi da vendere ma magari
voleva solo imparare ad usare VB senza limitazioni!
Ghigo    :)

 voleva solo imparare ad usare VB senza limitazioni!
Per quello c'è la licenza studente... risparmia e se la compra... altrimenti
si studia un linguaggio per il quale esistono compilatori e ambienti di
sviluppo free. ;-)

 oppure la licenza studente...
La Learning Edition non mi risulta scaricabile, io l'ho pagata 350.000 £
--
Mauro
www.cerretosoft.it

 La Learning Edition non mi risulta scaricabile, io l'ho pagata 350.000 £
Si ho cannato mi riferivo alla working model... penso che tra un po' con
tutte le licenze che si sono inventati bisognerà certificarsi prima di
acquistare qualche loro programma ! :-)

 voleva solo imparare ad usare VB senza limitazioni!
Esattamente.
Grazie a tutti comunque, soprattutto da chi mi crede in malafede.
Emanuele


Dove hai trovato la working model edition?
Io la sto cercando da diverso tempo!!!
                        danilo
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Consumare un webservice

Dovrei reealizzare un sw per collegarmi e usare un webservice.
Avete qualche spunto di studio ed esperienze in merito?
Grazie 


Devi usare SOAP.
Dai un'occhiata qui:
http://www.aspfree.com/c/a/VB.NET/Calling-a-Web-Service-using-VB6-with-SOAP-30
Ti servirï¿½ MSSOAP30.dll, se non ï¿½ giï¿½ installata, quindi dovrai scaricare il 
SOAP toolkit redistributable:
http://www.microsoft.com/downloads/details.aspx?displaylang=en&familyid=ba611554-5943-444c-b53c-c0a450b7013c
Occhio perchï¿½ il SOAP toolkit ï¿½ deprecato da un sacco di tempo (MS invita ad 
usare .NET).
Bye
Raf

 Occhio perch� il SOAP toolkit � deprecato da un sacco di tempo (MS invita 



Nota che "andare verso .net" in questo caso non signifa
necessariamente migrare i tuoi software in toto; puoi tranquillamente
scriverti una DLL proxy in .NET che si limita a consuma il WebService
(molto più semplice rispetto ai vari toolkit per VB6) e poi
restituisce i risultati sotto forma di classi COM, a loro volta facili
da usare in VB6.
Devi sempre studiare, eh, però almeno parti più soft...


Nota che "andare verso .net" in questo caso non signifa
necessariamente migrare i tuoi software in toto; puoi tranquillamente
scriverti una DLL proxy in .NET che si limita a consuma il WebService
(molto pi� semplice rispetto ai vari toolkit per VB6) e poi
restituisce i risultati sotto forma di classi COM, a loro volta facili
da usare in VB6.
Devi sempre studiare, eh, per� almeno parti pi� soft... 

 Grazie e soprattutto buon anno a tutti
Per esempio:
Per la parte COM<->NET
http://msdn.microsoft.com/en-us/library/ms973802.aspx
Per consumare un WS:
http://msdn.microsoft.com/en-us/library/w3h45ebk%28VS.71%29.aspx

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto sui report

Scusate la stupiditą della domanda.
C'č qualcuno che preso da compassione sa dirmi come posso fare per cambiare
l'orientamento del foglio in un datareport? non riesco a farlo stampare x
orizzontale... :-(
Grazie

l'orientamento del foglio in un datareport?
DataReport Object
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/vbobjdatareportobject.asp
(n.b.: l' url va inteso su una sola riga, se il tuo reader andasse a capo)
-- 
hth, hal

l'ho trovato :-)
c'ero gią passato sopra 100 vonte e non l'avevo mai guardato :oŽ
sorry...

sorry...
Non e' mai troppo tardi ;-)
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: SQL

Ho un problema con il linguaggio SQL; vorrei selezionare dei campi di una
tabella, in base alla data indicata da due variabili (es. dal giorno1 al
giorno2), ma ottengo sempre e solo dei messaggi di errori di sintassi.
Quale č la sintassi giusta?
Non ho avuto tempo per spulciare nel newsgroup, c'č forse qualche cosa di
attinente da qualche parte?
Grazie Fabio.

Salutoni a tutti i programmatori del NG, prometto che poi (dopo che sarò
pagato), mi comprerò un libro sull' argomento SQL.
Ma ora per finire il programma, avrei bisogno di sapere la giusta sintassi
per sommare tutte le righe di un campo numerico.
Premesso che uso Jet engine con DAO, ho provato a fare così senza successo:
SQL = "SELECT SUM(Costo) FROM Registro ".
Già che ci sono ho anche questo problema, che avevo deciso di aggirare in
altro modo, comunque se siete così gentili:
SQL = "SELECT * FROM Registro WHERE Nome = Variabile1 AND Cognome =
Variabile2".
Anche in questo caso credo che sia sbagliata la sintassi, comunque il primo
caso è quello di cui ho più bisogno di risolvere.
Poi, grazie anche  all'aiuto del NG, avrò finito il Prog. evviva!
VB è grande ed il NG. è il suo profeta.
Grazie a tutti e buona giornata.
Fabio

 Fabio
Ciao, Adriano

Salutoni a tutti i programmatori del NG, prometto che poi (dopo che sarò
pagato), mi comprerò un libro sull' argomento SQL.
Ma ora per finire il programma, avrei bisogno di sapere la giusta sintassi
per sommare tutte le righe di un campo numerico.
Premesso che uso Jet engine con DAO, ho provato a fare così senza successo:
SQL = "SELECT SUM(Costo) FROM Registro ".
Già che ci sono ho anche questo problema, che avevo deciso di aggirare in
altro modo, comunque se siete così gentili:
SQL = "SELECT * FROM Registro WHERE Nome = Variabile1 AND Cognome =
Variabile2".
Anche in questo caso credo che sia sbagliata la sintassi, comunque il primo




Salutoni a tutti i programmatori del NG, prometto che poi (dopo che sarò
pagato), mi comprerò un libro sull' argomento SQL.
Avrei bisogno di sapere la giusta sintassi per sommare tutte le righe di un
campo numerico.
Premesso che uso Jet engine con DAO, ho provato a fare così senza successo:
SQL = "SELECT SUM(Costo) FROM Registro ".
Non ho capito bene come sfruttare una richiesta simile fatta al NG. da
un'altro
ragazzo, ieri.
Già che ci sono ho anche questo problema, che avevo deciso di aggirare in
altro modo, comunque se siete così gentili:
SQL = "SELECT * FROM Registro WHERE Nome = Variabile1 AND Cognome =
Variabile2".
Anche in questo caso credo che sia sbagliata la sintassi, comunque il primo
caso è quello di cui ho più bisogno di risolvere.


Ma tu leggi anche le risposte o posti solo le domande?

 Ma tu leggi anche le risposte o posti solo le domande?
ottima domanda.
Newsgroup: it.comp.lang.visual-basic
Titolo: Macro perchè non funziona?

Ciao io ho il seguente problema: come faccio a fare un ciclo che dica a un
foglio in excel che una determinata colonna di caselle non può accettare
valori minori di 10 però se questi sono vuoti(cioè senza numeri ne parole
cioè stringhe nulle) non me li consideri minori di 10 e non mi dia un errore.
Per capire meglio ho scritto questo cilco di esempio
Dim Crow as integer 'un intero che deve andare da una determinata casella a
un'altra casella della stessa colonna
  'però più in basso
If Sheets("Miniature Bases").Cells(CRow, 1).Value < 10 Then
        MsgBox "Devi ordinare almeno 10 basette !!!Per proseguire resetta
l'ordine e reinserisci le quantità nelle 	 apposite caselle."
        clear (che è una funzione che ho già fatto)
End If
In questo modo la cosa funziona se inserisco valori inferiori a 10 , cioè
mi da il messaggio scritto sopra
se poi provo a mettere una quantità maggiore di dieci in una casella un po'
sotto la prima diciamo ad esempio la quinta, lui mi da l'errore comunque
poichè penso che consideri le caselle vuote sopra di questa pari a un
valore inferiore a 10.Come posso fare per risolvere il problema.
Inoltre vorrei chiedervi anche come posso fare una funzione che se
richiamata(vedi clear nell'esempio)mi cancelli solo i valori presenti in
una determinata fila di caselle di numero finito(per esempio dieci caselle
in colonna).
Grazie a tutti 
Ciao Neo
-- 
Posted from 
smtp2.libero.it
 [193.70.192.52] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Non ti basterebbe inserire messaggi di convalida?
S.

>If Sheets("Miniature Bases").Cells(CRow, 1).Value < 10 Then
Io metterei
If Sheets("Miniature Bases").Cells(CRow, 1).Value < 10 AND NOT
Sheets("Miniature Bases").Cells(CRow, 1).Value = ""
Cosě considera solo le minori di 10 e non le caselle vuote.
Ciao
Bald0z

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB] Lancio di Applicazioni

in un file list ho elencato vari documenti di Word, Excel
come posso far sě che con un doppio click, mi si aprano direttamente le
applicazioni associate ad esse come accade in esplora risorse.
Es.
pippo.doc
mi apre word
pippo.xls
mi apre excel
pippo.txt
mi apre notepad
etc.etc.
grazie

 
Trovi uno spunto nel sito comune:
http://www.it-lang-vb.net/download.asp?file=Archivio/Sorgenti/GetIconProg.zip&ID=98
-- 
Ciao, Mauro CB

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6  -quanto tempo dura un file MP3

salve
come si pu� conoscere la durata ( in secondi) di un file mp3 ?
penso di aprire il file mp3 in modalita binaria ,ma non so dove sia la
il tempo ed in che formato (secondo, millisecondi , in integer o in long)
grazie dell'aiuto.


ha scritto:

Leggi qui, ci sono anche i sorgenti:
http://is.gd/8DGj3
http://is.gd/8DGLN
--
ciao
  Stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzazione nel DataGrid

Caro NG,
nel DataGrid i campi non devono comparire.
Cosa devo fare per visualizzare solo i record ?
Grazie
ilpav


???
ciao
ugo

 ha scritto nel messaggio
news:9tsnee$8dl$1...@pegasus.tiscalinet.it...

ah... ho capito... le _intestazioni delle colonne_ non devono comparire.
Giusto?
columnheaders = false.
(basta aprire la pagina delle proprietą dell'oggetto...)
ciao
ugo

 Giusto?
[...]
azz, Sherlock holmes era un dilettante!
Ciao
Alfonso

 ha scritto nel messaggio
news:9ttrti$4udaq$1...@ID-89238.news.dfncis.de...

prrrrrrrrrrrrr...    :-PPPPPPPPPPPPPPPPP
ciao
ugo


mangiato fagioli? :)))
ciao
Alfonso

 ha scritto nel messaggio
news:9ttscl$4vcv6$1...@ID-89238.news.dfncis.de...

...ma daiiii... stavo al telefono con un cliente...  a momenti muoio
soffocato...   :-))))
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto per dbf

Ciao, mi sapete indicare un sito per imparare ad usare dao che mi serve per
leggere dei file dbf, per adesso sono solo riuscito a scrivere
...
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = OpenDatabase(File1.Path, False, False, "dBASE III;")
...
E fin qui ho capito (File1.Path è la directory dove ci sono i file dbf e
cliccando prima sul file e da analizzare e poi su un pulsate lui apre il
file...in teoria)
ma da qui mi trovo ancora disorientato (appunto per aprire il file). Mi è
parso di capire che potrei fare una cosa del genere
Set rs = db.OpenRecordset("select * from " + File1.FileName, dbOpenTable)
ma mi dice che non trova 'select scatole fron 0404040.dbf' e assicurarsi che
esista mentre se faccio
Set rs = db.OpenRecordset(File1.FileName, dbOpenTable)
non mi da nessum problema. Però da qui come posso fare le mi interrogazioni?
Sono totalmente disorientato. L'unica cosa conosco è SQL (studiato all'uni)
ma tutto quello che ci stà attorno per usarlo(dao?) mi è oscuro....
Mi potete dare una mano?
Ciao

 Ciao
Con ADO funziona così:
Dim dbfConnection As String
Dim cc As New ADODB.Connection
Dim sql As String
Dim rs As New ADODB.Recordset
Dim FileDirectory As String       'FileDirectory è dove stanno i dbf
dbfConnection = "DSN=dBASE Files;DBQ=" & FileDirectory & ";DefaultDir=" &
FileDirectory & ;DriverId=21;FIL=dBase
III;MaxBufferSize=2048;PageTimeout=5;"
cc.Open dbfConnection
sql="SELECT * FROM " & NomeFile
rs.Open sql, cc, adOpenKeyset, adLockOptimistic
A questo punto hai nel recordset "rs" il file dbf
Per utilizzare ADO basta che aggiungi nei riferimenti "Microsoft ActiveX
Data Object 2.5 Library"
Con DAO non so aiutarti...
Bye, DoPz
Newsgroup: it.comp.lang.visual-basic
Titolo: ActiveX EXE

Buongiorno a tutti.
Scusate la domanda probabilmente stupide, ma ho un problema da qualche
tempo e non riesco a trovare la soluzione.
In poche parole, vorrei sapere se è possibile come un componenente
ActivexExe è stato lan,ciato, sia in modo autonomo facend o clic sur
la sua icona oppure è stato instanziato da un'altra applicazione.
In effetti si tratta di impedire che il form di partenza sia
visualizzato se l'activex è stato lanciato perchè usato da un'altra
applicazione.
Spero che non sia troppo confusa la mia domanda.
Grazie tante
BaroneRosso (un pò sbiadito attualmente)

Se cerchi nei post addietro, credo di un 6 o 7 mesi fa
una richiesta analoga alla tua era stata posta e abbondantemente
documentata.
Ciao
Andrea

Buongiorno a tutti.
Scusate la domanda probabilmente stupida, ma ho un problema da qualche
tempo e non riesco a trovare la soluzione.
In poche parole, vorrei sapere se è possibile sapere come un
componenente
ActivexExe è stato lanciato, sia in modo autonomo facendo clic sulla
sua icona oppure è stato instanziato da un'altra applicazione.
In effetti si tratta di impedire che il form di partenza sia
visualizzato se l'activex è stato lanciato perchè usato da un'altra
applicazione.
Spero che la mia domanda non sia troppo confusa.


 Grazie tante
Prego.
Ciao!
-- 
Lorenzo Benaglia
Microsoft MVP - SQL Server
http://mvp.support.microsoft.com
http://italy.mvps.org

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal report  non lo usa nessuno

Ma non lo usa Nessuno ?????
come si cambia a run time il path del database di tipo DBF.
Grazie a tutti
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

se nessuno più esperto risponde,
ci provo io.
Dim crxApplication As New CRAXDRT.Application
Dim crxReport As New CRAXDRT.REPORT
Set crxReport = crxApplication.OpenReport(REPORTFILE)
With crxReport
    Set tabelleRPT = .Database.Tables
    For Each tabellaRPT In tabelleRPT
    .Database.LogOnServer tabellaRPT.DllName,
tabellaRPT.LogOnServerName, DatabaseLocation, Utente, Password
    Next tabellaRPT
End With
sostituire alle variabili
Databaselocation
Utente
Password
le proprie
sperando di essere stato utile.

 ha scritto nel messaggio 
news:1158595575.1...@m73g2000cwd.googlegroups.com...


Set crxReport = crxApplication.OpenReport(REPORTFILE)
With crxReport

End With


--------------------------------------------------------------------------------
La mia Cartella di Posta in Arrivo è protetta con SPAMfighter
486 messaggi contenenti spam sono stati bloccati con successo.
Scarica gratuitamente SPAMfighter! 

 End With




Newsgroup: it.comp.lang.visual-basic
Titolo: ma quando accidenti finisce la copia ???...

Ciao, sono Michele,
devo fare una copia di directory su supporto magnetico,
il problema è che quando il programma esegue il comando di copia,
passa subito all'istruzione successiva, senza aspettare che il comando
precedente di copia sia concluso.
A causa di ciò non riesco a sapere quando la copia è realmente terminata ...
Ho cercato dappertutto ma non riesco a venirne a capo,
Avete qualche soluzione ??
Grazie, Michele
PS
come si può adoperare una ProgressBar nel caso di una copia ?

 A causa di ciò non riesco a sapere quando la copia è realmente terminata ...
Scusa, che metodo usi per fare la copia ?
A me risulta che FileCopy aspetta di aver finito, prima di passare
all'istruzione successiva.
Esempio:
________
Private Sub Command1_Click()
    FileCopy "C:\Sorgenti programmi\FileLungo.txt", "C:\Sorgenti programmi\buttami.txt"
    MsgBox "Copia terminata."
    Kill "C:\Sorgenti programmi\buttami.txt"
    MsgBox "File di prova cancellato."
End Sub
________
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: 
gaet...@hotmail.com



Newsgroup: it.comp.lang.visual-basic
Titolo: enable disable LAN adapter

Mi trovo nella necessità di sconnettere un PC da Internet via sw. Questo per
le normali connessioni RAS è facile, ma non per le connessioni che avvengono
tramite scheda di rete (tipo FastWeb), per cui avrei pensato a disabilitare
il dispositivo, ma... l'unica cosa che ho trovato è sfruttare "IPCONFIG
/RELASE" che non mi sembra il massimo.
Altra idea sarebbe quella di porre il Gateway a 0.0.0.0 non è attuabile dato
che l'utente dovrebbe poi essere in grado di riattivare "a mano" la
connessione.
Qualcuno ha un'idea di come si potrebbe gestire una cosa del genere?

 ha scritto nel messaggio
news:qzS0d.6556$6b4.2...@twister1.libero.it...

Avevo un problema simile al tuo, per disattivare una scheda di rete ad un
determinato evento su un server.
Avevo trovato sul sitocomune un esempietto molto carino (con tanto di
sorgenti) che ho poi modificato a mio piacimento in quanto era molto più
complesso di quello che a me serviva.
Prova a cercarlo ed eventualmente fa sapere che lo cerco nei vari cd di
copia.
Ciao,
Massimo
-- 
web: 
www.piubelli.net
Ciò che oggi è facoltativo domani sarà necessario.
Perchè non prepararci per tempo al futuro?
Vuoi il mio indirizzo? Togli _cut_ per rispondermi

 complesso di quello che a me serviva.
Per ora ho trovato l'APE "GetIfEntry" che sembra poterlo fare (forse...) sto
provando a implementare la cosa, comunque ora guardo anche sul sito comune
:-)

 determinato evento su un server.
Ok, ora (con l'ape suddetta) la connessione LAN la riesco a disabilitare,
però l'icona della rete rimane... insomma può andar bene lo stesso, ma mi
chiedevo se tu fossi riuscito a far sparire anche quella :-)

 chiedevo se tu fossi riuscito a far sparire anche quella :-)
Il file che ti indico usa la net shell, prova a vedere se fa al caso tuo
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Sorgenti/NetShellWrappVB.zip&ID=615


 Il file che ti indico usa la net shell, prova a vedere se fa al caso tuo
Piuttosto interessante, però usa una dll esterna. Comunque vedo che sono
compresi i sorgenti anche della dll, si potrebbe provare a trasportare il
tutto in vb...

 tutto in vb...
Non ho neanche guardato i sorgenti della dll. Quello che faceva bastava e
avanzava... comunque se ne hai voglia...
Buon lavoro o come si usa dire... good coding.
Ciao,
Massimo
-- 
web: 
www.piubelli.net
Ciņ che oggi č facoltativo domani sarą necessario.
Perchč non prepararci per tempo al futuro?

Newsgroup: it.comp.lang.visual-basic
Titolo: Dove trovare i comandi API

Salve
Esiste un sito dove poter trovare l'elenco dei comandi per le API di win?
In particolare mi servirebbero quelli selativi alla mciSendString.
Grazie 

 In particolare mi servirebbero quelli selativi alla mciSendString.
http://www.allapi.net/apilist/mciSendString.shtml
ave
giuseppeD
---
CCR 

 In particolare mi servirebbero quelli selativi alla mciSendString.
Scarica API GUIDE
Api Guide Download
http://www.mentalis.org/agnet/apiguide.shtml
http://www.allapi.net/agnet/appdown.shtml
mciSendString
Requires Windows NT 3.1 or later; Requires Windows 95 or later
The mciSendString function sends a command string to an MCI device. The device that the command is sent to is specified
in the command string.
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
· lpszCommand
Address of a null-terminated string that specifies an MCI command string. For more information about the command
strings, see Command Strings.
· lpszReturnString
Address of a buffer that receives return information. If no return information is needed, this parameter can be NULL.
· cchReturn
Size, in characters, of the return buffer specified by the lpszReturnString parameter.
· hwndCallback
Handle of a callback window if the "notify" flag was specified in the command string.
'Play Midi
'This project needs a Common Dialog box, named 'CDBox'
'  (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
'   and select Microsoft Common Dialog control)
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
Dim Alias As String
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: 
http://www.allapi.net/
    'E-Mail: KPD...@Allapi.net
    Const PlayTime = 10
    'Set the common dialog box' title
    CDBox.DialogTitle = "Choose your midi-file"
    'Set the filter
    CDBox.Filter = "Midi-files (*.mid)|*.mid"
    'Show the 'Open File'-dialog
    CDBox.ShowOpen
    'Extract an alias from the file
    Alias = Left$(CDBox.FileTitle, Len(CDBox.FileTitle) - 4)
    'play midi
    R% = mciSendString("OPEN " + CDBox.filename + " TYPE SEQUENCER ALIAS " + Alias, 0&, 0, 0)
    R% = mciSendString("PLAY " + Alias + " FROM 0", 0&, 0, 0)
    R% = mciSendString("CLOSE ANIMATION", 0&, 0, 0)
    'play midi for 10 secs
    t = Timer
    Do: DoEvents: Loop Until Timer > t + PlayTime
    'stop midi and close it
    R% = mciSendString("OPEN " + CDBox.filename + " TYPE SEQUENCER ALIAS " + Alias, 0&, 0, 0)
    R% = mciSendString&("STOP " + Alias, 0&, 0, 0)
    R% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)
End Sub
--
Fosco