mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Textbox, Numeri, Virgole, Punti, decimali e affini....

In che maniera vi organizzate quando in un form ci sono delle textbox che
devono riportare dei valori numerici con decimali sui quali devono essere
fatti dei calcoli ?
Normalmente uso la funzione VAL per trasformare in numero il valore della
proprieta' 'text' delle textbox.
Faccio i miei calcoletti e poi aggiorno la textbox.
Ho scoperto , pero', che la funzione val non riconosce il simbolo della
virgola come separatore dei decimali.
C'e' un modo per utilizzare lo stesso il punto come separatore dei decimali
visualizzando, pero', la virgola nella textbox ?
Ho provato anche ad utilizzare la funzione CSng ma si inchioda se nella
textbox c'e' una stringa vuota.
Come sempre, grazie a tutti
Aldo

Ciao, se usi VB6, puoi utilizzare la funzione Replace per sostituire
"on-the-fly" le virgole con i punti.
Es.
l_dblSomma = Val(Replace(Text1.Text, ",", ".")) + Val(Replace(Text2.Text,
",", "."))
Text3.Text = Cstr(l_dblSomma) 'La funzione Cstr sostituice automaticamente
il . con la ,
Byez
Tango

 Faccio i miei calcoletti e poi aggiorno la textbox.
' Dovrebbe funzionare: riconosce il segno decimale delle impostazioni
intern.
' e permette di definire se vuoi un valore alternativo nel caso la stringa
' non sia valida.
Public sub MyVal(Valore as String, Optional Default as Double=0.0) as Double
    On Error Goto Errore
    MyVal = CDbl(Valore)
    Exit Function
Errore:
    MyVal = Default
End function
Ciao

 fatti dei calcoli ?
O usi Currency ma devi vedere come è settato il sistema
oppure usi Variant, io ho usato la seconda e mi trovo bene.
Usando i campi decimal nei db.
________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

fatti dei calcoli ?
Sconsiglio il Replace (infatti se il punto o la virgola sono usati
come separatori di migliaia avvengono i peggiori bug!!!)
La funzione Val non usa alcun tipo di localizzazione (ma solo e sempre
la convenzione americana separatori migliaia=virgola sep. decimale =
punto).
Usa CCur per le impostazioni internazionali di localizzazione!

Grazie a tutti per le dritte.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Sapete indicarmi se esiste un API che mi consenta di...

Sapete indicarmi se esiste un API che mi consenta di avere il percorso
preciso di dove si trova la cartella DeskTop.
Avete un'idea semplice di come, con codice VisualBasic, salvare un
collegamento ad un programma sul desktop rispettando i vari percorsi diversi
da Windows95/98 a WindowsNT.
Esiste un API che mi risolve la questione e mi rilascia il percorso?
Avete un esempio...?
Grazie.
Enzo

"Enzo" <e...@liberoANTISPAM.it> ha scritto

se ricordo
www.mvps.org/ccrp
ci dovrebbe essere un vbp di brad martinez per rintracciare tutte le
cartelle di sistema. se non lo trovi, magari cerca system e/o folders anche
in
www.mvps.org/vbnet
 (randy birch)
ciao, a.

 preciso di dove si trova la cartella DeskTop.
Nel registro alla chiave
HKEY_CURRENT_USER\Software\Microsoft\
Windows\CurrentVersion\Explorer\Shell Folders
c'e' tutto
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Membro #25 delle BT Sez. Sud

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda sulle classi

Vorrei sapere come fare ad impostare la proprietą TEXT di un oggetto TEXTBOX
(ad esempio, di nome TEXT1) dall'interno di una classe da me definita.
Devo passare dei parametri ad un metodo della classe? E di che tipo?
L'istruzione che invoca il metodo della classe quale valore deve passare
come parametro?.
Grazie in anticipo.

 (ad esempio, di nome TEXT1) dall'interno di una classe da me definita.
se non ho capito male devi fare una cosa del genere:
--- Modulo di Classe ----
private cTesto as string
property get Testo() as string
    Testo=cTesto
end property
property let Testo(Valore as string)
    cTesto=Valore
end property
public sub sbImpostaTesto(TB as TextBox)
    TB.Text=cTesto
end sub
-------------------------
CIAO
Newsgroup: it.comp.lang.visual-basic
Titolo: (OT) QB45: Come creo le librerie?

Vorrei crearmi una libreria con le mie Sub e procedure in QB45 come si fa?
grazie.
--
------ C.E.D. - L'Abbondanza Srl -----
Lorenzo Piombini & Vigna Federico
Email : 
abbon...@technet.it
------------------------------------------------------

Vorrei crearmi una libreria con le mie Sub e procedure in QB45 come si fa?
  Tieni presente che non uso un Basic Microsoft per DOS da oltre 6
anni ma se ricordo bene c'e' uno o piu' switch del compilatore e/o del
linker per creare sia la QLB che la LIB.
  Certo che sarebbe utile il manuale, ma forse anche nell'help on line
trovi le informazioni del caso.
  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"

 Vorrei crearmi una libreria con le mie Sub e procedure in QB45 come si fa?
E' un pò complicato anche perché non ci sono spiegazioni dettagliate...
Cmq se vuoi creare una libreria con sub e function "solo tue", cioè senza
aggiungerle ad altre librerie fatte da altri, c'è l'apposita funzione...
(ora non ricordo
bene il comando ma è vicino a quello per creare il file .exe)
Invece è un pò difficile aggiornare una libreria fatta da un altro
aggiungendo delle
funzioni e/o sub fatte da te... ma non impossibile...
Io ci ero riuscito, anche grazie ad una utility che ho trovato su VOLftp:
www.volftp.it
 libwiz21.zip
E' difficile, però possibile, che sia stata aggiornata, quindi non usare
nella ricerca
"libwiz21" ma solo "libwiz" (sono solo 116 Kb eventualmente te lo posso
spedire io)
--
Ciao!
==================================
Daniele Pinna
Email: 
dap...@lycosmail.com
Nell'indirizzo Email eliminare la parola OOPS
Sito Web: Il DoCFa in Pillole: 
http://dapinna.freeweb.org
ICQ UIN: 24567484
______________________________________
  La fantascienza come Star Trek non e' solo un buon divertimento, ma
assolve anche uno scopo serio, che e' quello di
espandere l'immaginazione umana.
  Limitare la nostra attenzione a questioni terrestri equivarrebbe a fissare
