mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Runtime o Compilato ?

Ciao Ragazzi..
avrei bisogno di un aiutino.
Come faccio a sapere se il programma sta girando da compilato o in runtime ?
Ovvero mi spiego, dovrei fare in modo che se sto testando il programma su VB 
il programma diciamo "finga di funzionare" (in quanto comanda un'apparecchio 
via seriale), se invece è compilato che lo comandi veramente.
Ovviamente intendo fare qualcosa tipo
Ff Project.Runtime = True Then
  Seriale = False
Else
  Seriale = True
End If
Tanto x capirci :)
Grazie,
-- 
Giovanni

Visual Basic, di suo, non ti consente di sapere in che modalità
funziona.
Però c'è una cosa interessante: le istruzioni che riguardano l'oggetto
Debug non vengono compilate e quindi vengono eseguite soltanto in
progettazione.
Quindi ti proporrei di dichiarare una variabile globale chiamata
Debugging (booleana):
Dim Debugging As Boolean
Public Sub Main()
     'Catturiamo gli errori
     On Error Resume Next
     'Questa istruzione verrà eseguita solo da VB
     'e non dopo la compilazione
     'e genererà un errore
     Debug.Print 1 / 0
     'Quindi se qui si è verificato un errore
     'è perchè sei in ambiente di sviluppo
     Debugging = Err.Count <> 0
     On Error GoTo 0
End Sub
E ti conviene eseguire questo controllo all'avvio dell'applicazione.
A questo punto, durante l'esecuzione puoi controllare:
If Debugging Then
   NonFareQuesto()
Else
   FaiQuesto()
End If
O, meglio ancora:
If Not Debugging
   FaiQuesto()
End If
-- 
Quando noi ignoranti eravamo di più, tutto era più bello...
(A. Celentano)
Per rispondermi in privato, prima togli l'immondizia dalla testa ;)

Complimenti, davvero un bella idea questa!
Emiliano.


Newsgroup: it.comp.lang.visual-basic
Titolo: percorso di installazione non trovato

Un programma di fatturazione si collega al modulo di magazzino , purchč gli 
archivi del magazzino risiedano in un percorso di rete del tipo K:\Dati
Se il percorso č invece piů lungo , ad es.  K:\Pippo\dati    oppure 
K:\Pippo\Pluto\Dati  , il programma gestionale si confonde e mi da molti 
errori del tipo "archivi non trovati " , e in aggiunta mi cerca gli archivi
in percorsi del tipo K:\Pippo\dati\dati\dati\........
Ad ogni tentativo di collegamento ai dati , nel log del messaggio di errore 
il path si allunga , viene accodata ogni volta cioč una cartella 
....\dati\......
E' il codice VB 6 del programma che č errato ?
cordiali saluti 

 E' il codice VB 6 del programma che è errato ?
Ovvio.
Ma deve trattarsi di un programma in versione beta, perchè un marone 
così è indegno di una versione distribuita o, Dio me ne scampi, 
commercializzata.
Alberto
-- 
Si è visto di meglio,
ma si è scopato di peggio,
qualche volta a pago
e non erano neanche sempre donne
[Paolo]
Newsgroup: it.comp.lang.visual-basic
Titolo: DataGrid

Salve a tutti,
Vi spiego.
Ho un database e una tabella con questi campi: Nome, Cognome,
Indirizzo, telefono, ecc.
Ho collegato i campi Nome e Cognome ad un Datagrid
Fin qui tutto bene.
Ora volevo sapere se è possibile cliccando su una qualsiasi cella
"Cognome" aprire un altro form dove vengono visualizzati il resto dei
dati appartenenti a quel record ossia Indirizzo, telefono, ecc.
Grazie
 

 ha scritto nel messaggio
news:5j57sukd98ii9lpps...@4ax.com...

Basta memorizzare con datagrid1.text in una variabile il dato cliccato  e
poi impostare nel secondo form una query che abbia come clausola "where
cognome=variabile"
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Larghezza colonne in DBGrid (VB6)

Ciao a tutti,
ho una DBGrid  (SP6) che visualizza un database che ho messo nel controllo 
Data. Il problema č che tutte le colonne vengono visualizzate della stessa 
larghezza, perň i campi sono diversi.. cioč ho dei campi stringa di 20 
caratteri e altri di 200... Le colonne di 200 caratteri devono essere 
logicamente piů larghe di quelle da 20... Esiste un modo per visualizzare le 
colonne della grandezza giusta?
Grazie a tutti e buon lavoro 

 Grazie a tutti e buon lavoro
Cosa intendi per larghezza giusta....?
Il contenuto dei campi è a lunghezza fissa...?
Non ricordo se le colonne abiano l'AutoSize, nel caso devi calcolarti la
dimensione del
Font e vedere quanto serve in Larghezza per poter contenere i NNN caratteri
e ridimensionare
le colonne.
Nel 1° caso è semplice nel 2° anche ma serve qualche API...
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

Alfonso ha scritto:

    DBGrid1.Columns(1).Width = 2000
-- 
Greg 

Molto bene! Mi metto subito all'opera!

Newsgroup: it.comp.lang.visual-basic
Titolo: mdac_typ e InnoSetup

Se creo un kit di install con il wizard di vb di un progeto che usa ADO, mi
viene incluso mdac_typ.exe
All'esecuzione del kit, mdac_typ.exe viene non solo copiato ma ESEGUITO.
Se io invece lo includessi con Inno questo non accadrebbe, vero? o no?
Ma per avere ADO, devo ESEGUIRE mdac_typ.exe, vero?

> Ma per avere ADO, devo ESEGUIRE mdac_typ.exe, vero?
Come ti è già stato risposto ieri da Zanna ... SI

 wrote in message
9ktgeb$6e7i7$1...@ID-77234.news.dfncis.de...

se cerchi tra le FAQ del sito di inno setup, ce n'è una che ti dice come
inserire mdac_typ nel pacchetto, e come falo eseguire non appena
l'installazione è terminata.
MarioH
Newsgroup: it.comp.lang.visual-basic
Titolo: Print-Screen

