mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: VB.NET resize

Ho un form resizable che contiene un Panel (ancorato ovunque)
In questo panel genero dinamicamente 7X7 panel con dimensioni
proporzionate alla dimensione del form.
Vorrei poi cambiare width e Heitgh di questi panel sia
1) quando l utente resize il form a mano
2) sia quando cambia il windowstate.
Quali sono gli eventi form da utilizzare ?
grazie


In teoria nessuno: dipende da come vuoi sistemare i panel figli, ma se
quando li crei dinamicamente imposti la property Anchor correttamente,
dovrebbero sistemarsi "aggratis".
Se non e' adatto al tuo caso, puoi guardare l'evento Resize del panel
principale


l'anchor non mi sembra adatto nel mio caso...
mmh forse il resize del panel principale....

 wrote:

L'evento resize può andare... ma mi viene scatenato prima del FormLoad
(!) e non mi va bene dato che imposto delle variabili che poi regolano
la visualizzazione dei pannelli.
Qualce evento potrei usare per impostare le mie variabili?

Newsgroup: it.comp.lang.visual-basic
Titolo: Esistono le FAQ su questo NG?

Dove trovo le FAQ di questo NG e se esistono, posso riportare il
contenuto delle stesse sul mio sito (
http://SourceNet.freeweb.org
).
Eventualmente il proprietario delle FAQ puo' contattarmi per dirmi se
posso o meno copiare il contenuto delle FAQ?
Grazie in anticipo.
Bye.

 ha scritto nel messaggio
news:3954d68d...@news.libero.it...


posso o meno copiare il contenuto delle FAQ?
Le trovi sul sito comune
http://www.murialdo.it:8000/it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: 3 questioni

1)  Ho bisogno di sapere quanto spazio ho su un'unità disco.........
     Ho provato con l'api GETDISKFREESPACE, ma arriva massimo a 2 GB circa!
2)  Vorrei far aprire la finestra per la scrittura di un'e-mail cliccando su
una label che contiene l'indirizzo......come?
3)  Come avvio ESPLORA RISORSE da un file VB ?
Grazie.
_________
Please remove "NOSPAM" from my address in your reply.

3)  Come avvio ESPLORA RISORSE da un file VB ?
aaa = Shell("explorer.exe")
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

     Ho provato con l'api GETDISKFREESPACE, ma arriva massimo a 2 GB circa!
Per volumi maggiori di 2 Gb occorre usare questa API:
GetDiskFreeSpaceEx
Attenzione però... questa API è disponibile a partire da Win95 OSR2,
 quindi se il programma che ne fa uso è destinato anche a sistemi
Win95 Retail (la prima versione insomma) occorre creare una
 struttura di controllo che chiami GETDISKFREESPACEEX in caso
che sia trovato Win95 OSR2 o sup, oppure GETDISKFREESPACE
nel caso di Win95 Retail.
Buon lavoro ! ^___^
Zeross

3)  Come avvio ESPLORA RISORSE da un file VB ?
Vedi Shell nell'help di VB
--
Roal Zanazzi
z...@iol.it

 wrote in message
[...]

Newsgroup: it.comp.lang.visual-basic
Titolo: SSCommand ???

Tempo fa ho programmato in vb...ora realizzando un progettino con vb6.
Mi ricordo che un tempo usai gli SScommand, ma ora non riesco a trovare 
il controllo che mi permette utilizzarli...esistono ancora ???
Qualcuno mi può dare una mano ???
..alla prossima...

Daytan wrote:

Stiamo parlando di controlli provenienti da VB3 :)
Comunque, se la memoria non vacilla, l'SSCommand era implementanto nel 
componente threed.ocx
Dovrebbe trovarsi (non ho qui con me il CD di VS 6) in qualche directory 
sperduta del 2 o 3 CD.
Magari, con una ricerca su google, lo trovi...
Ciao!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

ok..allora per ora proverò a farne a meno...poi vedo se riesco a
trovare Treed.ocx...
...in un CommandButton è possibile cambiare il colore della Caption
???
...e i pannelli non esistono più ??? ...esiste qualche componente che
li implementi ???
ciao

 ciao
-- 


 li implementi ???
What's "pannelli" ???
Intendi forse i Frame?


...forse mi confondo con visual dbase...mi sembra che esistessero dei
controlli chiamati Panel e il relativo SSPanel...ma forse mi
confondo...cmq grazie proverò a vedere sui link che mi hai dato.

 Intendi forse i Frame?
imho, i tab, tipo sstab = tabctl32.ocx.
ciao, a.

 ha scritto nel messaggio
news:200505051...@mynewsgate.net...


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

Saluti a tutti, ho da porvi i seguenti quesiti :
1) Dove trovo oggetti diversi (tipo pulsanti, text box,...) dagli
standard di VB4 ??? Si possono acquistare ???  Esiste un catalogo ???
2) In VB4 vengono distribuiti oggetti della Sheridan, come ad esempio
gli SSpanel. Posso distribuirli liberamente all'interno dei miei
programmi oppure ho bisogno di particolari licenze ???
3) Uso VB4 perchč alcuni clienti non hanno ancora Windows 95, devo
continuare cosě oppure VB5 mi permette di creare applicazioni a 16 bit
???
4) Lavorando con impostazioni particolari (Caratteri grandi al posto dei
piccoli standard), e distribuendo i programmi a clienti con PC con
impostazioni standard, le Form si ridimensionano, ma le posizioni degli
oggetti non si spostano di conseguenza, o meglio, non si spostano
mantenendo le stesse posizioni che avevano rispetto allo sfondo della
form. Come posso risolvere tale problema ???
5) Come posso far si che i miei programmi riconoscano le impostazioni
dello schermo del computer in cui sono installate ??? (usando le API
???)
Grazie in anticipo
Andrea
--
Posted from 
mta03-acc.tin.it
 [212.216.176.34]
via Mailgate.ORG Server - 
http://www.mailgate.org

???)
Quali impostazioni ti servono?
Se ti serve solo la risoluzione (larghezza e altezza in pixels), li trovi
nell'oggetto Screen (cedi help in linea).
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Loading form2 from form1???? any help??? **************************************

