mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: ? Sovrapporre due icone

salva a tutti
ho una icona in un image button devo copiarli sopra una icona tipo divieto
(/)   pero' questa deve essere in trasparenza ovvero: si deve vedere il
divieto e sotto
deve esserci la prima icona disegnata
spero di essere stato abbastanza chiaro
grazie per le eventuali risposte
--
deko
Per rispondere in mail eliminare la _CENSURA
icq # 47696563
=========================================
La piu' grande scoperta del secolo
scorso e' la calamita (by prof magneto)

 wrote in message
7tis1h$np5$1...@fe2.cs.interbusiness.it...


 grazie per le eventuali risposte
Se si tratta di applicare il divieto sempre alla stessa icona, semplicemente
crea una seconda icona con il divieto sovrapposto tramite un programma di
grafica e al momento giusto scambi le due icone. Se invece non puoi
determinare in fase di progettazione l'icona alla quale sovrapporre il
divieto, prova a dare un occhiata sulla guida in linea al metodo "Overlay"
del controllo "ImageList".
 __     __
<o>  <o>
      []
  \____/   ......(Ciao!)
Pasquale
mine...@libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Compattare MDB

Come si compatta un db .mdb con VB6 utilizzando ADO (nel progetto ho
impostato come riferimento ADO 2,1)?
Grazie

 impostato come riferimento ADO 2,1)?
- F A Q --------------------------------------------------------------------
C'è il Jet4 sotto ADO, unico inconveniente: compattando converte
irrimediabilmente il DB in Access2000 :(
Questo è il codice VBScript per compattare il DB, che con un paio di
aggiustamenti funziona anche con VB (eliminare il FileSistemObject e
eventualmente rimpiazzare la CreateObject con un riferimento al JRO,
tipizzare le variabili, rimuovere la chiamata a Server.MapPath()...).
Attenzione: il Jet4 da ADO 2.6 in poi è distribuito a parte dalla Microsoft
su 
www.microsoft.com/data
Function CompactAccessDB(DataBaseName)
  dim strFile, strFileTo, strConn, strConnTo, objJro, fso
  strFile = Server.MapPath(DataBaseName)
  strFileTo = Server.MapPath("/$db.mdb")
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" _
     & "Data Source=" & strFile
  strConnTo = "Provider=Microsoft.Jet.OLEDB.4.0;" _
        & "Data Source=" & strFileTo
  On Error Goto Errore:
  set objJro = server.createobject("jro.JetEngine")
  set fso = server.createobject("Scripting.FileSystemObject")
  fso.DeleteFile strFileTo
  objJro.CompactDatabase strConn, strConnTo
  CompactAccessDB = True
Errore:
  set objJro = Nothing
  set fso = Nothing
End Function
- End Of FAQ --------------------------------------
Ciao

 ha scritto nel messaggio
news:1HYf8.28071$_u5.8...@news1.tin.it...



Io uso ADO 2.5 e non so se funziona con ADO 2.1, però tentar non nuoce..
prima di tutto referenzia nel tuo prg :
"Microsoft Jet and Replication Objects 2.5 Library" ( o precedenti... )
Dim JroEngine As JRO.JetEngine
Dim StrConnOriginal As String
Dim StrConnNew As String
StrConnOriginal = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\TuaDir\OldDB.mdb;"
strconnNew = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\TuaDir\NewDB.mdb;" & _
             "JET OLEDB:Engine Type = 4;"
Set JroEngine = New JRO.JetEngine
JroEngine.CompactDatabase StrConnOriginal, strconnNew
Il parametro "JET OLEDB:Engine Type = 4", fa si che il tuo nuovo db
non venga trasformato in un db Access2000, se invece è ciò che vuoi
basta ometterlo.
P.S. Perchè non passi almeno ad ADO 2.5 ?
Ciao
 Valter

 ha scritto nel messaggio
news:1HYf8.28071$_u5.8...@news1.tin.it...


 ha scritto nel messaggio
news:a5qos0$167j$1...@newsreader1.mclink.it...



Lo scarichi da qui...
http://www.microsoft.com/data/download.htm
Considera che l'ultima versione di ADO č la 2.7 e che
dalla versione 2.6 i moduli jet non sono piů inclusi nel
pacchetto e vanno scaricati e installati a parte. Questo
č il link :
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q239114
Ciao
 valter

Newsgroup: it.comp.lang.visual-basic
Titolo: crystal report 8.0??

dove si compra (online??) e quanto costa???
grazie mille...

guarda 
www.programmersparadise.com
 e cerca Crystal Report....
trovi solo la versione 9.0, però è già un passo avanti......forse la 8.0 non
la fanno più!!!
--
Igor Damiani
ig...@igordamiani.it
http://www.igordamiani.it
ICQ : 11847262
Newsgroup: it.comp.lang.visual-basic
Titolo: vs enterprise con sql server?

ciao
ho letto che il pacchetto di visual studio .net 2003 enterprise contiene sql
server 2000. è vero?
grazie

 ha scritto

da msdn ho installato enterprise architect, ma sql2000 mi sembra stia su un
dvd a parte (dvd arancione, quello di vsnet e' giallo).
ciao, j.

 server 2000. è vero?
Se non sbaglio è la versione developer, cioè che puoi installare solo per lo
sviluppo.
Ciao
--
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: VB2005 applicazione senza framework...è possibile?

Salve a tutti.
Ho fatto un'applicazione con visual basic 2005 express edition
dopo aver provato a farla partire su un altro pc, mi ha dato un errore
poichè era necessario installare il framework.
Vorrei dunque sapere se sia possibile creare un'applicaione funzionante
indipendentemente dalla presenza del framework e , qualora l'installazione
del framework dipendesse dalle librerie in uso dal mi oprogramma, vorrei
sapere come poter capire quali librerie richiedereranno il framework, se
utilizzate.
Grazie in anticipo.


Eggià, per far funzionare le applicazioni .NET necessiti
dell'installazione del framework. Sinceramente non so se intera o
meno, ma eviterei fortemente di copiare pezzi. Armati di chiavetta USB
con installazione del FW e buon divertimento :)
AranBanjo
http://blog.ponchio.it
Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto! Certificazioni

Progammo con visual basic per hobby.
Mi piacerebbe certificare queste mie capacita'.Qualcuno mi puo consigliare
cosa fare? So che esietono delle certificazioni microsoft ,ma non so nulla
di preciso a riguardo.
Grazie      Michael

 wrote in message
86kjm2$b2b$1...@nslave2.tin.it...


>fino adesso, non sono mai state richieste dai miei vari committenti.
L'esame di certificazione costa 160.000 lire. Non e' vero che scade ad ogni nuova release. Tu resti Microsoft Certified Professional anche se naturalmente un cliente serio dovrebbe chiederti per cosa sei certificato.
Sono d'accordo che ad oggi non sono ancora richieste.
Antonio

Antonio Donatiello <ant...@REMOVETHISgeminisoft.com> wrote in message
86mbc7$s0d$1...@fe1.cs.interbusiness.it...
L'esame di certificazione costa 160.000 lire. Non e' vero che scade ad ogni
nuova release. Tu resti Microsoft Certified Professional anche se
naturalmente un cliente serio dovrebbe chiederti per cosa sei certificato.
Sono d'accordo che ad oggi non sono ancora richieste.
Antonio
Scusa Antonio ma purtroppo non è così (sigh!) mi è capitato di avere un
colloquio di lavoro con una società che si vantava (?) di essere Microsoft
Certified ecc.  mi è stato richiesto se avevo tale certificazione. Non sono
stato preso ma conoscendo la loro segretaria ;-)  ( so troppo forte! ... no
è che era una mia ex compagna di scuola!) ho saputo che mi era stato
preferito uno con la certificazione, a detta di lei e dei suoi colleghi  non
era neppure molto preparato!
Comunque da tempo gironzolo nel sito della microsoft ma in tutta onestà non
ci ho capito molto su come funziona sta certificazione (Borland e Oracle per
esempio sono molto più chiare in merito, segui un corso ... passi ... e sei
certificato, peccato che costino oltre il milione!).
Mi sapete spiegare come funziona ? Ho letto che ci sono libri, esami da
scegliere, un max di prove da fare poi ti registrano boooh !
Grazie a chiunque mi risponde
Saverio

