mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Considerazioni impostazione Progetto

Ciao a tutti, sto sviluppando un progetto in Visual Basic e vorrei un
consiglio su come abbiamo impostato il progetto.
Diciamo che il mio capo è abituato a fare assistenza su un solo pc,
ovvero il programma gira sul server e ogni client ha un collegamento
al file sul server;il programma è fatto in FoxPro per Dos.
Noi stiamo riscrivendo questo applicativo in ambiente visual.
Ogni nostro modulo (Presenze,Magazzino,Contabilità)
è una Dll, in quanto il cliente sceglie cosa voler comprare.
Queste dll espongono un metodo show richiamato dal programma
madre e si arrangiano, ovvero sono indipendenti sia una dall'atra
che dal programma madre.
Il metodo Show ha una sfilza di parametri.
Poi ci sono 2 Ocx che abbiamo creato per facilitarci la vita.
Arrivo al dunque.
Non posso installare il programma su ogni client visto che ad una minima
modifica del programma dovrei rinstallare su ogni macchina
il programma, o quanto meno registrare una nuova versione della dll.
La cosa la gestiamo in questo modo:
All'inizio installiamo il programma completo sul server.
Poi su ogni Client installo l'accesso ai dati, tutte le dll/Ocx che servono
per utilizzare la Janus Gridex, Il Cristal Report 8, Gif Animate, altri
controlli di Visual, E le lib Runtime sempre di Visual.
Poi faccio un collegamento sull'exe presente sul server.
Quando il programma parte si registra le varie dll/Ocx (sviluppate da noi)
con il percorso sul server.
Questo gioca a mio favore in un futuro, quando dovrò aggiornare
dal cliente la nuova dll, non faro altro che piazzarla sul server, e ogni
client si troverà ad avere il modulo aggiornato. Solo che adesso mi gira una
dll di 2MB per la Rete; se prima era una bomba al lancio delle varie form
adesso è un po più lenta (cmq sopportabile).
Chiedo a voi se è una cosa da pazzi.....
Ah,volevo dire che il programma è sempre in costante modifica
date le esigenze del Client.
Un grazie a chi mi ha seguito fin qui.
Ciao a tutti
Oz

 ha scritto nel messaggio
news:956ccu$p30$1...@fe1.cs.interbusiness.it...


 Noi stiamo riscrivendo questo applicativo in ambiente visual.
[...]

Newsgroup: it.comp.lang.visual-basic
Titolo: [Meeting] Le foto!

Sono state modificate le pagine del sito comune, ed ora ci trovate i link
alle foto dell'evento.
Il tutto ovviamente qui: 
http://www.it-lang-vb.net/meeting/
Per il momento non c'č altro di nuovo, ma stiamo lavorando per voi...
Ciao
*Roby*

 ha scritto nel messaggio
news:b69ntu$2subr$1...@ID-94194.news.dfncis.de...

 belle  che compagnia
ciao Ilario

> > Il tutto ovviamente qui: 
http://www.it-lang-vb.net/meeting/
MANCANO I NOMI :))
voglio vedere in faccia i vari guru del NG :)
Nomi freccette e foto please :))

 ha scritto nel messaggio
news:b69ntu$2subr$1...@ID-94194.news.dfncis.de...

wow finalmente... ero ansioso...
spero tanto di poter partecipare ad uno dei prossimi meeting, anche perche'
sono uno di quelli che non ci e' mai stato...
PaoloS
Newsgroup: it.comp.lang.visual-basic
Titolo: [!] Sito interessante

 
http://1st-spot.net/topic_vb.html
mi vuoi stecchito ? :))
ci metto un mese a controllarli tutti...
non ho piu' l'eta' per certe cose...
e se passassi la mano al bravo mix ? ...

 SebaMIX
a gia'.
veramente alludevo al mix(vb5sp3) del s.c.
sul sito di roal ho cmq agito subdolamente.
ho segnalato loro il mio.
l'eta' qualcosa di buono portera' pure.

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con "Risorse del computer"

Salve,
come faccio a settare la Initdir del CommonDialog su 
"Risorse del computer"?
Grazie.
Elena.


Non puoi, non con la commondialog Microsoft, almeno.
Sul Sito Comune (
www.murialdo.it/it_lang_vb/
)  trovi un esempio della
funzione API SHBrowseForFolder(), che visualizza la dialog standard per la
selezione delle directory (ma non dei file!).
Roal Zanazzi


Ok gli do un'occhiata.
Elena.

Newsgroup: it.comp.lang.visual-basic
Titolo: Definitivamente SITO VB

Definitivamente io ci sono. Federico Galli, 
FedE...@tin.it
Se mi mandi via Internet sulla posta tutto quello che hai fatto fino
ad ora te ne sarei grato.
Io vorrei fare una pagina, ma posso anche farla da solo, o per forza
tu la devi impostare? (Ti assicuro che sono molto pratico)
Ciao.
""""""""""""""""""""""""""""""""""""""""""""""
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
""""""""""""""""""""""""""""""""""""""""""""""
                 Trust no ONE.

pensa e come le vuole visto che è lui che ci da lo spazio!
Per me va bene organizzare le pagine singolaremente come volete, per ora
lasciate stare sfondi , estenzioni front page, ecc.., ma potete usare ASP,
diciamo la cosa migliore e cominciare a definire una lista di argomenti da
trattare e cominciarci a lavorare su
Per le home page la cosa migliore sarebbe da fare una directory di test nel
mio sito e una di produzione in modo da poter vedere noi soltanto la parte
di test e lasciare libera la parte finita del sito.
Ora faccio preparare la login ftp per permettervi di inserire direttamente
il materiale nel sito, poichè per un paio di settimane aime' ho pochissimo
tempo.
Ciao
Luther
--------------
E-Mail 
luth...@usa.net
www.blissett.com

Newsgroup: it.comp.lang.visual-basic
Titolo: Attivare un form

Ragazzi mi vergogno, mi sto perdendo in un bicchiere d'acqua... Ho un
form MDI con dentro due form.
Se da un form voglio portare in primo piano il secondo, come faccio? :\
Ho provato con Visible = True, con .Show, ma niente... sono due form
MDIChild...
Ripeto, mi sto perdendo per nulla, lo so... mi sto rincoxxxnendo...

Ah, aggiungo che il problema ovviamente ce l'ho quando il secondo form
è già visibile...
In questo caso, al click su un pulsante del form A vorrei che il form B
venisse portato in primo piano. Quando il form B non è già aperto
ovviamente so come fare il load :)