HI,
I'm using VB5 CCE (if that means anything to you)...
Basically I'm just teaching this my self at the moment, I'm doing Turbo
Pascal in college and will be doing C++ and COLBO next year...
But I also want to learn VB... Basically I have one form (form1) and a
command button on it, I want it so when you click on the command button
Form2 opens???
Any help on the code for this...
I tryed things like
sub privert command1_click ()
if command1 = true then
load form 2 (that didn't work so I tryed open, and about a dozen other
things)
end if
end sub
Thanks for any help!!! :)
Mike!

 HI, > I'm using VB5 CCE (if that means anything to you)...
yes it does


sub private command1_click ()
form2.show
end sub
P.

 wrote


...


Newsgroup: it.comp.lang.visual-basic
Titolo: Modem in uso??

Vorrei rilevare se una qualche applicazione sta utilizzando il modem, come
posso fare???
GRAZIE

 wrote in message
85o8dj$6ct$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [NG] Persino nella kb...

"How to ask a question"
http://support.microsoft.com/kb/555375
ROTFL
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

 
http://support.microsoft.com/kb/555375
ottimo, link da usare a raffica qui dentro ;-)
-- 
ciao, hal

hal1961 wrote:

Ne è stata chiesta la traduzione in ITALIANO.
Sfortunatamente, non se ne parla prima di settembre...
Comunque, se già non fosse presente sul Sito Comune, qualcuno potrebbe 
partire da questa "Guida" 
http://www.bellavite.com/mvp/
 adattandola a 
questo ng e pubblicandola appunto sul Sito Comune.
Il Manifesto, secondo me, viene ignorato alla grande...
Ciao!



...molto ganzo il riferimento al "decent search engine", e subito dopo al
"and/or search our archives before posting".....
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Il Manifesto, secondo me, viene ignorato alla grande...
.. e quindi è giusto fornire un altro articolo da ignorare bellamente ;-)
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ;-)
Beh, magari si pò utilizzare in risposta a domande che non hanno né capo, 
né coda...
Del resto, sempre un documento della kb è.. ;)
Ciao


hal1961 wrote:

La prima release di quel documento conteneva anche:
"Another symptom of this error is getting the following answer:"
          "RTFM"
          "STFW"
          "Google is your best friend"
Probabilmente, in MS, hanno deciso di "addolcirla" ;)
(
http://blogs.msdn.com/david.wang/archive/2005/07/22/Original_KB555372.aspx
 
per il testo originale ed integro della prima release)

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] ToolStripButton

Ciao a tutti,
in un form ho un ToolStrip e a runtime creo una serie di
ToolStripButton.
Ho anche scritto una funzione che riceve in ingresso un parametro
stringa.
Come faccio ad associare ad ogni ToolStripButton questa funzione che
deve essere eseguita al click passandogli come parametro il testo del
pulsante?
Spero di essere stato chiaro
Grazie


Dai un'occhiata sulla guida alle istruzioni AddHandler e RemoveHandler
Dovrai probabilmente rivedere leggermente la tua funzione, dato che il
prototipo dell'evento "Click" passa già come parametro l'intero
controllo (da cui puoi ricavare il testo del pulsante o quello che
vuoi)


Ti ringrazio
grazie a te in un attimo ho risolto.

Newsgroup: it.comp.lang.visual-basic
Titolo: Query Semplice ma sbagliata

Salve,
Scusatemi Ancora ,
Premesso che :
DataAnagrafica è un DataControl
Anagrafica è una tabella
query = "select anagrafica.*  from anagrafica where anagarfica.codice='100'
"
datanagrafica.RecordSource = query
datanagrafica.Refresh
SONO O NON SONO NEGATO IN SQL ?
GRAZIE

 wrote:
query = "select * from anagrafica where codice='100'"
datanagrafica.RecordSource = query
datanagrafica.Refresh
sempre che codice sia string e non integer
anagar fica.codice !!!
spero che sia un errore dovuto alla distrazione

 ha scritto nel messaggio
news:39dc5d16...@news.interbusiness.it...





 > SONO O NON SONO NEGATO IN SQL ?
non e' mai detta l'ultima... riprova :)


quale campo?
ciao,
alessandro?


 alessandro?
cioe', sei tu o non sei tu ? :)

 wrote in message
news:8rkb9o$i49kj$1...@ID-51318.news.cis.dfn.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Finestra con bordo senza barra del titolo

E' possibile creare una finestra non ridimensionabile, senza barra del
titolo ma che abbia un bordo?
Grazie.
Skyrurfer

Vedi le proprieta' "controlbox" e "BorderStyle" della form.
	Lore.


titolo ma che abbia un bordo?
Piazza tutto in un modulo bas...
Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal
nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal
nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As RECT, ByVal
hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Const GWL_STYLE = (-16)
Public Const WS_CAPTION = &HC00000
Public Const WS_DLGFRAME = &H400000
Public Const RDW_INVALIDATE = &H1
Public Function TogliCaption(Handle As Long) As Long
    Dim Res As Long
    Dim A As RECT
    Res = GetWindowLong(Handle, GWL_STYLE)
    TogliCaption = Res
    SetWindowLong Handle, GWL_STYLE, Res - WS_CAPTION '+ WS_DLGFRAME
    RedrawWindow Handle, A, ByVal 0&, RDW_INVALIDATE
    DrawMenuBar Handle
End Function
Poi basta che chiami la funzione TogliCaption passandogli come parametro l'handle della form.
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: Decompilatori

Esistono dei decompilatori per VB ?
Ho un programma (il sorgente l'ho perso ...) in VB3 da recuperare.
Grazie !
Roberto

Per VB 3 penso di sě. Ci vorrebbe lo Zio Pal con qualche suo link... ;)
Ora, prima che tutto il NG ti salti alla gola ;) ti dico che se cerchi
decompilatori per VB5 o 6 (non ricordo se addirittura il 4) non esistono.
Cioč, esistono disassemblatori che perň, per un 3 righe VB, ti restituiscono
diciamo un qualche migliaio di righe assembly...
CiaoZ
SebaMix

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Derivazione

Un saluto a tutto l'NG, vengo subito al sodo:
Dovrei creare due classi: Dirigente e Impiegato.
Questre due classi hanno in comune i seguenti attributi: Nome, Cognome, e
CodiceFiscale.
Ora la classe Impiegato ha in piu' il settore dove lavora, mentre il
dirigente ha in piu' l'area di lavoro.
Ora vorrei fare una classe Lavoratore cha abbia gli attributi delle due in
comune, successivamente vorrei derivare da questa la classe Dirigente ed
Impiegato con gli attributi in piu'.
Vorrei sapere come si puo' fare la derivazione in VB ?
Grazie anticipatamente per la risposta

 ha scritto nel messaggio