Ciao a Tutti!!
C'è la possibilità di emulare il tasto Print-Screen della tastiera in VB ??
ha anche lui un KeyAscii ?? se si..qual'è ??
Grazie di cuore..
Saluti.
Antonio!
PS: dall'ufficio non ho la possibilità di utilizzare San Google & Gruppi!
grazie ad alcuni colleghi ci hanno limitato l'accesso ad internet! :(
       Premetto che programmo per hobby&divertimento e che sono un
principiante.

 ha anche lui un KeyAscii ?? se si..qual'è ??
leggiti il post del 21-05 "SOS con le api" in risposta ad un tuo omonimo...
ciao!


Grazie mille!! perfetto!! .........
..... e scusa / scusate il disturbo...
Ciao.
Antonio.

Newsgroup: it.comp.lang.visual-basic
Titolo: Autenticazione di VB con db Access

Salve a tutti.
Ho un database in access, un'applicazione in VB5 interfacciata ad esso con
i driver ODBC...
ora mi sto occupando della gestione degli utenti e dei permessi vari!
devo avere 
- l'amministratore
- un utente abilitato alla sola lettura
- un utente abilitato in sola scrittura e modifica
Come faccio ad assegnare i permessi e i vari utenti al mio database?
ma sopratutto come faccio a farli vedere a vb?
Come fa vb a riconoscere i diversi utenti e cosa deve andare a leggere?
Mi potreste far vedere un esempio?
Io con Access ho impostato la password sul database e accedo con quella ma
non è sufficiente solo quella!
Grazie a chiunque vorrà aiutarmi
Diego
--
Posted from 
mta02-acc.tin.it
 [212.216.176.33] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
20000629143645.QSFL1...@fep05-svc.tin.it...
Salve a tutti.
Ho un database in access, un'applicazione in VB5 interfacciata ad esso con
i driver ODBC...
ora mi sto occupando della gestione degli utenti e dei permessi vari!
devo avere
- l'amministratore
- un utente abilitato alla sola lettura
- un utente abilitato in sola scrittura e modifica
Come faccio ad assegnare i permessi e i vari utenti al mio database?
ma sopratutto come faccio a farli vedere a vb?
Come fa vb a riconoscere i diversi utenti e cosa deve andare a leggere?
Mi potreste far vedere un esempio?
Io con Access ho impostato la password sul database e accedo con quella ma
non è sufficiente solo quella!
Grazie a chiunque vorrà aiutarmi
Diego
Io faccio così:
In una tabella del db registro gli utenti, le password (criptate) ed i
privilegi degli utenti (dei flags con i quali indico la possibilità di
eseguire stampe particolari, cancellazione di record ecc.)
All'avvio del programma visualizzo un form di login, dove l'utente scrive il
nome e la password
il sw verifica che le informazioni inserite siano ok e quindi carica i
privilegi assegnati all'utente.
Da questo punto in poi hai 1k strade per applicare i privilegi (attivare o
menu delle voci di menu, sub-classare i menu stessi, ecc.)
L'utente Amministratore può accedere ad un form dal quale generare altri
utenti ed assegnare a loro i privilegi, mentre la password la imposta
l'utente una volta entrato nel sw da un form (dal quale la può anche
cambiare in seguito)
La cosa funziona e soddisfa le "mie" esigenze...
Ciao, Adriano
Newsgroup: it.comp.lang.visual-basic
Titolo: Grafica nel text box

Ciao,
vorrei inserire degli oggetti grafici in un text box, sapete se si può
realizzare oppure se ci sono delle soluzioni alternative ?
Sto realizzando un client irc, e mi serviva la grafica nel textbox per
visualizzare le faccine.
Ciao e grazie!
Joy

 wrote in message
news:MIfA6.4190$hU1.9...@news4.aus1.giganews.com...



Ciao Ricc, hai ragione, ed è anche molto più flessibile per il mio scopo!
Come mi consigli di inserirgli oggetti grafici ? ho pensato tramite
OLEObject, è un metodo valido o ne esistono altri ?
Ciao e tante grazie.
Joy

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] gestione ADO-RDO-SQL


Cerco di interpretare:
Per vederli puoi metterli in una griglia, da li' li puoi anche
prelevare.
Saluti, Andrea.

Utilizzando il controllo data utilizzo il motore jet e collego direttamente
access.
Se voglio usare odbc utilizzo ADO o RDO, il controllo data non mi serve più.
È vero?
Estraggo una serie di dati utili da un db con una query, ottenendo così una
nuova tabella.  Questa tabella che è impostata nel recordeset e di tipo
dynaset o snapshot, è volatile o viene creata fisicamente all'interno del
mio db? Cioè se io nel Pc ho installato SQL Server ad es. e ho un certo db
con determinate tabelle, la query che faccio da vb su una di queste tabelle
crea una nuova tabella oppure mette i dati in memoria?
Adesso dovrei puntare a questa tabella e mettere tutti i
dati in essa contenuti in varie etichette, per vederli e poi prelevarli e
fare delle elaborazioni.
Come faccio esattamnte, cosa devo utilizzare?
Spero di aver detto i termini giusti, se così non fosse sarei grato di
essere illuminato.
Grazie anticipatamente a chi mi dare delle dritte.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] API ShellExecute

Ciao a tutti.
In un mio programma faccio spesso e volentieri utilizzo dell'API
ShellExecute per aprire il programma di posta predefinito ed il browser
predefinito.
Ho un problema perň con il browser... infatti quando eseguo la shell execute
di una pagina me la apre sě, ma il browser passa in secondo piano, coperto
dal mio programma. Come fare???
Grazie 1000
CiaoZ
SebaMix

 ha scritto

lo fa anche a me, ma direi perche' uso shownormal.
prova a mettere il par maximized o quello che e'.
ciao, a.
ps - dato che se lanci ripetutamente shellexec dal tuo butta sempre nella
stessa finestra, randy birch, direi, per aprire una nuova finestra di ie, mi
aveva suggerito di dare il percorso di ie.exe, modificando un po' la
chiamata. svantaggio: se le'exe non e' li'... cmq se vuoi ti cerco il
codice.

 codice.
Grazie!!! Non serve x aprire + finestre.
CiaoZ
SebaMix

modificando un po' la chiamata. svantaggio: se le'exe non e' li'...
... si cerca l'applicazione associata al protocollo http