Ok, come non detto :(
ZOrder 0.
Lo sapevo che mi stavo perdendo per una cazzaaaaaaaaaata...
<giustificazione>
Questo succede quando si torna a casa alle 4 di mattina e ci si sveglia
alle 7.30...
</giustificazione>
Newsgroup: it.comp.lang.visual-basic
Titolo: Suggerimento! Griglia su pictureBox

Ho bisogno di realizzare una griglia stile form in ambiente di progettazione
di VB ma su una picturebox.
Il problema e' che ogni punto corrisponde ad una distanza di un millimetro e
che il form insiema alla picture sono sono ridimensionabili.
di conseguenza il numero di punti (non linee) da disegnare aumenta con
l'aumentare delle grandezze sino a diventare quasi insostenibile un
ridimensionamento.
la routine che ho utilizzato e' questa:
zoom = a 10 per 100%
            a 5 per 50%
            ecc..
for y = 0 to picture1.height /(567/zoom)
for x=0 to picture1.width /(567/zoom)
picture1.pset (x,y), vbblack
next
next

 next
Se ho ben capito il problema è la velocità di esecuzione?
Non saprei dirti molto, se non:
-Lo so che dovrei saperlo (ma non ho voglia di scavare in memoria e in
help), se x e y sono interi potresti definirli esplicitamente come tali. A
dire il vero qualcuno ipotizzava/provava (non rammento) che un Long sia più
prestante di un Integer...
-Quel (567/zoom), specialmente quello nel ciclo interno, lo calcolerei prima
e lo metterei in una variabile da usare nei cicli, per non fargli fare
quell'operazione ogni volta.
-Ipotizzerei anche di introdurre nei For lo Step, anzi, ... come mai non c'è
lo Step? Possibile che vada bene 1?
-Al posto di Height e Width (essendo relative a Picture) userei decisamente
Scale<Height e Width>, magari provando a mettere preliminarmente le stesse
in due variabili di tipo adeguato

 ha scritto nel messaggio
news:bf1h3d$a5ml7$1...@ID-174464.news.uni-berlin.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: 2 piccoli grandi problemi :)

ciao ragazzi, io avrei 2 problemi:
1) come faccio a sapere in quale comm e' collegato il modem? possibilmente
con una qualche chiamata alle api di win
2) come faccio a sapere, settando ad esempio a true una variabile, quando il
modem si sta connettendo ad una macchina remota? ho provato controllando nel
registry  ma questo mi segnala solo quando e' avvenuta la connessione mentre
io cercavo qualcosa che mi segnalasse la risposta del modem remoto.


Forse lo si puo' capire dallo stato delle linee della seriale (CD, RS, DTS,
etc...), ma non e' il mio campo e non mi avventuro oltre.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: VB program which keeps running even log off from NT

Hi,
I need some help from you VB gurus.
I spent two days trying with no success
to figure out how to make a VB program which runs like SQL server or Web
server, i.e., it keeps running even when you log off from Window NT 4.0
(Server/workstation).
What I'm trying to do is to write a small VB program which monitors the EMail
box on a regular basis and retreive the data from the mail and update databse
when new mail arrives. The program itself is very simple but the problem is
that you have to log on Window NT to run the program and once you logout the
program closes. But normally we are expected to log out for security reasons.
Is there is a way to make the program keeps running when logged out?
I've written an ActiveX EXE as a core and a standard EXE as a user interface
to set the properties of objects in Active EXE and start ActiveX EXE.
ActiveEXE will keep running even the standard EXE is closed. But it closes
out when log out from NT.
Any help will be greatly appreiciated.
I am using VB5
Shide
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/
   Now offering spam-free web-based newsreading


You need to make the VB app an NT service, which I have seen other in this
group or the ms-windows.nt group how to put a wrapper around an existing app
to make it a service...
Brian


...


You need to set up the application as a service, but this isn't all that
easy in NT. I dont really understand why, but it has something to do with
compiling true multi-threading compartment models ?? which VB doesn't do.
Anyway, Microsoft have released a free tool which will work around this
restriction and run any application as a service.
The limitation is that the application will be immediately killed when you
stop the service. It will not be cleanly terminated using Query-Unload
events etc, so if code running the the Unload and Query unload events will
not get executed. You need to check your application to see if this is
critical and provide a manual way of performing the operations if it is.
The tool is called srvany.exe. There is an excellent web site which contains
details of how to use it:
http://vb.duke.net/howto/service.html
Mike.
Newsgroup: it.comp.lang.visual-basic
Titolo: Eliminazione automatica di records... (parte II)

Grazie a tutti coloro che hanno risposto al mio post precedente.
Sulla base di quanto consigliatomi, sembrerebbe che i metodi principalmente
sarebbero due :
1) - Applicare l'integrita' referenziale alle tabelle
2) - Utilizzare una query sql tipo : "DELETE * FROM WHERE... etc.etc."
Sapete indicarmi vantaggi e svantaggi dei due metodi ?
Secondo voi, qual'e' il metodo migliore, e perche' ?
Grazie anticipatamente
Aldo

 Secondo voi, qual'e' il metodo migliore, e perche' ?
Ciao Aldo,
IMO, il metodo migliore è *sicuramente* il secondo
perche? "chi fa da se fa per tre!" dicevano una volta...
il primo? fai prima perchè in effetti tu non fai niente...
ma? forse non tutte le basi di dati supportano l'integrità referenziale, e
se dovessi un domani cambiare DB o aggiornarlo/modificarlo rischi che il tuo
programma non funzioni più correttamente.
Poi c'è chi dice che si butta via un casino di spazio, mah! (non
confermato).
Ciao.
--
Princi, 
princ...@programmer.net
----------------------------------------------------------------------
"Tutti sanno che una cosa è impossibile da realizzare,
finché arriva uno sprovveduto che non lo sa e la inventa." A.E.

 confermato).
Quello sarebbe il minimo dei mali... ormai con gli hd che fanno si riesce ad
avere spazio libero anche dopo aver rippato due dvd interi !!!!
:-)
Grazie ancora per la tua opinione
Aldo

 confermato).
Che c'entra lo spazio ?
ciao
Alfonso

 Che c'entra lo spazio ?