news:943ull$c8...@news.edisons.net...


 wrote in message
news:943vtk$kle$1...@stargate1.inet.it...


Puoi creare un'istanza dell'oggetto base all'interno del nuovo oggetto.
I metodi e le proprieta' del nuovo oggetto leggeranno e imposteranno l
metodi e le proprieta' dell'oggetto base.
Non e' bello, ma funziona e non c'e' altra possibilita'
Salve
                Dbg
Sebastiano Pallaro ha scritto nel messaggio


Newsgroup: it.comp.lang.visual-basic
Titolo: HELP: Dimensione della pagina di stampa FISSA ???

Grazie per l'aiuto (anticipatamente).
Il problema è quello di stampare etichette e fare in modo che non ci sia un 
form feed dopo enddoc (cosa impossibile secondo il Knowledge base).
Avendo un nastro di etichette, e stampandone una sola, si ha il salto di 
pagina sia con una ink jet ( e mi pare normale) sia con una vecchia epson 
lx-00 ad aghi ( meno normale).
Allora avrei pensato di cambiare la dimensione della pagina 
fisica(printer.eight = xxx in decimi di millimetro), ma fa come se niente 
fosse. Non  ci sono riuscito neanche con GDI ...
Che rimane da fare? (oltre che spaccare tutto).
Ciao



Ho postato un messaggio con il subject :
"[?] Stampa etichette senza .NewPage"
potresti leggerlo e se hai qualche idea
rispondermi ?
Grazie,   fabrizio.

Ma se dai come impostazioni del formato della pagina della stampante la
dimensione di una sola etichetta non funziona? Non con printer.Height, ma
direttamente nelle proprietà della stampante (non è la stessa cosa).
Se no, penso ci sia una sola cosa da fare...
Probabilmente la stampante che usi ha un comando (interno) per ottenere il lo
svuotamento del buffer corrente, cioè la stampa di ciò che è in memoria.
E' quello che fa l'EndDoc, ma se usi il comando diretto della stampante potrebbe
anche darsi che non effettui un FormFeed; sempre che nei comandi della stampante
(nel suo firmware quindi) sia presente un tale comando.
Quindi il problema si potrebbe risolvere utilizzando il comando (interno) della
stampante che svuota il buffer e lo stampa.
Certo è che poi il tuo programma funzionerebbe solo con quella specifica
stampante...
--
GbC
Newsgroup: it.comp.lang.visual-basic
Titolo: come usare CommonDialog per scrivere in una textbox

Ho bisogno di scrivere il percorso di un file selezionato con il
comando CommonDialog1.ShowOpen in un text box...
Qualc1 mi sa aiutare?

 Qualc1 mi sa aiutare?
una volta scelto il nome del file con il common dialog APRI , il percorso e'
memorizzato nella proprieta'  " Filename "
a questo punto ecco un esempio senza gestione degli errori :
'form vuota con oggetto common e 1 textbox
Private Sub Form_Load()
    CommonDialog1.ShowOpen
    Text1.Text = CommonDialog1.FileName
End Sub

GRAZIE
e se volessi lanciare l'aplicazione che ho nella textbox?
e poi chiuderla (cosa + importante)...


 e poi chiuderla (cosa + importante)...
1) per capire "alla grezza" se e' una applicazione dovresti leggere le
ultime 4 lettere da destra  ".exe" ".com" ecc...
ora una volta lette con  right$()
esempio : msgbox right("edcba",3)
non ti resta che usare il comando "shell execute"
cmq poi per chiuderlo dovresti conoscere l'handle della finestra o il suo
titolo , poi con
SENDKEYS(codice) lo chiudi
cerca in msdn premendo f1 , se non lo hai dovresti trovare info sulle
funzioni su google o ancora meglio sul sito microsoft-msdn
Newsgroup: it.comp.lang.visual-basic
Titolo: ADO & TDBGrid

E' gia la seconda volta che porgo questa domanda.
Come faccio a configurare una TDBGrid con connessione ADO?
Vi prego aiutatemi ne ho assolutamente bisogno.
FormW@re Corp.

Crei un recordeset ADO e lo associ al DataSource della griglia. Per esempio:
    dim rs as new adodb.recordset
    set rs=db.execute("stringa SQL...")
    set TDBGrid1.DataSource=rs
   Se invece usi un datacontrol, quest'ultimo dovrebbe avere una proprietà
RecordSet (non ricordo bene!)...
Se stai parlando della griglia della ComponentONE devi settare anche la
proprietà .DataMode su Bound...
Spero che tu intendessi questo per "configurarla"... Semmai dimmi dove hai
dubbi che provo a darti una mano...
CiaoZ (c)(r)
SebaMix
--
------------------ - -  -   -    -     -      -
Sito Comune del newsgroup it.comp.lang.visual-basic
http://www.murialdo.it/it_lang_vb
------------------ - -  -   -    -     -      -
Rimuovete NOSPAM dall'indirizzo per scrivermi...
Remove NOSPAM from address to write me...
------------------ - -  -   -    -     -      -

Le tue informazioni sono state valide.
Mi servirebbe adesso capire come impostare le varie colonne in base alla mia
stringa SQL. ti spiego.
Questo èquello che ho scritto al momento come codice.
Set cmdAdoDBase.ActiveConnection = cnnDBase
cmdAdoDBase.CommandText = "SELECT LIBRI.Settore FROM LIBRI"
rsDBase.Open cmdAdoDBase, , adOpenStatic, adLockPessimistic
rsDBase.MoveFirst
Set TDBGrid1.DataSource = rsDBase
Adesso gli devo dire che tutti i dati del recordset li deve visualizzare
nella prima colonna.
Grazie

 ha scritto nel messaggio
news:u3%t6.62154$yl2.5...@news1.tin.it...