Subject: Re: can i shellexecute to a new window ?
Date: Tue, 28 Sep 1999 23:28:00 -0400
Newsgroups: microsoft.public.vb.winapi
Well, on my system, using ShellExecute, if I only pass the URL, the pages
are displayed in the opened browser. But if I specify the path to the
browser exe, I get a new browser window each time. Grab the code at
www.mvps.org/vbnet
 - do a search for the word "madness" :-)
sTopic = "Open"
sFile = "C:\Program Files\Internet Explorer\iexplore.exe"
sParams = "
http://www.mvps.org/vbnet/
"
sDirectory = 0&
Call RunShellExecute(sTopic, sFile, sParams, sDirectory, SW_SHOWNORMAL)

Prova a usare:
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Navigate ("
http://www.it-lang-vb.net
")
        .Visible = True
    End With
--
Timothy Redaelli
timothy....@email.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Label in .net

Come posso sapere qual'è il carattere di una label in .net.
Se tento di assegnare a una variabile la voce font mi dice impossibile
assegnarla se invece provo a convertirla con .tostring non me l'accetta lo
stesso.
In vb6 bastava nomestringa=label1.font
Ma qui come posso comportarmi?
Grazie in anticipo.

Dim FontName As String = Label1.Font.Name.ToString
HTH
-- 
Corrado Cavalli [Microsoft MVP]
UGIdotNET - 
http://www.ugidotnet.org

 In vb6 bastava nomestringa=label1.font
Perchè VB è troppo buono: nomestringa=
label1.font.Name
In 
VB.NET
 è identico.
Ciao
--
using System.Gtk.Forms = "
http://www.neodatatype.net/windowsforms/sgf.aspx
"
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"
Newsgroup: it.comp.lang.visual-basic
Titolo: [!][OT] Server gratuito per gli utenti Galactica

Lo so che sono molto più che OT,
ma penso che questa informazione
possa servire a tutti coloro che
usano Galactica o che comunque hanno
un server news che funziona 1 volta su 5...
Comunque l'indirizzo che ho trovato è questo:
news.dsi.unimi.it
per ora funziona bene ed è abbastanza veloce
se volete provate!!!
P.S. Non insultatemi troppo per questo OT estremo
--------------------------------------------
             ASSA
http://web.tiscalinet.it/Assatarram
--------------------------------------------





eeeek, mi chiede l'autentificazione!?!? 



mi da errore 480 Authentication required for 
command, a te non lo da??


Red Angel


 


E-Mail: 
red....@libero.it
Home Page: 
http://www.redangel.it
 sito per programmatori: 
Share your knowledge 
Pagina personale per gli iscritti (iscrizione gratuita) 
con Forum privato!!



 ha scritto nel messaggio
news:008301c04857$c54a2820$017d7d7d@ra...


Newsgroup: it.comp.lang.visual-basic
Titolo: URGENTE: Problema di installazione

Ciao a tutti,
   sono nuovo sia del newsgroup che in quanto a
programmazione con VB6.
   Ho sviluppato un'applicazione in VB6. Ora la
devo distribuire, ed ho quindi creato un programma di installazione con
Installshield. Purtroppo quando provo ad installare il programma su sistemi
Windows 95 il programma parte, ma cercando di aprire alcune finestre
compaiono i seguenti codici dierrore:
- run-time error 429
- run-time
error 430
Avete qualche suggerimento? 
Allego la lista di componenti
e referenze utilizzate dal mio programma:
COMPONENTI: COMDLG32.OCX,
MSMASK32.OCX, MSCOMCTL.OCX,MSCOMCT2.OCX
REFERENZE: MSVBM60.DLL,
MSVBM60.DLL\3, VB6.OLB, StdOle2.Tlb, DAO350.DLL, msado20.tlb
Sapete
inoltre indicarmi come gestire i file tlb sulla macchina in cui vado ad
installare il programma?
Grazie a tutti in anticipo per l'attenzione e
per gli eventuali aiuti!
--------------------------------
Inviato via 
http://usenet.iol.it

 wrote in message
217Z57Z180Z130Y...@usenet.iol.it...


MSMASK32.OCX
Di sicuro non vanno perchè già il nome del file te lo dice:
    xxxxx32 richiede un S.O. M$ a 32bit
    xxxxx16 richiede us S.O. M$ a 16 o 32bit ma su quello 32bit potrebbe
creare qualche casino :)
Perchè il tuo cliente non installa W98 II Ed?
Oppure semplicemente un W98?
Con quello vai sicuro.
Ciao Diego.

Ciao Diego.
--------------------------------
Inviato via 
http://usenet.iol.it
 


spiega al tuo cliente che l'informatica non ammette ignoranza, quindi se nno
pagare un  prezzo aggiuntivo per il porting (de-porting) della tua
applicazione in VB4 16bit è meglio che passi si aggiorni almeno a Windows'98
SE che gli costa di sicuro di meno meno :-))
byeZ
Sunspot
Newsgroup: it.comp.lang.visual-basic
Titolo: Domandone per esperti di DLL......

Io sto cercando di utilizzare delle routine dichirate in una DLL della intel
di cui disponco la dichiarazione in stile C... ho fatto la dichiarazione
stile Visual Basic di gia molte funzioni della libreria intel... ma non
risco a fare la giusta Declare delle seguenti funzioni....
float*** RLsSetWeightsStr(int *layerNeuronCounts, int numberOfLayers,float
initValue);
sMLPServer* RLsInitMLPServer(float*** weights, int*** neuronInputLists,
int** neuronInputCounts, int* layerNeuronCounts, sMLPCallBack *activation,
sMLPCallBack *derivative, int numberOfLayers, int flags);
void RLsTrainMLPBackPropagation(sMLPServer* server,float** input, int
numberOfVectors, int numberOfInputs,float* output, int numberOfOutputs,
float eta, int nStep,float averageErrSum, float momentum, int* epochNum);
void RLsFreeWeightsStr(float ***pweights);
E LE SEGUENTI DICHIARAZIONI DI TIPO (sono tipi di funzioni... che sono usate
come callback dalla libreria) :
typedef void (__stdcall *sMLPCallBack) (float*, float*, int);
Scusate per la confusione di colori e tipi do caratteri....
Ps:sapete dove posso trovare della documentazione al riguardo, cioč per il
passagio dalla dichiarazione stile-C/C++ alla dichiarazione Visual Basic????
Grazie per la pazienza, Emas=Manu!!! :)