dei confini allo spirito umano.
Stephen Hawking

Newsgroup: it.comp.lang.visual-basic
Titolo: help apertura grossi file di testo

ciao ragaz,
non riesco ad aprile e leggere dei normali file di testo
quando questi sono di grosse dimensioni, >100kb. in vb5
ricev sempre un messaggio di overlow.
come posso aggirare il problema?
un graz enorme!!
marco
--
____________________
|dott. marco bassani|
|     geologo       |
|___________________|
|
mark...@newnet.it
 |
| icq n. 42697595   |
|cell.0347/6000729  |
|___________________|
      \||/
      ^[]^
     \----/
       ||
      ciao

 come posso aggirare il problema?
immagino che tenti di caricare il file in una TextBox, giusto? se č cosě
prova utilizzando il controllo RTF (in W 9X le TextBox hanno un limite di +
o - 64 Kb)
Ciao
Faber

quando questi sono di grosse dimensioni, >100kb. in vb5
Una text box ha il limite di 64K; per file superiori ... creati tu una
routine che spezzi il file, oppure cerca qualche ocx ...
Newsgroup: it.comp.lang.visual-basic
Titolo: Shell Aiuto

Ciao a tutti.
Io ho un pulsante di comnado che utilizzo per lanciare un eseguibile con il 
comando shell
shell "Animazione.exe"
Il mio problema č chiduere l'eseguibile che ho aperto.
sapete dirmi quale comando devo usare?
Grazie mille in Anticipo!!!
Alberto

 Il mio problema è chiduere l'eseguibile che ho aperto.


 ha scritto nel messaggio 
news:woQ2e.29387$kC3....@tornado.fastwebnet.it...


Grazie mille!!!!
Ciao e buona giornata!
Alberto

Newsgroup: it.comp.lang.visual-basic
Titolo: telecomando infrarossi

ciao qualcuno ha un esempietto per trasformare il pc in un telecomando 
tramite la porta irda?
enormi ringraziamenti
softline 

tramite la porta irda?
Sei un po OT
Non è una cosa semplice, leggi qui qualche spunto
http://shorterlink.com/?6WKD3U
http://shorterlink.com/?D4YYZ5
http://shorterlink.com/?O0JGCE
http://shorterlink.com/?OT4A0Z
ciao
  Stefano

devo per forza avere un apparato diverso dalla porta infrarossi del pc ?
io intendevo usare la porta infrarossi del pc, quella collegata alla usb...
so che si possono trasformare i palmari in telecomandi usando la loro porta 
infrarossi
non si può fare lo stesso con una qualsiasi porta infrarossi per computer??
saluti

softline ha scritto:

Si può. Tempo fa notai ch la irda del mio pc faceva interferenza con i 
televisori Mivar. Quindi mi sono messo a cercare su google e ho trovato 
qualcosa. Purtroppo era roba per linux e, ai tempi, quasi non lo 
conoscevo linux.
Gugla un pò che qualcosa esce fuori.
bye
-- 
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.nicolaottomano.it/sinapsi.htm
email spamtrap: 
spam...@nicolaottomano.it

devo per forza avere un apparato diverso dalla porta infrarossi del pc ?


Prova a guardare nella pagina di Cesko
http://www.cesko.host.sk/download.php
c'è diversa roba, forse anche quello che vuoi
ciao
  Stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampare il contenuto delle Textbox

Salve a tutti,
come da oggetto vorrei sapere come inviare alla stampante il contenuto delle
caselle di testo e se è possibile stampare anche le etichette.
Grazie in anticipo.
Luca

...

printer.print text1.text
printer.print label1.caption
printer.enddoc
Newsgroup: it.comp.lang.visual-basic
Titolo: ListView

Ciao tutti,
mi rendo conto che quella che sto per fare e' una domanda banale
alla quale potrei rispondere da solo se solo avessi voglia e tempo
di leggere bene l'help ma come faccio, su click di una listview, a
sapere qual'e' l'indice dell'item selezionato o per lo meno avere
un puntatore all'item stesso (con i suoi campi annessi e connessi) ?
Altra domandina un po' meno banale. Come faccio a codificare
(o decodificare) in MIME un qualsiasi file in Visual Basic?
Esiste qualche libreria o qualche sorgente gia' pronto per questo
scopo?
Ciao, Andrea
________________________________
 Andrea Migliaccio
 
amigli...@digibank.it
 
http://www.digibank.it/amiglia
 ICQ# 22495507
________________________________

...


Se vuoi un sorgente che codifica un binario in ascii UUENCODED puoi
dare un occhiata qui:
http://space.tin.it/computer/ronegr/ita/default.htm
Se invece intendi proprio il formato MIME dovrei avere io un sorgente
che effettua la codifica (in realtà non e' molto differente dalla
UUENCODE).
Ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: Cos'è un bstrProgID

Devo caricare delle labels o altri controlli dinamicamente in un form. Dopo
paziente ricerca nel NG sembra che l'unico modo per visualizzarli tutti,
anche quelli che vanno oltre la grandezza del form, sia inserirli in un
frame.
Ho impiegato mezzora per capire che il frame č quello su componenti -
Microsoft Forms 2.0 Object Library che mi permette di gestire le barre di
scorrimento.
Un'altra mezzora per capire che i controlli si inserisco nel frame cliccando
con il tasto destro e scegliendo Modifica in design time, solo cosě in run
time scorrono allo spostamento della scrollbar.
Infine, visto che tali controlli devo inserirli a codice, ho scritto
Frame1.Controls.Add
    e come parametri vuole (bstrProgID as String, [Name] ,[Visible] ) as
Control
Ho trovato parecchi esempi sul metodo Add per caricare controlli nelle forms
senza averli disegnati, ma di questo caso specifico, nulla.
Quando clicco con F1 sul frame, l'help mi da un errore del tipo che non
trova il file .hlp.
Qualcuno mi puň spiegare i parametri e farmi un esempio pratico.
Grazie.
Nicola

Qualcuno mi può spiegare i parametri e farmi un esempio pratico.
Nell'object browser riesci a risalire alla coppia libreria-classe dei
controlli che vuoi inserire, ad esempio:
"VB.TextBox"
"MSComctlLib.TreeCtrl"
ecc.
-- 
ciao, hal

 percio' va inserito fra i prerequisiti del pc target.