Intendi dire che non ti fa vedere nulla?
In teoria dovrebbe già farteli vedere...
Tu nella SLECT selezioni 1 campo. Quando assegli il RecordSet alla griglia
dovrebbe farti vedere i dati che hai selezionato...
Prova questo codice...
Set rsDBase = cnnDBase.Execute ("SELECT LIBRI.Settore FROM LIBRI")
rsDBase.MoveFirst
Set TDBGrid1.DataSource = rsDBase
Il recordset è in sola lettura ma almeno vedi se ti visualizza qualcosa...
Se ti spieghi meglio ti aiuto di + ;) !
CiaoZ
SebaMix


Con il codice che io ti ho fatto vedere mi comparivano 14 rughe (ho 14
record nella mia tab) ma non compariva nullo di scritto.
Con il codice che mi hai passato tu non ho provato ancora.
Ti faccio sapere al + presto.
Ciao
FormW@re

 Con il codice che mi hai passato non accade nulla
 Ciao
 FormW@re

 ha scritto nel messaggio
news:uh4u6.6132$lT1.1...@news2.tin.it...


Sebamix 6 un grande!!!!!!
Grazie adesso funziona tutto
Grazie ancora hai salvato la vita ad un programmatore
FormW@re

Però ricorda che con DB.EXECUTE  temo che il record set sia in sola lettura.
Prova questo invece di DB.EXECUTE :
RStemp.Open "SELECT * FROM ...", db, adOpenDynamic, adLockOptimistic
adesso se vedi hai varie proprietà interessanti (vari move, addnew,
update...) un po come il datacontrol...
CiaoZ
SebaMix
... che è andato avanti mesi a studiarsi la TDBGrid (e ancora non la conosce
bene ;) ... e da volentieri una mano! ;)

Newsgroup: it.comp.lang.visual-basic
Titolo: Rimuovere i codici HTML

Salve, premetto che uso W98 con VB 5.0.
In una rich text ho un file html, mi piacerebbe rimuovere i codici html.
Esiste qualcosa di piu' pratico e funzionale della ricerca e rimozione di
<qualcosa> ?
Bye Fabrizio

So farlo da Internet Explorer con VBScript, se ti interessa (e se ho capito
bene: per caso vuoi trasformare un file HTML in un normalissimo plain text?).


 yes e' esattamente quello che vorrei fare, ma lo vorrei fare da VB.


un sistema empirico, ma funziona, e' togliere tutto quello che segue
un < e precede un >
Attenzione ai ritorno a capo che potrebbero falsare il risultato.
Ti chiedo un favore: anche io ho la tua configurazione, ma non riesco
a passar eil contenuto di una pagina web dentro una rich text o una
text. Mi risponde object se cerco di farlo (objexplorer.document) e
non so come farlo diventare un testo.
mi potresti aiutare ? se possibile via email non seguo molto i 
newsgroup
grazie 
ius...@iusseek.com

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Cancellare un campo in un db SQL

Qualcuno sa come si fa a cancellare (da codice) un campo da una tabella di
un database SQL 6.5?
il comando SQL
ALTER TABLE MiaTabella DROP MioField
non funziona...
L'unico sistema che ho trovato č creare una nuova tabella, creare tutti i
campi (tranne quello da cancellare), riempire la tabella, cancellare quella
vecchia e rinominare quella nuova...........mi sembra veramnete un po'
troppo macchinoso.
Qualcuno ha qualche idea migliore?
Grazie in anticipo

alter table miatabella DROP COLUMN nomecolonna

Newsgroup: it.comp.lang.visual-basic
Titolo: FlexGrid e ADO

E' possibile in qualche modo associare un Recordset
aperto con connessione ADO ad una Flexgrid?
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057

 aperto con connessione ADO ad una Flexgrid?
Riposto!
Come si fa?

Newsgroup: it.comp.lang.visual-basic
Titolo: CreateThread

Vorrei avere qualche esempio su questa API.
Grazie
--
----------------------------------------------------------------------------
---------
Quando il gioco si fa duro, i duri resettano il sistema
m...@tuttocitta.it

...


Ti consiglio di leggerti l'articolo 'A thread to Visual Basic' che trovi sul
sito 
www.desaware.com
 nella sezione articles articolo,riguardo ai problemi
che CreateThread puó creare.

 
Ma perche queste BELLE cosucce non le invii anche al webmaster del sito comune?  :-))
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
 
(con OCX per stampare i Recordset)
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

Ma perche queste BELLE cosucce non le invii anche al webmaster del sito
comune?  :-))
Perché sono un imperdonabile pigro, e in questo periodo sono anche molto
occupato (ve ne sarete accorti perchè sono quasi sparito dal NG). Però dammi
solo poche ore di tempo e spedisco un po' di cose.
Ciao,
Domenico

...


 di VB, ma solo compilate.
  Ho trovato molto interessante ciň che hai scritto; in particolare ho usato
