mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Immagini JPG over-flow

 
          Ho realizzato un semplice programma, che mi stampa delle foto in formato
JPG.
Per farlo ho utilizzato l'oggetto IMAGE.
Purtroppo per foto di dimensioni intorno ai 2MB il programma mi va in
over-flow.
Non avevo previsto tutto ciň, ma mi chiedo se c'č un modo per ovviare a
questo inconveniente.
grazie Max.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

"Massimiliano"
*.vbs
set oShell = CreateObject("WScript.Shell")
Set oArgs = WScript.Arguments
File = oArgs(0)
'Msgbox oArgs(0)
path="C:\PROGRA~1\IRFAN\I_VIEW32.EXE "
Out=" /info=c:\jpgs.txt"
oShell.run path & oArgs(0) &" "& out & " /killmesoftly"
'Msgbox path & oArgs(0) &" "& out
oShell.run"c:\jpgs.txt"
ci trascini sopra l'JPG (puoi anche cambiare sistema)
leggi il risultato e ti comporti di conseguenza
IrfanView
http://www.irfanview.com/
ha anche la possibilita' di ridurre (crop >> resize/resample)
le immagini da riga di comando
i_view32.exe c:\test.jpg /resize=(300,300) /aspectratio
i_view32.exe C:\PROGRA~1\IRFAN\NEW\*.jpg /resize=(300,300) /aspectratio
also command line available (calling from VB)
Example for /crop:
i_view32.exe c:\test.jpg /crop=(10,10,300,300)
Open 'c:\test.jpg' and crop: x-start=10, y-start=10, width=300, height=300 (in pixels).
Example for /resize:
i_view32.exe c:\test.jpg /resize=(300,300)
Open 'c:\test.jpg' and resize: width=300, height=300.
i_view32.exe c:\test.jpg /resize=(300,300) /aspectratio
Open 'c:\test.jpg' and resize: width= max. 300, height= max. 300, proportional.
i_view32.exe c:\test.jpg /resize=(300,0)
Open 'c:\test.jpg' and resize: width=300, height=proportional.
i_view32.exe c:\test.jpg /resize=(150p,150p)
Open 'c:\test.jpg' and resize: width=150%, height=150%.
ecc
--
Fosco


Grazie :-)


 questo inconveniente.
Cambiare le variabili Long Integer?
-- 
Salute e Saluti a Tutti.
Gabriele Del Giovine [Microsoft MVP] Windows Server
- Le informazioni fornite in questo messaggio sono fornite
  senza vincolo di garanzia e senza responsabilità alcuna.

Newsgroup: it.comp.lang.visual-basic
Titolo: Cercasi manuali VBA in rete per excel.

Mi servono delle informazioni sul VBA,possibilmente anche dei codici
sorgente da studiare.
ciao

 anche dei codici sorgente da studiare.
Che tipo di informazioni? Hai gia' fatto un "giro" approfondito del sito
Microsoft? Hai gia' imparato a memoria la guida in linea di Excel?
--
Ciao.
Maurizio

 wrote in message
8ds7qi$jcv$4...@nslave2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Icona nel Desktop

vorrei fare in modo di
mettere l'icona del programma nel desktop in automatico nell'istallazione .
Come fare?

 ha scritto nel messaggio
news:9qm45b$ggd$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Ado.net

Buongiorno a tutti. 
Sto cercando di imparare .net e di conseguenza 
ado.net
.
In visual basic (attualmente sono alla 6.0) usavo gli oggetti dao, mentre
per forza di cose in .net dovro' uare 
ado.net
 (non voglio portarmi dietro
eredita' troppo antiche). 
Per caso avete qualche link che spieghi in modo chiaro come si usa 
ado.net
?
ho cercato in vari siti (oltretuto 
visualbasic.it
 non è piu' disponibile),
ma ho trovato che i modi con cui vengono gestiti i dati non sono adatti ai
programmi che dovrei fare, per esempio il dataset è una "fotografia"
offline dei record, e io invece vorrei un recordset "collegato al db", in
modo da avere si' una "foto", nel senso che se vengono aggiunti dei record
da altri utenti la mia immagine rimanga uguale, ma che io possa fare degli
update sui record.
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Sto cercando di imparare .net e di conseguenza 
ado.net
.
ADO.NET
 opera in modo disconnesso.
Nella guida in linea ci sono molti esempi.
Guida MSDN sito Microsoft:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon/html/
vbconfundamentaldataconceptsinvisualstudionet.asp
giuseppeD

 ha scritto nel messaggio
news:SsXm9.209402$pX1.7...@news2.tin.it...


 modificato da altri ?
Se il collegamento è disconnesso può succedere.
giuseppeD

 
ADO.NET
 opera in modo disconnesso.
Ma, scusa, sempre?  8-((
Se cosě č, vabbč, la prossima dose gliela infiltro io.

 Se cosě č, vabbč, la prossima dose gliela infiltro io.
Perhcč abbiamo pensato la stessa cosa?


  8-((
Chiedo un sito dove mi riporti il significato di questa simbologia in lingua
italiana .
Ad oggi non ho voluto considerarlo.
Mi vedo costretto ad adeguarmi.
giuseppeD

 Mi vedo costretto ad adeguarmi.
Cerca su Google faccine, smiles, etc.
Eccone uno:
http://users.libero.it/gabriele.chiesa/infotele/faccine.htm
Poi, come spesso accade, si prevedono varie "licenze poetiche"

un mio collega ha fatto un corso della ms su sql server , e molti
sviluppatori .net si lamentavano di questa cosa.
i docenti hanno ammesso questa cosa, e hanno detto che la ms sta
sviluppando altri componenti che permettono il vecchio modo di lavorare.
io avrei dovuto cominciare oggi un nuovo progetto, e avrei voluto farlo in
net, ma di sicuro aspettero' il momento in cui la ms rilascera' quei
componenti.
piuttosto uso i dao da .net...
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Calcoli Matematici

Ciao Ragazzi, ho un problema con i calcoli di numeri decimali.
Allora, io ho impostato nelle opzioni internazionali del mio pc, la virgola
come separatore decimale e il punto come separatore delle migliaia.
Se provo a fare una somma tra due numeri (es. 10,50 + 10,10) mi tiene conto
solo della parte intera (risultato 20 anziche 20,60)
devo rinunciare ad usare la virgola come separatore delle migliaia??
Ciao e grazie.

 Ciao e grazie.
Ciao


Non ci credo.
Se tu stai sommando due valori, le impostazioni internazionali sono
assolutamente insignificanti.
Se invece stai sommando due stringhe, la conversione implicita avviene col
CDbl, e quindi la virgola viene riconosciuta come valida con le tue
impostazioni.
L'unico caso in cui avviene ciò che dici è usando il Val, ma questo è un
altro discorso.
Ciao
Alberto

 assolutamente insignificanti.
Ok scusa ho sbagliato a spiegare il problema. :-(((
Allora ho tre textbox (text1, text2 e text3) faccio la somma tra i primi due
e la memorizzo nel terzo, ossia
Text3.text = val(text1.text) + val(text2.text)
risultato : 10,50 + 10,10 = 20
se invece faccio 10.50 + 10.10 = 20.60
perchè???
Scusa ancora per le omissioni nel prec. post. :-))

 Ma scusa come la fai la somma??
Scusami anche tu, vedi risposta ad ALBE V° :-)))

 Text3.text = val(text1.text) + val(text2.text)
[SNIP]
Tombola: rileggi quanto ha scritto Alberto riguardo Val e CDbl
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 perchč???
Beh, nel momento in cui hai scelto di usare la funzione Val anzichč CDbl
avrai guardato la sua documentazione, e avrai quindi visto che Val
interrompe l'elaborazione al primo carattere non ammesso (e segue l'elenco
dei caratteri ammessi, fra cui la virgola non appare...).
Ciao
Alberto

 perchč???
Perchč non lo chiedi al manuale?
Premi F1 e leggerai:
Nota   La funzione Val riconosce solo il punto (.) come separatore decimale
valido. Se si utilizzano separatori diversi (ad esempio in applicazioni
internazionali) per convertire una stringa in numero č consigliabile
utilizzare la funzione CDbl.
termoPilucco.

 dei caratteri ammessi, fra cui la virgola non appare...).
Ok, purtroppo sono molto legato alla funzione Val (sai fino a 3/4 mesi fa
ero un clipper-dipendente) e non ero a conoscenza di CDbl (mi sa che mi
metto un bel post-it sullo schermo) :-)))
Grazie 1000.

 Tombola: rileggi quanto ha scritto Alberto riguardo Val e CDbl
