mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Registrare Componente ActiveX EXE

Salve a tutti,
ho registrato un componente server EXE ActiveX di nome server.exe con
l'esecuzione di "server.exe /regserver". Devo attivarlo per poi
utilizzarlo da un client remoto con DCOM. Eseguendo nel server
Racmgr32.exe, selezionando a sinistra il nome del componente e a
destra su Server Connection, COM Distribuito, viene disattivato il
protocollo di Rete (perchč?), inoltre riavviando Racmgr32.exe, la
selezione torna su Remote Automation (perchč non rimane settato
DCOM?). Anche nel Tab Client Access avevo selezionato "Allow all
remote Creation" ed una volta chiuso poi riaperto il programma
Racmgr32.exe, mi viene visualizzato "Disallow all remote Creation"
(perchč?).
Un'ultima cosa: il componente EXE č stato compilato con Visual Basic 5
Professional e non Enterprise, č forse questo che non mi permette di
fare funzionare client e server su due macchine? (Su una funziona
tutto bene).
Grazie e ciao, Mauro.

Professional e non Enterprise, è forse questo che non mi permette di








 ActiveX out off process ) su una macchina NT Server...
Grazie sei stato molto esauriente, ma il problema di non riuscire a
fare funzionare l'applicazione in remoto, quando invece funziona
benissimo in locale, persiste. Ho una domanda: č la stessa cosa
compilare il componente ActiveX.EXE con Visual Basic Professional e
con Visual Basic Enterprise? Oppure il componente out-of-proces
prodotto con la versione Professional funziona solo quando il client č
installato sul medesimo computer del componente?
Ciao e grazie, Mauro.

Seve l'edizione enterprise.
carlo
Newsgroup: it.comp.lang.visual-basic
Titolo: Per iniziare

Salve a tutti.
Sono alle prime armi, ho un po' di confusione e vorrei alcune informazioni.
L'ultima versione di VB è la .NET o  sbaglio? Esiste forse VB 7 ? VB si
trova solo con Visual Studio o si può acquistare anche separatamente.
Mi consigliate qualche buon libro?
Saluti
Enrico

 Mi consigliate qualche buon libro?
Per Visual Basic .NET l'ideale č:
http://education.mondadori.it/Libri/SchedaLibro.asp?IdLibro=88-8331-385-2
Saluti,
HTH :-)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Webmaster 
www.visualcsharp.it
"Great spirits have always encountered violent opposition
from mediocre minds." A.Einstein
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 
VB.NET
 più che l'ultima versione di VB (che è la 6), è un nuovo
linguaggio.
dopo l'installazione di net mi sembrava che in qualche dir apparisse "vb7".
ciao

 "vb7".
Lo so. In effetti si è portati a considerarlo un vb7 ma in realtà sai bene
che non è così.. è una rivoluzione più che evoluzione del linguaggio.
Saluti,
--


 che non è così.. è una rivoluzione più che evoluzione del linguaggio.
concordo. io non lo considero un vb7. ma ms forse si', o lo considerava.
d'altronde anche vb era un bel salto rispetto a gwb.
non nelle fondamenta, lo so. ma anche una gui e' una rivoluzione.
ciao

più che altro 
vb.net
 è vb 7.0 un po' come office xp è office 10.0
forse in qualche dll, o nei vari componenti, c'è un riferimento a 7.0......
svaglio?
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 svaglio?
in word xp quando cominci a scrivere un post-it devi dirgli che tipografia
stai implementando ? :)
Newsgroup: it.comp.lang.visual-basic
Titolo: Ping in VB...

Ho implementato la funzione ping in visual basic, utilizzando l'api
ICMPSendEcho...
Ho visto che tramite questa funzione non č possibile cambiare l'indirizzo IP
della macchina che invia il pacchetto, da dove prende questa informazione?
E' possibile cambiarlo in qualche modo?
Quali funzioni posso utilizzare per implementare il protocollo TCP/IP in vb
ad un livello piů basso delle ICMP?
Grazie a chiunque voglia rispondermi...

non vorrei dire stupidaggini, visto che sembri più ferrato di me in
materia.....
solo che il ping è un invio di dati dal tuo PC ad un altro.....
è sempre così, non puoi dire ad un altro PC diverso dal tuo di dare un PING
ad un altro ancora.....non avrebbe senso....
perciò non puoi cambiare l'IP da dove far partire il PING, a meno che lo
cambi direttamente sulla tua scheda di rete.......giusto?
spero di aver capito bene e di non aver detto fesserie!!!!
Good Coding!!!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262


in teoria è giusto quello che hai detto, però in linguaggi come il c è
possibile inviare un pacchetto dati come il ping ad un computer
facendogli credere che sia stato un altro... volevo solo sapere se una cosa
del genere è possibile anche in VB, magari ricorrendo a qualche API non
documentata oppure a + basso livello...
oppure come fare un pacchetto IP formato ICMP (quello del ping per
interderci) e cambiando l'header del pacchetto fregare il computer remoto
sulla corretta provenienza del ping...
è solo che momentaneamente non sono riuscito a trovare niente di così basso
livello per il VB.
cmq ti ringrazio molto per l'interessamento.
ciaoz, Flover

come presupponevo, ne sai più di me in questo settore più a basso livello,
perciò "I prefer to keep silence!!".....
spero che tu possa trovare la soluzione, anche se a me non interessa
particolarmente, mi sembra una furbata!!!
:-))
GoOd CoDiNg!!!!


 livello per il VB.
premesso che se vuoi fare l'hacker ti sconsiglio di usare vb:),
hai due possibilità:
1) la migliore: usa linux dove trovi le librerie raw socket che permettono
di fare proprio quello che vuoi tu.
   Non a caso tutti i too, di hacking sono sottolinux...
2) scrivi un driver che si metta tra lo stack tcp ip e il driver della
scheda di rete. I firewall (tipo checkpoint) fanno proprio così. In questo
caso i miei più sinceri auguri:)
ciao
alfonso
Newsgroup: it.comp.lang.visual-basic
Titolo: lbl bloccata