un thread per eseguire una routine molto onerosa in termini di codice e
tempo; come risultato la routine eseguita in un thread si č rivelata 3 volte
piů veloce della precedente.
  Il problema č che quando chiudo il programma (sia compilato che eseguito
dall'IDE) se ne esce con un errore irreversibile... non č che per caso ci
voglia anche un'istruzione di TerminateThread o simili, oppure che abbia
bisogno di aumentare lo spazio di stack (secondo parametro nella chiamata a
CreataThread) o heap o qualcos'altro? Ricordo ancora una volta che la
routine richiama altre subroutine, alcune delle quali metodi di oggetti
istanziati al momento, e che usa molte variabili ed array, alcuni
ridimensionati con ReDim.
Alessio.

dall'IDE) se ne esce con un errore irreversibile... non è che per caso ci


 postato in VB6, per vedere se funziona anche nell'IDE?
A me il tuo esempio funziona tranquillamente dall'IDE... in VB5!!!
Ciao, Alessio.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Ado e access 2000

Ho vb6sp3 e devo inserire un record in una tabella
io non  usavo adodc ma il riferimento alla library ms ado 2.0 e tutto
funzionava...
ma poi ho convertito il db in access2000 e via coi casino...
io avrei messo il riferimento alla library ado 2.1 ma il programma continua
a darmi errori della query di "insert into"
qui di seguito riporto il testo della query incriminata:
insert into t_righeOperaz
(key,codope,codart,prog,codoperazione,datain,datafin,minuti,datareg) values
("1","0000000001","00001","00001","0000000001",#01/01/00 14.30.00#,#01/01/00
15.00.00#,30,#18/09/00#)
--
L'Inossidabile Kevlar
"non serve conoscere la Correspondence per ampliare i propri orizzonti (perņ
aiuta ^___^)"
Proud to be a IHGGer 975

ciao per overe la compatibilità tra vb6/access2000 devi installare il sp4 di
vb6
io ho un altro prob non riesco in vb ad visualizzare il risultato di una
query
in un text
Kevlar <NonCred...@NOSPAM.it> wrote in message
8q4lts$dlm$1...@fe2.cs.interbusiness.it...

(però



@Scusate ma cos'è sp4? E dove lo trovo?
Grazie.
Newsgroup: it.comp.lang.visual-basic
Titolo: Errore con elevamento a potenza

..ok, mi arrendo!
dim d1 as double
dim d2 as double
dim d3 as double
d1 = -1.1
d2 = -1.1
d3 = d1 ^ d2 ' Perche' mi da' errore? E soprattutto, perche' l'errore
segnalato e' 'Invalid procedure call or argument'?
d3 = -1.1 ^ (-1.1) ' Perche' invece questa funziona?
Bye by SixaM 8-]
P.S. Sembra che nel primo caso gli dia fastidio che d1 sia < 0 ...

 wrote:
P.P.S. Dalle specifiche Microsoft, leggo (
http://msdn.microsoft.com/it-
it/library/zh100ckf%28v=VS.71%29.aspx) che
1) l'elevamento a potenza e' definito x i double (se gli passo un tipo
diverso, mi fa un casting sottobanco)
2) la base puo' essere negativa solo se l'esponente e' un numero
intero (-1^3 Ok, -1^3.2 Ko).
Cio' spiega xche' il primo esempio del mio post originale vada in
errore (anche se non ho capito il senso del messaggio di errore...),
ma allora x quale strac#@@o di motivo non mi da' errore anche nel
secondo caso?
ri-Bye by SixaM 8-]

 d3 = -1.1 ^ (-1.1) ' Perche' invece questa funziona?
Perché non è la stessa operazione di prima, sbagli i segni. Prova d3 = 
(-1.1) ^ (-1.1)
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Scarica "OpenOffice.org 3.0 Soluzioni a raccolta", molto più di semplici 
FAQ! 
http://it.openoffice.org/doc/manuali/


ehm...mi sa che ci hai ragione, il <meno> all'inizio, se non metto le
parentesi, ha precedenza piu' bassa tra gli operatori, quindi
interviene solo 'a conti fatti' (e quindi la base e' positiva). Quindi
e' giusto che vada in errore.
Mi sfugge pero' ancora il senso dell'errore buttato fuori...
Bye by SixaM 8-]

 Mi sfugge pero' ancora il senso dell'errore buttato fuori...
Beh, ti dice che c'è un argomento non valido. Se l'elevamento a potenza 
non permette esponenti frazionari su base negativa, l'errore mi sembra 
coerente.
.NET non dà errore in fase di compilazione, ma poi ritorna NaN (Not a 
Number) come risultato, che va gestito in modo adeguato. Esempio:
Dim d As Double = (-1) ^ (3.2)
If Double.IsNaN(d) Then MessageBox.Show("Il risultato non è un numero 
reale")

Newsgroup: it.comp.lang.visual-basic
Titolo: VB e Word

Ciao, mi stavo domandando se da un programma VB č possibile passare dei
dati a Word. Ad esempio.. raccolgo da un database dei record (ad esempio
dei dati anagrafici) e ne passo il contenuto, come testo, a Word.
Si puo' fare una cosa simile?
Come??
Se si tratta di usare le OLE, vi prego si spiegarmi almeno qualcosina..
perche' al riguardo non conosco nulla (mai usate)! :-)
Per i miei due precedenti msgs su VB e le celle di Excel non ne sapete
nulla, vero???
-- 
Ciao da MioMao!
---------------------------------------------------
+++++  Visita la mia CasaPagina! +++++
++++ 
http://www.digibank.it/miomao
 ++++
---------------------------------------------------
Ed ora: anche io!!!!!!! Socio GAEM!!!!!!!!!!
http://www.freeweb.org/associazioni/gaem

Ciao, mi stavo domandando se da un programma VB è possibile passare dei


 ciao spero di averti aiutato
Beh, io ti ringrazio moltissimo!
Le tue informazioni sono (per me) certo preziose. Diciamo che mi hai
"attizzato" la voglia di provare.. solo che parto da zero e sono certo che
perdero' un casino di tempo su cose che, poi, si riveleranno semplicissime!
Grazie! :-)


---------------------------------------------------


Newsgroup: it.comp.lang.visual-basic
Titolo: file Log

oer scrivere un file log con tutto quello che esegue un exe ?
grazie mille ciao Stefano



si, se ci metti dentro all'eseguibile una funzione che logga quello
che fa.
Ciao
Aran

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

Buonasera a tutti, ho un problema con il mio programmino.
In pratica sul form ho una textbox e un command
Il command ha la funzione di aggiungere il simbolo +
il codice è:
text1.text=text1.text & "+"
text1.setfocus
Allora io se scrivo nella text per esempio la parola: 
ciao
e poi clicco il command, ovviamente fa ciao+
pero' se dopo io scrivo altro per esempio la parola bello
mica fa ciao+bello, ma esce cosi bellociao+, perche' il focus ritorna
all'inizio della text, pero' io voglio che il focus parti dal +, ovvero
dall'ultimo carattere immesso nellla textbox
Aiutatemiiiiiiiiiiiiii vi prego. Grazie
buona serata
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 buona serata
Vedi la proprietà SelStart e passa il Len della TextBox...!
@Alex

grazie mille ...........:)


Newsgroup: it.comp.lang.visual-basic
Titolo: Vb per HanheldPc

>>Importante:<<<
I programmi devono girare su un processore StrongARM: i programmi compilati
per altri processori (come MIPS ad esempio) non funziano.
--
......::::::Zmaster::::::......
www.zmasterworld.8m.com
zm...@libero.it
zm...@freemail.it

App Forge è un add-in di VB e permette di creare applicazioni per il sistema
PalmOS. E' demo e non sono ancora riuscito a, ehm, registrarmi.
http://www.appforge.com/

 ha scritto nel messaggio
news:9j7blm$8ji$1...@lacerta.tiscalinet.it...



hai provato Visual Basic Embedded ?



Se cerchi informazioni prova anche sul ng microsoft.public.it.pocketpc
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] stampa Portrait/LandScape