mmm, più che "esperti" di dll, questa è la tipica domanda per
"ApiCultori"... :-)
Non ricordo onestamente, dato che ne ho letto solo la teoria, ma dovresti
trovare la documentazione sul passaggio di dichiarazioni su Msdn.
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: Ordine alfabetico

Salve a tutti,
avrei bisogno di un aiutino...
mi dite come si fa un ordine alfabetico all'interno di una finestra text
o label sempre in VB?
s.se...@flashnet.it

o label sempre in VB?
non so se ho capito bene: tu vorresti ordinare eventuali righe di testo di una textbox?
Non si può (in teoria) poiché il contenuto di una textbox, anche se multiline, non è altro che una stringa di testo.
Potresti però provare a cercare (con la funzione Mid) i VbCrLf all'interno della stringa in modo da isolare le varie
righe; poi le memorizzi in un vettore, ordini il vettore e ricostruisci la stringa ordinata...
Sono stato chiaro? Non so se funziona, però potrebbe andare...
Ciao,
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

...

Per Riordinare il vettore c'e' un esempio sul sito comune (Piccole Perle) di
QuickSort.
In alternativa, metti una ListBox invisibile sul form e imposta la
proprieta' Sorted=True, riempila con le righe della TextBox (una riga alla
volta), e rileggila partendo dall'indice 0 a List1.ListCount-1.
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://members.xoom.com/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: AAIUTOOO FileCopy senza ProgrssBar

Dunque, io avrei un problema con l'istruzione FileCopy di Vb, insomma il 
comando in effetti copia il file xò io vorrei visualizzare lo stato 
dell'operazione su una progressbar. So che ci sono 2 modi x farlo... il 
primo è di copiare il file byte x byte e il secondo è di usare un'api; 
io vorrei farlo con il 1° modo solo che non ci riesco... qualcuno può 
aiutarmi?
P.S.
Se quell'anima pia che mi risponde mi potesse mandare anke un'e-mail a 
emme...@infinito.it
 gli sarò grato x tutta la vita.

 aiutarmi?
Guarda.. byte per byte ci metti una vita... Se desideri intraprendere
una simile strada ti consiglio come minimo di creare una sorta di 
buffer (decidi tu la grandezza, tipo 32kb) e copiare il file a pezzi 
di appunto tali dimensioni (l'ultimo pezzo potrà essere più corto 
ovviamente).

Newsgroup: it.comp.lang.visual-basic
Titolo: Restituzione di dati da una form

Mi servirebbe sapere se e' possibile che una form restituisca dei valori,
come accade per le funzioni, che non sia la tecnica di nascondere la
finestra e leggere il valore precedentemente inserito in un text o label.
Grazie.
--
                 --> Cpt. Future <--
 
www.geocities.com/SiliconValley/1539/
            Togli BUDINO dall'indirizzo

...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Urgente! Associare tipo file ad un applicazione

salve, mi sono fatto un lettore di Mp3 in VB, usando un ocx che ho trovato
sul sito comune. Come posso ora fare in modo di associare la mia
applicazione a
tutti i file con estensione mp3? (come fa il winamp,x esempio?).
la mia form può prendere come parametro il nome del file, ma come faccio a
farli modificare il registro?
Grazie mille ( mi basterebbe anche sapere soltanto cosa devo cercare nel
msdn).

msdn).
Sito Comune (non nell'MSDN!!! ^__^)
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: Open a Database that is Password Protected

I have a database that will be used by my program, but I have password
protected it because I don't want the users of my program to be able to edit
the contents (even outside of my program, say by using ACCESS).
How do I include code in my program that will open the database I tried:
datDataBase1.DatabaseName = App.Path + "\mydatb1.mdb"
I get a Microsoft Visual Basic Caution MsgBox that Reads Not A Valid Password.
Any help is appreciated.  Even if you can tell me where I can find the answer
in any of the books that came with Visual Basic 6.0 Pro.
Thanks
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/
       Search, Read, Discuss, or Start Your Own    

To open a protected DB:
Without DataControl.....
Set dbase = OpenDatabase(App.Path & "\db1.mdb")
dbase.Connect = "PWD=aaaa"
Or:
Set dbase = OpenDatabase(App.Path & "\db1.mdb", False, False, "PWD=;aaaa")
With DataControl.....
Data1.DatabaseName="db1.mdb"
Data1.Connect=";PWD=aaaa"
Bye,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

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

Come si puņ analizzare lo spettro dell'audio acquisito per mezzo del
microfono in visual basic ?
E' possibile ricavare le amipezze delle eventuali onde registrate ?
grazie a tutti
Michele

 Come si puň analizzare lo spettro dell'audio acquisito per mezzo del

Poco piů in basso, thread "Semplice oscilloscopio con Visual Basic"...
Ignazio
Newsgroup: it.comp.lang.visual-basic
Titolo: Portabilità .Net

Ma le applicazioni sviluppate con piattaforma .Net possono girare su altri
S.O. tipo: linux, mac...? Ci sono compilatori per gli altri S.O.(tipo
mono...)?
Mi piacerebbe che le mie applicazioni girassero non solo su Windows ma,
almeno, anche su Linux.
Grazie mille!

 ma, almeno, anche su Linux.
Non ho mai provato direttamente ma usando Mono 
(
http://www.mono-project.com/about/index.html
) la cosa dovrebbe essere 
possibile, credo comunque che sia necessario parecchio re-working
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org
Weblog: 
http://www.ugidotnet.org/710.blog

 possibile, credo comunque che sia necessario parecchio re-working
Io ho fatto due (proprio due) prove e devo dire che se si usano le GTK#
anzichè le System.Windows.Forms la portabilità esiste (lo stesso compilato
.exe e .dll su windows gira tranquillamente sotto linux+mono).
Il problema è che VisualStudio non gestisce il form design con le GTK#
(anche se volendo si può fare tutto via codice).
Ciao
--
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Io ho fatto due (proprio due) prove e devo dire che se si usano le GTK#
Cosa sono le GTK#?
-- 
Guarda, ma non toccare!
Tocca, ma non gustare!
Gusta, ma non inghiottire!
Per rispondere in privato elimina dall'indirizzo "togliquesto"
MasterDavidex - David Ruscelli

 Cosa sono le GTK#?
Sono le librerie per la gestione degli oggetti grafici che si contrappone
alle Windows Forms, e sono utilizzabili indipendentemente dal SO o
dall'ambiente di sviluppo usato.
http://www.mono-project.com/using/gtk-sharp.html


 dall'ambiente di sviluppo usato.
Grazie


Newsgroup: it.comp.lang.visual-basic
Titolo: Cercasi programmatore

Cerco programmatore VB6 con conoscenza delle problematiche di gestione
magazzino, fatturazione e contablità.	

magazzino, fatturazione e contablità.	
Ha dimenticavo, eta minima oltre i 30 anni e larghe vedute. Se devo
pagare milioni per quattroo righe di codice me lo faccio io
naturalmente !!!

...


...

Newsgroup: it.comp.lang.visual-basic
Titolo: SStab e command

In una SSTab, ho la necessità di spostare dei command da una tab all'altra.
Esiste una proprietà o una funzione che mi permetta di identificare
l'appartenenza del command ad una tab
Ho provato con codice del tipo:
Command1.Container = SSTab1.Tab(1)
ma nulla di fatto.
spero d'esser stato chiaro
Qualcuno che abbia qualche idea
Grazie
Angelo

 all'altra.
Cut&Paste : Attento ai controlli bound che vanno in crash !

[*Angelo Sozzi* : 
gems...@hotmail.com
] ha scritto:

Non ho buone notizie. Vedi, in particolare, il quarto link:
http://groups.google.it/groups?hl=it&lr=&ie=ISO-8859-1&q=sstab+tab+author%3A
lupo&meta=
Se scopri tu, ci informi, per favore?

[*Gigio2k [work]* : 
gigiosoft2k...@libero.it
] ha scritto:

Credo che volesse dire ... "da codice"

[*Lupo* : 
LupoOrmaiR...@libero.it
] ha scritto:
Mi ha fallato il link:
http://groups.google.it/groups?hl=it&lr=&ie=ISO-8859-1&q=sstab+tab+author%3A
lupo&btnG=Cerca+con+Google

 ha scritto nel messaggio
news:bf6jlb$bns$1...@stargate1.inet.it...


 ecco cos'ò trovato e sembra funzionare (mi crea un command nella tab che
voglio).
Avevi chiesto:
"Esiste una proprietà o una funzione che mi permetta di identificare
l'appartenenza del command ad una tab?"
Mi pare un peletto diverso. Ce la fai?

 Credo che volesse dire ... "da codice"
