mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Cambiare colore all'editor di VB

Ciao a tutti,
vorrei sapere se è possibile definire qualche colore diverso per il testo
nell'editor di VB.
In pratica quello che si fa da Strumenti > Opzioni > Formato Editor
Ma vorrei scegliere un colore fra quelli non in lista.
Che sappiate sul registro o da qualche parte posso specificare un colore
che voglio io, magari prendendo il codice long o RGB e mettendolo in
qualche chiave.
Grazie a tutti.
-- 
DBMS Firebird
VB6 + Ado


I colori sembrerebbero essere limitati ai 16 base, osservando il formato con cui
sono memorizzati nel registry:
HKEY_CURRENT_USER\Software\Microsoft\VBA\Microsoft Visual Basic\CodeForeColors
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.

 HKEY_CURRENT_USER\Software\Microsoft\VBA\Microsoft Visual Basic\CodeForeColors
Grazie,
peccato perchč ho un LCD e il verdino dei commenti a seconda
dell'angolazione lo vedo praticamente nero. Volevo mettere un verde un pelo
piů acceso senza usare quello brillante.
Credo che col ClearType di XP si sarebbe visto comunque benone, ma in
ufficio ho win2k e non mi pare ci sia il modo di emularlo.


Newsgroup: it.comp.lang.visual-basic
Titolo: VS Express e progetti VB6...

Domandina veloce veloce: devo formattare e non ho qui i CD del VStudio 6.
Il VS Express e' in grado di sostituirlo degnamente? Sopratutto per quanto 
riguarda l'apertura di progetti in VB6 e relativa compilazione...puo'? 
Riesce?
Grazie!

 riguarda l'apertura di progetti in VB6 e relativa compilazione?
No. VS Express è una versione semplificata di 
VS.NET
 2005, per cui:
1) il linguaggio è diverso (googlati le differenze fra VB6 e .NET)
2) i traduttori automatici esistono ma ottieni un pessimo 
VB.NET
3) alcuni controlli di VB6 non sono supportati da 
VB.NET
4) molti altri sono supportati in modo diverso (non compatibile)
5) essendo una versione gratiuta semplificata, supporta solo una
   parte dei controlli di 
VB.NET
per cui messe insieme tutte e cinque le cose, il "no" è totale.
Ciao.
Mauro 

   parte dei controlli di 
VB.NET
Questo è falso.
Il .net framework (e quindi le windows.forms) è uguale per tutte le 
versioni.
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : 
http://www.thetotalsite.it
My Blog: 
http://blog.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
Se un circuito funziona al primo tentativo è perchè il problema è molto
più nascosto e subdolo di quanto tu possa pensare...
E apparirà nel momento in cui farà il massimo danno 

 compilazione...puo'? Riesce?
No.
Vb6 != Vb.Net
Sono due linguaggi completamente diversi.


 Sono due linguaggi completamente diversi.
Ringrazio te ed il mio omonimo, ma so' distinguere tra .Net e VB6 ;-)
Il dubbio era sull'ambiente, se era in grado di gestire progetti VB6. Mi 
aspettavo un no...e c'ho preso :-D
Grazie ancora!
Newsgroup: it.comp.lang.visual-basic
Titolo: Win98 e VB5

A nessuno capita di lavorare con win98 e visual basic 5 e la finestra una
volta ridotta perde il controllo cosi che l'unica cosa da fare rimane
chiudere e riaprire il programma???

...


Newsgroup: it.comp.lang.visual-basic
Titolo: VB string Manipulation question

Hello, I am working on a project where I take results out of an Html source.
Well the data I capture is this
  1.  Name:             Clint Carbaugh
      E-Mail:           <a
href="mailto:
ccar...@mydeja.com
">
ccar...@mydeja.com
</a>
      Organization:     Figi's Inc.
      Last Update:      04/18/01
Ok, now I want to extract the name, email, Organization, out and post it in
a text box.   How can a extract just the data I want?? After each line there
is a Cr (or at least that is what it looks like in my debug window)  I
started something like this but no luck, trying to dimension the 4 lines by
the carriage return code. I tried vbCrLf too.
Dim InternetAddress() As String
    InternetAddress$ = Split(ResultText$, vbCr)
    IAfname$ = InternetAddress(1)
Any suggestions??  thanks

> Clint Carbaugh:

Option Explicit
Private Sub Main( _
)
'  1.  Name:             Clint Carbaugh
'      E-Mail:           <a
'href="mailto:
ccar...@mydeja.com
">
ccar...@mydeja.com
</a>
'      Organization:     Figi's Inc.
'      Last Update:      04/18/01
'
  Const c_intName As Integer = 2
  Const c_intMailTo As Integer = 6
  Const c_intOrganization As Integer = 9
  Const c_intLastUpdate As Integer = 11
  Dim strText         As String
  Dim a_strText()     As String
  Dim lngIndex        As Long
  Dim strName         As String
  Dim strMailTo       As String
  Dim strOrganization As String
  Dim dtmLastUpdate   As Date
  strText _
    = "  1.  Name:             Clint Carbaugh" & vbCrLf _
    & "      E-Mail:           <a" & vbCrLf _
    & "href=""mailto:
ccar...@mydeja.com
"">" _
    & "