Salve a tutti.
Ho un prog. e devo stampare in formato LandScape, e fin qui tutto bene
CommonDialog1.Orientation = cdlLandscape
CommonDialog1.ShowPrinter
Il problema č: come re-impostare la stampante in Portrait ?
Ho provato con: CommonDialog1.Orientation = cdlPortrait (ovvio..) alla fine
della stampa,
ma senza nessun risultato.
Potete aiutarmi ?   (Win98, VB6.0, SP4)
Grazie 1000

Il problema č: come re-impostare la stampante in Portrait ?
proprieta' Orientation dell' oggetto Printer
hth, hal

 wrote in message
9iaoqq$i1do5$1...@ID-56381.news.dfncis.de...

Printer.EndDoc
Printer.Orientation = 1
Ho provato cosě, ma mi restituisce l'errore 484 come se avessi la stampante
scollegata, poi quando confermo l'errore mi esegue la stampa correttamente,
ma non mi cambia l'orientamento.
Forse č un problema di stampante.  Grazie comunque.

Forse č un problema di stampante.  Grazie comunque.
E' possibile. Msdn, infatti, dice che:
484 Printer driver unavailable. 
This error occurs when the WIN.INI printer information is missing or insufficient. 
Note   Printer errors do not always occur immediately. 
If a statement causes a printer error, the error may not be raised until execution of 
the next statement that addresses that printer.
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Rendere FIXED una DLL ActiveX

Salve a tutti
ho dato uno sguardo alle API di gestione della memoria, e mi è parso di
capire che non mi è possibile effettuare il lock di una dll in memoria
per garantirne la reperibilità a interrupt-time. Questo in Win95, poiché
pare che la funzione API VirtualLock sia implementata come stub senza
effetto alcuno.
La domanda, dunque, è questa: c'è un rischio effettivo che una routine
di una DLL ActiveX non possa essere raggiunta da una funzione CallBack?
NB: sto parlando di callback a interrupt-time da parte di un device
driver (nella fattispecie, la chiamata viene da winmm.dll).
Grazie a tutti
Flavio Ronco
--
f.ronco@*NonMiServeNiente*
flashnet.it
http://www.metabrains.com
  [Under Construction]
-------------------------------------------------------------
"Che pubblico in gamba! Se ci dite dove lavorate,
domani mattina se abbiamo tempo vi veniamo a vedere"
[Paolo Rossi]


In teoria si', se il processo in cui gira il codice della DLL e' idle, c'e'
la possibilita' che le pagine di memoria da esso allocate (quindi anche il
codice della DLL) vengano swappate su disco, in questo caso credo che la
funzione callback-chiamante possa fare casini, non trovando subito
disponibile il codice da chiamare.
Per curiosita', non starai mica trafficando con i timers multimediali?
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: differenza istruzioni Len e LenB su UDT

Salve, vengo al dunque.
Type MioTipo
    X As Boolean
    Y As Long
    Z As String * 1
End Type
Dim MT As MioTipo
chi mi sa spiegare perchè Len(MT) = 7, mentre LenB(MT) = 12????
Il 7 lo ricavo da 2 + 4 + 1 ovvero la somma dei byte occupati
rispettivamente da un Boolean, un Long, e un String * 1.
Ma il 12, da dove mi salta fuori??


wrote:

Dai un'occhiata:



Sorry, mi è scappato il ditino
Dai un'occhiata:
http://support.microsoft.com/kb/137729/en-us


mi sono icuriosito e ho trovato su internet la risposta:
"Un parente molto stretto della funzione Len è la funzione LenB la cui B
aggiuntiva indica bytes. La funzione LenB restituisce sempre il numero di
bytes occupati da una stringa, una variabile o una costante. Si differenzia
dalla precedente nel caso che l'argomento passato sia una stringa; essa
infatti non restituisce il numero di caratteri, ma il numero di bytes
occupati da tale stringa (sempre in linea generale però).
Poiché Visual Basic memorizza le stringhe sempre nel formato Unicode (in
opposizione al formato ANSI) con il quale ogni carattere è costituito da 2
bytes, è chiaro che mentre la prima funzione restituisce il numero di
caratteri presenti nella stringa, la seconda restituisce il doppio di questo
numero, ovvero il numero di bytes occupati dalla stessa stringa."
Ma non sò se riesce a dar luce al tuo dubbio che a questo punto è anche il
mio!!!!
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.visual-basic
Titolo: Big trouble con Kit di installazione

Finito di sviluppare il nostro software (32 bit), abbiamo creato il set di
dischi per l'installazione, usando l'Autocomposizione installazione (32
bit). Tentando l'installazione su PC provvisti dell'ambiente di sviluppo,
non abbiamo riscontrato nessun tipo di problema (ovvio!), mentre avviando
l'installazione su macchine "vergini" al VB4 otteniamo questo errore
bloccante: "Errore imprevisto. Impossibile continuare". In passato, tutti
gli altri nostri prodotti che abbiamo consegnato non hanno mai presentato
questo strano tipo di problema. Nessuno ha delle idee sull'argomento?
Potete rispondere anche x email. Eterna riconoscenza al solutore del
caso...
--
Tony Taborre
Sinapsi Sistemi Informativi
sin...@fi.flashnet.it
 
Marco Gentili
Sinapsi Sistemi Informativi
figlio...@fi.flashnet.it

caso...
Ho riscontrato anch'io questo problema e sono arrivato alla conclusione:
esistono varie versioni di Windows 95 e precisamente 4.00.950, 4.00.950a e
4.00.950 B.
Se utilizzi il Kit di Installazione su una macchina con una versione e la
vai poi ad installare su una che ne ha un'altra (specialmente fra la 'B' e
la 'a') si verifica un blocco che poi diventa irrecuperabile a meno che non
formatti e reinstalli Windows 95
Penso sia dovuto a qualche Dll diversa fra le varie versioni, ma non sono
riuscito a capire quale.
Flavio


_______________

Maui
Questo è l'indirizzo del KB
http://www.microsoft.com/kb/articles/q162/5/18.htm
L'altro fie è Oleaut32.dll
Ciao
Stefano Falda
stef...@geocities.com
Newsgroup: it.comp.lang.visual-basic
Titolo: UpLoad File ciclico