Perchè non è redistribuibile?
Ho letto il post e mi sono incuriosito.....
MIk



INFO: Usage and Redistribution of FM20.DLL
http://support.microsoft.com/?id=kb;en-us;224305
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Programs in the system tray?

Is there a way that I can list the programs that are in the system tray?

>Is there a way that I can list the programs that are in the system tray?
shure there is. have a look to our site 
www.murialdo.it/it_lang_vb/
bye    :)
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: [vb.net] PrintDialog.ShowDialog: occhio alle stampanti off-line

Ciao a tutti,
quando succedono queste cose la voglia di prendere a calci il pc o chi
per esso e' davvero grande, in breve il seguente codice:
Dim doc As PrintDocument
Dim pd As PrintDialog
doc = New PrintDocument
pd = New PrintDialog
pd.Document = doc
pd.PrinterSettings = New PrinterSettings
if pd.ShowDialog() = DialogResult.OK then
etc etc
Funziona benissimo se la stampante di default e' on line, se per caso
e' off line o non disponibile (es. pc alla quale è collegata e'
spento) quando compare la dialog box per la scelta della stampante e
clicco OK si ottiene il seguente messaggio:
An unhandled exception of type "System.ArgumentException" occurred in
system.drawing.dll 
Additional information: 0 is not a valid handle
che al povero sviluppatore non fa capire assolutamente niente in
merito al problema, sopratutto quando lo stesso codice qualche ora
prima funzionava (con la stampante di default malauguratamente
cambiata con una di rete e nel pomeriggio rimasta spenta insieme al pc
serverino di stampa).
Il bello e' che anche mettendo quel codice in un blocco Try comunque
l'errore non e' trappabile con conseguente crash.
C'è qualche workaround oppure ci si attacca al tram (nei giorni in cui
non c'e' sciopero) ?
Stefano "HappyMan" (Lago Maggiore - NO)
--
Personal Web 
http://www.sgr.info
Email happyman69 (at) 
despammed.com


Bei tempi quando c'era il linciaggio.....
-- 
MAX
http://www.birreonline.net
Chi beve birra campa cent'anni

 non c'e' sciopero) ?
A Roma qualche tram gira (i soliti crumiri),
quindi l'attacco è possibile.

stesso nessun errore....
Molto curioso, l'ho appena ricreato risettando come default la
stampante di rete e subito dopo spegnendo il pc che condivide quella
stampante. 
Ti riporto anche una parte delle informazioni che puoi recuperare dopo
l'errore utilizzando l'exe, qualche API Win32 deve andare in errore e
manda in crisi il framework.
************** Exception Text **************
System.ArgumentException: 0 is not a valid handle.
   at System.Drawing.Printing.PrinterSettings.SetHdevmode(IntPtr
hdevmode)
   at System.Windows.Forms.PrintDialog.UpdatePrinterSettings(PRINTDLG
data, PrinterSettings settings, PageSettings pageSettings)
   at System.Windows.Forms.PrintDialog.RunDialog(IntPtr hwndOwner)
   at System.Windows.Forms.CommonDialog.ShowDialog()



Niente ! Davanti a me ho un computer spento con attaccata una Stylus Photo
1290 condivisa in rete, ed č di default sul mio computer ma non ho alcun
errore, o anche provato su una stampante che avevo installato sulla lpt1,
una BCJ "qualche cosa" ma che adesso non c'e' piů, ma nulla esce la finestra
di dialogo.
Il mistero si fa sempre piů cupo....


Il mistero si fa sempre piů cupo....
Stranissimo, ho provato anche con un'altra accoppiata pc/stampante
(prima era una vecchia HP Laserjet IIIP, ora una Epson Stylus 1160)
operando nello stesso modo:
1. Settaggio stampante di rete come default
2. Spegnimento pc al quale e' collegata
ottengo lo stesso errore.
Provero' con un pc non di sviluppo (il mio e' XP con SP1 r rollup,
Framework 1.1), sono molto curioso...
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: WebBrowser come si legge l'HTML?

Con questo programma apro la url di tin e la stampo... tutto facile peccato
che la url che voglio stampare io è una pagina asp che si carica a metà poi
parte un refresh automatico per n volte (n variabile e casuale). Quindi io
stampo solo metà pagina perchè WebBrowser1.ReadyState va a complete per ogni
refresh automatico che la pagina fà...
In pratica io vorrei loopare finchè la pagina non contiene la scritta
"**fine pagina**" solo che non sò come leggere il contenuto della pagina
visualizzata da WebBrowser1. Qualcuno lo sà ??
Grazie
Alego il mini sorgente.
Private Sub Form_Load()
URL = "
www.tin.it
"
WebBrowser1.Navigate URL
Do
   DoEvents
Loop While WebBrowser1.ReadyState < READYSTATE_COMPLETE
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER
End
End Sub

 visualizzata da WebBrowser1. Qualcuno lo sà ??
webbrowser.document.body.innerhtml
ciao

 ha scritto nel
messaggio news:G50i9.12131$Hc7.2...@twister1.libero.it...


 prompt user, do default eccetera...
non devi mettere l'end ma un normale unload form.
ciao
ps: end non va mai usato (quasi mai)
Newsgroup: it.comp.lang.visual-basic
Titolo: VB in rete

Probabilmente dovrò fare un programma in VB in rete locale.
C'è qualcuno che ha già fatto qualcosa ?
Mi servirebbe qualche esempio di codice per il bloccaggio dei files/records.
Grazie anticipate.
Ciao
    Nino.

Aggiungo ... come funge il client/server ?
Ariciao.


Non è ben chiaro cosa devi fare ... devi accedere ad un Db da diverse
macchine ? Oppure devi inviare dati tra client ?

 wrote in message
ae1ll8$cun$1...@newsreader.mailgate.org...

Ok, devo accedere ad un DB da diverse macchine che potrebbero accedere
contemporaneamente agli stessi dati.
Ciao.

 wrote in message
ae1ll8$cun$1...@newsreader.mailgate.org...

Scusa per il messaggio di sopra, ma sono sempre io, Nino.

 ha scritto nel messaggio
news:WDZM8.24906$5i1.9...@news2.tin.it...