Sembra che in Access l'applicazione dell'integrità referenziale determini
l'occupazione di quasi il 10% in più dello spazio fisico richiesto dai
dati - vedi un post di Roberto Piazzolla di ieri.
In quel thread (che era la prima parte di questo) io consigliavo peraltro ad
Aldo di applicare l'integrità referenziale con l'eliminazione a cascata dei
records per evitarsi di scrivere tutto via codice; io stesso quando sono
alle corde metto uno spunto in un checkbox e penso ad altro, ma questo non
vuol dire che sia il metodo migliore!
Come vedi ogni motivo può essere valutato da molteplici punti di vista.
Ciao.
--
Princi, 
princ...@programmer.net

Newsgroup: it.comp.lang.visual-basic
Titolo: draggare un control button a spasso per lo schermo?

Sono certo che è banalerrimo ma non ho trovato uno straccio di esempio
che mi mostri come si fà a draggare da un punto all'altro dello schermo
un control button.
C'è un cristiano tra voi (ma va bene anche un buddista musulmano o
altro) che me lo sappia spiegare , magari con un  breve esempio.
Gratissimo
Paolo Mereu
email      : 
pamb...@tin.it


tondo e' uno usercontrol all'interno di un frame (ma puoi usare quello
che vuoi al posto di tondo).
Quando col mouse premi su tondo inizia il movimento (drag), che si
conclude quando lasci il mouse all'interno del frame.
Ho usato la proprieta' Tag di tondo per passare le coordinate iniziali,
che vengono utilizzate in Frame_DragDrop per calcolare la nuova
posizione (la routine contiene anche dei controlli sulle coordinate per
evitare il clipping di tondo e per rendere uniforme lo spostamento a
seconda del punto in cui si clicca su tondo (leggiti gli help per capire
cosa intendo).
Se hai bisogno ...
ciao
		maxx
Private Sub tondo_MouseDown(Index As Integer, button As Integer, Shift
As Integer, x As Single, y As Single)
If ((Index > 0)) Then
   tondo(Index).Tag = x & " " & y
   tondo(Index).Drag
End If
End Sub
Private Sub Frame1_DragDrop(Source As Control, x As Single, y As Single)
If Me.Program Then
   Dim TX As Single, TY As Single
      TX = Val(Left(Source.Tag, InStr(Source.Tag, " ") - 1))
      TY = Val(Mid(Source.Tag, InStr(Source.Tag, " ") + 1))
   If ((((x - TX) + Source.Width) < 7700) And ((x - TX) > 0) And (((y -
TY) + Source.Height) < 4785) And ((y - TY) > 180)) Then
      Source.Move ((x - TX) \ 180) * 180, ((y - TY) \ 180) * 180
      Source.Drag 0
   End If
End If
End Sub

datemi l'indirizzo email del moderatore, cosě protesto con lui.
Mi sembra di ricordare che ne avessimo gia' parlato, comunque qui
 
http://beatles.cselt.it/news-it/FAQ.html#binari
 trovi il motivo per cui il
GCN
(Gruppo Coordinamento News) vieta l'invio dei file binari al di fuori della
gerarchia it.binari*
Potresti provare a protestare con loro visto che questo gruppo non e'
moderato.
Comunque tra circa 10 giorni riparte la CFV per it.binari.visual-basic che
dovrebbe, se creato, alleviare un po' il problema dell'invio di progetti al
NG.
[megasnip del progetto]
Ciao
--
Andrea :-{)
acm...@hotmail.com
================================================
Leggi 
http://beatles.cselt.it/news-it/FAQ.html
 e
http://beatles.cselt.it/news-it/gruppi-it.html
Potresti imparare qualcosa di piu' sui NG
================================================

>avevo postato dei file binari. Qualcuno mi dica come devo fare. Almeno


Domenico

Newsgroup: it.comp.lang.visual-basic
Titolo: <no subject>

Sentite ragazzi ,ho un enorme problema: devo collegarmi ad un db Oracle in
remoto con questo tipo di accesso:
ADO->OLE DB->Oracle.
Nella documentazione  MSDN si dice di valorizzare la proprietà Provider
=MSDAORA dell’oggetto connection .
Ora dovrei comunicare ad OLE DB il nome della macchina server,il nome
dell’istanza oracle,user e password.
So che tutte queste informazioni sono nell’alias del file tnsnames.ora del
client ,ma non so qual’e la sintassi per comunicare queste informazioni
tramite la proprietà conectionstring dell’oggetto connection( Non devo
utilizzare  gli ODBC).
Grazie infinatamente.
	Stefano
____________________________________________________________________
Get free email and a permanent address at 
http://www.netaddress.com/?N=1
--
Posted from 
relay02.netaddress.usa.net
 [204.68.24.182] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Per la netiquette e per la rapidità di lettura sarebbe meglio mettere un
oggetto (cmq sempre meglio questo di Aiutooooooooo!)

Devi fare cosě:
Public oConn as ADODB.Connection
Private sub ApriConnessione()
    Dim strConn as String
    strConn  = "Provider=MSDAORA.1;" & _
                       "Data Source=" &
Nome_dell_istanza_di_connessione_Oracle & ";" & _
                       "Persist Security Info=False"
    oConn.CursorLocation = adUseClient
    oConn.Open AccessConnect, "Nome_utente", "Password_utente"
    'Verifica se l'apertura ha avuto luogo
    if oConn.State = adStateOpen then
        'Connessione OK
    else
        'No connessione
    End if
End Sub
--
    Giuseppe Saffioti
-------------------------------------
pino.s...@tiscalinet.it
pino.s...@asl1.to.it

Newsgroup: it.comp.lang.visual-basic
Titolo: refresh continuo

C'è un evento che può essere lanciato, che ogni minuto ad esempio mi fa il
refresh di un form o altro?
Grazie

DoEvents
---
GbC
http://gbc.homeip.net
---

Usa il controllo Timer.
Andrea ha scritto:


Newsgroup: it.comp.lang.visual-basic
Titolo: Porte e winsock

Salve Ragazzi!!!
-Volevo sapere qualè il modo per sapere se una porta di comunicazione è già
utilizzata da un'altra applicazione (e quindi non è disponibile)
-esiste un modo per chiudere la porta incondizionatamente?
          Grazie
         Marco

 wrote in message 38d1...@news.quipo.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] nascondere la finestra di un programma dos

Salve.
Vorrei sapere se c'è la possibilità di lanciare un programma dos da VB e poi
nasconderne la finestra anche dalla barra delle applicazioni, magari
utilizzando qualche api. Inoltre dovrebbe essere possibilmente compatibile
anche con Windows XP.
Grazie
Salvo