Riletto, provato e ringraziato :-))
Scherzi a parte, grazie per l'informazione.

 termoPilucco.
Thanks. :-))
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Chi sa usare Crystal Report ?

Ho cercato un po' nei post precedenti ma non ho trovato cio' che fa al caso
mio. Saro' messo male nelle ricerche, ma tant'č.
Ho bisogno di usare un
report di Crystal Reports per visualizzare un grafico in un'applicazione
VB.
Sono in grado di farlo, ma non so se lo faccio bene... del resto la
documentazione di CR lascia alquanto a desiderare...
Primo: quale
libreria devo utilizzare? Io nelle mie precedenti esperienze avevo usato
"CRYSTAL REPORT 8 ActiveX Designer Run Time Library"
dichiarando l'oggetto
dim crApp as CRAXDTR.Application
e poi usavo la libreria Crystal Report
Viewer Control
con l'oggetto crViewer.
ma in un post ho scoperto che
Ugo usa la libreria 
"Crystal Report Engine 6.0 Object Library"
...
cosa devo usare?
poi come faccio a impostare il percorso del database
dal quale il report preleva i dati tramite variabile? In piu' ho un mega-
database che Crystal Report non mi apre se non in ODBC. altrimenti si
impalla. Questo mi crea problemi?
Mi mettete per filo e per segno le
variabili da dichiarare e usare?
Io facevo all'incirca cosě:
Dopo aver
inserito un oggetto  CRViewer nel form, questo era il codice:
__________________________
Dim cr_Report As CRAXDRT.Report
Dim
cr_Application As CRAXDRT.Application
   Set cr_Application = New
CRAXDRT.Application
   Set cr_Report = Nothing
 
   Set cr_Report =
cr_Application.OpenReport( _
    App.Path & "\" & ValoreChiaveIni( _
IniFileName, "Report", "Name"), 1)
   crViewer.ReportSource = cr_Report
crViewer.ViewReport
 
   DoEvents
   crViewer.Refresh
   Set
cr_Report = Nothing
__________________________________
--------------------------------
Inviato via 
http://usenet.iol.it

cr_Report = Nothing
mmmh... povero Jelot... non ti ha risposto
nessuno...
mi consolero' andando a vedere i Mad Caddies all'Independent
Days Festival 2001... il 2 Settembre all'Arena Parco Nord a Bologna.
Almeno confido che Ugo avra' dato un'occhiata... 
A ugo'... non hai
ancora finito di scrivere il tuo gestisci_crystal_report?
dove ne trovo
uno simile?
come diappoli si fanno i grafici SCRICCATI, vale a dire con
le palle, in cr?
mo' ciao. visto che tanto quello che rispondera' a sto
post sono io domani mattina.
==in the hidden shadows of everyday
battles stands a man==
==try not to think a lot and just keep on having
fun==
?????
ttttt
uuuuu
ttttt
ttttt
eeeee
qqqqq
uuuuu
eeeee
sssss
ttttt
eeeee
rrrrr
iiiii
ggggg
hhhhh
eeeee 
sssss
ooooo
nnnnn
ooooo
xxxxx
ingannare
il
mio
news
reader


 ha scritto nel messaggio
news:62Z110Z131Z134Y...@usenet.iol.it...
[snip]
Vabbč, vabbč, sono un po latitante in questi giorni.
Quali oggeti usare: beh, č chiaro che se hai Cr8, usi quello. Sennň vai piů
indietro.
Gestore Crystal Report: č sul Sito Comune almeno da un mese.
Tecnologie di accesso dati Crystal Report: ne offre diverse. Personalmente
preferisco le Api di Crpe, ma puoi usare benissimo anche il Designer, che
credo non soffra delle notevoli limitazioni dell'ocx.
Per tutto il resto, dai un'occhiata al progetto suddetto (CrySvr) sul Sito
Comune 
http://www.it-lang-vb.net/
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Aprire un form modal senza sapere se il chiamante è modal anche lui