Non devi (teoricamente) fare niente. Ci pensa il motore (con i tuoi
parametri di apertura) a evitare conflitti.
Personalmente, vista la mia nota fiducia in M$ e in quel che dice/fa, nei
casi potenzialmente critici, mi sono fatto un paio di routines
Blocca/Sblocca di una banalità estrema: Scrivo da qualche parte una cosa
(bloccato) e chiunque debba fare certe cose, prima verifica quella
"minacciosa presenza" e aspetta finchè, magicamente, scompare.

 files/records.
La settimana scorsa ho fatto una discussione su una richiesta , su un
lavoro che sto eseguendo , e cioč: come evitare che il collega che si
trova difronte o su altra postazione eviti di modificare il record che lui
aveva modificato 2 minuti prima. 
Propongo : aggiungo un flag , finita la modifica  tolgo il flag.
- E se lui si dimentica di togliere il flag e va in ferie ?
- Interviene l'amministratore di SQL server. 
- E se anche l'amministratore sta in ferie ? Il record rimane bloccato !
Propongo : Apro il recordset lato server, utilizzo il pessimistico, cosě
ho la massima protezione di evitare che due postazioni leggono e
modificano lo stesso record. Avverto: appena finito Update  il blocco
finisce.
- Ma quanto dura il blocco ?
- Se la rete funziona bene una frazione di secondo, anche meno.
- Perciň un'altro dopo mezzo secondo puň modificare il record che io ho
modificato.
- Se ha l'autorizzazione si. 
.................
giuseppeD
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 wrote in message
news:PNNM8.27920$
K4.6...@twister2.libero.it

-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 saluti
Access
Ciao.


 wrote in message
news:48_M8.30030$K4.7...@twister2.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Esportare dati da Quick Basic ..

Ho la necessità di esportare dei dati da un vecchio software (SpigaPC ...
per chi lo conosce) in formato Excel (o csv, va bene ugualmente). Il
problema è che il software è molto datato e usa un database non standard,
per il quale secondo le informazioni che ho reperito bisognerebbe scrivere
un programma in Quick Basic che estrapoli i dati ... qualcuno conosce una
utility che faccia questo lavoro senza dovermi incasinare troppo o comunque
mi sa dare delle info in merito?



  Se il database non standard e' un file random o binary non c'e'
utility che tenga: devi conoscere il tracciato record e farti un
programma in QB o VB che lo legga usando lo stesso tracciato record e
a quel punto puoi manipolarti i dati come vuoi (ma non ho idea di come
si crei un file in formato Excel).
-- 
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire "micio" con "mc"

 >un programma in Quick Basic che estrapoli i dati ... qualcuno conosce una
Nell anno 2000 ci avevo dato un occhio, ed avevo abbandonato l' idea della
lettura dei suoi files..
Mi servivano comunque i dati essenziali dello Spiga: Tabella clienti e
quant' altro si possa STAMPARE:
Ho installato Print2file, ho lanciato le stampe dallo spiga ed ho ottenuto i
dati su file, poi con 4 righe di Visualbasic li ho importati nel nuovo
gestionale.
Spero che questa sia una idea costruttiva per te.
Saluti,
        Simone!

Spiga PC usava le FABS arcaico metodo di archiviazione dati.
Non so se ne trovi una copia in giro... ne dubbito fortemente.

Grazie della collaborazione, in effetti era l'altra soluzione che mi è
venuta in mente ... non ho neanche dovuto installare un programma per farlo
stampare su file perchè son riuscito tramite un escamotage a far fare la
stampa su file direttamente al programma ... l'ho già fatto per elenco
clienti, fornitori e in parte per il magazzino ... il problema è che il file
che ottengo non è ne delimitato da separatori di campo ne è larghezza fissa,
quindi non riesco a farlo aprire direttamente da excel ... tu come avevi
fatto esattamente a manipolarli?!
"Simone Zerbin" <zsi...@XXXsabbiadoro.com> ha scritto nel messaggio
news:cel734$g91$1...@fata.cs.interbusiness.it...


 fatto esattamente a manipolarli?!
Come ho scritto prima...... 4 righe di Visual Basic :)))
Apri il file in lettura
Leggi le righe una ad una
Analizzi la riga, togli quello che non serve, separi i campi che ti servono
Scrivi un file formattato oppure scrivi i dati in Tabella o ci fai quello
che vuoi
end!
:)
Saluti,
            Simone!

Newsgroup: it.comp.lang.visual-basic
Titolo: SyBase Anywhere 7

Salve a tutti,
ho iniziato a studiare l'uso di VB6 e i DB. Visto che devo sviluppare
un'applicazione a breve c'è qualcuno che ha del codice per
aprire/leggere/modificare un DB della SyBase? Me lo posta in privato,
ovviamente.
Grazie sin da ora,
Gabriele

 ha scritto nel messaggio
news:czhs7.5031$_42.2...@news.infostrada.it...


 ha scritto nel messaggio
news:LcMs7.97976$dJ3.6...@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Gif Animate

Qualcuno di voi conosce un buon controllo freeware per mostrare delle GIF
Animate? Meglio ancora se c'è del codice... ho provato a guardare su
Internet... ma tutto quello che ho trovato mi ha fatto un po' cacare...
c'era un controllo carino ma è shareware... ogni volta che viene caricata la
form in cui è stato messo, compare il messaggio del produttore!!! :(
Ciao!

Prova ad andare su 
www.visual-basic.it
 e scarica il CodeBook (un mega
archivio di ToolTips da paura!) e vedi se trovi qualcosa. Altrimenti sullo
stesso sito fatti un giro nella sezione ActiveX, molti di questi sono anche
col sorgente!

 Ciao!
Ciao,
Mattia

Scusa Mattia,
dove hai trovato quella funzione?

 dove hai trovato quella funzione?
In rete, non mi ricordo assolutamente dove.
Ciao,
Mattia

    Mancava un pezzetto di codice per far funzionare il tutto. Io lo uso nel
load della form contenente l'immagine
    If LoadGif("PERCORSONOMEIMMAGINE", Image2) Then
      FrameCount = 0
      Timer1.Interval = CLng(Image2(0).TAG)
      Timer1.Enabled = True
    End If
Ciao,
Mattia

Ma porco il criminal profiling... :-) Mò mi ci metto e lo ricerco! Grazie
comunque Mattia, e scusa!

 ha scritto nel messaggio
news:67RTa.200284$lK4.5...@twister1.libero.it...

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.471 / Virus Database: 269 - Release Date: 10/04/2003

 ha scritto nel messaggio