Ciao a tutti.
Dovrei utilizzare una stretchblt su una picturebox. Il fatto e che essendo
una f(x) esterna a VB e quindi non direttamente controllabile da VB stesso,
appena la richiamo, il sistema si blocca per 1-2 secondi, il tempo di
modificare tutti i pixel della picturebox. Ma nulla di (troppo) strano. Ora,
io vorrei far apparire una label con un messaggio di avviso. Solo che il
messaggio compare solo dopo che la f(x) ha eseguito l'operazione. Pare
infatti che nella routine nella quale richiamo la stretchblt, vengano
considerati solamente alcuni controlli (leggi: shape, picturebox... ma
assolutamente non label e textbox!)
Come fare? Forse facendo apparire la label e poi chiamando una sleep in modo
di dare a VB il tempo necessario???
Grazie in anticipo
     Pulx

 ha scritto nel messaggio
news:vqBe6.86092$ew1.5...@news.infostrada.it...

lblScritta = "ATTENDERE PREGO...."
puoi fare:
    lblScritta.refreah
oppure, + pesantemente:
    form1.refresh
oppure + elegantemente:
    doEvents
Ettore Maronese
il Mes
http://www.maronese.com/mes

    doEvents
Più elegantemente?

Newsgroup: it.comp.lang.visual-basic
Titolo: dbgrid con ado

Come si fa ad usare dbgrid con ado?

 wrote in message
zzcv4.48498$qv.4...@news.infostrada.it...


 wrote in message
news:89jll6$t4u$1...@lacerta.tiscalinet.it...


 sarai più preciso :-)


Newsgroup: it.comp.lang.visual-basic
Titolo: E' possibile installare Visual Studio.NET INGLESE su WinXP ITALIANO?

E' possibile installare Visual Studio.NET INGLESE su WinXP ITALIANO?
Ci sono controindicazioni?
Ho provato ad eseguire l'installazione, e mi dice che deve aggiornare alcuni
componenti di Windows prima di avviare l'installazione vera e propria di
Visual Studio.NET; Non vorrei che mi andasse a sostituire file in italiano
di WinXP con quelli in inglese o mi aggiungesse dei file ridondanti (ma in
lingua inglese).
Grazie

 lingua inglese).
no non ti preoccupare ...
CIAO

Nessun problema.
Ciao
Corrado

 file ridondanti (ma in lingua inglese).
Sul fatto che installi dei file ridondanti ci scommetterei, se poi sono
in inglese invece che in italiano che differenza fa? Tanto sono
ridondanti...  <eg>
--
Faber

grazie a tutti per la risposta.
in effetti l'ho installato, sono veramente rimasto colpito dalla
integrazione di tutti i linguaggi e sorpreso enormemente di come il Visual
Basic sia enormemente migliorato ora è completamente ad oggetti! Anche se
però occore abituarsi ai nuovi costrutti...
Newsgroup: it.comp.lang.visual-basic
Titolo: FTP con il controllo INET

Saluti a tutto il NG
Ho un problema con la gestione di un FTP client realizzato con il Controllo INET
La situazione è la seguente:
Seleziono da una listview una serie di file(il numero varia)
quindi seleziono la directory del mio PC su cu ricevere altri file
Successivamente alla pressione del pulsante Invia eseguo un operazione ciclica di comandi PUT nome file DirHostRemoto
per ogni comando PUT che eseguo con l'istruzione
INET.Execute , FTPcommand imposto un ciclo 
do until INET.StillExecuting = False
 
   doevents
loop
aspettando che si generi l'evento StateChange del controllo
INET 
In definitiva non riesco a mettere i file sulla macchina remota!Qualcuno potrebbe postarmi un codice tipo per una corretta gestione di questo comando, visto che forse non utilizzo al meglio il ciclo con la proprietà StillExecuting
Grazie a tutti per l'interessamento e nel rinnovare il mio interesse
per questo utilissimo NG vi saluto tutti
Mauro 
--
TiscaliNet, libero accesso ad Internet.
http://www.tiscalinet.it
-- 
Posted from 
laguna.tiscalinet.it
 [195.130.224.86] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
3a1e585b...@laguna.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: collegamento a lan remota....

mago.poof()
ho fatto un programma per la gestione di alcuni faile su dei pc che sono su
una lan remota.....
mi spiego...
Tramite accesso remoto mi collego ad un pc con WIN98...
Questo pc è in rete con altri 2 PC ( diciamo A e B)
Quando provo con il programma a connettermi con A mi da un errore perchè non
mi vede il pc...
Ho provato anche a farlo semplicemente tramite windows (:\\PCA\C) ma ottengo
lo stesso errore ........credo a questo punto che sia un problkema di
settaggio di windows ( dimenticavo il mio PC con cui faccio la conn remota è
un win 98).....
Qualcuno può aiutarmi...?????
mago.poof()

 wrote in message
news:6V_Q7.7501$NB6.2...@news2.tin.it...

Forse é solo un errore di battitura però hai messo due punti prima del nome
\\PCA\C....
Dunque ci sono diverse cose da controllare :
1) Dal PCA riesci a vedere gli altri PC e se stesso in Explorer ?
2) PCA ha installato NETBIOS (NetBeui) e ha File&Print sharing ?
3) Parli di A e B. Vuoi dire che funziona con B ?
4) Se utilizzi TCP/IP, hai provato a collegarti con il suo indirizzo IP
(
p.es
.  \\192.168.1.27\C) ?
Comincia con queto e facci sapere.
Ciao
Sal

 wrote in message
ZQ2R7.12283$2F2.6...@weber.videotron.net...


Newsgroup: it.comp.lang.visual-basic
Titolo: File in vb

Ho dei file di testo, sto facendo un programma in vb che deve aprire i
file e copiare il contenuto in un database.
1 - Come faccio a leggere il contenuto del file partendo da un punto
ed arrivando a un altro?
Premetto che il contenuto del file č diviso da < e > esempio= " <test>
<pippo> " come faccio a copiare test  e pippo in due campi diversi del
DB?
Aspetto qualche dritta

 ha scritto nel messaggio 
news:da2aeb5e.05011...@posting.google.com...


 ha scritto nel messaggio
news:da2aeb5e.05011...@posting.google.com...


Newsgroup: it.comp.lang.visual-basic
Titolo: Windows NT+SP6 con .NET Framework!!!

Durante l'installazione, sul PC utente finale, del Microsoft .NET Framework
1.0 (Italian) su un sistema Windows NT + SP6, il programma si pianta e da
l'errore:
"Errore 1935. Si è verificato un errore nel corso dell'installazione del
componente {618BC654-A8FB-4467-A832-F3864D386F695575}.
HRESULT: -
2147024891
."
SONO DISPERATO! Cosa posso fare?