cerca api CreatePipe
Ciao,
Mattia
Newsgroup: it.comp.lang.visual-basic
Titolo: Ho problemi con winsock





Chi puo aiutarmi?


devo fare un semplice programma con un client e un 
server.



 wrote in message
7q6s71$1ib$1...@serv1.iunet.it...


...
Chi puo aiutarmi?
devo fare un semplice programma con un client e un server.
----------

 devo fare un semplice programma con un client e un server.
Dai un'occhiata sul Sito Comune, ci sono alcuni esempi su come usare la
Winsock.
Salitoni
Ciao
By -MES-   Maronese Ettore
http://www.maronese.com/mes
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

 wrote in 
  message 
7q6s71$1ib$1...@serv1.iunet.it
...




Newsgroup: it.comp.lang.visual-basic
Titolo: [??] File e TaskBar Aiuto.......

Ciao a tutti,
ho da sottoporvi i seguenti quesiti:
1) Se ho una serie di file, facciamo mille, come posso
    in modo automatico cambiare la data e l'ora di creazione ?
    C'č qualche istruzione VB o API Windows che mi permetterebbe
    di fare cio?
2) Ho assuluto bisogno di utilizzare tutto lo spazio del desktop per
     un applicativo, per questo ho pensato di far nascondere la
     task bar. Perņ vorrei fare in modo che all'avvio del programma
     questa venga nascosta automaticamente (come quando si utilizza
     la proprietą "Nascondi Automaticamente" sulla task bar) per poi
     ritornare come era impostata prima dell'avvio del programma.
     Non ho trovato comandi VB che possano fare ciņ. Inoltre ho provato
     a verificare se il registro di sistema veniva modificato impostando
     tale proprietą, per poi modificare tale proprietą da VB, ma sembra
     che il registro non venga modificato.
     Qulcuno sa dove viene modificata tale proprietą ? O sa in che modo
     attivare la proprietą? Ci sono API che fanno ciņ? (Vi posso assicurare
     che con VB le ho provate tutte!!!)
Un grazie anticipato a chiunque possa darmi delle dritte.
Bye e buon lavoro.
--
~~~~~~~~~~~~~~~~~~~~~~~~
~~~     Nunzio Barletta         ~~~
~~~   e-mail: 
ba...@tin.it
      ~~~
~~~~~~~~~~~~~~~~~~~~~~~~

Risposte:
1. Usa un ciclo con SetFileTime() è un'API che ti permette di cambiare la
data di modifica, ultimo accesso e di creazione
2. Non so, ma posso dirti un metodo per toglierla di mezzo definitivamente
(nasconderla):
Sub ShowStartBar(ByVal Visible As Boolean)
    Dim hWnd_StartBar As Long
    hWnd_StartBar = FindWindow("Shell_TrayWnd", "")
    If Visible Then
        ShowWindow hWnd_StartBar, SW_SHOW
    Else
        ShowWindow hWnd_StartBar, SW_HIDE
    End If
End Sub
Le dichiarazioni le trovi tu vero?....Questo non è forse il metodo che
volevi, ma funzia a dovere. Se dovessi trovare qualcosa ti faccio un fischio
-----------
Ciao
Sabba

 ha scritto nel messaggio
news:ZFAS4.746$F46....@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con dbgrid32.ocx

Ciao a tutti.
Ho un problema con un programma che ho sviluppato un po' di tempo fa, e che
adesso ho riesumato per farvi alcune modifiche.
Per realizzarlo ho utilizzato il compoente dbgrid32.ocx, che funzionava
perfettamente ma che ora VB si rifiuta di "accettare": se tento di inerirlo
in una form, infatti, mi appare il messaggio "Non sono disponibili
informazioni sui diritti di licenza per questo componente. Non sono
disponibili i diritti di licenza necessari per utilizzare questa funzione in
ambiente di progettazione."
Qualcuno sa dirmi da che cosa dipende questo errore?
Grazie in anticipo a chi mi potrà dare qualche "dritta".
Nick

 ha scritto nel messaggio
news:TXFka.75949$Jg1.1...@news1.tin.it...


 ha scritto


Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 con XP - Comando esterno

Non sapevo cosa scrivere nell'oggetto e cercherò
di spiegare di seguito con un esempio.
Quando sul mio PC con esplora risorse faccio un
clik destro su un file TXT mi compaiono le seguenti
possibilità:
Apri
Stampa
Modifica
ecc.
In opzioni cartella/tipi di file ho visto che per i
TXT/Avanzate/Apri è associato il seguente
comando:
C:\WINDOWS\system32\NOTEPAD.EXE %1
Suppongo che quel %1 diventi poi in fase
di esecuzione il nome del file.
Io vorrei "inventarmi" una mia estensione per
dei files da aprire con un mio programmino VB6.
Non so però cosa devo mettere nel programma
VB6 affinchè al run sappia che file deve aprire.
Spero possiate capire ed aiutarmi.
Saluti a tutto il NG
Sauro 

 Spero possiate capire ed aiutarmi.
La funzione Command$() ti restituisce la riga di comando (quello che chiami
%1)
Da programma la leggi all'inizio e fai quello che devi fare.
Invece per come fare un setup che associ ai file ".miaEstensione" il tuo
programma prova a googlare, si troverà qualcosa.

 programma prova a googlare, si troverà qualcosa.
Grazie Andrea.
Farò qualche prova
Sauro 


C'è una manciata di API da utilizzare per registrare una estensione (si 
deve scrivere nel registro), ed ovviamente l'eseguibile cui si associa 
deve poter leggere i parametri dalla command line. Avevo fatto un 
esempio tempo fa con questa funzionalità... Mo` cerco...
Trovato...
http://www.gbcdepot.com/_files/NmFileTypeRegister.zip
È del 2001 ...
Perbacco...
So` vecchio :/
-- 
-> GbC|
www.chiappori.com
 

OK, funziona
Grazie ancora Andrea
Sauro
Newsgroup: it.comp.lang.visual-basic
Titolo: SSTAB - Oggetto

Ciao a tutti,
    ennesimo problema alla ribalta:
    se in un form io ho un oggetto SSTab con 3 pagine (Tabs),  come posso
fare per dare il focus alla pagina 2 non appena carico il form?
    Ad esempio, supponiamo che l'oggetto in questione si chiami