Ciao a tutti.
Ho questo problema: per gestire gli errori nel mio programma ho voluto
modificare la funzione apposita (ShowError) ed al posto del solito MsgBox
che ti dava descrizione, posizione, bla bla bla ho messo una bella form.
Il problema è che non so assolutamente come aprire questa form, nel senso
che deve essere per forza modale, quindi
frmErrore.show vbModal
Però se la apro da una finestra già modale di per se gli devo passare
l'ownerform, quindi
frmErrore.show vbModal, frmChiamante
Quindi, quello che mi chiedo è: devo impazzire a modificare TUTTO il
programma passando alla funzione di trap degli errori anche l'eventuale form
chiamante se è modal, o esiste un modo (magari tramite API) per aprire
comunque modale la finestra, a prescindere che la procedura sia lanciata da
un form non-modal, un form modale o un pezzo di codice dentro un form?
Nel sito comune ho trovato una FAQ interessante che utilizza le API ma non
ci capisco una mazza... :(
La FAQ è la 
http://www.it-lang-vb.net/Archivio/FAQ/FAQ00081.HTM
Please help!!!
Thanks!
SebaMix

 l'ownerform, quindi
Perchè gli "devi" passare l'OwnerForm?
Ciao
*Roby*

 Perchè gli "devi" passare l'OwnerForm?
CiaoZ
SebaMix

 - Un form modal (e allora devo passare l'ownerform)
Ti assicuro che non gli "devi" passare l'Ownerform.
Ho fatto questa semplice prova:
nuovo progetto, 3 form (Form1, Form2, Form3)
in Form1_click metti  Form2.Show 1
in Form2_click metti  Form3.Show 1
La Form 3 viene visualizzata correttamente senza bisogno di passargli
l'ownerform, ed è comunque modale.
Ciao
*Roby*
P.S.
VB6. Magari in VB5 era diverso?

form modali possono essere aperti in cascata.
e quindi chiusi in cascata...
non vedo il tuo problema
--
[ Penguin At Work ]
-> 
http://web.tiscali.it/penguinatwork/
-> aka Fustino Di Dixan while working

Il problema è che io non ho la più pallida idea della situazione che mi si
possa presentare davanti.
Già con questo programma in passato ho avuto non poche difficcoltà con form
modal non modali child e chi più ne ha più ne metta.
Ora come ora le form sono 40 e più della metà sono da aprirsi vbModal e c'è
un bel casino...
Comunque penso che rinuncierò alla cara frmErrore e tornerò al brutto (ma
sono sicuro che funziona) MsgBox.
Vi immaginate se la maschera di errore va in errore perchè aperta male? :)
CiaoZ
SebaMix


ok, ok...
so che c'e' 1 api che dice alla finestra di rimanere
in primo piano.
prova setWindowPos o simile


 sono sicuro che funziona) MsgBox.
La MsgBox altro non è che un form modale, quindi... :)
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Tenere bloccato un programma e msgbox temporizzati

Esiste in VB5 un istruzione (io non sono riuscito proprio a trovarla)
per fermare l'esecuzione di un programma per tot secondi ? che so
qualcosa del tipo wait(20) e il programma si ferma in attesa su questa
istruzione per 20 secondi?
Esiste sempre in VB5 la possibilita' di visualizzare msgbox che non
attendano la pressione di un bottone ma che spariscano automaticamente
dopo un tot tempo?

dopo un tot tempo?
O usi un po' di subclassing o ti fai una MsgBox personalizzata.
Ciao.

Si, in VB5 hai la possibilità di fare delle MsgBox che si chiudano dopo tot
secondi.
Tra breve metterò un progetto d'esempio sul mio sito
(
http://www.idealia.net/ubi1k
)
Se ne hai bisogno urgentemente fammelo sapere che ti invio il progetto in
privato via e-mail.
Ciao,
Ubi1k

Interesserebbe anche a me sapere come fare, se puoi postarmelo ti ringrazio.

Newsgroup: it.comp.lang.visual-basic
Titolo: settare un bit

avrei bisogno di effettuare operazioni sui bit, di un valore long.
mi servirebbe leggere e scrivere, ad es. il bit nella posizione 4... ma
credo che in VB non ci siano istruzioni ad hoc.
come si puo fare esiste qualche DLL (non rischiosa) che faccia questo ?
grazie
MarioH

mi servirebbe leggere e scrivere, ad es. il bit nella posizione 4... 
Dim ciccio As Long
' imposto il 4° bit
ciccio = ciccio or &H8
debug.print ciccio
' resetto il bit
ciccio = ciccio and not &h8
debug.print ciccio
ciao, hal

 ciao, hal
oddio... sicuro che sia cosi semplice ??
marò... mi perdo sempre in un bicchier d'acqua ... come il famoso nano che
entra in un caffe... e... splash !!!!
in pratica devo "AND-rare" e "OR-are" con le potenze di due... pensavo fosse
piu complicato.
grazie
MarioH

 in pratica devo "AND-rare" e "OR-are" con le potenze di due... pensavo
fosse
sssshhh! non lo dire mai più!....se ti sentono!
:-P  8-)

 piu complicato.
Esatto, vai e prega :PPP
Ciaotutti,
*

Newsgroup: it.comp.lang.visual-basic
Titolo: Contascatti grazie a voi ho fatto così.(adesso altra piccola domanda)

Salve adesso scrive gli scatti una volta sola come volevo.
Ho un'altra piccola domanda.
Il timer è settato a 5 secondi (ogni 5 controlla se c'è la connessione).e 
già mi andrebbe bene.
Volevo sapere se secondo voi fare un controllo al secondo tiene il pc troppo 
impegnato oppure è  si può fare?
Grazie ancora
Per gli scattoi ho fatto così
Else
    Label1.Caption = "00"
    Label2.Caption = "00"
    Label3.Caption = "00"
    Label4.Caption = "00"
    If  Lblscatti.Caption > 0 Then
Dim nomefile, contenuto As String
nomefile = Format(Calendar1, "MM.yyyy")
contenuto = Lblscatti
Open App.Path & "\archivio\" & nomefile & ".txt" For Append As #1
Print #1, contenuto
Close #1
Lblscatti.Caption = "0"
End If
End If

     If  Lblscatti.Caption > 0 Then
Apparte l'indentazione da denuncia, almeno una val mettila: 
| if val(Lblscatti.Caption) > 0 then
Se proprio non vuoi usare una variabile al posto di una label.

 >     If  Lblscatti.Caption > 0 Then
se Lblscatti.Caption = "" ti genera un errore.
--
Ciao Fede
By Chicco Production
http://www.webalice.it/bychicco/
Newsgroup: it.comp.lang.visual-basic
Titolo: form

che proprietą vanno settate per avere una form che si piazza a tutto
schermo pero' in modo che in basso arriva esattamente
a filo della barra dove c'č l'orologio e il pulsante start.
inoltre ho notato che anche se la finestra occupa gią tutto lo schermo
sopra la barra di windows (quella con l'orologio) se si clicca sul
pčulsantino, quello con il quadratino dei tre in alto a destra della
form, praticamente
la form dove ho messo i controlli si espande oltre la dimensione da me
prefissata; si puo' evitare tale espansione?
grazie 1000

 distraendomi ha scritto

Ho visto il messaggio e ho pensato.... beh, rispondo perchč la domanda č
alla mia altezza.
1. Scrivi la parola Form
2. Evidenziala
3. Premi F1 ( č la guida in linea )
4. Ciao
:)

Newsgroup: it.comp.lang.visual-basic
Titolo: Metodo Opendatabase con Vb2005

'Sera...
ecco che comincio una nuova (tremenda) esperienza!
Ho appena scaricato vb2005 e stavo cercando di capire qualcosa...La prima 
che ho capito
è che convertire i vecchi progetti vb6 è praticamente assurdo se non 
inutile...
La domanda tuttavia è un'altra: Ho sempre utilizzato  DAO nella mie 
applicazioni con database access
e adesso ho cercato di creare una semplice routine per l'apertura di un db.
Nulla. Mi dice che 'nome opendatabase non dichiarato' ...ed è solo la prima 
riga!!
Questo metodo è ancora supportato in vb2005?
Alcuni esempi mi direbbero di si. Cosa sbaglio a monte?
Una domanda ancora: Ma in cosa si differisce il vb2005 express dal .NET?
Quanto sviluppato il 2005, sarà poi pienamente compatibile con il .NET 
professional? (ove decidessi di acquistarlo!!)
Grazie a tutti 

 professional? (ove decidessi di acquistarlo!!)
Non esiste il .Net pro!
Esiste *VisualStudio* pro.
L'IDE e il linguaggio non sono la stessa cosa, e comunque quanto scritto 
dalle ver express sono compatibili al 100% con le altre versioni di 
VisualStudio.
Volendo potresti anche programmare con #Develop e compilare con VisualStudio 
o viceversa.
Ciao 

 prima riga!!
DAO in .net non esiste piů.
Attualmente si sfrutta l'accesso disconnesso ai dati offerto da 
ADO.NET
 2.0.
Il consiglio, quindi, č: dagli di F1 usando come criterio 
ado.net
.
:)
S.