>scegliere, un max di prove da fare poi ti registrano boooh !
Per ottenere la certificazione c'e' solo un modo. Devi passare un esame che costa 220.000 (prima avevo detto 160.000). L'esame consiste in una serie di domande (anche lunghe ed articolate) con risposte multiple sull'argomento dell'esame. Quasi tutti gli esami ti permettono di fregiarti del logo Microsoft Certified Professional (sara' l'azienda che ti assume al limite che ti deve chiedere in che cosa) e poi ci sono dei percorsi (3, 4 o piu' esami di un certo tipo) che ti portano a "diventare" Microsoft Certified Systems Engineer o Solution Provider, etc. I percorsi sono del tipo: quello su reti, sistemi operativi, etc., quello per lo sviluppo, quello per database administrator, etc.
Se vuoi, ma non e' assolutamente obbligatorio, puoi seguire dei corsi per prepararti, corsi che vengono tenuti da varie societa' su documentazione Microsoft (Microsoft Official Curriculum).
sul sito 
www.microsoft.com/italy/mcp
 ci sono tutte le informazioni che cerchi.
Antonio
PS: non sono un commerciale della Microsoft!
Newsgroup: it.comp.lang.visual-basic
Titolo: un pò OT editor binario

Mi servirebbe un editor binario. Sapete dove trovarne uno?
Grazie

 ha scritto nel messaggio
news:96jnto$d8a$1...@lacerta.tiscalinet.it...


Avvio -> esegui -> edit -> apri -> setta l'opzione 'file binario'
Salve
                Dbg
Maurizio ha scritto nel messaggio



eh ?
Ciao
Aldo

eh ?
Cosa?
Salve
                Dbg

 wrote:

di quale menu parli ?
Ciao
Aldo


c@z... avevo il cervello disinserito :-(
scusa ;-)
Ciao
Aldo

scusa ;-)
dbg
Haah!
Salve
                Dbg

Newsgroup: it.comp.lang.visual-basic
Titolo: Versione DLL

Ciao. Partiamo dall'inizio. Ho sul mio computer tre versioni di una
DLL. Al momento è registrata una delle tre e mi servirebbe sapere
qual'è. Qualcuno può darmi qualche consiglio, magari segnalare un
tool per farlo....ecc.. Ciao.
Anticipatamente grazie.

 Anticipatamente grazie.
In maniera banale, regedit, fai cerca, metti il nome della dll, e vedi in 
che percorso si trova.

 che percorso si trova.
Grazie, ma ho già provato, ma non esiste nel registro......


Allora non e' registrata, semplice.
(ovviamente, se parliamo di dll non .net)

 (ovviamente, se parliamo di dll non .net)
Un'altra soluzione: apri VB6 tiri fuori la finestra dei riferimenti, cerchi 
nella lista il progetto contenuto nella dll e sotto guardi il percorso del 
file.
Ciao 



Dai un'occhiata con OleView: ti riporta tutte le versioni delle
typelibrary registrate e per ciascuna il percorso delle dll.
Ciao,
Moreno
-- 
http://www.msdomustech.it

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

ciao a tutti
volevo sapere se in un controllo listbox si puo fare in modo che quando si
clicca su un'elemento
questo non venga selezionato con la riga blu, se e' possibile qualcuno puo'
farmi un'esempio?
grazie.
ciao a tutti.

 wrote in message
86ah6j$2lvs$1...@stargate1.inet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Programmatore cercasi

Pavona di Albano 24.07.01
Per prgoettazione interfaccia utente su dispositivi con gestione della porta
seriale per acquisizione dati (temperatura, umidità, vibrazioni meccaniche,
etc) cerchiamo giovane programmatore in zona (Albano, Ariccia,
CastelGandolfo, etc.) in Visual basic.
per informazioni inviare curriculum c/o
te...@ginevri.com

 ha scritto nel messaggio
news:0q877.7947$hO3....@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Recordset... mi sto incartando

Estratto dal mio programma (Db Access 2000 e DAO 3.6):
Set dbs =
OpenDatabase(NomeDB)
Set rstClienti = dbs.OpenRecordset("SELECT * FROM
Clienti ORDER BY "Nome", dbOpenDynaset)
Se ad un certo punto desidero
cambiare l'ordinamento del recordset devo
chiudere il recordset e
riaprirlo con:
Set rstClienti = dbs.OpenRecordset("SELECT * FROM Clienti
ORDER BY "Codice", dbOpenDynaset)
Avete qualche sistema di piu' rapida
esecuzione?
Ciao e grazie.
--------------------------------
Inviato via 
http://usenet.iol.it

 esecuzione?
Forse applicando un .Sort?
Newsgroup: it.comp.lang.visual-basic
Titolo: BLOB