news:3PRTa.200692$Ny5.5...@twister2.libero.it...



http://www.fastwrite.com/Products/Focus/ocx/gif89.zip
è free e funziona benissimo senza nessun messaggio del produttore!
ciao

 ha scritto nel messaggio
news:kMVTa.201399$Ny5.5...@twister2.libero.it...


 ha scritto nel messaggio
news:67RTa.200284$lK4.5...@twister1.libero.it...


 ha scritto nel messaggio
news:bfr4ma$gef$1...@lacerta.tiscalinet.it...


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

Hi all,
I use VB5
I have a serious problem. I make a RichTextBox on a form. Place text in it
with Chr(13) in it. On W2k i have a nice (normal) result, on win98 i get no
CR?
Who knows how to solve this problem.
I have first used the richtx32.ocx from service pack 3 (version 6.00.8169)
and now i tried it with the standard ocx (version 5.00.3714) and that makes
no differens.
Help, please...........
Greeting, Nico Berg

 wrote in message
news:vSxi5.8262$Gd1....@Typhoon.bART.nl...


 CR?
  I had a similar problem... Try using VbCrLf instead of Chr$(13)
  Dan

 CR?


Newsgroup: it.comp.lang.visual-basic
Titolo: SCUSATE..... (Quale Glade?) nella fretta ho sbagliato newsgroup

SCUSATE.....
Stavo leggendo le news anche di python e nella fretta ho sbaglato
newsgroup..... SCUSATE!  :-(

 newsgroup..... SCUSATE!  :-(
Dalle mie parti, meglio tardi che tordi. :-)
-- 
______________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)
Newsgroup: it.comp.lang.visual-basic
Titolo: cerco risposta

ciao, sono un neofita di vb,
vorrei sapere se vb presente in front page oppure in word
e' identico a quello acquistato singolarmente.
come faccio a fare girare il programma fatto con vb di front page da
solo?(senza dover aprire front page)
scusate la totale ignoranza sull'argomento.
grazie.

 ha scritto nel messaggio
news:8csd61$hcn$1...@nslave2.tin.it...

Il VB di cui parli č VBA (visual basic for applications) che č un
sottoinsieme di VB. Una delle limitazioni (credo, ma mi farebbe piacere
essere smentito) č quella di non potere essere compilato ed eseguito
StandAlone.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

 essere smentito) è quella di non potere essere compilato ed eseguito


Newsgroup: it.comp.lang.visual-basic
Titolo: un paio di quesiti, grazie :-)

ciao, ho bisogno del vostro aiuto :-) per due problemi:
1. come faccio a far aprire il driver dello scanner in modo che l'utente
possa effettuare una scansione?
2. in una listbox ho dei nomi di file es. 1.doc, 2.jpg, 3.xls, 4.mdb
ecc..... vorrei fare doppio click sul nome di file e quindi richiamare
l'applicazione corretta che mi apre il file stesso. Come posso fare?
grazie in anticipo...
Max

per il quesito 2:
Dichiara la seguente funzione API:
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal
hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal
lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
As Long
e poi usala cosě:
Sub AvviaFile(file As String, Fin As Form)
retvalue = ShellExecute(Fin.hwnd, vbNullString, file, vbNullString, "C:\",
1)
End Sub
sul doppio-clic della ListView, richiama la sub AvviaFile, passando il nome
del file che vuoi aprire.....
good coding!!!
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
dam...@italiainfiera.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262
---
"Tu devi capire che lei č nuova a queste cose..."
"Bhč, e che cosa ci vuole?"
"Ci vuole, ci vuole, č questione di orizzonti che non č abituata a
vedere..."
Una persona che conosco, 8 Novembre 2002

 "Ci vuole, ci vuole, è questione di orizzonti che non è abituata a

Newsgroup: it.comp.lang.visual-basic
Titolo: [!][MouseWheel] Ecco i messaggi della rotellina.

Ho usato lo Spy++ su una finestra che so che gestisce la rotazione
della rotella --Agent :)-- e ho visto passare un bel:
P WM_MOUSEWHEEL fwKeys:0000 zDelta:-120 xPos:212 yPos: 544
Si trattava di uno scroll in basso.
Sperando che serva a qualcuno... :)
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro RomagnoloŽ, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

  ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD
Scusa l'ingenuita', ma la rotellazione della rotellina 8-) non dovrebbe
essere vista come un normale evento di Scroll? IMHO il driver che
gestisce la rotellina dovrebbe occuparsi di 'mascherare' il suo
movimento come un movimento di scroll...
Bye by Massimo 8-]

movimento come un movimento di scroll...
Come direbbe Elio, evidentemente no :)
Ma non posso ne' confermare, ne' smentire: riporto solo quello che mi
da' lo spy++. Che programma figo :)


Si trattava di uno scroll in basso.
Grazie a tutti! :) appena ho tempo faro' questo controllo sia quello
suggeritomi da MarioH...
Vi faro' sapere :)
-- 
Giovanni "Gyo" Perdicaro
E-Mail: 
gperd...@sicilyonline.it

 Si trattava di uno scroll in basso.
Io ho provato su una textbox con scrollbar verticale, ma ricevo solo dei
VM_VSCROLL.
Stessa cosa se metto la scrollbar direttamente sul form.
In quest'ultimo caso però, se spio direttamente la scrollbar anzichè il
form, vedo dei SBM_GETSCROLLINFO e SBM_SETSCROLLINFO alternati.

Newsgroup: it.comp.lang.visual-basic
Titolo: NO CTRL+ALT+CANC

Ho sviluppato uno screen saver con vb4-16bit per Windows 95, e nell'esigenza
di impedire l'accesso al sistema da parte di intrusi o indesiderati
attraverso una password, nonostante abbia usato la SetSysModalWindow,
continua a essere possibile aprire la finestra dei task per terminare lo
screen saver, non assolvendo più alla funzione per cui era stato pensato.
Dunque come posso fare per inibire la combinazione dei tasti Ctrl+Alt+Canc?
Qualche sprovveduto mi ha già proposto di intercettare la pressione dei
tasti attraverso l'evento KeyDown per settare a zero il parametro KeyCode.
Ma era ovvio che è una strada sbagliata.
Qualcuno ha un'idea migliore?

...