Newsgroup: it.comp.lang.visual-basic
Titolo: PRB Ricoscimento margini stampabili

Salve a tutti,
ho il problema di riconoscere i margini stampabili di una stampante.
Mi spiego, ho la necessità di sapere dove inizia (coordinate x, y)
l'area stampabile di una qualsiasi stampante.
Grazie    Marco
PS:    Rispondete direttamente alla mio indirizzo
--
Posted from 
mail.stream.it
 [194.184.51.2] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
38FC1A7A...@stream.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: form mdi

ciao a tutti.
Una curiosità..è possibile avere una form mdi che nn sia a tutto schermo ?
Cioè poter settare height e width senza che a runtime l'utente possa
modificarla ?
Se si mi date 2 righe di codice per favore ? (o se magari è solo una
proprietà mi dite quale ?)
grazie
Simone

 l'utente possa modificarla ?
Secondo me devi fare un controllo sull'evento resize e mettere le due
proprietà al valore che ti serve...
Non ricordo di proprietà specifiche...
-- 
Alex
"La differenza tra un genio ed un idiota è che il genio ha i suoi
limiti" (Anonimo)
Posted from X-Privat Free NNTP server - 
www.x-privat.org

ok..ma quello ke mi frega è la possibilità da parte dell'utente di poter
ingrandire a tutto schermo la form attraverso il controlbox..è possibile
eliminarlo ?
grazie
Simone
"Alex1980" <ba...@jumpyFREGATI.it> ha scritto nel messaggio
news:3fbb...@x-privat.org...


 eliminarlo ?
Afaik, una MDI form non dispone di proprietà come MinButton ecc.
Al massimo, nell'evento resize puoi controllare lo State: se è es.
maximized, tu lo rimetti normal e gli dai altezza e larghezza che vuoi.
                    Ciao
                                Zephiross


Prova così e lancia la sfida: "Ridimensionamento da parte dell' utente"
Private Sub MDIForm_Resize()
MDIForm1.Height = 3600
MDIForm1.Width = 4800
End Sub
Ciao
-- 
Gulp ! Forse mi sono perso qualcosa !

 ha scritto nel messaggio
news:bphd2g$1ocvbj$1...@ID-184132.news.uni-berlin.de...


 medicine alternative ? grazie
Che io sappia, nemmeno un form non mdi...

 > Prova così e lancia la sfida: "Ridimensionamento da parte dell' utente"


 ha scritto nel messaggio
news:bpik62$1otlhg$1...@ID-51318.news.uni-berlin.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: cancellare una dir

Come si fa a cancellare una dir?
Io ho usato Rmdir(), ma a volte mi da errore
di accesso.
Non so se sia perche' creo i file e poi li cancello. Forse sono questioni di
sincronismo. Oppure non so se il codice ha il permesso di farlo.
Esiste la possibilita'  di avere una routine piu' cntrollata per
l'eliminazione di dir precedentemete create?
Grazie

 ha scritto nel messaggio
news:FtCGb.6209$VW.2...@news3.tin.it...


 ha scritto nel messaggio
news:XwHGb.8111$_P.2...@news4.tin.it...


 Grazie
Prego,
Andrea

 Dove si trova documentazione a riguardo?
http://groups.yahoo.com/group/x-men-italy/files/LO/quoting.txt
http://www.allapi.net/cgi-bin/redirect.cgi?place=apiguide
scarica API-GUIDE
'This program needs a Common Dialog Box, named CDBox.
'(To add the Common Dialog Box to your tools menu, go to Project->
'Components (or press CTRL-T) and select Microsoft Common Dialog control)
Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Sub Form_Load()
        Dim SHFileOp As SHFILEOPSTRUCT
    CDBox.DialogTitle = "Select a file to delete ..."
    CDBox.Filter = "All Files (*.*)|*.*"
    CDBox.ShowOpen
    With SHFileOp
        'Delete the file
        .wFunc = FO_DELETE
        'Select the file
        .pFrom = CDBox.filename
        'Allow 'move to recycle bn'
        .fFlags = FOF_ALLOWUNDO
    End With
    'perform file operation
    SHFileOperation SHFileOp
    MsgBox "The file '" + CDBox.filename + "' has been moved to your Recycling Bin !", vbInformation + vbOKOnly, App.Title
End Sub
--
Fosco
Newsgroup: it.comp.lang.visual-basic
Titolo: [MEETING] [PREMESSA] Proposte nuovo organizzatore

Salve ragazzi, ho aspettato fino alla fine, ma proprio non e' cambiato
nulla, marzo per me e' un mese pienissimo e devo lasciare la palla di
organizzare il prox meeting a chiunque si voglia proporre. Con i tempi direi
che ci siamo, 7gg per votare e poi tutto marzo per organizzarsi !
Il post per chi voglia proporsi e' : "[MEETING] Proposte nuovo
organizzatore" postato insieme a questo.
Tnk e spero di esserci . ^_^
-- 
<Gigio2K>
--- 
http://www.g2kweb.it/gigio2k
 ---
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