Si possono gestire campi blob di oracle via sql o pl/sql, senza
utilizzare procedure vb?
Grazie

 utilizzare procedure vb?
Senza procedure vb??? Che c'azzecca, qui?

...

Hai ragione, scusa, m'è sfuggito l'[OT].

Newsgroup: it.comp.lang.visual-basic
Titolo: cambiare l'immagine di un panel

salve,
come si fa a cambiare l'immagine del panel di una status bar?
ho provato con
    Dim pnl As Panel
    Set pnl = StatusBar1.Panels("antonio")
    pnl.Picture = LoadPicture("graphics\bitmap\assorted\balloon.bmp")
ma mi da un errore su .picture.
percorso e nomefile sono corretti.
grazie.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/
   Now offering spam-free web-based newsreading

...


 "bitmap")
si', infatti c'era pure questo errore.


Newsgroup: it.comp.lang.visual-basic
Titolo: Invio SMS via WEB

Qualcuno sa indicarmi qualche dritta?
Grazie!

> Qualcuno sa indicarmi qualche dritta?
ci sono un paio di esempi su 
http://www.beginend.com
Ciao :)
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: [vb3] Problemi sotto win2000

Ho dei problemi con l'api GetModuleUsage.
So che la "nuova versione" è GetExitCodeProcess, ma appena provo ad usarla
(vedi codice commentato) il compilatore si ferma sull'istruzione "Call
GetExitCodeProcess(CLng(hInstance), exitcode)" e mi dice "Duplicate
Procedure Name" Che non è assolutamente vero.
A me sorge il dubbio che il problema venga dal fatto che vb3 è a 16bit e
l'api in questione è a 32, ma allora la domanda è: come faccio a farlo
girare su win2000 visto che la GetModuleUsage mi restituisce sempre 0?
Declare Function GetModuleUsage% Lib "Kernel" (ByVal hModule%)
'Declare Function GetExitCodeProcess& Lib "kernel32" (ByVal hprocess&,
lpExitCode&)
Declare Function ShellExecute Lib "Shell" (ByVal hWnd As Integer, ByVal
lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String,
ByVal lpszDir As String, ByVal fsShowCmd As Integer) As Integer
Global Const SW_SHOWNORMAL = 1
Function iShellExecute_viewer (ByVal file As String, ByVal sCommand As
String, ByVal bWait As Integer) As Integer
  Dim hInstance As Integer
  Dim ret       As Integer
  Dim sTmp      As String
  hInstance = ShellExecute(Mainfrm.hWnd, sCommand, file$, "", "",
SW_SHOWNORMAL)
  If hInstance >= 0 And hInstance <= 32 Then
    MsgBox = "Errore"
  Else
  ' Esecuzione corretta
    Dim r As Integer
    Do
      r = GetModuleUsage(hInstance) ' Has Shelled program finished?
      DoEvents                      ' If not, yield to Windows.
    Loop Until r <= 0
    '------------------------------------------------------------
    'Dim exitcode As Long
    'Do
    '  Call GetExitCodeProcess(CLng(hInstance), exitcode)
    '  DoEvents
    'Loop Until (exitcode = &H103)
    '------------------------------------------------------------
  End If
  iShellExecute_viewer = hInstance
End Function
--
   .o0o.o0o.o0o.o0o.
   0    zMatteo    0
   .o0o.o0o.o0o.o0o.

 ha scritto nel messaggio
news:k5W#knrpCH...@DNS2.edpsistem.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: report

Ciao a tutti,
                    volevo sapere se in vb c'e' un comando per dire di
stampare un report
di acces?
Grazie mille

 wrote in message
news:3BBD836B...@everex.it...

devi utilizzare gli argomenti della riga di comando:
C:\Programmi\Microsoft Office\Office\MSACCESS.EXE /runtime "
PathMioMdb\Report.mdb" /nostartup /x miamacro
 dove miamacro contiene i comandi di apertura report.
Fammi sapere.
Ciao e buon lavoro.
Nicola.
-- 
Posted from  [192.92.126.162] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

Salve,
            con VB6   stampa da un recordset disconnesso non gerarchico come
si fa, anche se sono a metà pagina, a dirgli di fare un salto pagina?
(stampa condizionale).  Cosa banalissima da fare con PrinterPrint.
<PrinterPrint.NewPage>
        Dove posso trovare documantazione su datareport magari in Italiano ?
visto che MSDN è assai carente sull'argomento
        Un grazie anticipato a chi mi risponderà    Mirko

Mirko wrote:

Ciao,
su 
www.visual-basic.it
 , nell'area articoli, trovi vari tutorial sul 
DataReport.
Ciao
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Problemi con il Setup Wizard

Ciao a tutti.
Vi espongo il mio "problemino":
Ho creato il pacchetto di installazione del mio programma; ho notato che su
PC con Windows95 non ho avuto alcun problema, lo stesso non si può dire per
Windows98...
Esiste qualche DLL (a me ignota) che va registrata?
Sono bloccato da quasi una settimana.
HELP ME!!!
Grazie in anticipo
Nik



 wrote in message 87bljg$k65$1...@nslave1.tin.it...


...


Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto ! Come memorizzare matrici di dati in un controllo ?

Salve a tutti. Ho un problema con VB5! Sto assemblando una toolbar e
devo memorizzare in fase di progettazione una matrice di dati
alfanumerici corrispondente ai vari pulsanti. Sul manuale spiega che
alle proprietą possono venire assegnati dati Variant contenenti matrici
ma non so come fare. Se avete una dritta o un'alternativa GRAZIE....

Protresti utilizzare, invece che le matrici, le "Collections" (Insiemi).
--
Automatic posted from [195.31.193.71]
via Mailgate Server - 
http://www.mailgate.org
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] problema con DBCombo

avrei la necessità di visualizzare in un dbcombo una serie di dati... mi
spiego:
sul form1 ho dai campi testo collegati ad un db (nome, codice, articolo,
prezzo),
adesso vorrei visualizzare su un dbcombo tutti i campi in squenza, quindi:
DBCombo1.ListField = "nome"
in questo modo mi visualizza esattamente tutti i record del campo nome, ma
come si fa per visualizzarli tutti es:
nome = ciccio
codice=01
articolo=AA-25
prezzo= ? 25.25
quindi nella dbcombo:
ciccio, 01, AA-25, ? 25.25
grazie a tutti...

 ha scritto nel messaggio
news:1vzI7.93680$sq5.4...@news.infostrada.it...