per la mia pigrizia e' impossibile accettare di spostare un command da
codice ... io metto un bell'arrai tanto se la M$ si prende il 90% delle
risorse io l' 1% lo potro' anche sprecare no ? ^_^
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

Newsgroup: it.comp.lang.visual-basic
Titolo: Eliminare il Beep

come si Elimina il Beep quand con il tasto invio passo ad un controllo
successivo avendo una matrice di controlli??
Grazie
Bye Roberto

 ha scritto nel messaggio
news:8frogo$p72$1...@nslave2.tin.it...

Tasto_KeyPress(KeyAscii as integer)
    if KeyAscii=13 then
        KeyAscii = 0
        SendKeys "{TAB}"
    endif
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

     endif
facendo solo
if keyascii=13 then keyascii=9
senza sendkeys, funziona ?
(non ho provato)


No, fa Bip ma non si muove.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con Child MDI.

Qui abbiamo un problema: le mdi-child di un nostro gestionale quando vengono
aperte e il loro bordo ne permette il ridimensionamento, vengono aperte con
tutte le dimensioni (altezza, larghezza) reimpostate (in proporzione
all'MDI...); Abbiamo provato di tutto, ma l'unica soluzione che sembra
funzionare è quella di scriversi da qualche parte nel sorgente le dimensioni
giuste per poi impostarle una volta aperta la maschera...
Abbiamo provato cercando di "catturare" le dimensioni che diamo alla
maschera in fase di progettazione, ma sembra che appena la maschera viene
catturata le dimensioni si impallino...
AIUTO!!!!
Grazie 1000 a chiunque possa darmi una mano!
CiaoZ
SebaMix

Spulciando l'MSDN ho trovato finalmente una risposta:
L'altezza, la larghezza e la posizione di form MDI secondari con bordi
ridimensionabili (BorderStyle = 2) vengono determinati dal sistema operativo
Microsoft Windows quando si carica il form. Le dimensioni e la posizione
iniziale di questi form dipendono dalle dimensioni del form MDI, non del
form secondario in fase di progettazione. I form MDI secondari con bordi non
ridimensionabili (BorderStyle = 0, 1 o 3) vengono caricati utilizzando
impostando le proprietą Height e Width in fase di progettazione.
Possibile che sia impossibile?
Non esiste qualche API a proposito?
Aiutooooooooo!!! :(
SebaMix
Newsgroup: it.comp.lang.visual-basic
Titolo: media progressiva

In Access 2000, la tabella l'ho chiamata "ROSSO".
Con una query di selezione ho ottenuto il seguente campo:
Campo A
      2
      5
      4
      8
      6
      3
Adesso, (nel Campo B), vorrei ottenere la media progressiva del Campo
A e cioč:
Campo A                                              Campo B
      2
      5                 2 + 5 =   7 : 2 =                 3,50
      4                 7 + 4 = 11 : 3 =                 3,66
      8               11 + 8 = 19 : 4 =                 4,75
      6               19 + 6 = 25 : 5 =                 5,00
      3               25 + 3 = 28 : 6 =                 4,67
C'č qualcuno in grado di aiutarmi?
Grazie.

       3               25 + 3 = 28 : 6 =                 4,67
Non č complesso.
Supponiamo di avere un campo 'indice' che identifica la posizione di ciascun
record:
Select a.indice,
(Select sum(b.campo_A) from tabella as b where b.indice<=a.indice)
/
(Select count(1) from tabella as b where b.indice<=a.indice)
as Campo_B
from tabella as a
order by a.indice
L'ho scritta a braccio, forse devi togliere un alias da qualche parte, ma in
linea di massima funziona.
Si poteva fare anche con un insert in una seconda tabella, ricavando la
somma dei precedenti dalla tabella di destinazione, sommando il valore del
record corrente e inserendo il nuovo record, ma credo che cosě sia piů
semplice.
Ciao
Alberto

In Access 2000, la tabella l'ho chiamata "ROSSO".
Con una query di selezione ho ottenuto il seguente campo:
Campo A
      2
      5
      4
      8
      6
      3
Adesso, (nel Campo B), vorrei ottenere la media progressiva del Campo
A e cioč:
Campo A                                              Campo B
      2
      5                 2 + 5 =   7 : 2 =                 3,50
      4                 7 + 4 = 11 : 3 =                 3,66
      8               11 + 8 = 19 : 4 =                 4,75
      6               19 + 6 = 25 : 5 =                 5,00
      3               25 + 3 = 28 : 6 =                 4,67
C'č qualcuno in grado di aiutarmi?
Grazie.

 C'è qualcuno in grado di aiutarmi?
Beh, guardando le risposte che ti vengono date, credo che avresti più
probabilità di risolvere il problema.
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: WORD

Come aprire file word con visual basic 6
grazoe 

Come aprire file word con visual basic 6
Set objWord = CreateObject("Word.Application")
objword.visible=true
objWord.ChangeFileOpenDirectory Path
objWord.Documents.Open Nomefile
-- 
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati
 (Esempi e programmi in VbScript)
-- 

Ti puoi spiegare meglio il codice va scritto dove ? il file si chiama 
pippo.doc  e si trova sul desktop quindi dove dici nomefile cosa devo 
scrivere? grazie
"Reventlov" <no...@no.void> ha scritto nel messaggio 
news:4b75c757...@powernews.libero.it...


scrivere? grazie
http://www.freevbcode.com/ShowCode.asp?ID=1539
Qui c'� il codice pronto, ma un po' di VB dovresti saperlo.
--
ciao
  Stefano

 scrivere?
Il percoso completo del file, come stringa....
Per inciso, se tu devi *SOLO* aprire il documento, e non fare nessuna
automazione con Office, allora puoi anche evitare il codice qui sopra,
e utilizzare semplicemente ShellExecute, che avvia qualunque tipo di
file utilizzando l'applicazione associata, e a quel punto la
riutilizzi per qualunque altra cosa simile.
Esempio qui: 
http://support.microsoft.com/kb/170918/it

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

 c:/ windows\desktop \pippo.doc ?
Il percorso completo racchiuso dai delimitatori di stringa...
Ma come già detto, anche io penso che per quello che vuoi fare ti
basti uno ShellExecute


esempio di codice per aprire un file di Word esistente
senza utilizzare il riferimento alla versione di Word:
Public Sub m()
On Error GoTo RigaErrore
    Dim objWord As Object
    Dim objDoc As Object
    Dim strPath As String
    strPath = "C:\mioFile.doc" '<<===
    If Dir(strPath) <> "" Then
        Set objWord = CreateObject("Word.Application")
        Set objDoc = objWord.Documents.Open(strPath) '<<===
    Else
        MsgBox "File non trovato"
        Exit Sub
    End If
    'objWord.Visible = True
    'codice
    'objDoc.Saved = True
RigaChiusura:
    objWord.Quit
    Set objDoc = Nothing
    Set objWord = Nothing
    Exit Sub
RigaErrore:
    MsgBox Err.Number & vbNewLine & Err.Description
    Resume RigaChiusura
End Sub
-- 
---------------------------
Mauro Gamberini
Microsoft MVP - Excel
http://www.riolab.org/
http://www.maurogsc.eu/
http://social.microsoft.com/Forums/it-IT/excelit/threads
Newsgroup: it.comp.lang.visual-basic
Titolo: Principiante & Scrollbar

Ciao a tutti, c'e' qualche anima pia che mi da una mano?
Ho in un form 2 scrollbar (1 orizzontale e una verticale) e tantissimi
problemi:
1- come far si che le scrollbar seguano il bordo del form? ho provato con 
Vscroolbar.left=form1.width-300
Vscroolbar.height=form1.heigth-300
per la scroolbar verticale, ma non so in che sub mettere queste isrtuzioni.
2- come "far scorrere"  il contenuto del form1 quando premo i pulsanti
delle scroolbar?
Scusate se non sono chiarissimo, ma da principiante mi manca ancora il
linguaggio tecnico.
Grazie in anticipo per ogni risposta.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Togliere le ??? prima dell'indirizzo di
 posta  per rispondere personalmente
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

 delle scroolbar?
La cosa piu' veloce che mi viente in mente e' questa, non sapendo di
preciso cosa devi fare e quale versione di VB hai.
aggiungi al tuo Form1 una TextBox e setta la Proprieta Multiline a True e
ScrollBars a Both; Top = 0 e Left = 0
Aggiungi all'evento Resize del Form1 il codice:
 Text1.Height = Form1.ScaleHeight
 Text1.Width = Form1.ScaleWidth
 
ed il gioco e' fatto.

Newsgroup: it.comp.lang.visual-basic
Titolo: Sito FAQ?

Ciao,
esiste un sito FAQ x VB?
Cioe' un luogo dove ci sia risposta alle domande + comuni ( e semplici ) che
un neofita puo' fare? ( tipo: cosa sono e come sono fatte le dll??)
----
ciao e grazie.
grenzo

 un neofita puo' fare? ( tipo: cosa sono e come sono fatte le dll??)
Un buon sito di FAQ e' sicuramente 
www.microsoft.com
 .....
Comunque hai preceduto di pochi giorni la prima pubblicazione, sul "Sito
Comune", delle prime FAQ redatte da volenterosi partecipanti a questo NG,
FAQ in italiano, Fresche Fresche, ovviamente sul Visual Basic.
In attesa delle FAQ Italiane, fai un salto sul Sito Comune, ci troverai
sicuramente cose interessanti, e tutte FREE.
http://members.xoom.com/it_lang_vb
-- 
Ciao
By -MES-   Maronese Ettore
http:\\
ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://members.xoom.com/it_lang_vb

un neofita puo' fare? ( tipo: cosa sono e come sono fatte le dll??)
[...]
Esistono molti siti dove puoi trovare FAQ, alcuni siti propongono anche dei
tutorials dove il codice viene fornito viene spiegato dettagliatamente.
Devi solo sfogliare tra i links presenti sul mio sito.
Ciao
--
-
MIX (VB5SP3)
post...@yahoo.com
110 links ai siti VB
http://www.tempolibero.com/user/mix/
 (consigliato)
http://space.tin.it/computer/gaais
  (alternativo)
-

Newsgroup: it.comp.lang.visual-basic
Titolo: ScreenSaver Password

Come si fa ad implementare la gestione della password nello screensaver???
Gli esempi che ho trovato sul sito comune non fanno riferimento all
password!!!
So che ci sono delle api ma quali?? come si usano??
Grazie per ogni aiuto!!!!!

So che ci sono delle api ma quali?? come si usano??
non mi ricordo bene, mi pare che windows chiami lo screensaver con un
parametro (forse /s)
mi dispiace di non aver informazioni più precise...
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: Chiusura di una finstra DOS

Ciao a tutti ^_^
Scusate la domanda poco inerente, ma avrei la necessita di lanciare un setup
tramite un file autorun che a sua volta apre un bath che poi lancia
l'eseguibile ...Fiuff...
Il problema è che la finestra dos del file .bath una volta lanciata non si
chiude da sola!
Mentre io vorrei che partisse minimizzata  e che
si chiudesse subito dopo che abbia lanciato l'eseguibile ^__^
Ricordo di aver letto da qualche parte che  per chiudere o nascondere le
finestre dos (per lavorare in background)bisognava utilizzare il "command" +
qualche parametro ..... Non ricordo quale ....
Qualcuno di voi può illuminarmi perfavore ??
Ditemi se esistono altri metodi ^__^
Sempre GRAZIE per il Vs aiuto

 Ditemi se esistono altri metodi ^__^
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------


devi avviare il batch tramite comando START /m filebatch.bat
e inserire come ultimo comando del file batch EXIT
Ciao!

Newsgroup: it.comp.lang.visual-basic
Titolo: Spostare finestra di altra applicazione

Salve a tutti
E' possibile poter spostare la finestra di un'altra applicazione e
posizionarla alle coordinate xy dello schermo?
Grazie
Saluti

 posizionarla alle coordinate xy dello schermo?
si, è possibile, mi pare che l'API si chiami MoveWindow ma non sono sicuro
perché c'ho un sonno...
saluti assonnati
Faber

> saluti assonnati
Grazie, buona notte :))
Sem