Buongiorno,
Avendo necessitą di inviare ciclicamente un file (piccolo)  su un server 
Aruba, vorrei consiglio sulla strada da seguire, ed eventualmente dove 
reperire esempi.
Ho provato ad usare Inet, ma non riesco ad eseguire il send del file.
grazie e saluti 

 Ho provato ad usare Inet, ma non riesco ad eseguire il send del file.
Dato che la strada che ti avrei consigliato sarebbe proprio quella,
potresti specificare come mai non ti funziona?
Magari si riesce a trovare il modo di farla andare...
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Ho trovato un'ottimo esempio Microsoft, funzionante in modo perfetto, che 
non utilizza MsInet
comunque solo per curiosità:
- Ho dichiarato Server, User e Password nelle proprietà
- Inet1.Execute "", "cd UpLoad"
- Inet1.Execute "", "SEND " & "DirPrg & "\TEMPFILE\" & NomeFile & " " & 
NomeFile & ".Dat"
mi da errore di connessione, ( user aruba è 
xxx...@aruba.it
 )
Grazie per la collaborazione
Saluti
Mike 

 mi da errore di connessione, ( user aruba è 
xxx...@aruba.it
 )
E' un po' di tempo che non uso l'oggettino. Ricordo che, ai tempi, la cosa
che mi aveva incastrato era che pensavo di avergli detto di cambiare la
directory, ma lui si ostinava a non farlo (perchè, ovviamente, sbagliavo
io). Mi pare di ricordare che fosse possibile interrogare l'oggetto per
fargli dire in che directory si trovi, tu ci hai provato?


 fargli dire in che directory si trovi, tu ci hai provato?
Ho provato ma credo proprio che sia problematica la gestione del controllo, 
al contrario dell'esempio di cui sopra che funziona in modo perfetto.
Saluti
Mike

Newsgroup: it.comp.lang.visual-basic
Titolo: Info su date

Per implementazione OCX:
Cerco disperatamente tutto il materiale possibile che riguardi le
date,
in particolare somma di valori data. ecc.
In cambio distribuisco ocx stesso.
Grazie.

Newsgroup: it.comp.lang.visual-basic
Titolo: Come faccio a dire al modem : rispondi!





Ho la banale necessità, per ora, di far rispondere il mio 
modem ad una chiamata in arrivo.


 


Ho provato a monitorizzare la seriale e naturalmente quando 
arriva la chiamata comm.input mi ritorna RING.


 


Io ho lanciato un comm.output ="ATA" ma non 
funziona.


Qualcuno sa dirmi qualcosa di più?


 


Grazie a tutti.


 


NIK!




Cosa vuol dire "non funziona" ?
Il comando è giusto...................... (se non hai dimenticato il CR)
Prova con:
comm.output ="ATA" & VbCr
Ciao
Sirjo
P.S. Attento che nel NG non puoi usare messaggi HTML

 Il comando č giusto...................... (se non hai dimenticato il CR)


 wrote in message
news:9138rk$b...@news.edisons.net...

Newsgroup: it.comp.lang.visual-basic
Titolo: List1 e ricerca su database