Nella combo puoi memorizzare due valori, uno visibile con AddItem e uno
"nascosto", con ItemData (vedi guida)
Nel sito sono presenti due esempi di combo.ocx dove permettono di
visualizzare più campi.
Potresti costruire la AddItem con Campo1 & "*" & Campo2 & "*" & Campo3 e
nella ItemData il valore da inserire nella Casella.
Potresti inserire i valori in una Flex Visible=False e renderla visibile con
un clic ad un Pulsante.
giuseppeD

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

spiacente, temo di non farcela.
non è un gran periodo.
ciao 

 non è un gran periodo.
Spero nulla di grave Pal.
Nicola

 Spero nulla di grave Pal.
no nic, grazie. solo casino in quantità, ciao 

andrea palazzi ha scritto:

Meglio così. :-)
Nicola
Newsgroup: it.comp.lang.visual-basic
Titolo: minimizzare nel system tray

Salve a tutti....
visto che mi siete sempre stati di grande aiuto chiedo lo stesso (aiuto)
ancora una volta.....
vorrei che il mio programma fosse minimizzabile nel system tray e
richiamabile con un clic sull'icona relativa.... č possibile?
grazie a tutti

 grazie a tutti
Se usi .net c'è l'oggetto NotifyIcon già bello pronto
Altrimenti devi usare l'API Shell_NotifyIcon
Su 
www.allapi.net
 trovi maggiori informazioni e un esempio di utilizzo
--
Dark Hado

Ho risolto alla grande..... grazie
ora però è sorto un altro problema: facendo doppio clic sull'icona del
system tray richiamo il programma, ma questo non viene selezionato.... mi
spiego: per selezionarlo devo fare click sul form del programma.... come
posso fare per inviare un click o fare in modo che il form venga
selezionato?
Ho già provato con
form1.setfocus
ma non funge...idee?
grazie
"Dark Hado" <evi...@hado.ken> ha scritto nel messaggio
news:GkK59.199721$Jj7.4...@news1.tin.it...


 selezionato....
Presumo che stai utilizzando Vb6
Ecco un esempio provato e funzionante sulla mia macchina
IconInTray è una PictureBox
   Private Sub IconInTray_MouseMove(Button As Integer, Shift As Integer, X
As Single, Y As Single)
    Dim Msg As Long
    Msg = X / Screen.TwipsPerPixelX
    Select Case Msg
    Case &H203      'Doppio click tasto sx
    Form1.Visible = True
    Case &H205      'Click tasto dx
    PopupMenu Form1.mnuFile
    End Select
    End Sub
--
Dark Hado

Fin qui tutto OK... ma quando il form ritorna ad essere visibile, per poter
(per esempio) chiuderlo è necessareio fare 2 clic sulla "X"
il primo clic abilita il form (credo)
il secondo esegue la pressione di "X"
credo che il form sia deselezionato visto che faccio 2 clic in un'altra
posizione, anche se la barra è azzurra e non grigia...
suggerimenti?
"Dark Hado" <evi...@hado.ken> ha scritto nel messaggio
news:NAM59.200099$Jj7.4...@news1.tin.it...


 il secondo esegue la pressione di "X"
Una cosa del genere non mi č mai capitata...
Invece di form1.visible = true  prova form1.show o  form1.show  vbmodal
--
Dark Hado
Newsgroup: it.comp.lang.visual-basic
Titolo: Treeview e tabella

Dunque il mio problema è questo...
ho una tabella(Tabtree) dove ho 3 campi... il primo è l'idtabella poi
l'idpadre e idfiglio
Il mio problema riguarda l'ordine di estrazione che mi ritorna dalla
tabella.
Io scrivo: "select * from Tabtree order by idpadre"
L'aggiunta dell "order by" è dovuta al fatto che mi potrebbe estrarre prima
un figlio e inserirlo che il padre a lui legato e se avvenisse una cosa
simile mi darebbe errore poiche non troverebbe l'idpadre gia inserito prima
del figlio...(spero mi capiate). La cosa strana è cheme li ordina
perfettamente tutti anche a multilivelli... tutti tranne il primo che
guardacaso è figlio di un nodo non ancora inserito e quindi va in errore...
se faccio saltare l'errore il tree si carica perfettamente escluso il nodo
che ha dato errore...
come posso fare in modo da farmi estrarre perfettamente i dati in ordine che
estragga prima tutti i padri, poi i figli e poi se i figli sono anche padri
continui fino a caricarmi tutta la tabella divisa x padri e figli???
Bah spero che sono stato esauriente....
1000 grazie comunque x aver perso tempo a capire cosa ho cercato di
spiegarvi.

 continui fino a caricarmi tutta la tabella divisa x padri e figli???
    SELECT <solo i padri>
    UNION SELECT <solo i figli>
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Elucubravo in letizia, quando udii Francy sostenere...

Beh, se riesci ad identificare i padri di livello piu' alto (sono quelli 
che non compaiono mai come figli), una funzioncina ricorsiva ti popola 
il tutto.
Del tipo:
...
Ciclo su tutti i padri principali
  Call AggiungiNodo(Padre)
...
Sub AggiungiNodo(Padre)
  Aggiungo il nodo all'albero
  Seleziono i suoi figli (select where idpadre = <>)
  Per ogni figlio, Call AggiungiNodo(idfiglio)
End Sub
-- 
Bye by SixaM 8-]
-----------------------------
Sito comune: 
www.it-lang-vb.net

Ho risolto in maniera meno complicata e forse meno esatta... ho messo come
chiave della tabella un contatore e quindi carico i campi ordinati x
idtabella e idpadre... visto che un padre non puo' essere cancellato se ha
dei figli... allora l'id dei figli sara' sempre maggiore di quello del
relativo padre...
mi sembra la soluzione migliore senza starmi a incasinare con cicli
infiniti...
"SixaM" <mca...@NOSPAMmacinform.it> ha scritto nel messaggio
news:MPG.17a208cb2...@news.enter.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Ordinamento Datagrid VB6

Salve come si puo far ordinare un datagrid cliccando sulla intestazione di 
una sua colonna? 

 una sua colonna?