Dunque come posso fare per inibire la combinazione dei tasti Ctrl+Alt+Canc?
Copia questo codice nella sezione dichiarazioni a livello di Form ( se lo
vuoi fare a livello di modulo cambia Private in Public)
Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Sub DisabilitaCtrlAltDelete(bDisabled As Boolean)
    Dim X As Long
    X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
Per disabilitare Ctrl-Alt-Delete e Ctrl-Esc
Call DisabilitaCtrlAltDelete(True)
Per abilitare  Ctrl-Alt-Delete:e Ctrl-Esc
Call DisabilitaCtrlAltDelete(False)
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Programma

Come faccio ad intercettare se un programma è in esecuzione? 

 Come faccio ad intercettare se un programma è in esecuzione?
Guarda la Barra delle Applicazioni.
Poi dopo, con comodo, leggi questo:
http://wwwcdf.pd.infn.it/MLO/smart-questions.html
Spero sia utile. Ciao.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Come faccio ad intercettare se un programma è in esecuzione? 
Se stai usando 
VB.NET
 puoi fare una cosa tipo:
         For Each p As Process In Process.GetProcesses()
             If p.ProcessName = "firefox" Then
                 MessageBox.Show("Firefox è in esecuzione")
             End If
         Next
In VB6 non so.
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL

 Guarda la Barra delle Applicazioni.
sei in vena, neh? :)

 In VB6 non so.
E no eh! Non puoi mica cavartela cosi,  questo è sempre ancora il ng del 
visual basic classic :)
Adesso dicci anche come si fa in vb oltre che in quell'altro linguaggio che 
chiamano NET
2 faccine :) :)
-- 
Greg 

 chiamano NET
Non ne ho la minima idea, perché VB classic non l'ho proprio mai usato :-)


"andrea palazzi" ha scritto nel messaggio

Credo che quella di "smart questions" sia comunque la risposta
più utile che l'OP potesse ottenere. Seriamente :-).
Bye, G.

Come faccio ad intercettare se un programma è in esecuzione? 
Bisogna usare le API, qui ci sono diversi esempi di TaskL.ist (VB6)
http://shorterlink.org/3809
--
ciao
  Stefano

 ha scritto nel messaggio
news:fndg08$h0t$1...@nnrp-beta.newsland.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [Shell] - Chiudere Un'applicazione

In un modulo uso il comando shell per avviare un'applicazione di windows, ad
esempio notepad, solo che poi ho la necessità di chiuderlo da un pulsante
del form.
Bisogna usare le API o esiste una funzione VB per questo?
Ciao
§uNRi§e§


wrote:

http://groups.google.com/groups?q=terminare+processo+group%3Ait.comp.lang.visual-basic&hl=en
Enjoy the power of Google! (TM)
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

Grazie per l'informazione, solo che ho un problema, quando clicco sul link
mi esce solo il messaggio originale, mentre se vado su trhead mi da errore
impossibile visualizzare pagina,
Come devo fare?

impossibile visualizzare pagina,
Presumo sia un problema tuo di connessione, nel senso che a me funziona
bene...
altrimenti ripeti la procedura che ho fatto io: advanced search di
google groups, chiavi e newsgroup li ottieni chiaramente dall'url
postato...


Non mi chiude l'applicazione
faccio cosě:
nel load di un form
shell("c:\windows\mplayer.exe",VbHide)
la chiamo per chiudere il file
sub command1_click()
HW = FindWindow(vbNullString, "Lettore multimediale")
SendMessage HW, WM_close, 0, 0
end sub

Non mi chiude l'applicazione
http://www.it-lang-vb.net/download.asp?file=Archivio/Sorgenti/ApriChiudi.zip&ID=322


Grazie Mille

Newsgroup: it.comp.lang.visual-basic
Titolo: ancora sulla select

Salve a tutti.
La seguente linea di codice :
controllo = "select * from [cogn] where  par LIKE '" & temp & "*' order by
par" mi estrae dall'mdb tutti i cognomi inizianti per "temp", ma se volessi
estrarre tutti i cognome la cui terza lettera sia "A", o la seconda sia "R"
o la prima "F", ( ecc) come posso fare ?
Grazie

 ha scritto

Vedi LIKE:
In ADO: % qualsiasi numero di caratteri, _ un carattere qualsiasi
In DAO: * e ?

Newsgroup: it.comp.lang.visual-basic
Titolo: Applicazione IIS

Salve a tutti! Mi trovo in preda al panico, perchč ho un problema che
non riesco a risolvere in quanto non riesco a darmi una spiegazione di
quello che accade. Per farla breve, ho implementato un' applicazione IIS
vcon VB6 S.P. 5, che funzionava correttamente. Dopo un trasferimento
logistico della macchian su cui girava l'applicazione, quindi inserita
in una nuova rete con un nuovo IP, l'applicazione non funziona piů bene,
ossia la pagina html che prima mi veniva visualizzata correttamente, ora
mi viene visualizzata in maniera errata! Secondo voi quale potrebbe
essere il problema, visto che ho fatto migliaia di prove senza esito
positivo? Non so proprio piů che fare!!
AIUTO!!!!!!!!!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 fare!!
Potresti cominciare dicendo:
1) cosa intendi per applicazione IIS: ActiveX Dll? ActiveX Exe? Asp?
2) In cosa differisce la pagina fra 'prima' e 'dopo'?
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Percorso regedit.....

Scusate se posto un OT ma non so proprio a chi chiedere
e so che c'è qualcuno tra di voi che conosce il regedit come
le sue tasche.
Vorrei sapere qual'è l'indirizzo in cui è memorizzata la directory
Temporanea di Internet Explore, Winzip, Windows.Perchè ho poco spazio
sul C: e quando faccio operazioni di scompattazione o altro mi salta fuori
il
bel "Pulitura Disco".Vorrei spostare i riferimenti in cartelle del tipo
D:\temp.
E se non vi da fastidio è non  è un discorso troppo lungo mi direste come è
suddiviso il regedit:
------ HKEY_CLASSES_ROOT
------ HKEY_CURRENT_USER
------ HKEY_LOCAL_MACHINE
------ HKEY_USER
------ HKEY_CURRENT_CONFIG
------ HKEY_DYN_DATA
Ringrazio chiunque mi risponda
Ciao
Oz
-- Carè Walter SIA SOFTWORK S.R.L.
Via Zanardelli, 13/A - 25062 Concesio (BS) Italy
Tel. 0039-30-2008135/0039-30-2091057  Fax. 0039-30-2004911
Web: 
http://www.siasoftwork.it
 - E.mai:- 