SSTabSchedario ed č contenuto nel form che si chiama FormMain; quando apro
quest'ultimo......
    Private Sub FormMain_Load()
    End Sub
...quali sono le righe di codice da inserire?
Grazie, Roberto.




SSTabSchedario.Tab = 1	
(ricordati che siamo in base 0, quindi il primo tab ha indice 0, il secondo 1, ecc...)
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
---------------------------------------------------------------------------


SSTab1.Tab = 2
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

Devi impostare la proprietą Tab del controllo SSTab
    SSTab.Tab = x
se x = 0 allora    <č la prima scheda>
        Ciao



Grazie Moreno, mi sei stato di grande aiuto come sempre.
E grazie anche alle altre gentilissime persone che hanno risposto. Se una
risposta è molto utile, più di una ti illumina.
Grazie a tutti.
Roberto

Newsgroup: it.comp.lang.visual-basic
Titolo: Internet e Database con VB6

Ho 20 MB di spazio a mia disposizione su un sito web. Vorrei creare una
semplice applicazione VB6 che permetta una volta entrati nella mia home page
di riempire dei campi (nome, cognome, .....) e che salvi questi dati su un
database creato con Access 97. Qualcuno di Voi ha qualche idea di come fare
per realizzare il programma e come accedere al database ? Esiste un sito su
cui documentarsi ?
Grazie e Ciao a Tutti.

 per realizzare il programma e come accedere al database ? Esiste un sito
su
E' un'operazione relativamente semplice da scrivere in vbscript, in una
pagina asp e collegandosi a un database mdb. Ti sconsiglierei, almeno per il
momento, di usare binari vb (controlli activex), anche perche' sarebbero in
ogni caso sproporzionati rispetto a quello che tu vuoi fare.
-vibino

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] [VB.NET] Che fine ha fatto WinSock?

Ho notato che WinSock, in 
VB.NET
 (beta2) non esiste più. In quali classi del
labirintico CRL sono state nascoste le sue funzioni?
Grazie
Francesco

 ha scritto nel messaggio
news:9ovr02$te0$2...@nreada.inwind.it...


 CRL sono state nascoste le sue funzioni?
System.Net.Sockets.Socket
Ciao.

 problems developing applications using the Socket class.
Funziona meglio del controllo WinSock di VB6 ?
Saluti

Al momento non ho fatto ancora uso di sockets, dalla quantità di classi
sembrerebbe
essere molto più potente, anche se molto più complesso.
Ciao
Corrado
Newsgroup: it.comp.lang.visual-basic
Titolo: grafico

Ho l'esigenza di visualizzare un grafico (diagramma cartesiano) su una form
di VB6.
Ho provato con MSChart ma l'ho trovato piuttosto limitato graficamente se
confrontato ad esempio con un grafico su Excel.
Forse non sono in grado di sfruttarlo pienamente ma gli esempi trovati su
MSDN sono pochi e basilari, ho cercato anche su internet ma senza maggior
fortuna.
Esiste un'altra ocx migliore (e magari freeware...) di MSChart?
E' possibile sfruttare il motore di Excel solo per visualizzare un grafico
su una form? E conviene?
Grazie in anticipo.
bye,
Max

 ha scritto nel messaggio
news:b6yEd.24389$H%6.96...@twister1.libero.it...


 Ho l'esigenza di visualizzare un grafico (diagramma cartesiano) su una

Dipende da che cosa richiedi al grafico.
Se cerchi qualcosa di molto basilare è sufficiente prendere spunto dal mio
esempio 
http://www.neodatatype.net/Default.aspx?page=screenshots
 (download
http://www.neodatatype.net/Default.aspx?page=directory&root=downloads/&path=
Eee)
Altrimenti ti tocca cercarti qualche ocx in rete.
Sono piuttosto sicuro che qualcosa di free si trovi.
Ciao
--
Qualunque mentecatto può scrivere codice che un computer possa capire.
I buoni programmatori scrivono codice che gli uomini possano capire.
[Martin Fowler]

 Esiste un'altra ocx migliore (e magari freeware...) di MSChart?
io ho utilizzato un ocx scaricato da 
http://www.prodxtive.com
non è freeware ma comunque si puo usare!!
ciao
Marco

 ha scritto nel messaggio
news:41e4d9eb$0$138$5fc...@news.tiscali.it...

L'ho scaricato ma essendo shareware, rimane il banner all'interno del
grafico e quindi è inutilizzabile.
bye,
Massimo

Newsgroup: it.comp.lang.visual-basic
Titolo: posta Elettronica

Quesito:
Come faccio a "convicere" VB5 ad inviare una @mail prelevando i dati
(indirizzo,soggetto, testo) da un database?
Ringrazio tutti per la collaborazione!!!!
obi...@rete039.it
omegal...@hotmail.com