Sull'evento HeadClick, imposti il sort del recordset usando il nome del 
campo (ricavabile dalla collection fields usando l'indice passato 
all'evento).
Se il campo è già presente nel Sort ma senza che sia presente DESC, 
aggiungi Desc, così ottieni pure l'ordinamento inverso se fai un click 
ad una colonna già ordinata.
Ciao
Alberto
-- 
Konrad Adenauer: All'intelligenza Dio ha posto limiti, alla stupidità 
no.

 una colonna già ordinata.
con DESC intendi Descrizione?? Ma soprattutto alla fine quando so quale 
colonna è stata premuta l'ordinamento verò e proprio del recodset lo devo 
fare io con SQL giusto?

 fare io con SQL giusto?
Con DESC intendo Descending, nel senso che tu puoi ordinare per il 
campo "COGNOME" oppure per "COGNOME DESC", e ottieni l'ordinamento 
opposto.
L'ordinamento con SQL lo fai al momento dell'estrazione, con l'Order 
By, ma avevo capito che tu volessi ordinare successivamente, a dati già 
estratti e visualizzati.
Alberto
-- 
Friedrich Nietzsche: Un po' di salute ogni tanto è il miglior rimedio 
per l'ammalato.

 indice, e l'indice ce l'hai come argomento passato all'evento.
E no colpa mia che non conoscevo queste proprietà dei recordset.. Ok ora ci 
siamo mi funziona!! Grazie...


Newsgroup: it.comp.lang.visual-basic
Titolo: OT: Siamo preparati a cacciarlo fuori? (was: are *you* prepared?)

 Daniel

croce) rimane?
  Si, perche' non c'e' un moderatore, solo un robot che elimina i
messaggi con allegati.
  Ciao :-)
  Massimo
  Nell'indirizzo, inserire una "h" tra la "t" e la "u"
  In the address, insert an "h" between the "t" and the "u"
Newsgroup: it.comp.lang.visual-basic
Titolo: la tabella specificata non esiste !!

salve a tutti,
ho creato un DB con MySQL Front. riesco tranquillamente ad accedere con PHP
(sul mio computer, ho Personal Web Server), a leggere e a modificare i dati.
ho appena provato, pero, a vedere se riuscivo a leggere / scrivere anche con
VB6 + MySQLProv, ma ho avuto una brutta sorpresa.
se tento di fare una normale query "SELECT * FROM Tabella1", mi esce un
errore "la tabella specificata non esiste"... !!!!!!!!!!!
da notare che avviene solo se la tabella contiene dei dati, perche su una
tabella che non contiene record, funziona (anche se il recordset poi risulta
vuoto).
come è possibile che creando un DB con MySQL Front vada tutto bene con PHP e
dia questo errore con VB6 ?
grazie.
Mario

 ha scritto nel messaggio
news:abmsqt$j58k5$1...@ID-70152.news.dfncis.de...

Forse è una cavolata ma prova ad utilizzare
select é from TABELLA1 cioè utilizzando per i nomi dei campi
e delle tabelle i caratteri in maiuscolo.
Non dirmi subito che è una cavolata perchè SQL è case insensitive,
provalo prima, sembra strano ma mi è già successo (non era però Mysql).
                                        danilo
p.s.
    fai sapere


niente da fare... ho provato in tutti i modi, ma non funziona... amen... :-)
Mario

 ha scritto nel messaggio
news:abot66$js69j$1...@ID-70152.news.dfncis.de...

Vai via ODBC vero?

 Vai via ODBC vero?
veramente uso MySQL OLEDB. non ci sono DSN, solo il nome del DB, la user id
e la password. č molto strano, perche su alcuno database creati con MySQL
funziona e con altri no, e non riesco a capire da che cosa dipenda...
Mario
Newsgroup: it.comp.lang.visual-basic
Titolo: [~OT] Stored Procedure con parametrizzato sia il campo che l'operatore

Mi hanno chiesto questa cosa ma non sapreo come risolverla (se si può).
Questa funziona: io passo 'serialnumber%'
================
Create proc CercaSeriale
@Seriale varchar(255) =''
AS
Select * from Tutto Where Serial LIKE @Seriale
GO
================
Ora vorrei usare la stessa procedura per fare ricerche diverse
ossia poter passare sia il nome campo sia l'operatore che il Seriale, ma
facendo
Create proc CercaSeriale
@Seriale varchar(255) ='',
@Campo varchar(255) ='',
@Oper char(4)=''
AS
Select * from Tutto Where @Campo @Oper @Seriale
GO
Mi da errore su @Oper
 se lo cambio con = oppure LIKE funziona (ma cosi' non serve a niente)
Se lascio Select * from Tutto Where @Campo (per passargli l'intera stringa
Serial = 'nnnnn' ) mi da errore
Hai qualche soluzione?
Grazie a chi misaprà dire qcosa...A me sembra strano passare sia il campo
del db, che l'operatore...
-- 
Alex
"Un uomo saggio impara dall'esperienza,
un uomo ancora più saggio impara dall'esperienza degli altri." (Saggio
Cinese)

 
Dici a me?
;-)
La SP costruita in questo modo corrisponde a quando tu da vb costruisci 
una query.
Guarda questo thread:
http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&oe=UTF-8&threadm=c5msgo%243hok5%241%40ID-97197.news.uni-berlin.de&rnum=2&prev=/groups%3Fhl%3Den%26lr%3D%26ie%3DUTF-8%26oe%3DUTF-8%26q%3Demmexx%2Bstored%26btnG%3DSearch%26meta%3Dgroup%253Dit.comp.lang.visual-basic
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 Guarda questo thread:
Grazie ho già girato a chi di dovere :-).


Newsgroup: it.comp.lang.visual-basic
Titolo: Cambio impostazioni internazionali

Ciao. Vi spiego subito il mio problema: ho appena scaricato un programma
inglese, e nelle raccomandazioni c'e quella di impostare, ogni volta che uso
questo programma, le "Impostazioni internazionali" sull'Inglese o
sull'Americano. Una volta terminato l'uso reimpostare il tutto nel modo
originario. Vorrei evitare di fare tutto questo manualmente ogni volta che
uso il programma perciò sto cercando qualcuno che mi spieghi cortesemente
come fare tramite VB6 le seguenti operazioni in modo automatico e
trasparente:
1) Settare le "Impostazioni internazionali" sull'Inglese (o Americano);
2) Una volta settate correttamente, eseguire il programma interessato;
3) Una volta terminata l'applicazione in questione, ritornare sulle
impostazioni originarie, cioè l'italiano.
Spero in un aiuto (magari con un esempio)!!!!
Grazie.
Fabiano.


wrote in message 8pngo7$d52$1...@pluto.sm.dsi.unimi.it...


 ha scritto nel messaggio
news:E3Jv5.18521$Sm1.2...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [NET] Domanda stupida