Questo codice mi genera un errore di 'tipo non corrispondente' che vi
ho già sottoposto sotto altra forma...
Quando esegue l'istruzione findfirst ecco che ritorna l'erroe.
Data1 è puntato su un db access e il recorsource è su una tabella di
quel database.
Codice:
Private Sub List1_dblClick()
    Dim trec As String, tfind As String
    Dim risposta As Integer
    trec = Left(Prop_cond.List1.Text, 30)
    tfind = "[cognome] = """ & trec & """"
    If trec <> "" Then
         Data1.Recordset.FindFirst tfind	
            If Data1.Recordset.NoMatch Then
             risposta = MsgBox("Non ho trovato l'elemento " & trec &
". Questo potrebbe essere rimasto giacente da tempo" _
             , vbCritical, "Messaggio!")
            Else
                Prop_cond.Refresh
            End If
    End If
End Sub
In un altro caso dove l'aiuto di Falcucci è stato determinante è
bastato inserire:
data1.recordsource=""
data1.refresh
e poi reinizializzare il controllo per risolvere il problema, ma qui
il trucco non sembra avere risultati...
Bye
Attilio

Io generalmente, per fare una ricerca come la tua, non uso il findfirst, ma facci oa mano:
Es.
cond=false
If data1.recordcount>0 then
	data1.movefirst
	do
		if data1.recordset("Cognome")= "Stringa da cercare" then		'oppure usa la funz. inStr, a
seconda di quello che vuoi
			'eseguo quello che voglio
			cond=true
		end if
		data1.recordset.move 1
	loop until data1.recordset.eof
endif
if cond=false then msgbox "Non trovato"
Che ne dici?
Ciao,
#sirri#@
tin.it
(togliete "#" dall'indirizzo)


Provo e poi ti dico...
T H A N X X S
Attilio

scusate se mi ci metto anche io su questo argomento, ma sto iniziando a 
progettare un motore di ricerca quindi mi è risulato molto comodo il 
codice che avete postato. Io l'ho provato e qualche problema l'ho avuto. 
Molti gli ho risolti, quello che non mi riesce di sconfiggere e che dopo 
che ha trovato il match nel database lui continua e infine mi da un 
runtime error del tipo il record non è quello selezionato. Penso dipenda 
dall'EOF che mi devo riguardare, comunque vi mando il mio codice.
cond = False
If Data1.Recordset.RecordCount > 0 Then
    Data1.Recordset.MoveFirst
End If
 
Do
    If Data1.Recordset("Nome") = "Prato Trade" Then
        MsgBox "Trovato!"
        cond = True
    End If
    Data1.Recordset.Move 1
Loop Until Data1.Recordset.EOF
If cond = False Then MsgBox "Non trovato"
In altre parole alla condizione cond = False non ci arriva mai poichè non 
esce dal ciclo di DO. 

Probabilmente usando la proprieta recordset del data control la condizione
eof non viene mai settata perche' il controllo non permette di andare oltre
l'ultimo record.
Puoi usare il metodo clone per duplicare il recordset ed utilizzare
quest'ultimo per cercare. Una volta trovato il record che ti serve se vuoi
spostarti sul data control devi settare il bookmark con quello del recordset
clonato.
Antonio Donatiello
conte ha scritto nel messaggio ...


Ovviamente mi sono diementicato che dopo aver fatto tutto, per uscire dal ciclo, devi mettere un bel
Exit Do
altrimenti non funge...
Scusate, ciao, Moreno





Newsgroup: it.comp.lang.visual-basic
Titolo: Come usare TCP/IP e porte da VB?

Vorrei creare un'applicazioncina che faccia una scansione di una data porta
di un dato IP, per vedere se esiste un servizio disponibile su quella porta.
Come posso farlo da VB?
Grazie, Max


usa il controllo winsock ... ti connetti all'ip e tenti una connessione alla
porta che vuoi monitorare.
Spero di essere stato utile
--
~~~ MrOnederfull ~~~
mroned...@hotmail.com
http://www.mronederfull.it
 (coming soon!)

Newsgroup: it.comp.lang.visual-basic
Titolo: Slide Show

Stò creando un software che genera slide show. Avrei la necessità che il
mio programma possa creare un unico file .exe contenente lo slide show, i
files delle immagini e dell'audio di background in modo che lo slide show
possa essere distribuito in un unico file. E' possibile?
GRAZIE!
CIAO!
--------------------------------
Inviato via 
http://usenet.iol.it

 ha scritto nel messaggio
news:131Z175Z215Z2Y...@usenet.iol.it...


 ha scritto: 


 ha scritto nel messaggio
news:131Z175Z215Z2Y1...@usenet.iol.it...


 ha scritto nel messaggio
news:131Z175Z215Z2Y1...@usenet.iol.it...


 modo che lo slide show possa essere distribuito in un unico file.
Sto scrivendo un articolo sulla creazione e l'uso di file risorse per le 
proprie applicazioni, è quasi completo e quando lo sarà lo invierò al 
sito comune. Pazienta ancora un giorno :)

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] parametri di Crystal report

Ho creato due parametri in un report (Crystal Report 7), e voglio
passarne i valori da Visual Basic (6) . Questi due parametri servono
per filtrare i record visualizzati se non li passo Crystal mi crea un
form di richiesta ovviamente.
Please help me
Giacomo

Da VB, dopo aver impostato i dati principali del report
(path,titolo,....) e prima della Action scrivi :
Report1.ParameterFields(0) = "Nome parametro in Crystal 7;" & "Testo/Numero
Da Inserire" & ";TRUE"
e ripeti lo stesso per l' altra cambiando l' indice come spiegato di
seguito.
La sintassi generale è :
[form.]Report.ParameterFields(Indice)[=NomeParametro;Valore;ValoreCorrente]
Indice : indica l' ordine in cui elaborare i parametri nel report
(0,1,2,.......)
NomeParametro : Il nome del tuo parametro (seguito da ; )
Valore : Il valore che deve contenere NomeParametro (seguito da ; )
ValoreCorrente : TRUE se non deve richiedere la conferma del Valore del
Parametro durante la stampa del Report (FALSE altrimenti).
Cmq se i parametri ti servono per filtrare i record visualizzati perchè non
usi l' Esperto Selezione oppure non usi la SelectionFormula ?
Spero che tutto ciò faccia al caso tuo. Fammi Sapere.
Ciao.
--
Icq ---> 50759119
Mercenaries Never Die. They Just Go Hell To Regroup.
Newsgroup: it.comp.lang.visual-basic
Titolo: Task ancora in esecuzione???????

Salve a tutti
Avvio un programma esterno con la funzione Shell che mi restituisce l'ID.
Come faccio a sapere dall'applicazione chiamante se la chiamate e' ancora in
esecuzione
Grazie a tutti
Marco

 esecuzione
Trovi alcuni esempi sul Sito Comune; uno di questi dovrebbe essere basato
proprio sull'ID restituito da shell e' e' all'incirca cosi':
Private Declare Function OpenProcess Lib "kernel32" ( _
 ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
 ByVal dwProcessID As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" ( _
 ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" ( _
 ByVal hObject As Long) As Long
Const STILL_ACTIVE As Long = &H103
Const PROCESS_QUERY_INFORMATION As Long = &H400
Public Function IsProcessRunning(ByVal ProcessID As Variant) As Boolean
'Ritorna True se un processo figlio e' ancora in esecuzione
Il parametro è il valore restituito dalla funzione Shell.
Dim hProc As Long, iRet As Long
'Recuperiamo l'handle di processo
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID)
'Controlliamo lo stato del processo
If hProc <> 0 Then GetExitCodeProcess hProc, iRet
IsProcessRunning = CBool(iRet = STILL_ACTIVE)
CloseHandle hProc
End Function
Ciao
--
Luca Dormio
luca....@tin.it

 esecuzione
Se vuoi sul sito comune c'è il mio ActiveX "OpenClose"

 ha scritto nel messaggio
news:3b652251$1...@newssrv.quipo.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Help per disabilitare la pressione di combinazioni di tasti

Io ho VB4 ed. enterprise (un po' arretrata ma funziona).
Vorrei sapere come posso fare per impedire che durante l'esecuzione di un
programma l'utente esegua la combinazione di tasti CTRL+ALT+CANC, ALT+F4,
ALT+TAB o cose simili che gli permettano di chiudere o di cambiare il
programma visualizzato.
Per favore rispondetemi in modo dettagliato e preciso perché non sono molto
esperto.
GRAZIE A TUTTI IN ANTICIPO
Ghigo    :-)


Il metodo migliore per diventare "esperti" (mi viene in mente la
massima di Socrate) è olio_di_gomito e spremuta_di _meningi.
Prova un po' a giocherellare con la funzione:
Public Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" _
(ByVal uAction As Long, _
ByVal uParam As Long, _
ByRef lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Dove, questo caso, uAction può essere
    Public Const SPI_SCREENSAVERRUNNING = 97
Esempio per disabilitare Ctrl+Alt+Canc e Ctrl+Esc:
(Passando True disabilita, False abilita)
Public Sub DisableCtrlAltCanc(opMode As Boolean)
Dim lngRet As Long
Dim lngOpMod As Long
   lngOpMod = CLng(Abs(opMode))
   lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, lngOpMod, 0&, 0&)
End Sub
Altri tasti possono essere disabilitati in modo convenzionale.
SystemParametersInfo da accesso a impostazioni di sistema.
Occorre prendere delle precauzione prima di "pistolarci".
SPI_SCREENSAVERRUNNING è "certificata" solo per
Win95.