Uffa non funziona
Private Sub Command1_Click()
      Dim hInst         ' Instance handle from Shell function.
      Dim hWndApp As Long       ' Window handle from GetWinHandle.
      hInst = Shell("c:\windows\calc.exe")
      hWndApp = GetWinHandle(CLng(hInst))
      Call MoveWindow(hWndApp, 3, 3, 500, 500, 1)
End Sub
Ogni volta che premo il tasto dovrebbe far partire la calcolatrice nella
stessa posizione...cosa che non avviene..


GetWinHandle restituisce l'hWnd corretto? prova a controllarlo con Spy++,
altrimenti potresti usare SetWindowPos (anche se MoveWindow dovrebbe
andare...)
Faber
P.S.: hInst puoi dichiararla gią all'inizio come Long

>Uffa non funziona
ah, mi ero dimenticato, prova a mettere un DoEvents prima di chiamare
MoveWindow...
Faber

GetWinHandle.
non credo che sia un'API, credo che sia una funzione proprietaria che si è
fatto Sem. Qui ce n'è una che fa la stessa cosa:
(le dichiarazioni che mancano le trovi facilmente)
Public Function InstanceToWnd(ByVal target_pid As Long) As Long
    Dim test_hwnd As Long
    Dim test_pid As Long
    Dim test_thread_id As Long
    test_hwnd = FindWindow(ByVal 0&, ByVal 0&)
    Do While test_hwnd <> 0
        If GetParent(test_hwnd) = 0 Then
            test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid)
            If test_pid = target_pid Then
                InstanceToWnd = test_hwnd
                Exit Do
            End If
        End If
        test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT)
    Loop