PS: come l'impegnato e disponibilissimo RobyPiazzolla lo ha fatto con me,
saro' felice di passare tutti i vecchi file del meeting (mesaggi ecc) al
nuovo organizzatore e sono a disposizione per qualsiasi chiarimento.


UP


 Tnk e spero di esserci . ^_^
Ragazzi, nessuno si propone ? We' io organizzo lo stesso se non si presenta
nessuno, ma non voglio nessuna lamentela pero' :p
O Gigio o vi candidate ! Fate voi !
-- 
-Gigio@Work(?)-

 O Gigio o vi candidate ! Fate voi !
Ho come l'impressione che sarà Gigio! ;-)

 Ho come l'impressione che sarà Gigio! ;-)
Eh eh, e ho come l'impressione che st'anno il meeting si fara' via internet
con pranzo al sacco :p
-- 
-Gigio@Work(?)-

 presenta nessuno, ma non voglio nessuna lamentela pero' :p
Io purtroppo sono impegnatissimo conl'Università....
Se organizzate a Milano o dintorni io ci sono...
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

Sei scappato con le chiavi del Sito ? :p
E' periodo di elezioni , se non spunti fuori apriamo la caccia :pppppp
(preparo i caniLupo con tanto di Zanne e vediamo se riesci a nasconderti tra
i Paperini ... )
PS: io ti rivoto al volo :p


 PS: io ti rivoto al volo :p
E io ti plonko così non conto il tuo voto! :P

Newsgroup: it.comp.lang.visual-basic
Titolo: Array di stringhe

Ciao a tutti.
ho una funzione che deve ritornare un array di long.
Il prototipo della funzione č:
Private Function GetListaSelezionati(cod As Long) As Long()
Per popolare l'array che dovrņ ritornare faccio uso di una variabile di
comodo S as long.
Tuttavia se la dichiaro come:
Dim s() As long
quando vado a fare un'operazione del tipo:
For i = 0 To r.RecordCount - 1  ---> r č un adodb.recordset
    s(i) = r!campolong
Next i
mi viene ritornato un errore di out of range dell'array.
In .Net userei l'istruzione Redim per ridimensionare l'array, ma come si
puņ ovviare al problema in VB6?
Grazie per le risposte!!
Max
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 puň ovviare al problema in VB6?
Con la guida e l'istruzione Redim ;-)
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 può ovviare al problema in VB6?
Tirando a indovinare che Redim sia un retaggio di VB6?
Ciao

 Grazie per le risposte!!
hai fatto tutto da solo
Ciao
Alessandro
-- 
Morfeus®
Free Joint
:PII
Newsgroup: it.comp.lang.visual-basic
Titolo: Chi mi aiuta?

Ho una serie di Label da 1 a 128 non sono Index
e vorrei con un solo comando cambiagli il colore "backcolor" a tutte
grazie a quanti mi aiuteranno
--
ELETTRONIC SYSTEM
VIA FRATTE 55
35010 SANTA GIUSTINA IN COLLE
PADOVA
SISTEMI DI SICUREZZA
WEB: 
www.elettronicsystem.com
email: 
in...@elettronicsystem.com


    For x = 0 To Miaform.Controls.Count - 1
        With frm.Controls(x)
                If TypeOf Miaform.Controls(x) Is Label Then
                   .BackColor = vbRed    '    O quello che vuoi tu
                End If
        End With
    Next x
    Miaform.Refresh
Buttata giů al momento, controllala
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

 grazie a quanti mi aiuteranno
usa typeof:
Private Sub Command1_Click()
    Static c As Boolean
    Dim j As Control
    c = Not c
    For Each j In Me.Controls
        If TypeOf j Is Label Then j.BackColor = IIf(c, vbRed, vbBlack)
        If TypeOf j Is Label Then j.ForeColor = IIf(c, vbBlack, vbRed)
        If TypeOf j Is Label Then j.Caption = IIf(c, "Qualcosa", "Niente")
    Next
End Sub
hth, pal

 scritto nell'articolo 

 ramarro.
si ottiene un bell'effetto cromatico che coinvolge tutte le label del form
:)
d'altronde, in mancanza di index, o cosi' o pomi'.
ciao, a.

(...)
Questo codice cambia il colore di tutti i controlli Label presenti nella
Form:
Sub CambiaColoreLabel(clr As Long)
    Dim r%, NumeroControlli%, Controllo As Control
    NumeroControlli = Me.Controls.Count
    For r = 0 To NumeroControlli - 1
        Set Controllo = Me.Controls(r)
        If TypeOf Controllo Is Label Then
            Controllo.BackColor = clr
        End If
    Next r
End Sub
Se poi le label di cui vuoi cambiare il colore le hai chiamate tutte Label1,
Label2, ..., Label128, e nella Form ci sono alcune Label con un nome diverso
che non vuoi che cambino di colore, allora  puoi aggiungere all'interno
della condizione TypeOf:
If Left$(Controllo.Name, 5) = "Label" Then
    Controllo.BackColor = clr
End If
oppure utilizzando la proprietą Tag (opportunamente settata in fase di
progettazione) per distinguere le label che devono cambiare il colore da
quelle che non devono cambiarlo (nel caso si chiamino tutte Label):
If Controllo.Tag = "sģ" Then
    Controllo.BackColor = clr
End If
    Ciao, Silvio.

 scritto nell'articolo
Puoi sempre modificare il controllo del ciclo, tipo:
   If TypeOf Miaform.Controls(x) Is Label then
        if left$(MiaForm.Controls(x).Name, 6) = "Label1" Then

Newsgroup: it.comp.lang.visual-basic
Titolo: A cosa serve Crystal Report?

Scusare l' ignoranza, ma vorrei sapere con chiarezza a cosa serve
Crystal Report!

Immagina di avere un database con tutti i clienti, le fatture emesse e
le bolle...
CR ti può servire ad esempio a stampare un tabulato fatture emesse che
comprensivo del numero bolle ordinato per cliente...
...e tante altre cose...
sid

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Disabilitare CTRL + ALT + CANC