HRESULT: -
2147024891
."
Sembra essere un errore di accesso negato, forse manca qualche
permesso. Hai installare con un account da amministratore della
macchina o da utente normale?
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Append di due immagini Tiff

Salve a tutti,
qualcuno saprebbe indicarmi come posso accodare una immagine TIFF ad
un'altra utilizzando i controlli Wang - Imaging?
Purtroppo in rete non sembra esserci documentazione al riguardo.
Ho provato ad usare il metodo Append del controllo ImgAdmin ma ho qualche
problema.
Grazie,
            Giuseppe

problema.
Anch'io quando non digerisco ho qualche problema ;-)
Questo codice non ha bisogno di documentazione:
    ' assegno l'immagine iniziale
    ImgAdmin1.Image = "00000001.tif"
    ' accodo una pagina dalla pagina 1
    ImgAdmin1.Append "00000002.tif", 1, 1
-- 
hth, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiungere un controllo personalizzato alla form

Salve,
io ho una datagrid personalizzata, vorrei aggiungerla al form ma non ho 
la minima idea di come si faccia... qualcuno me lo puň spiegare?
Grazie,
   Luca

 ho la minima idea di come si faccia... qualcuno me lo può spiegare?
naturalmente con 
vb.net
 :-P
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

    Luca

Newsgroup: it.comp.lang.visual-basic
Titolo: Major Timer Problem!!

Look up GetTickCount.
It synchronizes with the system
internal clock. Can't get any more
accurate than that.
Declare Function GetTickCount Lib "kernel32" () As Long
--
God Bless !
Jim - jdmcjen[NotThis!]@
hemc.net
"Will the road you're on get you to My place ?" - God
                  _\|/_
                  (o o)
     ------oOO-{_}-OOo------

you may be having more trouble with slow hardware response rather than
software sync.
as each various operating system attempts to simulate "true multitasking",
it always must drop one task to service any other one. (unless you have a
separate cpu and hardware for each individual hardware device, & that is not
likely)
each keyboard or  mouse service (when you move/click it) takes cpu cycles to
perform, thus if a wav/midi device is ready to throw some bytes of music at
the cpu for processing and just has to wait for it to finish up the mouse
stuff, you will get a "lag".
same with the display, if it is busy heaving megapixels of display around to
make the screen look pretty, it must trade off some response time for other
devices too.  even display devices must be managed!
there are a few nasty things you could fool with, like "priority" and task
managment.  beware though, that as you contrive to deprive windows of
control of it's own domain, you may have some ugly crashes as you perfect
it.  look up in Randy Birch's site and MSN for info on this topic.
also, if you get a 1.3 gigahertz cpu type , you  will minimize your apparent
lag.
--
best regards,
hapticz
<<<< +++++++++++++++++++++++++++++++++++++ >>>>
Newsgroup: it.comp.lang.visual-basic
Titolo: Come si personalizza l'uuid di un COM?

Salve, vorrei sapere se è possibile personalizzare l'uuid di un COM
sviluppato in VB e se si come.
Grazie anticipatamente per l'interessamento.
Daniele
d_impelli(O)
yahoo.com

Ok, ci sono riuscito, scusate la banalità della domanda, mi vergogno anche
di averla fatta.
Daniele
d_impelli(O)
yahoo.com

Newsgroup: it.comp.lang.visual-basic
Titolo: automazione di WORD con VB

ciao ragazzi,
sto facendo un'applicazione in VB che utilizza fogli excel e documenti
word...
come posso automatizzare la scrittura su un .doc?
la mia applicazione sarà una form con dei campi textbox che riverseranno il
loro contenuto nel documento .doc
per ora NON conosco le proprietà e i metodi.....l'MSDN è troppo vasta:-)
Sub CommandButton1_Click()
    Set word = CreateObject("Word.Application")         ' c'è anche
word.document?!?
    word.Visible = False
    word.Documents.Open ("C:\a.doc")
End Sub
ovviamente utilizzo word solo come strumento di "tramite" e quindi deve
essere invisibile durante l'esecuzione dell'applicazione.....(word.Visible =
False)
sapete aiutarmi?
...conoscete qualche proprietà e i metodo tipo:.....
word.SCRIVERE        'x scrivere dentro il .doc
word.STAMPARE        'x stamparlo:-) senza che sia visualizzato...
word.InserisciTabella ........
...e magari scrivi nella riga 2 e colonna 3 della tabella.....
grazie
.....e ciao

 ...e magari scrivi nella riga 2 e colonna 3 della