ca...@siasoftwork.it

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell
Folders
per tutte le cartelle di sistema
ma puoi benissimo impostare la
SET TEMP=
SET TMP=
e scegliere dalle proprietà di IE dove tenere i temporanei Internet
e dalle proprietà di Winzip idem
Per quanto riguarda la struttura del registry ti rimando alla Msdn.
ciao
ugo

ugo
Ciao
Grazie di tutto.
Oz

Newsgroup: it.comp.lang.visual-basic
Titolo: how to run executable from VB

Hi everyone:
Could anyone tell me how to run executable from VB on windows? I know
in VC it is system(..dos command...), I am looking for the same thing
in VB.
Thanks
Cytoboy

in VB.
Please look for the Shell function ;-)
-- 
bye, hal
p.s. please note that in this newsgroup we are using the italian language.

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

Ciao a tutti. ho visual 
basic.net
 ma tempo fa ho frequentato un corso di
visual basic 6.
ra vorrei aggiornare i vecchi progetti a .net ma il programma mi dice che
manca il controllo MSADODC.OCX quindi non si può aggiornare.
Fa parte dei distribuibili dei quali parla il contratto?
Quancuno me lo portebbe mandare o è illegale?
Grazie a tutti.

 che manca il controllo MSADODC.OCX quindi non si può aggiornare.
a parte il fatto che sconsiglierei l'uso di adodc in vb6, figurarsi in
vb.net
, se sulla tua macchina non hai disinstallato il vb6, il controllo
dovrebbe esserci ancora. aggiungilo ai riferimenti del progetto (dovrebbe
essere nella sezione COM)
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo
Newsgroup: it.comp.lang.visual-basic
Titolo: Tre interessanti domande

Probabilmente saranno stupidaggini ma ho cominciato da poco...
Sto compilando un Prg per la CRI atto a inserire in un DB delle schede di
servizio, ma ho incontrato alcune difficoltà...
1)
Come posso inserire un nuovo record in un DB  Access (ADODC) ed essere
avvertito dal sistema che il record che sto inserendo è già presente ? Il
controllo in questione però deve essere effettuato su una colonna di dati
conformati in questo modo :
(es.)
2
5
9
34
37
55
68
99
cioè numeri progressivi univoci ma non costanti come in questo caso:
(es.)
1
2
3
4
5
6
7
8
9
quindi devo poter nel primo caso inserire la scheda "3" anche in presenza
delle successive ma non, logicamente una già presente.
2)
Come posso ottenere la differenza tra l'orario di uscita e quello di rientro
?
es. U 12.45 - R 13.20 = T 00.35.
Esiste un modo per creare un controllo "ora" come quello di Win cioè
modificabile con un controllo ScrollBar
3)
In VB6 c'è un comando simile all' AutoTab di VB per Excel, che al
raggiungimento di MaxLenght passa automaticamente all'Index successivo?
Oppure che lo spostamento tra un Index e l'altro possa essere fatto anche
con in tasto Invio?
Sto cercando di rendere il Prg veramente a prova di Scimmia poiché saranno
moltissime persone ad usarlo e molti non hanno mai visto un PC quindi...
Spero di essere stato abbastanza chiaro, in caso contrario fatemelo sapere!
Non pretendo risposte super esaustive mi basta anche qualche link a esempi
OpenSource poi mi arrangio io.
Vi ringrazio anticipatamente per l'aiuto (e il tempo) che vorrete regalarmi.
~~~~~~~~~~~~~~~~~~~~
3e New Media Agency
Andrea Confalonieri
confalonieri[nospam]@
3-e.it
http://www.3-e.it
~~~~~~~~~~~~~~~~~~~~

 ha scritto nel messaggio
news:8pged4$kd$1...@nslave2.tin.it...


 ha scritto nel messaggio
news:8pgqva$sso$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:8pgqva$sso$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:8ph3r6$nou$1...@nslave1.tin.it...


 wrote in message
news:8pigo5$jdm$2...@pegasus.tiscalinet.it...


 ha scritto nel messaggio
news:8pio2t$vrs$1...@stargate1.inet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: DAO e Access - Errore 3085

Ciao, non riesco a venire a capo di questo problema :
Tramite applicazione scritta in VB5, accedo ai dati contenuti in un file MDB
via DAO 3.51 e tramite una stringa SQL ricavo dei dati con una SELECT.
Il problema è sorto quando ho dovuto aggiungere alla SELECT l'istruzione
ROUND .
Se prima avevo :
SELECT ..... (Ore * CostoOre) AS Totale      funzionante, ora ho
SELECT ......Round(Ore * CostoOre) AS Totale , che restituisce un errore
"UNDEFINED FUNCTION 'ROUND' IN EXPRESSION"
Avete qualche suggerimento ? la Knowledge base non mi ha aiutato molto.
Grazie

"UNDEFINED FUNCTION 'ROUND' IN EXPRESSION"
Mi sembra che il SQL non supporti una funzione ROUND.

 wrote in message
news:3c5709e1...@news.tiscalinet.it...


>
Ho controllato. il Jet-SQL (il SQL del motore Microsoft Jet) NON
supporta la funzione ROUND

 wrote in message
news:3c57e634...@news.tiscalinet.it...



Semplicemente basta fare la scansione del recordset completo.

Newsgroup: it.comp.lang.visual-basic
Titolo: Mi controllate il codice, please!!!

Ho un matrice di controlli 1 per la combo e l'altra per la textbox, alla
combo è associato il campo codice e alla txtBox il campo descrizione di una
tabella Prodotti.
La connessione è già stata aperta,
Vorrei che il mio utente scelga il codice art.  messo a disposizione nella
Combo e  alla perdita del focus di questa automaticamente mi associ la
descrizione nella textbox corrispondente a quel controllo.
Io ho provato così, ma mi sono perso.... nei meandri del codice, e non
riesco + a risalirne.
Mi date una mano?
Private Sub Combo1_LostFocus(Index As Integer)
Text1.Item(Combo1.Item.Index).Text= "select descrizione from prodotti where
codice=(????)
End Sub
Grazie Lujx

riesco + a risalirne.
Private Sub Combo1_LostFocus(Index As Integer)
    Text1(Index).Text= "select descrizione from prodotti where codice = " &