Ciao a tutti,
Sono nuovo e magari ripropongo un quesito gią affrontato ma, oggi ho
incontrato la necessitą di disabilitare la sequenza di tasti CTRL + ALT +
CANC e, ho raccolto vari esempi senza trovarne uno che funzioni. Tutti gli
esempi trovati fanno riferimento alle API per intercettare la sequenza di
tasti ma nulla! Come posso fare? Grazie in anticipo.
Roberto
robert...@tiscali.it

 
robert...@tiscali.it
CIAO ROBERTO
SE LA TUA NECESSITA' E NON PERMETTERE CHE IL TUO PROGRAMMA VENGA CHIUSO
SENZA CHE SI EFFETTUI UN LOGIN AD ESEMPIO IO LO RISOLTO IN QUESTO MODO:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = 3 Then
    Cancel = 1
    MsgBox "INSERIRE LA PASSWORD!!!"
    End If
 
End Sub
INTERCETTANDO L'EVENTO QUERY UNLOAD VEDI SEI IL PROGRAMMA E' STATO CHIUSO
DALL'ESTERNO O DALL'INTERNO. PERO' QUANDO RIAPPARE LA FINESTRA TERMINA
OPERAZIONE NON RIESCO A BLOCCARLA.
CIAO, SE CI RIESCI A BLOCCARE ANCHE LA SECONDA FINESTRA DI WINDOWS FAMMELO
SAPERE.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.visual-basic
Titolo: PictureBox trasparenti

ciao a tutti,
sono nuovo di questo news group e avrei bisogno di un aiuto...
devo fare in modo che un PictureBox visualizzi un'immagine da file, ma
l'immagine si deve comportare come un'icona, cioč deve avere dei pixel
trasparenti che lascino vedere l'oggetto sottostante (ad esempio un'altro
PictureBox o anche il Form che contiene il PictureBox in questione).
Ho sentito dire che posso ottenere quest'effetto con delle API di windows e
un file "maschera".
qualcuno mi puň spiegare come potrei fare a livello di codice?
grazie anticipatamente...

 sono nuovo di questo news group e avrei bisogno di un aiuto...
CUT
Il nick di qualcuno è sempre significativo di qualcosa....l'hack farebbe
pensare a qualcuno che si arrangia.....
In realtà!....
Allora hai 2 strade quando non sai una cosa...
1) Cercare da te nel mare immenso di internet...e poi postare se non capisci
qualcosa
2) Chiedere una cosa a chi sa + di te col rischio di chiedere una cosa
banale....
Io non son tipo da 2 opzione quindi
prenditi un motore di ricerca...Google e cerca PictureBox trasparenti
...te lo fo io va...ma solo per questa volta ...per insegnarti
il secondo titolo trovato....
http://www.microsoft.com/intlkb/italy/articles/I15/5/17.htm
ti insegna addirittura a farti un controllo per visualizzare immagini
trasparenti!
Altra soluzione
il sito comune del newsgroup
http://www.it-lang-vb.net
Se cerchi trasparente...vien fuori un po di esempi e un sacco di altro
materiale...
Consiglio
Sul sito comune c'è un sacco di roba...da tutorial su come si usa ADO a
corsi di SQL a esempi di scambio dati con XML...a recensioni e consigli sui
libri da acquistare....MEGLIO DI COSI'
Ciao!
:-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Formattazione testo

Salve a tutti,
vorrei formattare il testo immesso in una textbox in modo tale che gli spazi
vuoti tra una parola e l'altra (qualunque essa sia) siano riempiti con dei
caratteri es:
inserisco in text box le parole: computer mouse ,(divise da uno spazio) e
viene visualizzato su una seconda textbox (dopo il clic su apposito
pulsante ) ----> computer***mouse (con i tre asterischi o qualsiasi altro
valore al posto del vuoto).
E' possibile?
Grazie in anticipo,
Elio



replace + F1
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Shape in primo piano

Salve a tutti,
Ho un piccolo problema di estetismo.
In un form, quando
visualizzo un altro form-finestra richiamato con 'scelta obbligatoria'
desidererei che tutto il contenuto del form sottostante venisse
parzialmente 'offuscato' per dare maggiore risalto al nuovo form.
Qualcuno
sa come poter ottenere questo effetto?
Io ho provato utilizzando lo Shape,
con i suoi vari tipi di FillStyle andrebbe bene, ma questo tipo di
controllo non riesce a mantenere il primo piano su controlli più importanti
come TextBox ecc.!
Qualcuno sa darmi una indicazione in merito?
Un grazie
anticipato a tutti
Peter
--------------------------------
Inviato via 
http://usenet.iol.it

 controllo non riesce a mantenere il primo piano su controlli piů


Qualcuno sa darmi una indicazione in merito?
Gli shape/line/label/images non sono controlli, ma metodi grafici.
Non possono stare in primo piano.
Usa al loro posto una picturebox.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: pseudo GoTo

Dim ERRORE As Boolean
Private Sub Text1_Change()
ERRORE = False
testNUMERO
    If ERRORE Then Exit Sub
testINTERVALLO
    If ERRORE Then Exit Sub
testPARI
    If ERRORE Then Exit Sub
End Sub
Private Sub testNUMERO()
If Not IsNumeric(Text1) Then
    Text2 = "non numerico"
    ERRORE = True
End If
End Sub
Private Sub testINTERVALLO()
If Text1 > 1000 Or Text1 < -1000 Then
    Text2 = "fuori intervallo"
    ERRORE = True
End If
End Sub
Private Sub testPARI()
pari = Text1 / 2
    If pari <> Int(Text1 / 2) Then
        Text2 = "è dispari"
        ERRORE = True
    End If
End Sub
**********************************************************
Si può saltare incondizionatamente in una sub senza tornare,
In modo da evitere le condizioni nella Sub Text1_Change()
Ad es:
*********************************************************
Private Sub Text1_Change()
testNUMERO
testINTERVALLO
testPARI
End Sub
Private Sub testNUMERO()
If Not IsNumeric(Text1) Then
    ERRORE = "non numerico"
    gestionerrore (ERRORE) 'e non tornare
End If
End Sub
Private Sub testINTERVALLO()
If Text1 > 1000 Or Text1 < -1000 Then
    ERRORE = "fuori intervallo"
    gestionerrore (ERRORE) 'e non tornare
End If
End Sub
Private Sub testPARI()
pari = Text1 / 2
    If pari <> Int(Text1 / 2) Then
        ERRORE = "è dispari"
        gestionerrore (ERRORE) 'e non tornare
    End If
End Sub
Private Sub gestionerrore(ERRORE)
Text2 = ERRORE 'attendi evento
End Sub
*************************************************
In pratica al primo errore esegui gestionerrore ed esci.
Si tenga presente che non si vuole inglobare il tutto
in un unica sub è usare GoTo; in un programma lungo le
cose si complicherebbero.

Imparato Luciano wrote:

puoi fare delle function di controllo anzichè delle sub ; function che
ti ritornano un booleano(True tutto Ok , False KO) e le testi nella sub
Text1_Change() ! Quando il booleano di ritorno è False fai un exit sub !

...

TI ringrazio x la risposta però in questo modo non evito le condizioni
nella Sub Text1_Change().
mi spiego meglio; se faccio in una sub:
Private Sub Text1_Change()
    GoSub testNUMERO
    GoSub testINTERVALLO
    GoSub testPARI
    Exit Sub
testNUMERO:
If Not IsNumeric(Text1) Then Text2 = "non numerico": Exit Sub Else Return
testINTERVALLO:
If Text1 > 1000 Or Text1 < -1000 Then Text2 = "fuori intervallo": Exit Sub
Else Return
testPARI:
pari = Text1 / 2
If pari <> Int(Text1 / 2) Then Text2 = "è dispari": Exit Sub Else Return
End Sub
ottengo quello che desidero però il mio programma ha un sacco di sub
e non posso mettere tutto in una come si faceva una volta.
grazzzzzzie.
Newsgroup: it.comp.lang.visual-basic
Titolo: codice di esempio di Access 2000

Nel modulo di codice di esempio di utilità del DB Northwind Traders , c'è la
sola funzione "CARICATA()",
che mi pare proprio errata....:
Function Caricata(ByVal strNomeMaschera As String) As Boolean
 ' Restituisce vero se la maschera specificata è caricata in visualizzazione
Struttura.
    Const conStatoOggettoChiuso = 0
    Const conVisualizzazioneStruttura = 0
    If SysCmd(acSysCmdGetObjectState, acForm, strNomeMaschera) <>
conStatoOggettoChiuso Then
        If Forms(strNomeMaschera).CurrentView <> conVisualizzazioneStruttura
Then
            Caricata = True
        End If
    End If
End Function
Infatti  currentview vale zero se la visualizz. è  in struttura, quindi va
impostata a false la funzione , non a true !
ciao.

impostata a false la funzione , non a true !
Sinceramente non mi e' chiara la tua osservazione.
Probabilmente si tratta di intendersi sul significato di "Caricata" e sul
contesto opportuno per l' uso di tale funzione, ma mi sembra corretto
che restituisca True.
-- 
ciao, hal
che non produce una maschera Access da un bel po'

 che restituisca True.
Per Microsoft caricata vuol dire in visual.struttura, almeno il codice come
vedi viene commentato
così.
Quindi anche tu concordi che il codice di esempio è errato!!
Deve restiture false, visto che currentview vale zero se la visual.è in
struttura.
ciao e grazie.

struttura.
Non e' sbagliata la funzione, essa esegue correttamente il proprio
lavoro.
E' sbagliato il commento.
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Help per un principiante

Scusate per la domanda stupida, ma č da pochissimo che tento di fare dei
prog con vb.
Qual č il comando per fare aprire una nuova finestra con un' immagine
???
Grazie per l' aiuto
--
Paolo '83 RE
gher...@iname.com
CIAO!

...


Grazie tante...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Icone Web Application Wizard

Ma da dove pesca le icone per la toolbar (stile iexplorer) l'application
wizard del vb6?
Scusate ma non sono riuscito a trovarle...
Ciao MArco



Suppongo le abbia nelle dll e ocx della directory Wizards di vb98.
-- 
ciao, hal

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

della dll del wizard 8invisibili dunque a programmi come microangelo).
Cosi' per curiosita', ma a quali icone alludi? 
E, qui viene fuori tutta la mia ignoranza sugli wizard, si chiama
proprio "Web Application Wizard"? Perche' io non l'ho visto.
-- 
ciao, hal

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

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

listimage....
Sono contenute in Web Browser.frx nella directory /Template/Forms di
vb.
Come estrarle?
Te lo spiega Brad Martinez:
http://www.mvps.org/btmtz/gfxfromfrx/
-- 
ciao, hal

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

 ... sempre mitico brad martinez!
Sempre mitico hal vorrai dire ;)
Lokar
P.S. Il quoting!
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org

Newsgroup: it.comp.lang.visual-basic
Titolo: DBGRID non va

Ciao a tutti.
E' la prima volta che mi collego a questo NG, scusate se ripeto la
domanda già
postata da qualcuno.
Premetto che è da poco che mi sono avvicianto a Visual-Basic, utilizzo
per le applicazioni Delphi, però sono interessato anche all'utilizzo di
VB.
Il mio problema è il seguente:
Utilizzo VB 5.0 PRO
Utilizzando una DBGRID, ove carico una tabella ACCESS, dopo aver
compilato il prg, dopo aver modificato un record nella tabella tentando
di
passare al successivo perciò impongo una scrittura del record modificato
ottengo
questo tipo di errore:
Impossibile aggiungere la quantita di dati desiderata. Inserire o
incollare meno
darti.
Questo cmq succede anche al di fuori dell'ide di vb.
Ciao a tutti e grazie.

Va, va la DBGrid. Il problema è che stai cercando di scrivere una variabile
più lunga del campo del database.
Es:.
Campo Dex di 50 caratteri
Se tenti di memorizzarci una stringa di 51 caratteri ottieni l'errore che
hai descritto.
Fabio Guerrazzi


Newsgroup: it.comp.lang.visual-basic
Titolo: qury sql e apici

Ciao a tutti
ho il seguente problema con una query sql:
faccio il confronto dei nomi di molti file in una cartellina, con i
nomi di file presenti in un db access in un ciclo creo la seguente sql
sql    =    "Select * from Nome Where Nome = '" & var_nome & "'"
dove var_nome č = ad esempio a "l'anno 1978 criteri.....di eccc....doc"
Visual basic mi da errore quando trova un nome appunto con l'apostrofo!!!!
Come posso risolvere? qualche idea?
--------------------------------------
Franco
Grazie a tutti per le eventuali risposte

 sql    =    "Select * from Nome Where Nome = '" &
Replace(var_nome,"'","''") & "'"


 Visual basic mi da errore quando trova un nome appunto con l'apostrofo!!!!
La soluzione piů semplice č quella di raddoppiare l'apicino:
Replace(Variabile,"'","''").
La stessa cosa perň va fatta anche negli insert, update, ecc....
Ciao
Alberto

 Replace(Variabile,"'","''").
grazie a tutti funziona
------------------------------------------------------
Ciao
Franco

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Problemi con la ToolBar

Ciao a tutti,
    Se inserisco un Command Button in un Progetto, e nella Caption metto
    "&Salva",
    Premendo "ALT+S", mi preme il pulsante. E fin qui nulla di strano.
    L'oggetto ToolBar possiede la proprietą Caption, e se scrivo
    "&Salva",
    Mi inserisce la parola "Salva" con la "S" sottolineata, ma premendo