ccar...@mydeja.com
</a>" & vbCrLf _
    & "      Organization:     Figi's Inc." & vbCrLf _
    & "      Last Update:      04/18/01"
  strText = Replace(strText, vbCrLf, "")
  strText = Replace(strText, "Name:", ":Name:")
  strText = Replace(strText, "E-Mail:", ":E-Mail:")
  strText = Replace(strText, "mailto:", ":mailto:")
  strText = Replace(strText, "Organization:", ":Organization:")
  strText = Replace(strText, "Last Update:", ":Last Update:")
  strText = Replace(strText, """>", ":"">")
  a_strText = Split(strText, ":")
  'For lngIndex = LBound(a_strText) To UBound(a_strText)
  '  Debug.Print Trim$(a_strText(lngIndex))
  '
  'Next
  strName = Trim$(a_strText(c_intName))
  strMailTo = Trim$(a_strText(c_intMailTo))
  strOrganization = Trim$(a_strText(c_intOrganization))
  dtmLastUpdate = Trim$(a_strText(c_intLastUpdate))
  Debug.Print "Name:", strName
  Debug.Print "E-Mail:", strMailTo
  Debug.Print "Organization:", strOrganization
  Debug.Print "Last Update:", dtmLastUpdate
End Sub
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 wrote in message
news:9bolvq$ae3gb$1...@ID-52090.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: [Sito Comune] Modulo Richiesta Recensioni

Il suddetto modulo non funziona e da errore in fase di invio (qualcosa del
tipo permesso di scrittura negato).
Ciao, Rick.

tipo permesso di scrittura negato).
Il CGI che gestisce il post automatico ha problemi con il server e attualmente questi problemi non
sono risolvibili in tempi brevi. Oggi o domani modificherò il modulo rendendolo meno automatico ma
funzionante (nell'attesa che il problema venga risolto). Scusate per il disagio.
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: [VB.NET] ListBar(menù) a sinistra e forms sulla destra....

Sto cercando di creare quella struttura grafica così carina...ovvero:
LISTBAR non menù sulla sinistra
FORMS che si aprono nello stesso "contenitore" a destra.
Fino a creare il menù sulla sx ci sono arrivato....
Come faccio ora ad aprire le forms sulla destra all'interno di uno stesso
"contenitore" ?
Grazie mille.
 
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 stesso "contenitore" ?
Aggiungi un oggetto Panel che funga da contenitore nella parte destra e 
visualizza le varie finestre in questo modo:
Dim frmDX as New <la tua classe Form>
frmDX.FormBorderStyle = FormBorderStyle.None
frmDX.TopLevel = False
frmDX.Dock = DockStyle.Fill 'per adattarsi alle dimensioni del panel
PanelDX.Controls.Add(frmDX)
frmDX.Show()
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown
Newsgroup: it.comp.lang.visual-basic
Titolo: stack esaurito... ed anch'io!!!!!

Salve a tutti,
qualcuno potrebbe gentilmente illuminarmi su quali possono
essere le cause + frequenti e non dell'errore 
"Stack esaurito"
Cosa determina, in genere, questo tipo di errore? 
Vi ringrazio 
Anna Maria - 
aia...@tin.it
--
Posted from 
mta04-acc.tin.it
 [212.216.176.35]
via Mailgate.ORG Server - 
http://www.mailgate.org

Cosa determina, in genere, questo tipo di errore?
Tra le varie segnalo:
    - Chiamate a funzioni nidificate fino ad un livello N troppo esteso per
la capacità dello Stack (che va anche relazionato al numero di variabili
impostate in ogni funzione)
    -Chiamata ricorsiva ad una funzione fino ad un livello N troppo esteso
per la capacità dello Stack (che va anche relazionato al numero di variabili
impostate in ogni funzione)
Un possibile caso si può avere quando si mette del codice in un evento A
tale da scatenare un evento B ove è presente del codice che riscatena
l'evento A. Nel giro di un attimo lo spazio sullo Stack si esaurisce...
Ciao,
    Alfredo.

 
Ciao
Riccardo

via Mailgate.ORG Server - 
http://www.mailgate.org
-------------
Ciao!
Nella Guida in linea di Visual Basic trovi una spiegazione esaustiva delle
cause che portano all'errore "Spazio dello stack esaurito".
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Load picture

Esempio:
frmCiaoPepp.Icon = LoadPicture("pepp.ico")
Se installo lo stesso progetto su due PC, in due cartelle con nome diverso,
come faccio a fare in modo che l'icona venga caricata, indipendentemente dal
nome della cartella?
Ciao
Grazie
Cesare Nicola

...

frmCiaoPepp.Icon = LoadPicture(App.Path & "\pepp.ico")
oppure
frmCiaoPepp.Icon = LoadPicture(App.Path & "\Icons\pepp.ico")
se ,ad esempio, tieni le tue icone in una sottocartella rispetto all'eseguibile.
Ciao
--
Luca Dormio
l...@sig-la.com
ldo...@tin.it

quando usi l'app.path presta sempre attenzione ad una cosa:
if app.path="C:\" then
	frmCiaoPepp.Icon = LoadPicture(App.Path & "pepp.ico")
else
	frmCiaoPepp.Icon = LoadPicture(App.Path & "\pepp.ico")
end if
Perché? Perché nella root c'è già la barra e allora non fungerebbe.....
(lo so che nessuno installa i programmi nella root, ma io l'ho fatto per prova ed ho scoperto il trucco...... a mie
spese... ^__^)
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

Perché? Perché nella root c'è già la barra e allora non fungerebbe.....
Infatti: e' un problema (o una feature? ;)) comune anche ad altre funzioni o
property che restituiscono percorsi; invece di usarle direttamente chiamo sempre
una funzioncina "home made" che mi ritorna comunque il path corretto con
l'ultimo "\"
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Click destro e nuovo visual basic project

Mi e' sparita la possibilita' di clikkare col destro su una cartella di
windows e fare nuovo -> visual basic project
Le voci nel menu' "nuovo" sono quelle che avevo di solito (cartella,
documento di testo, ecc.), manca solo quella di vb.
E' una funzione che usavo spesso, qualcuno sa come farla riapparire?
ciao
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 ciao
direi che puoi farlo con tweak-ui 98, e mi sembra anche con la versione
precedente. al tab "new" c'e' un listbox coi check in cui trascinare un file
per farne un modello.
ciao, a.

E' una funzione che usavo spesso, qualcuno sa come farla riapparire?
Io non ce l'ho MAI avuto VB6 SP3...


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

Come faccio ad ottenere l'HTML della pagina scaricata dal mio controllo
browser piazzato sul form?
Grazie a tutti
Diego

Guarda la mia risposta al post "WebBrowser e testo" di Francesco in data 17
Mar 2004
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

scusa la mia ignoranza ma come si fa con questo cavolo di outlook Express a
sacaricare un numero di messaggi prestabilito? io non riesco a vadere i
messaggi antecedenti al 18/03/2004!
Grazie
Diego

Strumenti-->Opzioni-->Lettura-->"Leggi ...."


 io non riesco a vadere i messaggi antecedenti al 18/03/2004!
Senza toccare OE >>
http://groups.google.com/advanced_group_search
www.google.it
 >> "WebBrowser e testo"  questo NG
http://digilander.iol.it/ifst/html/Quoting.html
--
Fosco

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Quali file del sp5 scaricare

Quali file del sp5 è necessario scaricare per aggiornare vb6?
Grazie!
Luciano

Beh... Puoi scegliere... c'č la versione per solo Vb (+o- 60 Mb)... o quella
per l'intero VS (+o- 133 Mb)
Io l'ho scaricata e installata... Ma vi dirň che rispetto alla 4... non mi
pare ci siano grossissime differenze (a parte che nell'elenco delle librerie
Microsoft né ho viste alcune in piů...)... Ora i miei consigli sono
semplici... Per chi ha l' SP4 direi, a meno di aver bisogno di uno specifico
controllo (o una specifica libreria) dell'SP5 di lasciar perdere la 5...
                Allanon

Newsgroup: it.comp.lang.visual-basic
Titolo: File risorse che cosa sono?

Ciao a tutti
Leggendo il NG ho visto "File risorse";
che cosa sono?
Grazie ancora

...


che cosa sono?
Sono file .res che possono contenere Icone, strutture Menu, Cursori,
Descrizione di messaggi (per le versioni in multilingua)...
Erano usati per le app in C e C++ ora introdotte anche in VB( dalla in poi)
Vengono editati da appositi editor non distribuiti con VB (cissà perchè...)
presenti però nell'SDK, ecc
Scusa ma in VB non le ho ancora usate...
Ciao
Pak
pa...@citynet.re.it
 (togliere una k dall'indirizzo)
Newsgroup: it.comp.lang.visual-basic
Titolo: e-mail

E' possibile mandare e-mail tramite Visual Basic 6.0 collegandosi
direttamente ad Outlook?
Sui vecchi post ho trovato una OCX che lo permette ma essa non è in grado di
inserire allegati.
Se qualcuno può aiutarmi, mi salverà da un casino in cui mi ci son ficcato.
Grazie

 wrote in message
news:a4t5ts$3cb$1...@pegasus.tiscalinet.it...

Mesi fa ho scritto un programmino che mandava Email con allegato
utilizzando un controllo OCX Free che ho trovato in internet.
Esso funziona ancora oggi in maniera egregia.
Prova da google a cercare "axssmtp.ocx", il primo risultato che ti salta
fuori
è proprio lui, è molto facile da usare, non ha dipendenze strane e
funziona da DIO.
A me ha risolto tutti i problemi..
Ciao, Daniele
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:f6c8b3bd3e995dab7f4...@mygate.mailgate.org...


 ha scritto nel messaggio
news:f6c8b3bd3e995dab7f4...@mygate.mailgate.org...


Il quoting, per la miseria !
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Windows XP e MSCAL.OCX

Ho un programma sviluppato in VB6 regolarmente installato e funzionante sia
su W98 sia su W2000.
Quando lo installo su Windows XP dà i numeri, sia per le dimensioni dei form
(anche se i computer sono sulla stessa risoluzione) ma soprattutto, quando
viene lanciato un controllo calendario di MSCAL.OCX, il tutto si blocca con
un avviso di errore a 6 cifre. MSCAL è regolarmente installato e registrato.
Qualcuno ha suggerimenti?
grazie, Andrea

, 
a.me...@tiscali.it
 
says...

L'argomento è già stato parecchio trattato, ci sono in giro molti post 
sull'argomento (anche miei), fai una ricerchina veloce con google e 
troverai la soluzione
-- 
 __   __  ___   
|  | |  |/ __|  
|  |_|  |\__ \  ICQ #73176037 #162857023
|____|__||___/

Newsgroup: it.comp.lang.visual-basic
Titolo: icona 32x32 e 16x16

č possibile compilare aggiungendo all'exe i due formati di icona?
ciao e grazie in anticipo

 ciao e grazie in anticipo
Certo, basta utilizzare un file icona che abbia entrambi i formati, tutto
qui...
ormai tutti gli editor di icone ti permettono di farlo, per cui se per caso
avessi un file con solo il formato tradizionale 32x32 (tipo la vecchia
clipart di icone fornita con VB3) puoi modificarlo e ricaricarlo nelle tue
form.
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 ciao e grazie in anticipo
direi che se crei un'icona che li contiene tutti e due e per l'exe usi
quella, windows dovrebbe accorgersene.
j.
a prop.: irfanview mi ha incasinato gli .ico e ora in explorer li vedo come
documento generico. qualcuno sa come mostrare l'icona ? speravo ci fosse
qualcosa tipo il %1 dei bmp, ma nel registro di win2000 non lo trovo.
grazie, j.
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 ed inviare SMS ai cellulari

Ciao a tutti, qualcuno conosce un modo per integrare nella propria form un 
modo per inviare SMS ai cellulari TIM VODAFONE WIND TRE?
Sarebbe meglio se la cosa risultasse gratuita (invio SMS), ma se cosě non 
fosse a chi rivolgersi per pagare poco e come integrare il tutto? 

"Thommino" <toms...@REMOVEfastwebnet.it> ha scritto nel messaggio 
news:BolFh.37574$aF5....@tornado.fastwebnet.it...

una soluzione potrebbe essere
www.vola.it

 
www.vola.it
Intendi questo: VolaSMS Plus ActiveX in ambiente .NET e VB6
E poi come lo integro nel mio programma (Form) VB6? 

altra soluzione
www.sms.it
ciao
Samuele

 ha scritto nel messaggio 
news:es6aoi$ncd$1...@balena.cs.interbusiness.it...

Vi ringrazio per le vostre proposte, ma mi servirebbe più che altro la 
spiegazione di come integrare questi servizi all'interno della mia form.
Ho visto che su vola c'è un esempio in Vb6 semplice semplice. Purtroppo non 
permette di gestire l'invio multiplo dei messaggi. E purtroppo ho visto che 
nonostante sia dichiarato non passa il numero del mittente, almeno nella 
versione demo.
Questo 
sms.it
 poi non riesco a capire come poterlo integrare con Vb6

Newsgroup: it.comp.lang.visual-basic
Titolo: Collegamento con il sito web

Ciao!
come fare ad effettuare un collegamento ad un sito web mediante semplice
commandbutton inserito nella form?
Grazie

commandbutton inserito nella form?
Questa e' una delle domande piu' poste in questo newsgroup.
Cerca su 
groups.google.com
 con:
label ShellExecute
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Con che linguaggio cominciare a programmare in Win95?

Ciao a tutti. 
Sono abbastanza esperto di computer e mi  e' venuta voglia di
avventurarmi nel mondo della programmazione.
Vorrei partire con un linguaggio che mi permettesse di compilare
programmi per Win95, che fosse facile, ma non per questo troppo
limitato, o limitativo
Cosa mi consigliate per cominciare da autodidatta ( o con un libro o
due, si intende...)
Grazie mille
Mischa
Bolzano.

...


Che ne dici del VB?
<<<----------------------------------->>>
        Franco Stefanelli
Visual Basic, Basic, Pascal, Toolbook
  'n' other languages programmer
       in his spare time.
----------------------------------
lui...@tin.it_I'VE_NEVER_LIKED_SPAM
freew...@aspide.it_'N'_STUPID_AD
FRANC...@euroweb97.com_LIKE_IT
----------------------------------
    /////// ////// ///\\  //   // ///// //////
   //      //  // //  // //\\ // //    //  //
  /////   ////// //\\// //  \// //    //  //
 //      //\\   //  // //   // //    //  //
//      //  \\ //  // //   // ///// //////

Io ovviamente ti consiglio il Visual Basi, oppure il Deplhi
Ciao.
Federico Galli
FedE...@tin.it
Visual Basic and Delphi
http://www.geocities.com/colosseum/loge/2151

Newsgroup: it.comp.lang.visual-basic
Titolo: Chiudese un DB

Ho provato a copiare un file DB da un mio programma che logicamente lo
teneva aperto e mi a dato errore, Come posso fare a chiudere il DB, fare la
copia e quindi riportare il tutto come prima?
Ho provato anche
MioDB.Close
Ma non funziona lo stesso!
Ciao e grazie
Andrea

...


MioDB.Close
- Primo metodo:
Set MioDB = Nothing
FileCopy "NomeVecchio", NomeNuovo"
E poi
Set MioDB = "NomeVecchio"
E tutto torna come prima...
- Secondo Metodo:
MioDB.Replicabile=True	'Una volta impostato a True, non si potrà più reimpostare su False
MioDb.MakeReplica("NomeNuovo")
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
Newsgroup: it.comp.lang.visual-basic
Titolo: [vb6] AddNew con query

SELECT Articoli.IDArticolo, Articoli.CodArticolo, 
ArticoloTipologia.Descrizione, ArticoloTipologia.Prezzo, Articoli.Scadenza, 
Articoli.NumBolla
FROM Articoli INNER JOIN ArticoloTipologia ON Articoli.CodArticolo = 
ArticoloTipologia.CodArticolo
Ho una finestra in cui tramite questa query devo solo visualizzare i dati 
della tabella ArticoloTipologia,
mentre devo visualizzare e poter aggiungere dei dati nella tabella Articoli.
La query mi f� modificare ma non aggiungere. Devo mettere qualche campo 
prima di un altro o cosa?
Carmelo

 ha scritto nel messaggio 
news:4b67fc08$0$1118$4faf...@reader2.news.tin.it...

Se ho capito apri un nuovo RecordSet sulla tabella es:
rs.Open "Articoli", <connessione>, adOpenDynamic, adUseServer, adCmdTable
e poi:
rs.addnew
...
rs.update
Ciao,
A.

Newsgroup: it.comp.lang.visual-basic
Titolo: Piccolo problemino con gli esponenziali

Come faccio da un numero rapresentato da vb con
gli esponenziali nella sua forma "4,545454545454E16"
o qualcosa di simile (l'ho scritto al volo senza controllare
che sia quello il numero) ad averere indietro sempre una
stringa, ma senza quell'esponenziale, ma scritta per intero?
Funzioni di conversione non funzionano ... chiaramente
per vb quello è già un numero.
-- 
Saluti
Andrea Moro
Sito Comune : 
http://www.it-lang-vb.net

 stringa, ma senza quell'esponenziale, ma scritta per intero?
numero = 4.12345678901235E+16
str_n = Trim(Str(numero))
stringa = Left(str_n, InStr(str_n, "E") - 1)

 stringa, ma senza quell'esponenziale, ma scritta per intero?
se ho capito bene devi usare questa:
    Format(4.545454545454E+16,"#")
il risultato e':
    45454545454540000
o
    Format(4.545454545454E+16,"#,###")
che restituisce:
    45.454.545.454.540.000
HTH
by
r

 stringa = Left(str_n, InStr(str_n, "E") - 1)
E gli eventuali decimali???


Lupo (
LupoOrmaiR...@libero.it
) ha scritto, tanto per cambiare ...
Comunque c'è qualcosa che non va nella tua funzione Lupo ....
con la format torna corretto, con il tuo sistema si mangia uno zero.
Almeno sul numero che sto provando ...

Newsgroup: it.comp.lang.visual-basic
Titolo: Vb6, dll e asp...passaggio di valori...problemi

Salve...ho creato una dll con vb6 e ho dei problemi per il passaggio
dei parametri...
ho creato una semplice dll che fa la somma di due numeri così:
public number1 as variant
public number2 as variant
function add(number1, number2)
Add=number1 + number2
end function
e funziona correttamente...infatti ho creato una pagina asp che mi fa
la somma di due numeri e me li stampa a video.
solo che mettendo un form nella prima pagina....accade questo
<%
Dim primonumero
Dim secondonumero
primonumero = request.form("primo")
secondonumero=request.form("secondo")
set oggetto = server.createobject("calcolatrice.addnumeri")
Dim risultato
risultato = oggetto.Add(primonumero, secondonumero)
response.write risultato
set oggetto = nothing
%>
se nel metodo metto queste variabili a video mi stampa i due numeri
affiancati...e non mi fa la somma....mentre se metto i valori
numerici...e quindi non attraverso il form...mi fa la somma. Come
faccio? grazie

 faccio? grazie
Evidentemente vede primonumero e secondonumero come stringe, quindi fa la 
concatenazione.
Uno dei workaround potrebbe essere questo:
function add(number1, number2)
    Add=Val(number1) + Val(number2)
end function
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Visual Studio .NET, ma... esiste?

Ormai sono passati quasi 2 mesi da quando M$ lo ha rilasciato, eppure non
sono stato in grado di trovare on-line nessuno che lo rivendesse!
Niente! Ne un link, ne una qualsiasi info, ne su VS.net che su VB.net che su
C#!
Solo su un sito americano ho trovato VB.net e C# (solo standard!), ma di VS
niente di niente!
Ma esiste?
Qualcuno sa dove reperirlo? (on line: cercavo info come versioni
disponibili, prezzo ecc.).
Ciao

 versioni disponibili, prezzo ecc.).
http://www.gorilla.it/gorilla/dept.asp?dept%5Fid=130504
Ciao.
-- 
BSD is for UNIX-lovers -- linux is for Windows-haters.

 wrote in
news:cVWp8.40791$
pT1.1...@news1.tin.it
: 

A quanto pare esiste. Ma non lo comprerò mai.
C'è una piccola recensione (una pagina) su PC Magazine di Aprile con 
relativi prezzi.
Secondo la recensione ci sono 3 versioni:
Versione    	    	Prezzo
Professional    	    	1605,58 Euro
Enterprise Developer    2675,96 Euro
Enterprise Architecht   3720,70 Euro
Ciao.

 Enterprise Architecht   3720,70 Euro
Hmmm... questi mi sembrano tanto i prezzi delle sottoscrizioni complete ai 3
MSDN, non solo il pacchetto VS.NET... tanto e' vero che sul citato
gorilla.it
 i prezzi sono circa
PRO      1300 EUR
ENT DEV  2300 EUR
ENT ARC  3000 EUR
IVA compresa
non sono regalati, certo, ma c'e' comunque una discreta differenza con
quelli sopra detti...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown


Senza contare che in realtà dovrebbe esistere anche una versione Standard e
credo anche una ancora inferiore.
Quello che mi sembra di capire è che c'è ancora una gran confusione e la M$
non fa molto per migliorare la situazione.
P.S.: avete provato a cercare per i sistemi operativi M$ in commercio? Ce ne
sono almeno una quindicina tutti diversi tra loro!
Come cavolo fa uno a capire se sta comprando quello giusto? Ora ci vuole una
laurea in ingegnieria informatica anche per scegliere la versione di
windows... boh.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: HFlexGrid e delete record

Ho una flexgrid con associato un controllo data:
    adoLegami.ConnectionString = "FILE NAME=" & PathNomeUDL
    adoLegami.CursorLocation = adUseClient
    adoLegami.CursorType = adOpenDynamic
   ''''ho provato anche con
    adoLegami.ConnectionString = "FILE NAME=" & PathNomeUDL
    adoLegami.CursorLocation = adUseClient
    adoLegami.CursorType = adOpenStatic
    ......
    'la stringa SQL prede i dati da una tabella access chiamata tab_legami e
collega un campo alla tab_Anagrafica per cercare             una ragione
sociale
    adoLegami.RecordSource = strSql
    adoLegami.Refresh
    Set flgLegami.DataSource = adoLegami
Non riesco a cancellare un record che seleziono sulla griglia
-- ne facendo:
    adoLegami.Recordset.Delete adAffectCurrent
    (sono sempre puntato sul record corrispondente alla riga della griglia)
errere:  Le informazioni sulla colonna chiave non sono sufficienti per
effettuare l'aggiornamento.
-- ne dichiarando un'altro recordset e passando l'ID del record.
     rdsDummy.ActiveConnection = cnn4Documents
    rdsDummy.CursorLocation = adUseServer
    rdsDummy.CursorType = adOpenDynamic
    rdsDummy.Open "SELECT * FROM tab_legami WHERE " & _
       "tab_legami.id_legame = " &
adoLegami.Recordset.Fields("4documents_id_legame").Value & ";"
    rdsDummy.MoveFirst
    rdsDummy.Delete adAffectCurrent
    rdsDummy.Close
errore: Il set di record corrente non supporta l'aggiornamento. Potrebbe
trattarsi di una limitazione del provider o del tipo di blocco selezionato.


Ho risolto i problemi di cui sopra, avevo i recordset con looktype a read
only :-)))))

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Leggere le impostazioni internazionali

Salve a tutti, vorrei sapere quale chiave devo leggere nel registro per
sapere se nelle impostazioni internazionali è settato come separatore
decimale la "," oppure il "."  - ma, soprattutto, come si fa ad andare a
leggerla .. grazie!
(uso VB5proSP3)
DC

...




Io faccio così :
    P = 3 / 2
    PS = CStr(P)
    DecimSep = Mid(PS, 2, 1)
Ciao
                 Maurizio B.
 
mrzNOMMI...@tin.it
   (eraseNOMMISPAMMA)

> Guardati questo esempio allegato e fammi sapere.
Posso metterlo sul sito comune ?
L'hai fatto tu?
(Rispondimi in privato)
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: come disabilitare CTRL-ESC e ALT-TAB ?

Ciao a tutti,
il problema in questione so che è già ststo trattato ma non so dove trovarlo
(dejanews non mi  penza proprio).
se qualcuno di anima pia mi aiuta, lo salvo dall'apocalisse (ho contatti
molto in alto....)
un'ultima cosa:
mi mandate il messaggio anche il mail ?
ho avuto problemi con il newsgroup ultimamente, quindi non vorrei che
poi non riesco a leggere la risposta.............
grazia
Eli...@freemail.it

non so se non puoi
sicuramente, pero', non devi: e' una pessima pratica di programmazione
(altrimenti a cosa serve un SO multitasking...)
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto su DataReport...

Qualcuno puņ aiutarmi a risolvere il problema dell'inserimento da codice
di un'immagine in un controllo rptImage inserito in un DataReport (VB60)
(l'immagine deve essere inserita da codice perchč cambia ad ogni pagina
del report...)???
Grazie anticipatamente e a buon rendere...
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie anticipatamente e a buon rendere...
Per quel che ne so io, non si può fare.
Avevo già postato un messaggio tipo il tuo per le rptLabel anziche per le
rptImage ma nessuno mi ha dato risposta.
Equazione: MANUALI + DOMANDA + NESSUNA RISPOSTA = NON SI PUO'
Ho letto da qualche parte che si può intercettare il cambio pagina solo se
si utilizzano database tipo MS SQLServer ma non Access (non ho mai provato!)
ma, se cambi l'immagine di una rptImage su di una pagina, te la cambia su
tutte.
Se fossi in te, passerei a CR.
Ciao
Massimo

 ha scritto nel messaggio
news:i0M98.53382$5M4.1...@twister2.libero.it...


Per inserire un'immagine in un datareport:
Inserire un Image nel datareport (nell'esempio, ImageBarCode)
Inserire un PictureBox (anche nascosto, se non si vuole visualizzarlo), nel
form (nell'esempio, Picture1)
Riempire il PictureBox con l'immagine desiderata (da file, ad eesempio)
Poi:
Set
DataReportEtichette.Sections.Item("Section1").Controls.Item("ImageBarCode").
Picture = Picture1.Image
Buon lavoro
Alberto

 Picture = Picture1.Image
Ciao Alberto,
se non ho capito male, questo codice permette di inserire un'immagine in un
datareport da codice.
Tutto OK. Ma il problema č che se hai piů pagine, tutte riportano la stessa
immagine e non puoi variarla ad ogni pagina.
Se ci sei riuscito, fammi sapere che sono curioso.
Ciao
Massimo
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Livelli di visualizzazione grafica

Ciao a tutti,
ho la necessità di dare all'utente del mio applicativo la possibilità di
studiare varie possibilità grafiche.
Mi spiego meglio....
l'operatore traccia su una cartina geografica disegnata in una PictureBox un
cerchio ed una linea e decide di salvare questo "profilo" con il nome
PROFILO1.
Successivamente crea un altro profilo (ad esempio un cerchio con centro a
Roma ed uno con centro a Milano) e decide di salvarlo con il nome PROFILO2.
Io devo dare la possibilità di abilitare la visualizzazione del profilo1 o
profilo2 in funzione delle richieste, ma .....e qui viene il difficile .....
con la visualizzazione della cartina sotto.
Praticamente mi servirebbero diversi piani di memoria su cui disegnare, per
poi abilitare o disabilitare i piani a mia scelta.
Il controllo PictureBox purtroppo NON è trasparente, quindi la prima
coprirebbe le eventuali che avrebbe sotto.
Qualcuno ha qualche idea da suggerirmi ??
Ciao e grazie
Stef

La mia non č certo una risposta esaudiente, ma penso che devi usare l'Api
BitBlt(o qualcosa di simile) giocando con And e Or dei vari pixel. Ricordo
di aver visto qualcosa del genere che usava lo sfondo nero di una picture
per fonderla su di un'altra.

 Roma ed uno con centro a Milano) e decide di salvarlo con il nome
PROFILO2.
Ho fatto qualcosa di simile alla tua esigenza per un tool che permettesse di
evidenziare delle aree sensibili sopra una immagine fissa, disegnandoci
sopra dei poligoni chiusi col mouse.
Io ho risolto disegnando di volta in volta direttamente sulla picture di
sfondo (che avevo comunque salvato in copia) e salvandomi tutti i poligoni
in un array di region. E' bastato salvare i vertici dei poligoni in un
database, ed utilizzare una routine che li disegnasse con l'uso delle
primitive line e circle, per gestire tutto.
Io ho usato le region perchč queste aree dovevano gestire il click e
dovevano poter essere spostate. Nel tuo caso, ti basterebbe salvare
semplicemente le coordinate dei vertici dei poligono (e/o il punto centrale
della circonferenza).
Poi ti crei una funzione che ridisegni tutto partendo dal database (filtrato
per codice di profilo) e il gioco č fatto.
Ciao
*Roby-*

con la visualizzazione della cartina sotto.
In realtà basta una picture con la piantina.
Poi ci disegni sopra con Line, Circle, ecc, o con le rispettive Api.
Il profilo diventa "semplicemente" salvabile su file come i vertici (o punti
rappresentativi) delle tue forme geometriche.
Ciao

Aggiungerei a quanto ti hanno gia' detto Ivan, Roberto e Zanna che
se disegni in XOR, puoi passare rapidamente da un profilo all' altro
semplicemente ripetendo il disegno del profilo corrente ( sempre in XOR),
ottenendo cosi' il risultato di ripristinare la piantina originaria,
e finalmente disegnando il nuovo profilo.
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto:giorni che intercorrono tra due date

Ciao a tutti,
    sto realizzando un progetto per la gestione di preventivi e mi serve
stabilire i giorni che intercorrono tra due date . Come fare?
Grazie in anticipo.

 wrote



Newsgroup: it.comp.lang.visual-basic
Titolo: background di un form

E' possibile ottenere l'effetto di ripetizione di una immagine come sfondo
di un form, come succede in html???
Mi spiego ho una gif piccolissima e vorrei metterla come sfondo ad un form
di modo che si ripeta fino a coprire tutto il form, come succede per la
proprietą background del body in HTML...
E' possibile farlo???
Grazie in anticipo!!!


Certo che lo puoi fare: Form1.picture = "C:\........" Dove form1 č il
nome del form dove devi inserire l'immagine e tra virgolette ci metti
il percorso dell'immagine.

Grazie in anticipo!!!
Ringrazia Faber!
---
Vorrei vedere le piramidi di Cheope,
ma sono miope, ma sono miope.
---

il percorso dell'immagine.
Ho detto una caxxata, così non ottieni l' effetto ripetitvo che volevi
tu...non avevo letto bene :) Scusa...

Newsgroup: it.comp.lang.visual-basic
Titolo: messagebox "centrata"

Ciao,
ho una domanda da fare che si potrebbe anche definire da niubbo, riguardo 
VB.Net (uso vb2008 o 2010) e WinForm.
In una applicazione mostro delle messagebox (o msgbox, dipende) ma la cosa 
che non ho ancora capito e' se e' possibile "centrare" la finestra mostrata 
rispetto ad una form.
Con la MessageBox si ha la possibilita' di passare, come argomento del 
metodo show, la finestra proprietaria della MessageBox stessa, ma in ogni 
caso la MessageBox stessa viene mostrata al centro dello schermo, e non al 
centro della form proprietaria.
Per ovviare a questa situazione, mi sono creato una classe ed una form fatta 
per "simulare" la MessageBox, e con questa combinazione riesco a mostrare il 
messaggio dove voglio... ma la domanda e' se e' possibile dire alla 
MessageBox o in alternativa alla msgBox "dove" devono essere mostrate.
 
 
__________ Informazioni da ESET NOD32 Antivirus, versione del database delle firme digitali 7791 (20121212) __________
 
Il messaggio è stato controllato da ESET NOD32 Antivirus.
 
www.nod32.it
 
 
 
 

 VB.Net (uso vb2008 o 2010) e WinForm.
 
Purtroppo non c'è un modo immediato, uno è quello che hai fatto te.
 
L'altro:
http://vbnet.mvps.org/index.html?code/hooks/messageboxhookcentre.htm
 
 
Ora ti diranno usa WPF ma tu dici: MANCO MORTO! :D (è una battuta 
ovviamente)
 


Con le API lo applicai alle "vecchie" form. Non sapevo si potesse fare anche con i MSG.

ovviamente)
...
Lo so, devo farlo assolutamente.
 
 
__________ Informazioni da ESET NOD32 Antivirus, versione del database delle firme digitali 7792 (20121212) __________

Newsgroup: it.comp.lang.visual-basic
Titolo: Collegare 4 tabelle

Salve a tutti, sono alle prime armi con la gestione di database query
ecc..
Vi chiedo aiuto per creare una query.
Ho un database access formato da varie tabelle che per semplicità
ipotizziamo abbiano tre
campi ciascuna. Avremo quindi:
TAB1.C1 TAB1.C2 TAB1.C3  TAB2.C1 TAB2.C2 TAB2.C3  TAB3.C1 TAB3.C2
TAB3.C3 TAB4.C1 TAB4.C2 TAB4.C3
il campo TAB1.C1  (ha una relazione) con TAB2.c1
il campo TAB1.c1 (ha una relazione) con TAB3.C1
il campo TAB3.c1 (ha una relazione) con TAB4.c1
spero il termine relazione sia esatto, intendo dire ad esempio che
per ogni record di TAB1 e di TAB2 i campi TAB1.c1 e TAB2.c1 sono uguali
Dovrei quindi selezionare alcuni record (all' interno di due date
usando come campo data
un campo di TAB1)e riempire per esempio un datagrid con tutti i campi
da me selezionati dalle diverse tabelle
(per esempio TAB1.C1 TAB1.C2 TAB2.C2 TAB3.C3 TAB4.C2) ovviamente dello
stesso record relazionato a
tutte e tre le tabelle.
Ho provato ad usare INNER JOIN ma mi funziona solo con 2 tabelle forse
perchè la TAB4 non ha una relazione con la TAB1 ma solo con la TAB3 ?
Scusate mi rendo conto della richiesta un pò contorta ma non saprei
come spiegare meglio,
grazie anticipatamente

 
guarda che questo e' lo stesso gruppo dove hai postato prima! ;-)
bye
r

Newsgroup: it.comp.lang.visual-basic
Titolo: blocco del programma su connessione ad Oracle

Ho una form con due controlli: un adodc ed una casella di testo.
Sul controllo adodc ho impostato la ConnectionString (server name,
user name, password, ed ho spuntato Allow saving password)	ed il
Test Connection è andato bene. 
Sulla casella di testo ho selezionato l'unico adodc presente ed ho
selezionato un campo tra quelli che mi vengono visualizzati.
Lanciando il programma questo si blocca (premendo ctrl+alt+canc viene
visualizzato come bloccato).
Ho provato ad aumentare la ConnectionTimeout ma senza esito.
Precedentemente avevo provato a fare la connessione via codice ma il
programma si bloccava sempre.
Avete qualche dritta da darmi?
Grazie.
			Spartaco

WorkAround non del tutto ortodosso.
I driver odbc di microsoft non vanno bene con la versione 8 di Oracle (per
tremenda esperienza al lavoro). L'unico sistema che abbiamo trovato č stato
quello di installare sulla macchina destinata alla connessione, il client di
Oracle. Infatti in questo modo vengono installati i nuovi provider per
l'accesso ai dati.
Nota:
il sistema ti costringerebbe ad installare oracle client un po' ovunque.
Avendo un sistema 3-layer non ci siamo posti il problema perché il server
che espone i componenti di business č di fatto l'unico che esegue l'accesso
ad oracle.
Ho sentito parlare di altre soluzioni ma non ne ho mai trovata una...
Spero di esserti stato utile.
Newsgroup: it.comp.lang.visual-basic
Titolo: variabili inizializzate

ciao
come posso sapere se una variabile oggetto non e' inizializzata?
grazie

 grazie
var is nothing
ma vale solo se non è stata dichiarata come
dim var as new qualcosa
Salutoni
Sergio

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

 ha scritto nel messaggio
news:b9qg0i$lsn7d$1...@ID-173193.news.dfncis.de...


 Direi che siamo abbastanza sincroni nel dare le riswposte... CSSoft
Sě, ma tu hai l'orologio indietro :-P
Altra cosa... la funzione IsNothing, sei sicuro che esista?
Salutoni
Sergio


  Si, più in generale per variabili di tipo oggetto.
Ciao
--------------------------------
Inviato via 
http://usenet.libero.it

Newsgroup: it.comp.lang.visual-basic
Titolo: mi servirebbero alcune piccole info...

per un'applicazione avrei bisogno dell'indirizzo esatto della cartella dei
preferiti per
Windows 95/nt/2000 . dell'indirizzo della cache per i 3 sistemi e se
qualcuno mi dice anche dove trovo qualche riga di codice per riconoscere
automaticamente il S.O. usato.
Grazzie.

 wrote in message
8mpgq6$r1e$1...@nslave2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?]IperTesto in una textbox

č possibile ragazzi , usare una textbox per inserirvi un testo in cui  č
possibile cliccare su alcune parole proprio come in una pagina web e far
eseguire un codice relativo?
il mio piů grande dilemma!

in una textbox non so...
in una richtextbox si
-- 
GbC

 wrote in message
7mft07$7l1$1...@hermes.iol.it...

ciao

Scusate ho postato senza volere. O_O
-- 
Ciao
:-) Hd (-:
p_di...@freemail.it
  (okkio, non è politico ^_^)
Sito Comune:
www.murialdo.it
\it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB .NET] Validazione textbox

Domanda da neofita.
Ho un form con n certo numero di caselle textbox, i quali devono contenere 
numeriin formato decimale (due cifre dopo la virgola), come faccio per 
effettuare una validazione della casella? 

 ha scritto nel messaggio 
news:43f35133$0$5986$4faf...@reader2.news.tin.it...

Puoi utilizzare l'evento KeyPress
1- permettendo la digitazione dei solo numeri e del punto.
2- prima che il numero venga digitato un parser sui caratteri presenti nella 
casella di testo.
Saluti
giuseppeD
---
CCR

Newsgroup: it.comp.lang.visual-basic
Titolo: Ma l'Help di VB 6 ?!?!?

Scusate c'e' modo di reperire l'help (MSDN) di VB6 ?!?!
Ciao Ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: VBA Excel - Commento

Salve,
sapete come posso sapere se una cella in un foglio excel contiene un
commento?
Io ho prova con is isempty o ismissing (cells(x,y).comment (+ o -), ma non
funziona!
Va sempre nel braccio dell'else. Mentre se metto if isMissing .... = false,
va nel braccio della If. Incondizionatamente, non tenendo conto se veramente
c'è un commento o no.
Qualcuno di voi ha qualche dritta?
grazie
Capellone

Qualcuno di voi ha qualche dritta?
Imparare ad usare l'intellisense ;-)
Io non sapevo una cippa di Comment, ma ci ho messo si' e no dieci
secondi per trovare la risposta.
-- 
ciao, hal

 ciao, hal
Ciao Cap.

Bravo!  :)
Ehm, ti ringrazio, spero ovviamente si capisca che non intendevo
vantarmi di nulla, bensi' mostrare come trovare le risposte ;-)
Buona programmazione,
-- 
hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Suonare mp3 con lo speaker interno del pc

Esiste un programma che lo fa senza installare driver?

No, e non vedo l'utilità: la qualità degli MP3 mal si abbina con la NON
QUALITA'  dello speaker interno.
Gianni Moretti
Newsgroup: it.comp.lang.visual-basic
Titolo: CARICARE IMMAGINI DA STRINGA

Ciao a tutti...
Vi faccio l'n-esima domanda...
E' possibile salvare o aprire un immagine in una stringa e visualizzarla?
Cioé... sto facendo un programma che fa fra le altre cose una raccolta di
immagini. Vorrei poter salvare le immagini all'interno del file con gli
altri dati, ma... non so come fare!
Per ora l'unica idea che ho avuto (ma é orribile!) é aprire il file
dell'immagine, leggerlo e caricarlo in una stringa... Quando devo poi
aprirlo scrivere la stringa in un altro file e lanciarvi la loadpicture
 loadpicture(nomealtroFile.jpg) ]... Se qualcuno può suggerirmi un metodo
più pulito ne sarò gratissimo!!
        Grazie...
            Allanon

...



IO vorrei aprire un file (tipo pippo.jpg) in una stringa... e poi poterlo
caricare con un programma...
O anche solo avere una funzione che mi renda una stringa o un variant
interpretabile come una stringa in cui mi scrive la lettura di un immagine
da disco fisso...
        Allanon

 wrote in message
news:8vlus6$his$1...@fe1.cs.interbusiness.it...

Mi sa che con una stringa potresti avere delle difficolta'. Forse e' meglio
un array di byte (o un variant che contiene un array di byte). E poi ci fai
quello che vuoi.
Per ottenere l' array di byte, basta che apri un file binario e lo copy
tutto nell' array.
Una cosa del tipo;
'// n.b. scritto direttamente su oe e non testato !
Sub Prova(strFullPathName As String)
    Dim nFile As Integer        '// identificativo del file da aprire
    Dim nLenFile As Long     '// lunghezza del file
    Dim arrFile() As Byte       '// arreay di byte dove viene copiato il
file
    On Local Error Resume Next
    nFile = FreeFile()
    '// apre il file condiviso in lettura, in modalita' binaria
    Open strFullPathName For Binary Access Read Shared As nFile
    If Err Then MsgBox Err.Description, vbCritical : Exit Sub
    '// misura il file
    nLenFile = LOF(nFile)
    If nLenFile Then
        '// dimensiona il buffer in modo che possa contenere il file
        Redim arrFile(0 To nLenFile - 1)
        '// copia il file nel buffer
        Get nFile, , arrFile()
    End If
    '// chiude il file
    Close nFile
    '// esegue un ciclo per scrivere nella finestra di verifica il contenuto
del file
    Dim cnt As Long
    For cnt = 0 To nLenFile - 1
        Debug.Print Format$(Hex$(arrFile(cnt)), "00")
    Next cnt
    '// svuota l' array
    Erase arrFile()
End Sub
Ciao
Aldo

...


...


Ehehhh... In effetti era l'unica soluzione che mi venisse in mente (ed in
effetti l'avevo auspicata nel primo messaggio circa 15 giorni fa... che però
ovviamente non é + disponibile)...
Grazie comunque...
        Ciaoo
                Allanon
Newsgroup: it.comp.lang.visual-basic
Titolo: prompt dei comandi e shell

 Ciao a tutti,
     sapete come si può fare per leggere le eventuali risposte di alcuni
 comandi inviati dalla funzione shell?
 Ad esempio dal prompt dei comandi è possibile usare il comando "net
session"
 per vedere chi usa la rete del pc locale. Da prompt visualizzo:
 "Computer               Nome utente          Tipo client       In pausa da
 ---------------------------------------------------------------------------
-
 ---
 \\USER              GUEST                Windows 4.0           1 00.06.44
 Esecuzione comando riuscita."
 Come posso leggerlo anche da VB?
 In parole povere è possibile creare un programma prompt dei comandi da VB6?
 Grazie mille.


Puoi redirigere l'output del comando su file:
net session > PathENomeFile
e poi aprire il file da VB6 e leggerne il contenuto
ciao

"-- El Cifi --" <mioCo...@mioDominio.miaNazione> ha scritto nel messaggio
news:cjri1p$fgi$1...@lacerta.tiscalinet.it...

Hai 2 possibilità, la prima più semplice.
1) Redirigere su file l'output del comando e leggere da VB il file così
prodotto:
Shell "net session > out.txt"
2) Creare un'applicazione console e utilizzare le opportune API per il supporto
della console per leggere direttamente da essa, utilizzando il "piping".
Es. se il programma si chiama "app.exe", il comando da eseguire dal prompt sarà:
"net session | app.exe".
Prova a dare un'occhiata qui, mi sembra utile:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=38590&lngWId=1
Bye
Raf


Intanto vi ringrazio per i consigli.
Poi vi volevo dire che non riesco a "buttare" su file l'esito del comando
shell
Private Sub Command1_Click()
Dim tmp
    tmp = Shell(Text1.Text & " >c:\utility\cifiprompt\provola.txt", vbHide
End Sub
Ho provato cosě e cosě
Private Sub Command1_Click()
    Shell Text1.Text & " >c:\utility\cifiprompt\provola.txt", vbHide
End Sub
In text1 ho il comando (net session oppure net view 
www.cifi79.tk
 etc.
etc.), in entrambi i casi non funziona mentre da prompt funziona, why?
Provo magari a cambiare nome del file?

 Provo magari a cambiare nome del file?
Il problema non č il nome del file. Prova cosě:
Shell Environ("COMSPEC") & " /C " & Text1.Text & " >
c:\utility\cifiprompt\provola.txt", vbHide
Attento poi che se il comando lanciato non completa immediatamente (perché
magari č intrinsecamente "lento"), potresti eseguire l'istruzione successiva a
Shell PRIMA del completamento, e quindi potenzialmente andare a leggere il file
di output prima che sia stato completamente scritto (per la soluzione vedi
thread
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&scoring=d&q=%22attendere+chiusura+applicazione%22&meta=group%3Dit.comp.lang.visual-basic
)
Bye
Raf


Ti ringrazio nuovamente, ma ho risolto nel modo seguente:
Creo un file provola.bat dove butto la stringa scritta + "> provola.txt",
quindi avvio il .bat.
A questo punto un timer mi apre il file provola.txt in modalità input shared
(così il cmd.exe continua a scrivere) solo se le dimensioni della provola
sono cambiate in modo da visualizzare il processo anche durante
l'esecuzione.
Ciao