End Function
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: Unicode si/no

Buongiorno,
sto sviluppando un programma che farà accesso a diverse informazioni di 
sistema. Ho gia scritto diverse routine per identificare il sistema 
operativo usato e altre cose, ma sono in dubbio su Unicode.
1) come faccio a sapere se il sistema che sto usando supporta e/o usa 
Unicode ?
2) quali sono le aree di rischio per questo ? (ad es. ho scoperto che 
alcune funzioni restituiscono stringhe Unicode) cioè quando un sistema 
usa Unicode TUTTE le stringhe sono tali o dipende dalle funzioni ?
3) ho scoperto che esiste anche la possibilità che un sistema NON usi 
Unicode ma restituisca comunque stringhe con caratteri a due byte (anche 
qui è tutto il sistema o solo alcune funzioni che lo fanno ?)
Esempio concreto: quando leggo le informazioni VS_VERSION_INFO, si vede 
chiaramente che la funzione legge i valori in Unicode ma poi li converte 
automaticamente in ANSI (la seconda metà dell'area di memoria è sporca 
con caratteri a due byte che corrispondono ai dati effettivi...). Preciso 
che sto usando VB5 su Windows ME. Allora se eseguo l'applicazioni su un 
sistema Unicode devo aspettarmi lo stesso comportamento o la conversione 
automatica non sarà fatta ??
Grazie mille
	Paolo
ps: se qualcuno potesse segnalarmi un sito che tratta di problematiche 
Unicode sarebbe ancora meglio

 Unicode ?
Ma stai parlando di Font o di gestione di stringhe?
In ogni caso dipende da quali codepage vuoi supportare e da quali sono i
sistemi operativi sui quali permetti di far girare il tuo programma.
Win 95 ad esempio non è il massimo per gestire l'Unicode.
Sinceramente non sono un esperto, ma mi ero fatto una miniricerca per
gestire in unicode dei font, e dopo aver studiato un po' questo sito
(
http://www.ccss.de/slovo/unifonts.htm#windows
) ho deciso di dare forfait.
Ti auguro miglior fortuna.
Ciao
*Roby*

Grazie per l'info.
In effetti il mio problema riguarda essenzialmente le stringhe perchè 
come già detto non sono sicuro di quali funzioni usino Unicode.
Mi sembra di capire che dipende anche dalla dichiarazione che può 
prevedere una "A" o una "W" alla fine del nome per indicare 
rispettivamente ANSI o Unicode.
Ma come faccio a dichiarare funzioni diverse in base al sistema ?? Mi 
pare che VB dichiari la costante Win32 sia in caso di Win98 che WinNT...
Grazie
	Paolo

 pare che VB dichiari la costante Win32 sia in caso di Win98 che WinNT...