Se sai già preevare i dati da un database, quello che ti manca è:
valrest = Shell("start MAILTO:
primoindirizzo
,secondoindirizzo?BODY=corpodelmessaggio&SUBJECT=titolo&CC=carboncopy")
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

 wrote in message
92481558...@manipura.rete039.it...


guardati l'help,  molto dettagliato, ci sono anche esempi di utilizzo.



La gestione del Database e' a tuo carico, mentre un esempio di come inviare
mails usando VB lo puoi trovare sul Sito Comune di questo NG, nel file
SMTP.ZIP
http://www.murialdo.it/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://www.murialdo.it/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: Domandina facile facile ( per voi !! )

Ho un form con un cmd ed una text, inoltre ho un oggetto Data che collega la
text ad un db in access.
Se inserisco un valore nella text e successivamente premo il cmd, il valore
della text viene memorizzato nella tabella del db, ma se inserisco un'altro
valore nella text e premo cmd mi dà un errore e non memorizza nel db.
Private Sub cmd_Click()
Data1.Recordset.AddNew
Data1.Recordset![Nome] = Text1
Data1.Recordset.Update
Data1.Recordset.Close
Centra qualcosa il Refresh di cui ho sentito parlare ? E come funziona ?
Spero che qualcuno mi possa dare una mano !!
Se è possibile risposte chiare e dettagliate sono un pò tardo !! GRAZIE MAX

 ha scritto nel messaggio
news:8s32r7$mdv$1...@nslave3.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Passare parametri ad un applicazione VB

E' possibile passare parametri tramite linea di comando ad una
applicazione VB5?
se si come li ricevo?
Scusate ma non ho trovato quale è la varibile credevo fosse qualcosa
tipo Params$ ma forse mi ricordo male, è un po che non tocco VB
Grazie
Kirys
--
Brayan Fix Kirys Solfory
E-Mail: 
Ki...@technologist.com
For Free Software go to: 
http://come.to/kiryssoft

Dai un'occhiata alla funzione Command nella guida in linea.
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

Newsgroup: it.comp.lang.visual-basic
Titolo: Salvare un array su file

Ciao,
come posso salvare un array  e poi rileggerlo da un file?
Fin'ora ho usato la funzione join e split, ma non č di sicuro la soluzione 
piů adatta!
Grazie, ciao 

> come posso salvare un array  e poi rileggerlo da un file?
io ho fatto cosě:
    Dim Percorso As String, i As Integer
    Percorso = App.Path & "\nomefile.sav"
    Open Percorso For Binary As #1
    For i = 1 To x    'dove x č il numero degli elementi
        Put #1, , nomearray(i)
    Next i
    Close #1
Fammi sapere, ciao!

     Close #1
Che ne dici di
    Dim Percorso As String
    Dim f As long
    f = FreeFile
    Percorso = App.Path & "\nomefile.sav"
    Open Percorso For Binary As f
        Put f, , nomearray()
    Close f
Ciao
--
Qualunque mentecatto puň scrivere codice che un computer possa capire.
I buoni programmatori scrivono codice che gli uomini possano capire.
[Martin Fowler]

Newsgroup: it.comp.lang.visual-basic
Titolo: cpl <--- come si eseguono?

Salve,
avrei la necessità di far aprire al mio programma la maschera del pannello
di controllo relativa alla disinstallazione... come posso fare?
ho provato
call shell(nomepercorso)
ma mi da errore...dove sbaglio? c'è quache cosa di meglio?
Grazie tante!
Marco


per aprire la finestra del control panel sull' addremove programs
puoi lanciare 
Control.exe appwiz.cpl,@0,0
ciao, hal

Control.exe appwiz.cpl,@0,0
o, come farebbe Explorer:
rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,@0,0

Grazie tante...Mitico!!!!
ToM_
Newsgroup: it.comp.lang.visual-basic
Titolo: come devo fare a far seguire l'esecuzione di un programma esistente alla pressione di un pulsante?

Salve a tutti. Ho solo una domanda (spero sia abbastanza facile per voi):
come devo fare a far seguire l'esecuzione di un programma esistente alla
pressione di un pulsante (per esempio OK)?
In altre parole: dopo che uno ha premuto il tasto OK deve avviarsi un certo
programma esistente. Come faccio?
Grazie a tutti sin d'ora per l'interessamento.
Riccardo.

Riccardo.
Livio

Riccardo.
Innanzi tutto, sei venuto sul NG per una gita di piacere o hai intenzione di
fermarti a lungo? Se la risposta è la seconda, credo faresti bene a leggerti
il manifesto del sito e magari a fare un salto sul sito comune
http://members.xoom.com/it_lang_vb/
 ci sono un sacco di cose interessanti.
Per quanto riguarda la tua domanda, metti nell'evento Command1_Click il
seguente codice
x = Shell("Percorso\TuaApplicazione.exe", 1)
Leggiti l'help di VB (funzione Shell) troverai senz'altro maggiori dettagli
CIAO
--
Kickaha, Master of MY Universe
E-MAIL: 
IO.Ki...@mclink.it
--------------------------
Moltissima gente confonde le opinioni con i pensieri
         "Herbert V. Prochnow"
Una conclusione è il punto dove sei stanco di pensare
         "Arthur Wright"

 Riccardo.
--
Paolo De Laurentiis
E.Mail: 
pd...@tin.it
HomePage 1: 
http://space.tin.it/io/pdelau
HomePage 2: 
http://www.freeweb.org/freeweb/pdelau
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] cmdbutton+suono

Qualcuno sa dirmi come posso associare ad un pulsante un suono.. lo so
che è una cavolata, e che il mio messaggio e stupido eccc ecc, lo so che
sono ignorante, ma se mi rispondete mi fate davvero un piacere...
Ho anche un'altro problemino.. nel mio programma ci sono parecchi form.
uno che io ritengo  "principale" e una valanga di form "secondari".. io
Vorrei che quando sono dentro a un form secondario e premo la "x" il
programma non si termini ma ritornasse al form principale , magari
associando anche un suno..
Grazie.!!

che č una cavolata, e che il mio messaggio e stupido eccc ecc, lo so che


Newsgroup: it.comp.lang.visual-basic
Titolo: Problemaccio: errore non gestito

Ordunque, provo a spiegare.
Ho fatto un programma che gira 24h su 24 e aggiorna in orari prestabiliti un
sql server remoto.
Ho inserito on error che mi invia e-mail con errore.
Ho provato a simulare errori in tutti i modi, anche cancellando la tabella
su sql o togliendo permessi, e l'on error funziona correttamente.
Il problema è la linea: capita che la linea sia down, oppure talmente
sovraccarica che il programma non trova il server sql; in questo caso si
blocca e segnala errore "sql server login failed".
Questo è l'errore che non riesco a intercettare in nessun modo; tra l'altro
mi è anche difficile fare esperimenti perchè non so come simularlo (dovrei
spegnere fisicamente il server, ma non posso).
Qualcuno sa darmi un consiglio su come gestire questo e altri errori non
standard?
Grazie a tutti in anticipo.

Grazie a tutti in anticipo.
Prova a mettere una gestione di time-out
-- 
Sidewinder  
---------------------------------------------------------------------
<sel> need help: my first packet to my provider gets lost :-(
<netgod> sel:  dont send the first one, start with #2
* netgod is kidding
---------------------------------------------------------------------

Cioè cioé?
Scusa non ho ben capito, cosa intendi per gestione time-out?


Cioe metti nella gestione di apertura del DB un time out, se non riceve
nessuna risposta fai alzare un errore con il comando raise 
Puo essere utile per lan intasate....
-- 
Sidewinder  
---------------------------------------------------------------------
Less is more or less more
	-- Y_Plentyn on #LinuxGER
---------------------------------------------------------------------



Newsgroup: it.comp.lang.visual-basic
Titolo: Sito comune database in italiano.

Scusate ragazzi volevo sapere se conoscete un sito comune,
come questo, dove si parla di MS SQL Server o di Database.
Tiziano

 ha scritto nel messaggio
news:9nsg8c$tuf$1...@pinco.nettuno.it...


 
database
it.comp.software.database
sql
microsoft.public.it.sql
-- 
Samuele Battarra
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/news/

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]comando tree e drag&drop..dove esempio?