Mi rendo conto che stò facendo una domanda stupida ma ... devo :-)
Ho generato la mia prima applicazione in vb.NET, prendendo spunto da una
fatta da me in vb6.
Finita e provata, funziona correttamente, a questo punto con vb6 generavo il
mio file .exe
Con NET cosa devo/posso fare a questo punto ?
Ho lanciato dal menu Genera il comando "Genera applicazione.NET" e ho visto
che mi ha generato il .exe nella sottocartella obj\Debug ... che funziona
perfettamente.
Però esiste anche il comando "Genera Soluzione" ... cosa fa questo ?
grazie
--
Ciao MarcoS (xp)
www.marcosanti.it

 Perņ esiste anche il comando "Genera Soluzione" ... cosa fa questo ?
Una solution puo' includere piu' progetti di vario tipo, se ne una di questo
tipo, il primo genera solo l'exe/dll del progetto corrente, il secondo di
tutti quelli della solution.
Nota anche che puoi scegliere quale configurazione compilare per ogni build
che fai; quella che hai compilato tu era relativa alla configurazione
predefinita Debug che, di default, ha tutte le ottimizzazioni disabilitate
mentre per quella Release e' vero il contrario (non tutte ma quasi); sarebbe
preferibile quindi utilizzare questa'ultima per creare l'applicazione da
distribuire, puoi scegliere la configurazione dal piccolo combo sulla
toolbar vicino al tasto 'Run' oppure tramite il configuration manager...
nelle proprieta' del progetto invece puoi modificare i parametri di ciascuna
e se vuoi crearne di personalizzate.
Al solito, tutto questo e altro sulla guida...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown
Newsgroup: it.comp.lang.visual-basic
Titolo: [!] Nuova OCX free per 'sfoglia per cartelle'...

Ho fatto una nuova OCX che consente di inserire un oggetto identico a
'sfoglia per cartelle' in una form.
Fornisce info tipo il file/cartella selezionati ed i loro attributi,
compreso lo spazio occupato dalla cartella.
C'è insieme un progetto dimostrativo sull'utilizzo, che usa anche una
'resize bar', per chi vuole sapere come funzionano... :)
Gratis, da me...
http://www.chiappori.net
area VB...
--
--[GbC]--

meraviglia meraviglia
tutto un look nuovo !
:)
(appena visto, il controllo non l'ho ancora provato).
grazie, a.
"GbC" <mac...@ti.importa> ha scritto


Newsgroup: it.comp.lang.visual-basic
Titolo: IP CAM

Salve a tutti,
sto sviluppando un software di interfaccia grafica che dovrï¿œ mostrare a 
video quanto trasmesso in streaming da una IPCAM.
Se raggiungo la Cam da internet explore mi risponde la sua interfaccia 
web e mi mostra il video.
Per il mio software (VB6) sto utilizzando il plugin della VLC che da 
quanto ho letto ï¿œ molto valente.
Riesco ad accedere al video, ma l'immagine risulta spixellata e di bassa 
qualitï¿œ, niente a che vedere con quanto mostrato tramite internet explorer.
Il protocollo ï¿œ RTSP.
Sapete indicarmi la giusta via ?
grazie a tutti

 explorer.
potresti utilizzare il controllo webbrowser dal tuo programma vb6: in questo 
modo accederai al video *come se* lo facessi tramite IE, quindi in buona 
qualit� (a tua detta).
Saluti
Anak
softwareE=mc^
2...@netlogica.it
(eliminare l'eq per risp in prv) 

 qualit� (a tua detta).
Ancor meglio, IMVHO, usare un eventuale DLL o OCX o quel che
c'�, fornito dal produttore della Cam. Per esempio, con le Axis che
ho usato io un paio di anni fa davano un OCX Axis Camera Control)
che funzionava anche sotto VB, ed esponeva un bel po' di funzioni.
Ovviamente *se* il produttore lo fornisce :-).
Bye, G. 

 Solo una curiosit� per Waran... origini sarde ? :-)
Si nota cos� tanto l'accento? :-)
ciao
Stefano

 Bye, G.
la mia IPCAM � della promelit e non mi ha rilasciato nessun OCX.
Sono ancora in cerca di una soluzione...

 Si nota cos� tanto l'accento? :-)
:-)
No, era quel "valente", che mi ricordava il "balente" sardo :-).
Bye, G. 

 Sono ancora in cerca di una soluzione...
C'era del SW allegato ? Oppure viene scaricato qualcosa
automaticamente se ti connetti all'IP della cam ?
Che modello � di preciso ?
Bye, G. 

 Bye, G.