Secondo me è meglio usare sempre la versione ANSI, che è presente su tutti i
sistemi. E' leggermente + lenta sotto NT o Win2000, ma la compatibilità è
assicurata.
Ciao
*Roby*
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6]Sezione Files inno setup

Sto cercando di capire come funziona inno setup. Ho scaricato molti esempi 
di script ma ognuno di questi � differente.
Il problema arriva alla sezione files alcuni esempi scrivono con le 
virgolette, altri tipo il file setuplist del wizard di vb6 che ho tradotto 
con Istool senza virgolette.
[Files]
Source: COMCAT.DLL; destdir: "{sys}"; Flags: regserver; Attribs: system; 
CopyMode:alwaysskipifsameorolder (da errore)
Source: "C:\WINDOWS\system32\COMCAT.DLL"; destdir: "{sys}"; Flags: 
regserver; Attribs: system; CopyMode:alwaysskipifsameorolder (da errore)
poi leggendo sul sito di inno setup dice di sostituire questo 
$(WinSysPathSysFile) con {sys}
Source: "{sys}\COMCAT.DLL"; destdir: "{sys}"; Flags: regserver; Attribs: 
system; CopyMode:alwaysskipifsameorolder (da errore)
Source: {sys}\COMCAT.DLL; destdir: "{sys}"; Flags: regserver; Attribs: 
system; CopyMode:alwaysskipifsameorolder (da errore)
per� nella sezione [Run] � scritto:
{app}\MioExe.exe e funziona.
Sempre sul sito di inno setup dice:
Source: Redist\VB_Runtime\ComCat.dll; DestDir: {sys}; Flags: restartreplace 
uninsneveruninstall regserver; CopyMode: alwaysskipifsameorolder; 
Components: VB5RT VB6RT
Che vuol dire quel "Redist\VB_Runtime\"?
Carmelo 

 Che vuol dire quel "Redist\VB_Runtime\"?
E' il runtime di VB6. Se devi redistribuirlo allora metti quella parte
(presumibilmente lo avrai sotto la cartella Redist\VB_Runtime,
altrimenti usa la cartella dov'ï¿œ presente il runtime).
Visto che sei agli inizi ti do 2 consigli:
1-Con google cerca "guida inno setup". I primi risultati sono quelli che
ti servono, es:
http://forum.masterdrive.it/articoli-visual-basic-6-35/inno-setup-guida-base-38944/
2-Usa ISTool che ï¿œ incluso nel pacchetto QuickStart pack:
http://www.jrsoftware.org/isdl.php#qsp
E' un ottimo editor per Inno Setup e ti consente di scrivere lo script
anche con dei wizard o pannelli di proprietï¿œ. Poi tu a mano puoi
lavorare di fino, ma ISTool ti aiuta tantissimo.
Nicola

 Nicola
Dopo vari tentativi, ho scoperto che (forse mi sbaglio) inno setup non 
permette di prendere le dll da system32.
Se scrivo:
Source: "C:\Windows\System32\COMCAT.DLL" ecc mi da errore
se invece scrivo:
Source: "C:\Programmi\Microsoft Visual 
Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL" ecc
che dopo � la dll aggiornata a SP6 non da errore
Carmelo
Newsgroup: it.comp.lang.visual-basic
Titolo: [Help] - Copiare cartella con VB

Ciao a chi legge
Devo copiare dei file in una lista.
Notando che la funzione di VB FileCopy non č molto potente, cioč non copia
cartelle intere, pensavo di usare l'API di win9x.
Invece non funziona nemmeno con l'API "CopyFile", allora mi sono
chiesto....come cavolo fa win9x a copiare cartelle intere?
Bhe....la prima cosa che mi č venuta in mente č che fa una specie di lavoro
come si doveva fare noi prima dell'esistenza del xcopy sotto DOS.
Cioč, cercare le sottocartelle ricrearle poi copiare i file uno ad uno, etc.
Penso di aver reso l'idea :)
Ma č veramente cosi? Devo veramente scrivere 1/2 pagina di codice per
copiare una cartella del cavolo??? (Sperando che sia 1/2 pagina)
Spero che qualcuno mi puň aiutare....
Grazie in anticipo

chiesto....come cavolo fa win9x a copiare cartelle intere?
[SNIP]
Prova con SHFileOperation:
Public Declare Function SHFileOperation Lib "shell32.dll" Alias
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Type SHFILEOPSTRUCT
        hwnd As Long
        wFunc As Long
        pFrom As String
        pTo As String
        fFlags As Integer
        fAnyOperationsAborted As Boolean
        hNameMappings As Long
        lpszProgressTitle As String '  usato solo se FOF_SIMPLEPROGRESS
End Type
'costanti per wFunc
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FO_MOVE = &H1
Public Const FO_RENAME = &H4
'costanti per fFlags
Public Const FOF_ALLOWUNDO = &H40
Public Const FOF_CONFIRMMOUSE = &H2
Public Const FOF_FILESONLY = &H80                  '  con *.*, elabora solo i
file
Public Const FOF_MULTIDESTFILES = &H1
Public Const FOF_NOCONFIRMATION = &H10             '  Non richiede conferma
all'utente.
Public Const FOF_NOCONFIRMMKDIR = &H200            '  non conferma la creazione
di directory necessarie
Public Const FOF_RENAMEONCOLLISION = &H8
Public Const FOF_SILENT = &H4                      '  non crea un rapporto
avanzamento
Public Const FOF_SIMPLEPROGRESS = &H100            '  non visualizza i nomi dei
file
Public Const FOF_WANTMAPPINGHANDLE = &H20          '  Inserisce
SHFILEOPSTRUCT.hNameMappings
e quindi:
Dim shFileOp As SHFILEOPSTRUCT
With shFileOp
    .hwnd = Me.hwnd
    .pFrom = "C:\Test"
    .pTo = "C:\Test2"
    .wFunc = FO_COPY
    .fFlags = FOF_NOCONFIRMMKDIR
End With
SHFileOperation shFileOp
Ciao
--
Luca Dormio
l...@sig-la.com
ldo...@tin.it