"ALT+S", non succede niente.
    Come posso fare per far premere il pulsante in questo modo ?
    In attesa di una risposta, vi ringrazio di avermi dato ascolto
 
SeR...@freemail.it

     L'oggetto ToolBar possiede la proprietà Caption, e se scrivo

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con Tasto Invio

Salve, ho un problema.
Ho creato una form con una text box ed un pulsante.
Voglio che quando schiaccio il tasto invio mi scriva nella textbox
"pippo etc...".
Prima imposto la proprieta' della form KeyPreview=TRUE di modo che
prenda
gli eventi con priorita'.
Il codice e':
Private Sub Form_KeyPress(KeyAscii As Integer)
    if KeyAscii = vbKeyReturn
        text.text="pippo"
    endif
End Sub
ora quando schiaccio invio non succede niente.
Ma se tolgo il pulsante dalla form funziona.
Ho letto che anche con la proprieta Preview la form non puo' ricevere
l'evento INVIO in presenza di altri controlli.
Come posso fare per fare ricevere alla form il keypress di INVIO in
presenza
di altri controlli?
Grazie a tutti.
Elena.

La tua soluzione dovrebbe funzionare.
Anzi in presenza di un commandbuttom funziona.
Quali controlli hai sul form oltre al  commandbutton?
Fbrz

 wrote in message 38DB68D1...@supereva.it...


Ciao Elena
Un metodo potrebbe essere questo:
crei un tasto cui associ la routine che ti interessa, e imposti la proprietà
default del tasto a true, così da qualunque parte nel form tu premi invio è
sempre come se premessi sopra quel tasto.
Ciao :-)
--
___________________________________________
                             Davide Deidda
URL      
http://web.tiscalinet.it/meridies
E-Mail          
davide...@tiscalinet.it
___________________________________________

Perchč non gestisci l'eventi keypress o keyup del tuo textbox
if keycode= vbkeyreturn (oopure 13) then
    text1=text1 & "ecc...."
end if

l'evento INVIO in presenza di altri controlli.
  Dove l'hai letto? Io uso il tuo stesso metodo con la property
KeyPreview settata a True e mi ha sempre funzionato.
  Per caso, la property Default del command button e' settata a True?
Potrebbe essere quella ad interferire...
  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"

 >
Scusa ma cosa dovrei scrivere nell'evento key down?
E poi nell'evento key press ho scirto proprio cosi
Prova a fare una form ed un pulsante.
E poi scrivi quello che hai detto. Non ti funzionera'.
Ciao.
Elena.

DavideD wrote:

Ho provato e riconosce tutte i tasti (ho fatto in modo che mi visualizzi il
codice)
ma tranne quello di RETURN!!!!!!!!!

venf90 wrote:

Non funziona nemmeno cosi!
Elena

   In the address, insert an "h" between the "t" and the "u"
Guarda per gli altri tasti funziona. Per tutti tranne che per il return.
Al limite mandami il tuo codice che lo provo e vedo.
Elena

 wrote in message
news:38DD4F76...@supereva.it...


Al limite mandami il tuo codice che lo provo e vedo.
  Stavo per scrivere che il mio codice e' identico al tuo quando l'ho
riguardato ed ho visto una cosa:
    if KeyAscii = vbKeyReturn
  Su questa riga manca il Then, com'e' possibile? Hai il controllo
ortografico automatico attivato?

Newsgroup: it.comp.lang.visual-basic
Titolo: simulare un click su un' applicazione

il mio problema e' questo:
Da un' applicazione in vb da me sviluppata, starto un programma esterno con
la chiamata all' api shellexecute.
Adesso quando l' applicazione fatta partire dalla shell e' attiva ho la
necessita, in automatico, di premere un button.
Come posso farlo, il button sta fuori dalla mia applicazione e risiede sull'
applicazione lanciata con la shell.
ciao.


prova con sendkeys. non invia un click, ma una sequenza di tasti. per 
premere un bottone potresti inviare lo spazio o l'invio.
in ogni caso devi stare attento che l'applicazione che hai appena aperto 
sia in primo piano. per farlo potresti chiudere la tua ad icona, inviare 
la sequenza di tasti, per poi riaprirla.
-- 
regards,
Simon

 ha scritto nel messaggio
news:3DBEE88...@fru.com...


 scusa puoi farmi qualche esempio con la funzione sendk.....
SendKeys "ciao{ENTER}questa è una prova.", True
-- 
regards,
Simon

Newsgroup: it.comp.lang.visual-basic
Titolo: Io odio le porte seriali !!!

 Ho un bel problemino spinoso ... come dialogo con una posta seriale tipo la
 COM1 ... devo trovare il modo di catturare il segnale in entrata e
 rielaborarlo in modo da creare un avi !!!
 Il mio input e' una lavagna particolare ogni pressione manda un segnale al
 computer ... please help me :) Liz

...


  computer ... please help me :) Liz
You're asking in the wrong newsgroup.
You need help from the experts in a platform newsgroup.  This newsgroup,
news:comp.lang.c++, discusses the STANDARD C++ language which has no
facilities for nor requires support of serial ports.
This article contains a list of useful newsgroups:
http://www.slack.net/~shiva/welcome.txt
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 ha scritto nel messaggio
news:8ff88i$loa$1...@pluto.sm.dsi.unimi.it...



Newsgroups: it.comp.lang.visual-basic
Subject: Re: Porta parallela
Date: Mon, 27 Mar 2000 13:53:42 +0200
Utilizzo di Win95io.dll:
In un modulo:
'Dichiarazione API
Public Declare Sub vbOut Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal
nData As Integer)
Public Declare Sub vbOutw Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal
nData As Integer)
Public Declare Function vbInp Lib "WIN95IO.DLL" (ByVal nPort As Integer) As
Integer
Public Declare Function vbInpw Lib "WIN95IO.DLL" (ByVal nPort As Integer) As
Integer
Private Sub Send1ToParallel()
Dim iLPTAddress As Integer
Dim LPTAddress As String
    LPTAddress = H378 'Indirizzo di memoria della LPT1
    iLPTAddress = "&" & Left(LPTAddress, 4)
    Call vbOut(iLPTAddress, 1) 'Mando 1 alla scheda collegata alla parallela
End Sub

 --
Perdonato ... avessi capito 'na mazza di quello che avete detto :))))
Almeno ho riconosciuto il mio messaggio integralmente ... e hai mantenuto
l'autore ... :)))))))))
--
Ciaps
Stracca
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------