Ciao, scusa se rispondo solo ora ma sono stato malato! :(
Un CD � uscito, ma non c'erano software utili (solo manuali), ma hai 
ragione, connettendomi tramite ie mi ha installato dei componenti 
aggiuntivi che mi hanno permesso di allacciarmi alla cam con VB6. 
Purtroppo non c'� documentazione quindi non sono riuscito a sfruttare 
ancora tutte le funzionalit�. Ho fatto richiesta di documentazione alla 
promelit, ma ancora niente. Il modello � H260.
Ciao

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

Mi date l'URL del sito di chi produce la griglia Janus?
Grazie
ByeZ
SebaMix

> Mi date l'URL del sito di chi produce la griglia Janus?
http://www.janusys.com/
Newsgroup: it.comp.lang.visual-basic
Titolo: Cambiare Attributo

Salve qualcuno può suggerirmi come si cambia un attributo ad un file?
Ho fatto una routine per vuotare una cartella predefinita con questo codice:
On Error Resume Next
Kill Dir1 & "\*.*"
errore:
If Err = 53 Then MsgBox ("La cartella è vuota") Else MsgBox ("Si è
verificato l'errore n° " & Err)
Ora se in questa cartella vi è un file di sola lettura esso si blocca. Come
posso evitare ciò, e,quindi, cambiare l'attributo ai possibili file di sola
lettura?    Grazie in anticipo!!!!



Se non erro sul Sito cOmune c'è un esempio..... altrimenti dimmi che cerco: da qualche parte l'ho
visto...
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
---------------------------------------------------------------------------

 lettura?    
GetAttr - ritorna gli attributi di un file
SetAttr - modifica gli attributi di un file
se poi vuoi usare le api con 
ShFileOperation elimini una directory senza preoccuparti di nulla, fa
tutto lui...
Ciao
	  :-) Hd (-:
-^- Verso l'infinito e oltre -^-

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Lettori di codice a barre

Ciao a tutti....allora.....vi sottopongo il mio problema......
devo realizzare un'applicazione per leggere codici a barre....fin qua tutto
bene.....
il problema è che il lettore deve essere collegato ad un palmare o a
qualcosa di simile (magari di meno costoso di un palmare).....
xchè io so che i lettori funzionano in emulazione tastiera (sulla PS/2),
però i palmari non hanno la presa per una tastier esterna, quindi il
collegamento palmare-->lettore sembrerebbe impossibile......
ho sentito parlare di alcuni lettori con una specie di "memoria".........li
conoscete??
qualcuno di voi conosce qualche modello programmabile da VB???
grazie e buona domenica!!!!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262

 grazie e buona domenica!!!!!
su 
www.datalogic.it
 trovi dei lettori di Barcode a laser su cui gira Win!!!
Il prezzo penso che sia l'unica nota dolente...


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

grazie delle dritte

http://groups.google.com/groups?q=risponde+topic+group:it.comp.lang.visual-b
asic&hl=it&lr=&ie=UTF-8&oe=UTF-8&selm=OYZS8.80388%24j65.1901458%40twister1.l
ibero.it
&rnum=2
:-)

Newsgroup: it.comp.lang.visual-basic
Titolo: How can I play WAv`s???

answer please to:
seaha...@gmx.net
thx

Use NmVolOCX...
Is a free OCX (to control the volume and play wavs)...
In my site
--[GbC]--
Newsgroup: it.comp.lang.visual-basic
Titolo: winsock e visual basic

Ciao  tutti,
Qualcuno sa dirmi se è possibile monitorare il traffico su una porta TCP in 
visual basic?
Intendo dire una porta già a perta da un altro programma.
Utilizzando il controllo winsock ricevo un errore di "porta già aperta"
Grazie
Alessandro 

 Utilizzando il controllo winsock ricevo un errore di "porta già aperta"
ti servono capacita` di sniffing come quelle fornite dalla libreria
winpcap, per la quale, tuttavia, non e` fornito supporto per l' uso
con visual basic:
http://www.winpcap.org/misc/faq.htm
se cio` che ti serve e` solo uno sniffer, dai un occhio ad ethereal
-- 
ciao, hal

 Intendo dire una porta già a perta da un altro programma.
Se ne parlava qualche post sotto. La cosa di per sè è possibile come con
qualsiasi altro linguaggio di programmazione, in ogni caso il tutto va fatto
integralmente con le API visto che il controllo Winsock non permette di
usare i Socket Raw; inoltre, per ricevere i dati devi saper usare il
subclassing.
In due parole: se non hai già qualche familiarità con le api Winsock la cosa
non è per niente facile.

Alex wrote:

Se la necessità è solo quella di monitorare una specifica porta, puoi 
anche tentare di realizzare un piccolo proxy
Dai un'occhiata a questo mio esempio che trovi nell'area download di 
www.visual-basic.it
POP3proxy.zip
23/07/2004 [11 kb] - Internet/Comunicazioni - ver: VB6 - N.Download: 1127
proxy per il protocollo POP3. Permette di intercettare la comunicazione 
tra un server mail e un client POP3.
Ciao
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

 ha scritto nel messaggio 
news:IHVwf.355$sK3...@nntpserver.swip.net...


Newsgroup: it.comp.lang.visual-basic
Titolo: Qualcuno sa...

...come si può mandare in stampa il contenuto di una Picture Box?
Grazie anticipatamente
                            Giorgio

                             Giorgio
--
****************************************************************
Donatella Corrado
Laboratorio di Epidemiologia Assistenziale e Sistemi Informatici
Centro di Ricerche Farmacologiche e Biomediche "Mario Negri Sud"
via Nazionale 66030 Santa Maria Imbaro (CH)
Tel.: 0872570329
e-mail: 
cor...@negrisud.it
*****************************************************************

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] si può cambiare la grafica della MSGBOX

colori, font,dimensioni
Newsgroup: it.comp.lang.visual-basic
Titolo: importare dati da excel a tabella access con vb6

Ciao a tutti,
premetto: google e guida in linea consultati
ed è venuto fuori quanto di seguito per importare determinati dati in alcuni
campi di tabella access
    Dim objExcel As Excel.Application
    Dim objWorkBook As Excel.Workbook
    Dim objWorkSheet As Excel.Worksheet
    Dim FileExcel As Workbook
    Dim r As Recordset
    If Text2.Text = "" Then ApriFile ("xls")
    'Set objExcel = GetObject(, "Excel.Application")
    Set objExcel = CreateObject("Excel.application")
    'On Error goto GestErrore
    objExcel.Workbooks.Open FileName:=Text2.Text
    Set r = Db.OpenRecordset("TABELLA_TMP")
    fine = Sheets("Foglio1").Range("A1").End(xlDown).row
    For i = 2 To fine
        r.AddNew
        r!TabCivi_DATAINSER = Sheets("Foglio1").Cells(i, 30).Value
        r!TabCivi_DATAAGG = Sheets("Foglio1").Cells(i, 31).Value
        r!TabCivi_TRASF = Sheets("Foglio1").Cells(i, 32).Value
        r.Update
    Next i
    Set FileExcel = Nothing
    r.Close
    Set r = Nothing
ma ottengo il seguente errore "metodo open dell'oggetto workbooks non
riuscito
grazie e buon lavoro
Jack

 ed č venuto fuori quanto di seguito per importare determinati dati in

forse ho risolto con
Dim objExcel as Object al posto di Dim objExcel As Excel.Application
ciao a tutti
jack
Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzare codice uguale per due programmi diversi

Sto sviluppando codice su 
vb.net
 2005 express edition; un programma è 
già perfettamente funzionante e sto progettando altri due programmi.
Uno di questi utilizzerà molte delle cose già sviluppate con il primo 
(schermata Apri e Salva e molte altre cose) e altrettante saranno 
praticamente uguali, cambieranno quasi solo i nomi delle classi, dei 
controlli e delle variabili.
Inoltre, e qui c'è il problema che io ritengo più rilevante, in futuro 
molte modifiche saranno effettuate su tutti e due i programmi e temo di 
dimenticarmi di effettuare i cambiamenti esattamente su tutti e due, 
quando sarà il caso ovviamente.
Fermo restando che per il codice esistente è sufficiente un copia-
incolla, quindi non è qui il problema, c'è uno o più modi per collegare 
i due programmi permettendomi di modificare un programma e, quando lo 
ritengo il caso, di modificare contestualmente anche il secondo?
-- 
http://celtics.playitusa.com/
  il sito di riferimento italiano dei 
Boston Celtics
www.chry2403.it
  programmi gratuiti per Windows

 wrote:
[cut]
Una possibile soluzione č quella di usare Sourcesafe, questi i passi:
1. ti crei un primo progetto con tutti i files
2. ti crei un secondo progetto composto solo dai files non comuni con
il primo
3. Tramite drag and drop metti in comune i files del primo progetto
con il secondo
In questo modo quando fai il check-in dei progetti ognuno ha la lista
corretta di tutti i files ma se modifichi uno dei files comuni
(tramite il check-in check-out) l'aggiornamento dell'altro progetto č
automatico.
Se nei files comuni hai il 99% del codice uguale e l'1% diverso poi
racchiudere quest'ultima parte in un blocco di compilazione
condizionale tramite una costante che definirai in un'altra parte del
progetto (non comune).
Vantaggi:
- non devi modificare il codice, preoccuparti di dll etc
- hai lo storico delle modifiche
Svantaggi:
- il tuo modo di lavorare diventa un poco piů "formale" (check-in
check-out dei files sui quali lavori)
Ciao
Stefano 'HappyMan'
 

 Una possibile soluzione è quella di usare Sourcesafe...
Non conosco SourceSafe.
É disponibile con vb oppure è un'applicazione esterna?


Newsgroup: it.comp.lang.visual-basic
Titolo: Come si fà a ...

Come si fà a contare le righe in un file die testo?
grazie in anticipo per l'aiuto

Come si fà a contare le righe di un file di testo.


Come si fà a contare le righe in un file die testo?


Come si fà a contare le righe di un file di testo.
Come si fa? Io farei cosi' (c'e' di meglio?):
Option Explicit
Public Sub Main()
Dim iFileNum  As Integer
Dim iRows     As Integer
Dim sCurLine  As String
Dim sFileName As String
    sFileName = "C:\Windows\Copia di WIN.INI" ' Per esempio...
    iFileNum = FreeFile
    Open sFileName For Input As #iFileNum
    iRows=0 ' Non serve ma... e' una buona abitudine.
    Do While Not EOF(iFileNum)
        iRows = iRows + 1
        Line Input #iFileNum, sCurLine
    Loop
    Close #iFileNum
    MsgBox "Righe: " & iRows & ".", vbOkOnly, sFileName
End Sub
--
Ciao.
Maurizio
Newsgroup: it.comp.lang.visual-basic
Titolo: conteggio file dentro una unità vb6

Salve a tutti,
vi chiedo un aiuto per capire come fare per contare i file presenti
dentro un l'unità .
Grazie

dentro un l'unità .
Devi usare la funzione DIR del Visual Basic.
--
ciao
  Stefano

Grazie per avermi risposto Stefano,
purtroppo ho dimenticato di dire che sono agli inizi e volevo un
esempio di codice.
ad esempio: quanti file .jpg sono presenti dentro c:\  senza contare le
subdirectory,
per poi aprire contemporaneamente tutti i file .jpg presenti su c:\
come delle thumbnails!
Mi spiego meglio!
Secondo la mia logica forse un po strampalata vorrei creare un form con
dei pulsanti ognuno corrispondente ad un unità; c:\,  D:\ per il
cdrom, e cos' via........
......  CLiccando ad esempio sul pulsante corrispondente all'unità
cdrom mi si dovrebbe aprire un'altro form un insieme di anteprime di
tutti i file .jpg presenti sul cdrom.
Per adesso se arrivassi a capire fin qui sarei felicissimo!
grazie



tutti i file .jpg presenti sul cdrom.
Allora ti serve anche un contollo ImageList
--
ciao
  Stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: VB e Excel - fare riferimento al file già aperto

Ciao a tutti,
per aprire un file excel con VB e poi scriverci dentro utilizzo il seguente 
codice
    'INIZIO APERTURA FILE
    Set Xapp = New Excel.Application
    Set Xwork = Xapp.Workbooks.Add("C:\NomeFile.xls")
    Set Xshit = Xwork.Sheets("NOME FOGLIO")
    Xapp.Visible = True
    'FINE APERTURA FILE
Questo però mi costringe ad assegnare il percorso e nome del file ed inoltre 
non mi consente di far selezionare una o più celle all'utente.
Vorrei pertanto poter aprire manualmente (senza VB) Excel, selezionare le 
celle che mi interessano e quindi avviare il codice di cui sopra facendo 
riferimento al file correntemente aperto ed in primo piano.
Come posso fare?
Ringrazio tutti in anticipo. 

 ha scritto:

A questo punto usa VBA direttamente da EXCEL. No?
-- 
Psoftp -- Eyes on Software -- 
http://www.mynewsgate.net/mp.php?u=19242


Vorrei evitarlo, in quanto lo stesso programma VB deve poter lavorare con 
più file diversi.
L'utilizzo di VBA mi costringe a copiare il codice VBA su tutti i file che 
mi servono con conseguente complicazione della manutenzione degli stessi.
A meno chè non si possa salvare le macro VBA in un file esterno e quindi 
caricarle in qualche modo ogni volta che serve....
Ciao e grazie

 inoltre non mi consente di far selezionare una o piů celle all'utente.
Prova allora con la GetObject anzichč fare un New Excel.Application, 
dovrebbe agganciarsi all'istanza di excel in esecuzione.
Poi con il DOM di Excel (che non conosco bene) dovresti poter facilmente 
risalire all'ActiveSheet.
Ciao 

 risalire all'ActiveSheet.
Ho risolto con il seguente codice:
Private Sub Command4_Click()
    Dim Excl As Excel.Application
    Dim Wbk As Excel.Workbook
    Dim Wsht As Object
    Dim nriga As Integer
    Dim ncol As Integer
    Dim ValCella As Variant
    On Error Resume Next
        Set Excl = GetObject(, "Excel.Application")
        If Err.Number <> 0 Then
            Err.Clear
            MsgBox "Impossibile continuare perchè Microsoft Excel non è 
attivo!", vbCritical
        Else
            Set Wsht = Excl.ActiveSheet
            MsgBox "Prova"
            'INIZIO LETTURA E SCRITTURA FILE
            nriga = 1
            ncol = 1
            ValCella = Wsht.Cells(nriga, ncol).Value
            'FINE LETTURA E SCRITTURA FILE
        End If
End Sub
Grazie! 

 ha scritto nel messaggio 
news:447321ed$0$18296$4faf...@reader1.news.tin.it...