Salve,
sto ricostruendo l'interfaccia di un vecchio prog dos.
l'idea č queela di usare una treeview e una textbox, poi con il drag&drop
andare a posizionare la text box nella tree ed inserire il nuovo ramo.
 es:
prima del dragdrop
-root
    |_____1
    |_____2
    |_____3
    .
    .
    .
dopo del dragdrop
-root
    |_____1
    |_____2
    |_____TEXT1.TEXT
    |_____3
    .
    .
il mio problema č che non riesco a inserire nella posizione  voluta inl
nuovo ramo (o lo creo alla "fine" oppure com efiglio di un altro ramo(2
nell'esempio).
Inoltre vorrei anche poter fare il drag&drop tra i rami gią esistenti per
variare l'odine es:
-root
    |_____2
    |_____3
    |_____1
    .
grazie a tutti!!



Newsgroup: it.comp.lang.visual-basic
Titolo: [OT][PN] Cerco casa in affitto

Scusate l'OT ma sto cercando casa a Pordenone.
Mi basta un miniappartamento, purché sia in centro.
Se avete qualche notizia fatemi sapere.
Grazie.
Andrea
P.S. f/up set to poster.

 Se avete qualche notizia fatemi sapere.
Hai cercato su google ?

>Scusate l'OT ma sto cercando casa a Pordenone.
Guarda nei vecchi post!!! Questo argomento è stato già ampiamente
trattato!!! Ecco.   :-)
Andrea.

 Hai cercato su google ?
Non ho molto tempo e preferisco non
rischiare truffe.
Su google non sai mai chi becchi, mentre qui
c'è gente che lavora e che studia, persone _oneste_ che
sono certamente piu' affidabili di qualunque agenzia.
Ciao
Andrea

 sono certamente piu' affidabili di qualunque agenzia.
è possibile che sia così (e anche molto auspicabile), ma è altrettanto probabile
che non abbiano da affitare alcun appartamento, né a Pordenone né altrove....
:-)
--
Salutoni
Sergio

 né a Pordenone né altrove.... :-)
La speranza è sempre l'ultima a morire...
Andrea

Su un libro di Cantů c'era un elenco degli ostelli in Italia (nella versione
italiana) mentre in Teixeira e Pacheco c'č l'elenco completo di tutti gli
alberghi 4 stelle!
--
_________________________________________
Edmondo Di Tucci 
snar...@tin.it
guarda i miei lavori su: 
www.powernetsi.it/edmondo
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] DAO per la gestione della rete...?!?!? (c.a. Moreno Sirri)

Salve, stavo leggendo qualche msg del NG ed ho letto quello di "scozzaro"
(msg del 26/01/01   19.02) che affermava che DAO è più semplice per la
"GESTIONE DELLA RETE". Tu gli hai risposto che non c'è molta differenza.
A quanto ne so DAO serve per gestire DB (es. Access) in locale, altrimenti
usi RDO o ADO!! Giusto? A meno che intendesse Internet come rete  :-((
boh!!
Scusate la mia ignoranza ma probabilmente mi sono perso qualche utile
spiegazione sulle possibilità di DAO, RDO e ADO!!!
Potreste spiegarmelo Voi?!?
Grazie 1000000
Paolo :-))

spiegazione sulle possibilità di DAO, RDO e ADO!!!
RDO non l'ho mai usato,ma dovrebbe essere una versione di DAO per applicazioni client/server, quindi
con db remoto, ma sia DAO che ADO permettono la gestione sul pc locale o in rete locale di un db
anche Access.
Detto papele papele, DAO è uno strumento  un po' vecchiotto, ottimizzato per DB Access e mantenuto
nelle versioni di VB attuali per compatibilità con le precedenti.
ADO, invece, supporta anche diversi tipi di db (è l'interfaccia per OLE DB) e può venir utilizzato
in applicazioni internet (con ASP) e per gestire db remoti.
Se devi gestire un db Access, non c'è una grossa differenza tra i due, tranne per il fatto che DAO
risulterebbe un po' più veloce, ma se devi sviluppare un'applicativo ex novo, è consigliato ADO
poiché se un indomani ti volessi appoggiare ad un altro formato di db, non sarà necessario
riprogettare tutta l'applicazione.
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: [vbscipt update access]

Salve a tutti, mi scuso in primis se la domanda non è proprio pertinente con
la natura del gruppo ma forse qui riuscirò ad avere delle risposte concrete.
Ho un problema con l'aggiornamento di una tabella Access effettuato da uno
script asp. L'aggiornamento e la lettura dei record della tabella vengono
fatti dalla medesima pagina: aggiornamneto in testa e lettura in coda allo
script. In locale l'aggiornamneto mi viene mostrato istantaneamente a
seguito di un update, una volta pubbliocato su web devo però rinfrescare la
pagina per vedere le modifiche apportate. Credo dipenda dal fatto che il
commit su access (implicito) venga fatto in modo asincrono e che il
controllo allo script venga restituito prima ancora dell'effettivo
aggiornamento. E' corretta la mia supposizione? Come posso risolvere questo
problema? Utilizzo una connessione di tipo OLEDB senza DSN.
Grazie. Massimo

 wrote in message
news:ave89t$mvd$1...@news.blixer.it...

Il problema dovrebbe risiedere nell'explorer. Infatti questo non effettua il
refresh perchè la pagina la trova in cache.
Prova ad inserire, in testa alla pagina queste righe di codice:
<%
response.expires=0
response.addheader "pragma", "no-cache"
response.cachecontrol = "private"
%>
Queste forzano il browser ad effettuare il refresh.
Ciao.
--
Massimo Bonechi
(
massimo...@startit.it
)
-----------------------------------
Nuovo Newsgroup al server : 
news.startit.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema non risolto! Chiamate al Bios! Aiutooooooooooooooo!!!!!!!!!!!!!!!!!!!!!!!!

Ho il problema di ricavare dati dal bios.
Chiedendo al NG sono arrivato alla dll >vbasm.dll di SoftCircuits> ma questa
non funziona, ovvero non riesco a registrarla con RegSvr32. Ho Windows2000 e
VB6-SP4
Aiuto, come faccio?
Qualcuno ha un'altra soluzione?
Grazie a tutti
Andrea

 wrote in message
news:8p339a$va4$1...@news.flashnet.it...


 VB6-SP4
La libreria non deve essere registrata, solo referenziata.
E' scritta in C + ASM, compilata a 16 bit. Quindi non può
essere istanziata da un programma che lavora a 32 bit.
Dovresti usare VB4 nella versione a 16 bit.
Comunque, visto che la ho fatto io la fesseria di menzionarla,
vedrò se ne esiste una a 32 bit, che sia almeno shareware.
Al momento ne conosco solo un'altra, ma ha il limite che nella
versione "pubblica/promozionale" permette solo la gestione degli
interrupt hardware.
La soluzione migliore è senz'altro quella di costruirsene una a
manona, anche per verificare cosa può essere fatto e cosa no.
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] vendo libro VB.Net di Balena