tabella.....
Intanto potresti consultare le pagine della guida dove trovi
moltissimi esempi. Hai gia` dato un'occhiata?
Poi vedi se riesci a recuperare fra i post degli ultimi due
giorni quelli in cui si parlava appunto di tabelle di word:
trovi alcuni esempi gia` pronti che potrebbero proprio fare al
caso tuo. Poi magari posta messaggi con un argomento alla
volta. Non so gli altri colleghi, ma io quando vedo un
messaggio con piu` di una richiesta o con un argomento troppo
vasto mi viene l'ansia e tendo a lasciar perdere.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X

 wrote in message
8qghtq$fe1rk$1...@ID-52090.news.cis.dfn.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Ci riprovo datagrid

Allora, parto da questo codice:
Try
Dim dt As New Data.DataTable("Ingredienti")
Dim dc As Data.DataColumn
'Colonna 1 . Cod.Ingr.
dc = dt.Columns.Add("Cod.Ingr.", System.Type.GetType("System.Int32"))
dc.Unique = True
dc.AllowDBNull = True
'Colonna 2 . Ingrediente
dc = dt.Columns.Add("Ingrediente", System.Type.GetType("System.String"))
dc.ReadOnly = False
dc.DefaultValue = ""
DataGrid1.DataSource = dt
Catch ex As Exception
'MessageBox.Show("Eccezione catturata:" & ex.Message)
End Try
Prima di tutto, non risco a specificare la larghezza delle colonne... Che č
banalisimo.
Poi, se aggiungo altre Colonne non me ne fa vedere neanche piů una...
Tra l'altro dovrei Popolare questa Griglia prelevando i dati un file di
Testo... Qualcuno sa darmi dei suggerimenti?
questo č un progetto per Smartphone/PocketPC in VS .net 2003... Dove, tra
l'altro non risco neanche a copiare un qualsiasi DB access e cosě mi tocca
fare tutto da file di testo...
Grazie a tutti...

 di Testo... Qualcuno sa darmi dei suggerimenti?
XML? (che poi, è sempre un file di testo...)
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca
 


Per il discorso file di testo ho risolto... sono riuscito a leggerlo e ha
popolare alcune combobox...
Grazie 1000 Gianluca

 non mi fa vedere più nessuna colonna....
Puoi postare un'intero pezzo di codice che simula il problema?
Ciao


Try
Dim dt As New Data.DataTable("Ingredienti")
Dim dc As Data.DataColumn
'Colonna 1 . Cod.Ingr.
dc = dt.Columns.Add("Cod.Ingr.", System.Type.GetType("System.Int32"))
dc.Unique = True
dc.AllowDBNull = True
'Colonna 2 . Ingrediente
dc = dt.Columns.Add("Ingrediente", System.Type.GetType("System.String"))
dc.ReadOnly = False
dc.DefaultValue = ""
Non faccio altro che aggiungere:
'Colonna 3 . Qtà
dc = dt.Columns.Add("Q.tà", System.Type.GetType("System.Int32"))
dc.ReadOnly = False
dc.DefaultValue = 0
....
....
....
e chiudo il try ecc.ecc.
Il codice per la larghezza delle colonne l'ho provato, ma non mi cambia
nulla... e il codicillo è:
......
DataGrid1.TableStyles(0).GridColumnStyles(0).Width = 150
....
Sicuramente non ho qualche lacuna, bensì delle voragini...  Solo che mi
hanno messo in mano sto palmare e devo sviluppare sto PRG da interfacciare
con AS400, mi hanno consigliato di usare file TXT... e meno male, visto che
ActiveSync non mi copia l'MDB su Palamare.
Grazie 1000.

 > non mi fa vedere piů nessuna colonna....


 meno male, visto che ActiveSync non mi copia l'MDB su Palamare.
Beh, ragazzi, non è che si ci puo' improvvisare sviluppatori (specialmente 
in ambiente mobile) dall'oggi al domani.


Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic x win CE

So che esiste una versione x windows CE di visual basic, qualcuno sa dirmi
se ci sono differenze e quali? Che tipo di database si usano?
Grazie x l'aiuto

 Grazie x l'aiuto
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] File di testo e affini

Ciao ragazzi,
una domanda al volo:
Devo caricare da un file di testo delle righe, e ogni riga deve essere messa
in un array e in una listbox.
Sapete come si fa o dove posso trovare degli esempi?
Grazie

 ha scritto nel messaggio
news:i3Os7.60757$P04.5...@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Pac-Man HELP

Ciao,
vorrei creare un gioco in stile pac man (lo so che ce ne sono infiniti ma
voglio provarci lo stesso). Non riesco perà a fermare il giocatore davanti
agli ostacoli, é come se non esistessero.
Qualcuno può darmi una mano???????
THANKS!!!!

 agli ostacoli, é come se non esistessero.[...]
Prova a chiedere se qualcuno non ha già fatto la routine che ti serve su
http://www.games.eden.it/gpi
E' un sito dedicato alla programmazione dei giochi.
Ciao
---
--
-
Maurizio Santaniello
MIX
170 links a siti VB
http://space.tin.it/computer/gaais/
http://web.tiscalinet.it/VBLINKS/
   <---  Nuovo server !
-
--
---
Il sito comune di it.comp.lang.visual-basic
http://www.murialdo.it/it_lang_vb/

 Qualcuno può darmi una mano???????
Tutto dipende come hai descritto ,'codicemente' parlando, la cosa 'ostacolo'
nel tuo programma... Cerco di spiegarmi meglio:
Se io volessi creare un giochetto stile Pac-Man descriverei il fondale con
una matrice bidimensionale dove '0' stà per strada libera e '1' per
ostacolo.
Un ipotetico fondale sarebbe:
111111111111111111
100000000000000001
101101111111101101
100001000000100001
100000000000000001
100001000000100001
101101111111101101
100000000000000001
111111111111111111
Dichiarato in una matrice bidimensionale dove il primo elemento sta per
l'asse X e il secondo per l'asse Y (es: Mappa(18,18) )
Il Pac-man a questo punto occuperebbe sempre una casella con coordinate x e
y che potresti comodamente controllare.
Per esempio se il Pac-Man è nella casella x=15 e y=13 ('matricemente'
parlando Mappa(15,13)) e il giocatore preme la freccia cursore alto nella
Sub PacMan_Movimento_in_alto dovresti controllare il valore di Mappa(15,12)
e:
Nel caso il valore sia 0 permettere il movimento.
Nel caso il valore sia 1 bloccare Pac-Man ed eventualmente mandarlo a
sinistra o a destra.
Beh.. Perlomeno è come farei io...
Spero di esserti stato di aiuto
Ciao
Daniele
---------------------------------------------------------------------------
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: FlexGrid?

Ciao a tutti,volevo sapere una cosa riguardo le flexGrid.
Come faccio a modificare la larghezza delle colonne? (Devono essere tutte
diverse una dall'altra!!)
Grazie

In che senso ?
Da codice :
MSFlexGrid1.ColWidth(n) = dimensione
Per permettere all'Utente di modificarle, devi impostare a 1-Columns la
prorietą AllowUserResizing
Bye Bye by Fabio GRANDE

Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: [?!CR] Qualcuno mi spieghi per favore !!

Scusate se vi assillo ma proprio non ne vengo a capo.
Uso CR 6 activeX in VB6.
Creo un report e lo salvo in rpt.
Poi lo chiamo cosě:
Private Sub subCaricaReport(strReport As String)
    Set rsCli = New Recordset
    rsCli.Open "SELECT CLIENTI1.cli_nome FROM CLIENTI1 WHERE
CLIENTI1.cli_cap LIKE 26030", DbCon, adOpenForwardOnly, adCmdTable
    Load Form2 '
    Set crxReport = crxApplication.OpenReport(App.Path & "\" & strReport, 1)
    Set crxDatabase = crxReport.Database
    crxReport.Database.SetDataSource rsCli
    Form2.CRViewer1.ReportSource = crxReport
    Form2.CRViewer1.ViewReport
    Form2.Show vbModal
    Set crxApplication = Nothing
    Set crxReport = Nothing
    Set crxDatabase = Nothing
End Sub
Il report non sente il Rs che gli passo e continua imperterrito a stampare
il contenuto globale della tabella.
Ma con RDC 6 actX non si possono salvare i report in rpt e gestirli con un
recorset da codice ?
--
VB6 Sp5
Grazie, Alcau

 CLIENTI1.cli_cap LIKE 26030", DbCon, adOpenForwardOnly, adCmdTable
Non uso CR, ma se cli_cap č testo (non mi risulta che il LIKE si possa usare
con campi numerici), non manca qualcosa su quel LIKE?

 > CLIENTI1.cli_cap LIKE 26030", DbCon, adOpenForwardOnly, adCmdTable
E poi gli dici che č una tabella (adCmdTable). Non so bene come lo
interpreti ADO, ma quella SELECT non č certo una tabella (adCmdText, forse)

 interpreti ADO, ma quella SELECT non è certo una tabella (adCmdText,
forse)
Questa è una delle tante prove che ho fatto.
Comunque il risultato è lo stesso controllo il numero di record ed è 10 ma
al file rpt arrivano sempre e solo tutti i record (102)
:(

 Grazie, Alcau
Prego!
Alex
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ListView-TreeView drag and drop

Ho un form che assomiglia ad Outlook Express, (...bella sfiga! direte
voi...mah...in effetti...), quindi a sinistra ho un treeview con dei
nodi/voci ed a destra un listview che elenca delle robe...tutto va che è una
meraviglia tranne una cosa che penso sia una stupidata...ma di fatto mi sono
incriccato e non c'è verso di implementare il drag and drop in modo che si
possa trascinare una riga del listview addosso ad un nodo/voce del treeviw e
che questo lo riceva.
Ho provato molte cose, HitTest, DropHighlight ecc. ma non ho risolto un
piffero!
In pratica qualsiasi cosa scriva...in qualsiasi evento (!)...VB non sortisce
alcun effetto.
Avete voglia/tempo di postare due righe di codice per quanto sopra?
Ciao e grazie, Adriano

 wrote in message
news:8l6fuh$m43$1...@fe2.cs.interbusiness.it...


 incriccato e non c'č verso di implementare il drag and drop in modo che si






Newsgroup: it.comp.lang.visual-basic
Titolo: E' Normale ?

    E' normale che l'oggetto List View di VB5 sotto Windows 98 da errore,
mentre sotto Windows 95 e NT non dice niente ?
    Se è così, esiste l'aggiornamento dell'oggetto per Windows 98  ?
    Dove lo trovo ?
    Confido e spero in voi.
    Con affetto, Willy De Kid 
rdim...@tdi.it


No, non č normale.
Io ho installato progs con ListViews su Win95/98 senza problemi (uso VB6)
Ciao.

No, non è normale.


Sono d'accordo al 100%
Newsgroup: it.comp.lang.visual-basic
Titolo: Strano problema

Scusate, sapete dirmi come mai in VB6 quando faccio il debug mettendo 
dei punti di interruzione nel programma, passando con il mouse sulle 
variabili non leggo piů il valore che hanno in quel momento? Prima mi 
usciva una tooltypetext con il valore della variabile a cui puntavo, ora 
non lo fa piů
Cosa ho combinato? Non mi pare di aver messo mani da nessuna parte...
Chi mi aiuta? E' triste dover usare la caption del form per vedere di 
volta in volta il valore asunto dalle variabili...

 Cosa ho combinato? Non mi pare di aver messo mani da nessuna parte...
Prova ad uscire e rientrare in VB
Se ancora non va, Strumenti, Opzioni, editor attiva tutti i check della
prima parte (io li ho attivati tutti, anche quelli della seconda parte),
tranne forse, a tua discrezione, "Dichiarazione di variabili obbligatoria"

Prova a fare in un nuovo progetto una cosa del tipo
a=3
a=1'metti qui un punto di interruzzione e controlla
se non funge vai a dal menù strumenti opzioni
nella scheda editor controlla se è spuntato descrizione dati automatica.
Se vuoi saperne di più premi su ?
potrai leggere questo su msdn
Descrizione dati automatica: nella finestra del codice in modalità
interruzione visualizza il valore della variabile o la proprietà
dell'oggetto sul quale è posizionato il cursore. La visualizzazione è
limitata alle variabili e agli oggetti compresi nell'area di validità
corrente.
Ciao
Alessandro
--
Morfeus®
Free Joint
:PII

 wrote in message
news:b8lbu4$b50ed$1...@ID-174464.news.dfncis.de...

Prova a compilare il tuo progetto per rimuovere gli errori: capita che se ci
sono degli errori vb smette di farti vedere i tooltiptext.

 volta in volta il valore asunto dalle variabili...
usa il watch expression

Newsgroup: it.comp.lang.visual-basic
Titolo: pressione tasto

Vorrei simulare la pressione di un tasto di una certa applicazione. Tale
tasto
non fa altro che aprire una window  di cui conosco la caption. Come potrei
aprire questa window?
Non posso utilizzare ShowWindow perchè non conosco l'handle e nemmeno
AppActivate.
Grazie.
Salvo

 wrote in message
news:YdZs8.11948$m41.3...@twister2.libero.it...

e vabbè, prima ti ho concesso il beneficio del dubbio, ma adesso ogni dubbio
è stato fugato: sei un autentico troll;
PLONK!

 ha scritto nel messaggio
news:YdZs8.11948$m41.3...@twister2.libero.it...

Se ho capito, vorresti fare qualcosa tipo aprire un nuovo documento (che tu
chiami window) in Word (che è l'applicazione) e sai già che il nuovo documento
si chiamerà 'Documento1', giusto?
In tal caso puoi usare:
AppActivate "Microsoft Word" 'Attiva l'applicazione
                             'con titolo Microsoft Word
SendKeys "^(n)"              'Ctrl+N = nuovo documento
Ciao!
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)
Newsgroup: it.comp.lang.visual-basic
Titolo: Sono disperato, aiuto!

Salve a tutti,
                   sono veramente disperato, non so come fare a far
funzionare un dispositivo che sotto windows98 utilizzavo con dei programmini
exe fatti col qbasic che sfruttavano l'istruzione out per pilotare i primi 8
piedini della parallela per l'esattezza dal 2 al 9 in modo da far attivare
dei transistor che pilotano dei relè, sono passato da poco al win200, senza
dubbio più stabile e più sicuro, ma i programmini non ne vogliono sapere di
funzionare, partono si, ma non attivano proprio nulla, al contrario, la
parallela già quando si avvia il sistema fa sì che i segnali siano inviati a
tutti i piedini in questione, avrei bisogno del codice (possibilmente sotto
visual basic o c++ o ancora meglio gli exe già compilati) di modo chè
ciascun programma derivato, piloti un singolo piedino, o almeno vorrei
capire come farlo io in particolare col visual basic, aspetto ansioso vostre
notizie!!!!!!
Sinkha

 wrote in message
VUQx5.51733$XZ4.6...@news.infostrada.it...


Purtroppo VB non dà la possibilità di accedere direttamente all'hardware
(tipo la porta parallela).
Anche io ho avuto lo stesso problema e con W9x la WIN95IO funziona
egregiamente;
purtroppo con NT (2k non so) no! perchè NT è ancora più rognoso di win9x per
la gestione dell'hardware... praticamente vuole fare tutto lui!!! (avere una
OUT o una IN ad alto livello sarebbe un sacrilegio in termini di robustezza)

Newsgroup: it.comp.lang.visual-basic
Titolo: FLEX GRID come formattare le colonne ?

Come da oggetto dovrei formattare le colonne contenenti prezzi in lire e
prezzi in euro (#.##).
Come posso fare ??
Grazie in anticipo
Andrea

Come posso fare ??
io uso la HFlex in modalità unbound: scrivo un bel po' di codice in più,
però mi gestisco bene tutti gli errori e le visualizzazioni: in questo
caso, ad esempio, formatto i numeri quando setto la proprietà text (dati
prelevati da fonte esterna), oppure in risposta all'evento leavecell
(dati immessi dall'utente)
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
---------------------------------------------------------------------------

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

Vorrei un esempio di come si richiama un modulo di una DLL (modulo non
oggetto) da una exe in VB.
Grazie

oggetto) da una exe in VB.
Suppongo che si stia parlando di dll activex.
Dall' esterno e' possibile chiamare proprieta' e metodi pubblici
delle classi pubbliche.
Le funzioni dei moduli contenuti dalla dll non sono visibili
dall' esterno.
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: acquisire stringa esadecimale da TextBox

Salve a tutti,
e' la prima volta che posto qui,
ho provato a cercare nei post passati,
ma non ho trovato nulla che mi sembrasse utile
per il mio problemino..
in un form ho una textbox, dove l'operatore
deve digitare un numero esadecimale.
Vorrei che il numero fosse compreso tra 0 e FF,
ed intercettare eventuali errori di battitura..
qual'e' la soluzione piu' semplice secondo voi ?
grazie a chiunque potra' aiutarmi.
-- 
Bye
Frabar6

 ha scritto nel messaggio
news:r2l4k1h1f7bcs3dfl...@4ax.com...

Innanzitutto puoi limitare a 2 la lunghezza massima del testo del textbox
(MaxLength).
Inoltre nell'evento _KeyPress lasci "passare" solo le cifre da 0 a 9, le lettere
da A a F ed eventualmente i tasti Tab, Backspace etc....
Bye
Raf

Raf
gia'.. piu' semplice che bere un
bicchiere d'acqua.. ;-)
grazie mille.
-- 
Bye
Frabar6

 da A a F ed eventualmente i tasti Tab, Backspace etc....
Stavo per scrivere esattamente la stessa cosa.
Poi mi è venuto in mente che un utente particolarmente scassamaroni
potrebbe anche cercare di incollare caratteri "illegali"...
In questo caso bisognerebbe utilizzare l'evento change e/o il validate.
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
Se i tempi non chiedono la tua parte migliore, inventa altri tempi. 
(Baolian, libro II, vv. 16-17)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 In questo caso bisognerebbe utilizzare l'evento change e/o il validate.
Giusta osservazione, se poi ci fosse il modo per intercettare l'"incolla" lo
preferirei ad una validazione a posteriori.
Ciao
Raf

 preferirei
Non mi pare ci sia un evento specifico. Certo il change viene scatenato,
ma non hai modo di sapere che cosa c'era scritto prima dell'incollaggio,
quindi devi limitarti a segnalare il dato scorretto e pulire la text.
Certo, è sempre possibile implementare una simil cache per ovviare a
questo problema, ma non so se queste raffinatezze interessano all' o.p.

Newsgroup: it.comp.lang.visual-basic
Titolo: Il misterioso tasto applica ???????????????

Intendi in VB o no?
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

senza riavviare la macchina.
Ho postato un piccolo esempio su it.binari.visual-basic (Subject: 'Cambio di
risoluzione video' e relativo [POST]), dovrebbe essere disponibile tra qualche
minuto; spero fosse quello che cercavi.
Ciao
--
Luca Dormio
l...@sig-la.com
ldo...@tin.it

Mi sembra che il tuo orologio sia un po' indietro :-)
Da quando l'ho mandato, a mezzogiorno circa di ieri; siccome l'ultima volta il
messaggio era comparso abbastanza velocemente (la "Doppia Lista"...probabilmente
ti avevo beccato in un momento buono) ho buttato li' una cifra; mi pareva brutto
dire "ripassa tra 6-7 ore..." ;), comunque se non ti fosse arrivato ancora
nulla, avvisami che riposto.
Approfitto per chiederti una cosa: esiste uno "scambio di cortesie" tra il Sito
comune e it.binari.visual-basic?? intendo dire che a volte sono un po' in dubbio
se mandare gli esempi al sito o al NG; in genere preferisco quest'ultimo perche'
e' piu' pratico ma, visto che i messaggi sembrano non avere vita lunga, sarebbe
un peccato se gli esempi postati andassero poi perduti (a parte i miei...:) )
Ciao.


Sarebbe molto utile per le mie applicazioni scoprire quale funziona si cela
dietro il tasto 'Applica' che appare nelle finestre di win95/98 quando č
possibile cambiare un'impostazione di default. Piů in particolare vorrei
scoprire come č possibile modificare la risoluzione del monitor nelle
impostazioni dello schermo e poi rendere attiva la modifica appena fatta
senza riavviare la macchina.
infinitamente grato  NADAN
rispondete pure all'indirizzo 
nad...@hotmail.com

 Ciao
Ciao
--
Andrea :-{)
acm...@hotmail.com
bina...@usa.net
 (Moderatore di IBVB)
================================================
Leggi 
http://beatles.cselt.it/news-it/FAQ.html
 e
http://beatles.cselt.it/news-it/gruppi-it.html
Potresti imparare qualcosa di piu' sui NG
================================================

 Ciao.
Ciao
--
Andrea :-{)
acm...@hotmail.com


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

Salve !!! forse rara' una domandina stupida... Ma come si fa' a ricavare il
contenuto selecionato di una riga in ListBox ?????
Grazie 1k
Max

 ha scritto nel messaggio
news:9dqr1b$lkn$1...@lacerta.tiscalinet.it...


 ha scritto
| Salve !!! forse rara' una domandina stupida... Ma come si fa' a ricavare il
| contenuto selecionato di una riga in ListBox ?????
list1.text

Private Sub Form_Load()
Dim i  As Long
For i = 1 To 10
List1.AddItem "Prova Listbox " & i
Next i
End Sub
Private Sub List1_Click()
    MsgBox "" & List1.List(List1.ListIndex)
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: IMPORTANTE Refresh di un Recordset

Ciao a tutti,
Vorrei aggiornare su mio comando un recordset.
Questo recordset è la soluzione di una query.Su questo recordset riesco ad
aggiungere, modificare, cancellare e trovare i record, ma in particolare
quando aggiungo un record e salvo devo aspettare qualche secondo perchè il
recordset e la tabella di origine del recordset si aggiornino.
Per fargli fare l'aggiornamento ho provato con : refresh, update, update
batch adaffectall.
Se non aspetto quei secondi noto che il campo del codice record non varia
dal vecchio a quello nuovo che sto inserendo.Come devo fare ?
Spero di essere stato abbastanza chiaro.
Ciao

 ha scritto nel messaggio
news:8gldsk$qc5$1...@oldforst.unisource.it...


 wrote in message
news:38649...@news.megasys.it...

 Anche con requery ma non è cambiato niente, devo aspettare comunque qualche
secondo.
La soluzione ideale avevo pensato che era quella di mettere la query nel
Data Environment, creandolo con access, ma sembra che noon si possa
aggiungere record in questo modo, perche sembra che sia per modificare che
per aggiungere chiede sempre un parametrto (che penso sia quello della query
di access) che non so neanche dove dirglielo.
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Diverso comportamento del progetto da VB e dall'eseguibile????????????

Ciao a tutti,
ho fatto un programmino semplicissimo che periodicamente mi controlla se
sono connesso oppure  no attraverso una chiamata API:
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef
lpdwFlags As Long, ByVal dwReserved As Long) As Boolean
Public Tiavviso As Boolean
Public ret, stato As Boolean
ogni tot secondi esegue:
ret = InternetGetConnectedState(flag, 0)
    If ret = stato Then
        ' non e' cambiato
    Else
        ' e' cambiato
        stato = ret
            If ret = True Then
                If Tiavviso = True Then MsgBox "Ora sei connesso...",
vbExclamation, "ATTENZIONE!!!"
                Frm_Controlla.Caption = "Connesso"
                Me.Icon = IMG(1).Picture
                Img_Nonconnesso.Visible = False
                IMG_Connesso.Visible = True
            Else
                If Tiavviso = True Then MsgBox "Non sei connesso...",
vbExclamation, "ATTENZIONE!!!"
                Frm_Controlla.Caption = "Disconnesso"
                Me.Icon = IMG(0).Picture
                Img_Nonconnesso.Visible = True
                IMG_Connesso.Visible = False
            End If
    End If
da VB funziona... se lo compilo invece si accorge del cambiamento di stato
(connesso/disconnesso) ma mi dice che  sono sempre disconnesso....
Come e' possibile???
grazie e ciao...
Marco



Imposta la variabile "flag" a 0
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: Picture ridimensionabile

Salve a tutti.
Avrei necessita' di inserire nel mio prg un controllo picture o image che
sia ridimensionabile nel senso che l'immagine che carico nel controllo
dovrebbe adattarsi alla grandezza del controllo stesso (tipo, per esempio,
publisher), e quindi se lo ingrandisco o lo rimpicciolisco l'immagine
dovrebbe seguire la dimensione, ma non riesco ad ottenere l'effetto
desiderato, anche settando la proprieta' autoredraw = true.
Dipende dai controlli o dal tipo di immagine che deve essere caricata ? ( ho
fatto la prova sia con jpg che bmp).
Grazie.

Risolto ( grazie a google ). Grazie lo stesso.
Newsgroup: it.comp.lang.visual-basic
Titolo: Grafica...

Avrei bisogno d'ottenere la matrice dei byte 
formanti un immagine presente in una PictureBox
e caricata con la primitiva LoadPicture(...).
Qualcuno sa se e' possibile senza usare OCX/VBX
aggiuntivi?
Grazie
(pregasi rispondere anche via e-mail)
 *****************************
*      Roberto Colmegna       *
 * 
roberto....@login.it
 *
  ***************************


Potresti utilizzare la funzione Point (x,y) per ottenere tutti i punti
in formato RGB, oppure se si tratta di un bitmap BMP, aprire e
caricare direttamente il file (la struttura dei bitmap è descritta
nell'SDK).
Ciao
REMO FRANCESCHELLI - ITIAV 4a Info.
http://www.geocities.com/SiliconValley/Lakes/7668
(Programmazione in Pascal)
** Concentrazione = Forza **

Newsgroup: it.comp.lang.visual-basic
Titolo: Nuovo sito (prova a leggere)

Nel mio nuovo sito potete trovare degli esempi di codice sull' uso delle
API, OCX freeware, ecc. Fra qualche giorno sarà disponibile anche l'opzione
per scaricare tutte le pagine HTML, compresi sorgenti, in formato ZIP, con
un solo click.
Alcuni esempi sono:
Come creare finestre non rettangolari, ma elittiche e di altre forme
Trovare le directory speciali di Windows
Leggere il numero seriale, la label, il tipo di FAT ed il codice di un HD
Colorare lo sfondo di una finestra come lo sfondo di Windows
Colorare lo sfondo di una finestra come nelle installazioni Microsoft©
Creare file *.lnk
Rimuovere close dal menù di sistema
Mettere l'icona di un prg nella system-tray
Registrare un'OCX con codice VB5
Modificare la caption a tutte le finestre presenti nello schermo
Posizionare una finestra in primo piano anche quando non è selezionata
etc. etc.
Tanti esempi trattano problemi che vengono continuamente riproposti in
questo news-group.
P.S: Ricordo che l'ho appena creato e non è completo al 100%, ma è ancora in
fase di progettazione.

Nel mio nuovo sito potete trovare degli esempi di codice sull' uso delle
.


BELLISSIMO!!! Ma dov'e'?
ciao
gelty
--
*******************************************
* Poi capii, anche prima che quelli   *
* vicino al finestrone cominciassero *
* a gridare e a indicare.                    *
* La nebbia stava arrivando.            *
*******************************************

Chiedo scusa per la piccola dimenticanza
L' indirizzo +AOg-:
http://members.tripod.com/+AH4-GiaZack/index.htm
Comunque ho riguardato il messaggio che avevo inviato e mi sono accorto che
Outlook me lo ha tagliato proprio nel punto in cui ho inserito l'indirizzo,
ovvero in fondo.
Chiedo nuovamente scusa.
Ciao e fatemi sapere
Gianni
Newsgroup: it.comp.lang.visual-basic
Titolo: Copiare un menu da un programma all'altro

Spesso faccio programmi con una serie di menu praticamente identici. C'e' un
modo per copiare le varie voci da un programma all'altro???
Grazie e ciao...
Marco

 wrote in message
7m1res$qqm$1...@diesel.cu.mi.it...


 
Altrimenti i menu possono essere copiati da un form ad un altro usando
un normale editor di testo per modificare il file .frm
Ciao Marco

modo per copiare le varie voci da un programma all'altro???
  Aprire le due form con Notepad e copiare il menu da una all'altra,
ovviamente con la dovuta cautela e facendo un backup prima
dell'operazione. :-)
  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"

Grazie, i vostri consigli mi sono stati utilissimi.....
Marco

Newsgroup: it.comp.lang.visual-basic
Titolo: uso metodo scale

Buondì,
programmo in vb6. Ho un form che vorrei ridimensionare a runtime al
caricamento (e questo lo faccio senza problemi) e cambiarne la
direzione delle coordinate verticali, in modo da avere coordinate
crescenti dal basso all'alto per gli oggetti contenuti nel form (uso
il metodo scale).
Vorrei avere in sostanza l'origine delle coordinate nell'angolo in
basso a sinistra del form.
Il problema è che dopo l'uso della funzione scale le coordinate degli
oggetti contenuti nel form vengono cambiate.
Il mio obiettivo è fare in modo che gli oggetti contenuti nel form
dopo le operazioni che ho descritto, abbiano le proprietà top e left
che prendano come origine l'angolo in basso a sinistra del form.
Qualcuno mi sa dare una indicazione?
G

 G
Non occorre usare la funzione Scale, ma basta settare opportunamente 
ScaleTop e ScaleHeight del form:
' Imposta la coordinata in alto a sx pari all'altezza dell'area visibile
Form.ScaleTop = Form.ScaleHeight
' Imposta la direzione dell'asse Y dal basso verso l'alto
Form.ScaleHeight = -Form.ScaleHeight
Bye
Raf 

 - Mostra testo citato -
Grazie Raf,
risposta semplice e corretta.
Le istruzioni danno esattamente il risultato che volevo.
Ga
Newsgroup: it.comp.lang.visual-basic
Titolo: Directory

C'è un modo per determinare la dimensione in byte di una directory?

 ha scritto nel messaggio
news:972bep$ul5$1...@nreadB.inwind.it...



Non so se ho capito la tua richiesta.
Se vuoi sapere lo spazio disponibile su disco utilizza la API
----------------------------------------------------------------------------
----------------------------------------------------------------------------
----------
Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias
"GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As
Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long,
lpTtoalNumberOfClusters As Long) As Long
Private Sub Form_Load()
    Dim Sectors as Long,Bytes as Long,FreeC as Long, TotalC as Long,Total as
Long,Freeb as Long
    GetDiskFreeSpace "C:\", Sectors, Bytes, Freec, Totalc
    'Set graphic mode to persistent
    Me.AutoRedraw = True
    'Print the information to the form
    Me.Print " Path: C:\"
    Me.Print " Sectors per Cluster:" + Str$(Sector)
    Me.Print " Bytes per sector:" + Str$(Bytes)
    Me.Print " Number Of Free Clusters:" + Str$(Freec)
    Me.Print " Total Number Of Clusters:" + Str$(Totalc)
    Total = rTotalc& * rSector& * rBytes&
    Me.Print " Total number of bytes in path:" + Str$(Total)
    Freeb = rFreec& * rSector& * rBytes&
    Me.Print " Free bytes:" + Str$(Freeb)
End sub
----------------------------------------------------------------------------
----------------------------------------------------------------------------
----------
ripresa direttamente da API-Guide
Se invece vuoi conoscere lo spazio occupato dai file in una directory
----------------------------------------------------------------------------
--------------------------------------------------------------------
Private Sub Form_Load()
    Dim Current_Dir As String, Cdir As String, Occupato As Long
    Cdir = CurDir
    Current_Dir = Nome_Cartella
    Occupato = DirSpace(Current_Dir)
    ChDir CurDir
    Me.Visible = True
    Label1.Caption = "Spazio occupato su " & Current_Dir & ": " &
Format(Occupato, "###,###,###,###")
End Sub
Function DirSpace(Current_Dir As String) As Long
    Dim Nome_File As String, Spazio_Occupato As Long
    ChDir Current_Dir
    Nome_File = Dir$("*.*", vbReadOnly + vbHidden + vbSystem + vbVolume)
    Do While Len(Nome_File) <> 0
        Spazio_Occupato = Spazio_Occupato + FileLen(Nome_File)
        Nome_File = Dir$(, vbReadOnly + vbHidden + vbSystem + vbVolume)
    Loop
    DirSpace = Spazio_Occupato
End Function
----------------------------------------------------------------------------
--------------------------------------------------------------------
Ciao
Sergio

 ha scritto nel messaggio
news:972mao$6q6$1...@nreadB.inwind.it...


 >
 Sub ShowFolderInfo(NomeDir as string)
gli passi correttamente il nome della cartella come stringa?
Ciao
Basty