Combo1(Index).RowSource("codice")
End Sub
Così dovrebbe andare se codice è numerico, altrimenti devi aggiungere gli
apici.
Non mi intendo di DB, ma non fai prima a collegare il Text1.DataSource =
Combo1.RowSource? Così al cambio di posizione ti si aggiorna
automaticamente.
Ciao
P.S.:Attenzione a quello che scrivi!

Naaa...
Assegna la proprietą .DataSource di entrambi i controlli allo stesso
recordset (sto sul generico visto che non spieghi nulla)
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Esistenza tabella

Ciao a tutti
Sapete un modo in visual basic per ricavare via codice se una tal
tabella in un db access è presente o meno?
Ho provato col tabledef, ma senza successo, forse mi sara' sfuggita
qualche proprieta' mah
grazie mille in anticipo

 qualche proprieta' mah
    Facci vedere come hai provato, cosi' ti si puo' dare una mano.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 grazie mille in anticipo
E' stato discusso piů volte il mese scorso
cerca con goolge.
In ogni caso se vuoi fare da solo
in Access esistono della tabelle nascoste
che puoi vedere con:
Menů-Strumenti-Opzioni-Visualizza Oggetti di Sistema.
Guardati la tabella MSysObjects
Magari basta fare una
select name from MSysObjects where name='nometabella'
se non ti restituisce nulla la tabella non esiste.
                                danilo

Newsgroup: it.comp.lang.visual-basic
Titolo: Excel e combobox

In un form di vb6 ho una combobox. Ho effettuato il collegamento ad un
foglio di excel:
Dim appExcel As Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet
Set appExcel = CreateObject("Excel.Application")
    appExcel.Workbooks.Open ("Percorso File xls")
    Set cartExcel = appExcel.ActiveWorkbook
    Set foglioExcel = cartExcel.Worksheets(1)
     If Val(appExcel.Application.Version) >= 8 Then
     Set foglioExcel = appExcel.ActiveSheet
     Else
     Set foglioExcel = appExcel
     End If
Vorrei che il programma leggesse la prima riga del foglio di excel e che
riportasse il tutto nella combo.
Con questo codice: Combo1.AddItem foglioExcel.Cells(1, 1)
mi aggiunge soltanto il valore della riga A1.
Partendo dal presupposto che non so quante colonne del foglio excel siano
riempite mi servirebbe creare un codice che prenda i valori della prima riga
di tutte le colonne non vuote.
Come potrei fare?
Vi ringrazio in anticipo.
Ciao
Marco
--
----|----|----|----|----|----|----|----|----|----|----|----|----|----|--
www.360net.it

 di tutte le colonne non vuote.
Beh, se il fatto che sia piena la cella di alto di ogni colonna vuole già
dire che la devi includere nella combobox, basta fare un for next,
spostandoti e verificando che sia piena o meno la cella:
If foglioExcel.Cells(Indice, 1).Value<>VbNullString then Combo1.AddItem
foglioExcel.Cells(Indice, 1)
Se invece devi verificare che ci sia almeno un valore nella colonna, allora
dovrebbe esistere un comando per spostare la selezione all'ultima cella
piena di una colonna (accendi il registratore di macro e premi CTRL+Freccia
giù), poi leggi le coordinate di dove sei arrivato e vedi se sei andato in
fondo o meno.
Ciao
Alberto

Ti ringrazio, sei stato velocissimo. Mi hai permesso di risolvere il
problema.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Help OCX

Vorrei imparare a creare degli OCX personalizzati...
Qualcuno possiede un tutorial o sa dove poterlo trovare?? (anche cartaceo
volendo)
ciao.

Microsoft Visual Basic Guida di Riferimento.
Manuale per la versione 6: Edito da Mondadori (Microsoft Press): L. 90000
Manuale per la versione 5: 
ftp://ftp.areacom.it/vb32/
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

Interessa anche a me.
sai su areacom qual'è il file di documentazione?
Non vorrei scaricarmi 1Mb per scoprire che non mi serve a nulla..... 8-)
Grazie
Giampy


Se non erro:
itctg.zip


Newsgroup: it.comp.lang.visual-basic
Titolo: Gestione directory

Salve a tutti.
Avrei bisogno per il mio lavoro personale di una routines per
gestire files e directory dall'interno di un programma
(visualizzare il contenuto delle directory, caricare i files
etc...).
Qualcuno puo' gentilmente aiutarmi?
Grazie.
		Gianni
--
Automatic posted from 
michetti.webzone.it
 [151.99.135.2]
via Mailgate Server - 
http://www.mailgate.org

...


ci sono i commondialog
ci sono anche i singoli controlli per files, drive e directory.
Andrea.

Newsgroup: it.comp.lang.visual-basic
Titolo: Datagrid solo con il codice

Salve atutti, volevo sapere ,  e come , se è possibile popolare una datagrid
solo ed esclusivamente con il codice .
Mi spiego meglio:
    io ho un recordset aperto e con quello vorrei popolare la datagrid senza
usare il controllo Data (adodc1)
Grazie e saluti a tutti

 ha scritto nel messaggio
news:a5q180$b7h$1...@lacerta.tiscalinet.it...


 > solo ed esclusivamente con il codice .
With dtgDatagrid
    Set .DataSource = rsRecorset
    .Refresh
End With
Quando devi aprire il recorset assicurati che CursorLocation sia impostato a
adUseClient, come nell'esempio sotto
With rsRecordset
    .ActiveConnection = cnConnessione
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .CursorType = adOpenKeyset
    .Source = "SELECT * FROM Tabella ORDER BY Codice"
    .Open
End With
Ciao!

Newsgroup: it.comp.lang.visual-basic
Titolo: Need help finding windows directory in VB5

Hi all,
I am trying to find out the windows directory so I can save an INI file
there. Code for accessing the registry or calling any api's would be a great
help. Code below dosn't work
Private Sub Command1_Click()
    Dim sysdir As String
    Dim myval As Long
    a = GetSystemDirectory(sysdir, myval)
    MsgBox sysdir 'returns ""
    MsgBox myval 'returns 0
    MsgBox a 'returns 18
End Sub
Thanx
--
SteveC 
cyberdyn...@iname.com
---------------------------------------------------------------
[stuttered tight point, M32, tra. @4.28.882.8367]
     xMSV Not Invented Here
          oGCU Fate Amenable To Change
     I don't understand. Whats going on? How did you get to where you are?


wrote:


...