praticamente questo
http://librinformatica.com/trade/productview/2639/441/
al prezzo di 55euro spedizione compresa,
nuovo, in perfetto stato, l'avro' sfogliato 2 volte in tutto....
PaoloS
dipaolochiocchiolabitmarketpuntoit

 nuovo, in perfetto stato, l'avro' sfogliato 2 volte in tutto....
Nooooo ! Saro' romantico ma non me ne separero' mai dai miei libricini , io
li ho tenuti tutti compresi i mitici ForDummies !!!
Sei cattivo ! :p


Io ho preso anche Vb.Net For Dummies...e in effetti non ci penso proprio a
venderli ^_^
Alex

nuovo, in perfetto stato, l'avro' sfogliato 2 volte in tutto....
Sono stato via una settimana, torno e cosa trovo? Sempre annunci
commerciali.
Perche' c@%%0 devo pagare la connessione telefonica per scaricare
pubblicita'?
-- 
hal

Newsgroup: it.comp.lang.visual-basic
Titolo: errore 429 activeX

Io utilizzo VB 6.0 Profesional. Ho sempre distribuito un programma con la
creazione guidata pacchetti di installazione. Ora mi dà un problema per me
inspiegabile e irrosilvibile.
1) Lancio il setup (tutto ok)
2) Parta l'installazione dei Data Access Component e qui arriva il problema
in quanto mi esce questo msgbox:
          Unable to load "c:\programmi\file comuni\system\ole db\msdadc.dll
3) Sul msgbox c'è solo un tasto ok ed io lo clicco
4) L'installazione prosegue e termina in modo regolare
Il problema si presenta quando lancio il programma ora installato. In tutti
i form in cui compaiono dei componenti ADODC questi restano blank o fanno
terminare il programma. Mostrando un msgbox con l'errore 429.
Questo errore significa che il componente activex non è stato registrato. Si
dice di registralo o di reinstallarlo in quanto magari danneggiato.
Io non so fare ne l'uno ne l'altro.
Grazie per il vostro aiuto
Corrado

Guarda alcuni messaggi fa postati da me e da *Alessandro*...
Come ho scritto ho risolto portando le librerie e registrandole a mano...
Il nome delle librerie l'ho trovato nelle finestre Riferimenti e Componenti
di VB6.
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 Professional ??!

Perchč funziona cosě male?
Saluti, Pierfrancesco
lo...@tuttocitta.it

 
E' un prodotto Microsoft. Perche' mai dovrebbe funzionare bene?
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

E' un prodotto Microsoft. Perche' mai dovrebbe funzionare bene?
Forse perche' costa quasi 2 milioni?
Nando


Tutti testimoni che questa volta non l'ho detto io, eh?  :-)))))
--
Roal Zanazzi
z...@iol.it

...

Newsgroup: it.comp.lang.visual-basic
Titolo: file di testo con elenco immagini

Buongiorno a tutti,
 
ho un file batch che generea in lista.txt tutti i percorsi  le foto presenti in una cartella e relative sottocartelle (dir C:\miacartella\foto\*.jpg /b /on >C:\miacartella\foto\lista.txt)
 
l'ho tradotto in 
vb.net
 usando il seguente codice:
 
        For Each foundFile As String In
            My.Computer.FileSystem.GetFiles("C:\miacartella\foto\", FileIO.SearchOption.SearchAllSubDirectories, "*.jpg")
            foundFile = foundFile & vbCrLf
            My.Computer.FileSystem.WriteAllText("C:\miacartella\foto\LISTA.TXT", foundFile, True)
        Next
 
 
funziona ma ci mette troppo tempo rispetto al file batch (20 secondi per il batch contro oltre il minuto per l'eseguibile 
vb.net
)
 
E' un problema di metodo o si può cambiare codice migliorando le prestazioni?
 
grazie in anticipo
 
Nico

Partiamo dal presupposto che il semplice "dir >" lavora abbastanza a basso livello, e quindi non è escluso che, a parità di altri fattori, posso essere sempre un po' più veloce a prescindere
 
Detto questo, così giusto ad una rapida occhiata, la tua routine apre e chiude il file di testo in continuazione, cosa che, a meno che tu non abbia assoluta penuria di RAM e una lista di nomi immensa, non è necessario... WriteAllText lo puoi eseguire alla fine su una lista costruita in memoria.
 
Dim foundFiles As ObjectModel.ReadOnlyCollection(Of String)
Dim foundFilesList As New Text.StringBuilder
 
foundFiles = My.Computer.FileSystem.GetFiles("C:\miacartella\foto\", FileIO.SearchOption.SearchAllSubDirectories, "*.jpg", "*.jpeg")
 
For Each foundFile As String In foundFiles
    foundFilesList.AppendLine(foundFile)
Next
My.Computer.FileSystem.WriteAllText("C:\miacartella\foto\LISTA.TXT", foundFilesList.ToString, False)
 
Su questo PC, con codice compilato in debug senza ottimizzazioni, per elencare circa 3000 files in una struttura abbastanza "densa" di sottodirectory, ci avrà messo un paio di secondi sull'hard disk principale e circa il doppio su un disco esterno USB con gli stessi file.
 
Nota anche che puoi sostituire
 
    foundFilesList.AppendLine(foundFile)
 
con
    foundFilesList.AppendLine(foundFile.Replace("C:\miacartella\foto\",String.Empty))
 
per avere un file più piccolo e più ordinato (eviti di stampare la radice di ogni singolo file, che tanto è nota a priori), con una piccola perdita di prestazioni, ma di nuovo abbastanza marginale

Grazie mille Luca e complimenti per la chiarissima spiegazione!
 
Nico