mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora su Rich Text Box

Ciao a tutti,
il problema può sembrare banale, ma io non riesco a venirne a capo.
Ho una RTB che funziona come una pagina di Log dove io vado a scrivere (via codice) del 
testo formattato.
Fin'ora mi sono limitato ad usare la proprietà TextRTF associandogli il testo in questo modo:
RTB.TextRTF = TestoRTF
dove TestoRTF è una stringa contenente il testo da me formattato con i vari TAG.
Il problema è che così ogni volta viene ricaricato l'intero contenuto della RTB!!!
Non sono riuscito a trovare il modo di inserire del testo formattato alla fine mantenendo 
inalterata la formattazione del testo precedente (non so se mi sono spiegato)
Ho provato con SelRTF...ma nada!!
Avete qualche esempio?
Grazie.
LeleB.

 ha scritto nel messaggio
news:TIS4d.5831$H11.1...@twister1.libero.it...


 
Allora forse sbaglio qualcosa io...
Facccio un esempio "stupido":
Private Sub Form_Load()
  RTB.Text = "PROVA RICH TEXT BOX"
End Sub
A questo punto la proprietà RTB.TextRTF vale:
{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}}
{\colortbl\red0\green0\blue0;}
\deflang1040\pard\plain\f0\fs17 PROVA RICH TEXT BOX
\par }
Se aggiungo una stringa formattata...
Private Sub Command1_Click()
     Dim Testo As String
     RTB.SelStart = Len(RTB.Text)
     Testo = "\b \cf3 - PROVA INSERIMENTO STRINGA \par"
     RTB.SelRTF = Testo
     'RTB.TextRTF = Testo
End Sub
...Nella RTB viene visualizzato:
PROVA RICH TEXT BOX \cf3  \b  - PROVA INSERIMENTO STRINGA  \par
e la proprietà RTB.TextRTF vale:
{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}}
{\colortbl\red0\green0\blue0;}
\deflang1040\pard\plain\f0\fs17 PROVA RICH TEXT BOX \\cf3  \\b  - PROVA INSERIMENTO 
STRINGA  \\par
\par }
praticamente non riconosce i TAG che scrivo.
Dove sbaglio?
LeleB.

 ha scritto nel messaggio
news:PgU4d.5995$H11.1...@twister1.libero.it...


 Se aggiungo una stringa formattata...
Urka =8-O
Perché lavori con la stringa formattata direttamente in RTF ?
Tecnicamente si può, ma è un _grosso_ casino.
Prova quest'altro codice:
Private Sub Command1_Click()
     RichTextBox1.Text = "Testo della prima riga, default" & vbCrLf
     With RichTextBox1
          .SelStart = Len(.Text) ' sposta il cursore in fondo al testo
          .SelBold = True ' seleziona il grassetto
          .SelColor = vbRed ' setta il colore rosso
          .SelFontSize = 12 ' dimensione del carattere 12 punti
          .SelText = "seconda riga, in grassetto, rosso e corpo 12" & vbCrLf
     End With
     With RichTextBox1
          .SelStart = Len(.Text)
          .SelBold = False ' toglie il grassetto
          .SelItalic = True ' mette il corsivo
          .SelColor = vbGreen
          .SelFontSize = 15
          .SelText = "terza riga, in corsivo, verde e corpo 15" & vbCrLf
     End With
End Sub
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: Il semplice metodo .Line  brutto su XP

Usando il metodo .Line per disegnare
linee tratteggiate (DrawStyle = Dashed)
con spessore maggiore di 1  (DrawWidth = 4)
per esempio su una Picture box
cioè
Picture1.Line (50*15, 300*15) - (200*15, 300*15), vbBlue
quando l'applicazione sarà eseguita su XP (Professional),
su altre versioni di Windows non è possibile ottenere il DrawStyle
se lo spessore è maggiore di 1,
i trattini generati sono pessimi:
ad essere disegnati in sequenza
non sono cioè dei rettangolini,
ma dei rettangolini privati degli angoli 
superiori a sinistra (2 pixel) e dell'angolo superiore destro (1).
E altre brutture con spessori diversi
o
non con la proprietà Dashed ma ad esempio Dotted
(provate la Dotted con spessore 3).
---------
Lo stesso se uso le API,
per esempio la API Polyline.
--------
Dipende dalla versione bucata della .dll su XP 
che si incarica del disegno e di mi sfugge adesso il nome
o 
cosa si può fare (oltre ad andare a disgnare un attimo dopo
i pixel mancanti con il metodo .PSet) ?
-----------
Grazie.

Scusate,
non ho ricevuto risposte.
Essendo l'uso del metodo .Line
abbastanza comunque,
devo presumere che allora su XP
a voi il metodo .Line
disegna i trattini delle linee tratteggiate (Dashed)
più spesse di 1 pixel assolutamente bene
(il che mi starebbe assai bene perchè
il problema starebbe solo nel  XP mio
e non devo adeguare il programma che sto facendo)?
Sul mio XP Professional,
le disegna in modo impresentabile...
Integro il messaggio precedente
dicendo che uso VB5 Enterprise.

Molte grazie.
Newsgroup: it.comp.lang.visual-basic
Titolo: Funzione Crypt(3)

Devo inviare dei dati ad un provider, e vuole che i parte dei dati siano
criptati, usando la
"la funzione crypt(3) della libreria C (unix)"
Qualcuno sa indicarmi un porting di tale libreria per VB?
Magari free?
Ok, meglio sarebbe se ci fosse direttamente il codice, visto che non ho
voglia di aggiungere altre DLL alla procedura di installazione...
Grazie in ogni caso :-)

"la funzione crypt(3) della libreria C (unix)"
  Se e' roba Unix magari trovi i sorgenti con una ricerchina in
rete...
-- 
  Ciao :-)
  Massimo
  Nell'indirizzo, sostituire "micio" con "mc"


http://linux.about.com/library/cmd/blcmdl3_crypt.htm
come vedi la base è il DES
quindi....
ad esempio
http://www.slavasoft.com/quickcrypt/?source=QuickCrypt
oppure
USANDO quello che già c'è dentro win XP 2000
http://www.mvps.org/emorcillo/vb6/crypto/encrypt.shtml
ossia le cryptoAPI
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/security/security/cryptography_portal.asp
buon lavoro!
-- 
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 New Entry nel bestiario!
:-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Per iniziare VB.NET

Ho deciso di fare il passo...di tutti i libri che conoscete o avete provato,
quale vi sembra il migliore per iniziare a lavorare in 
VB.NET
?
Marco

 ha scritto nel messaggio
news:iIcjb.9073$uv4....@news.edisontel.com...


 trovato molto bene!
Sottoscrivo in pieno....  :-)
                Ciao
                        Zephiross
.

Newsgroup: it.comp.lang.visual-basic
Titolo: script VBE

Esiste in "natura" o avete magari creato una funzione che funga da avviso
(come quella dell'esempio)?
Questo script VBE viene lanciato con wscript.exe per evitare i pallosi file
batch e anche perchè con i batch non ho trovato il modo di avere il nome del
file con la data di sistema.
In questo modo invece è molto rapido ed efficace, basta lanciare WSCRIPT.EXE
C:\NOMEFILE.VBE.
Non posso usare una form perchè lo script non lo permette (almeno credo).
Ecco lo script:
Option Explicit
Dim Shell
Dim PathSource
Dim PathTarget
Dim cNameFileDate
PathSource="c:\pippo"
PathTarget="d:\pippo"
cNameFileDate=Mid(cdate(date),7,4) & Mid(cdate(date),4,2) &
Mid(cdate(date),1,2)
Avviso "Backup giornaliero archivi, attendere prego...." ' è questa la
funzione che mi manca!
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Run "winzip.exe -min -a -r " & PathTarget & cNameFileDate & " " &
PathSource , 1
Set Shell = Nothing
Avviso "Backup terminato...."
If Err.Number <> 0 Then MsgBox "Impossibile avviare il backup"&
Hex(Err.Number) & " (hex).", vbCritical

 avviso (come quella dell'esempio)?
ma non avevi postato ieri ? volevo risponderti ma vedendo 2 post adesso non
so dove farlo, per non fare del torno a nessuno non rispondo !
-- 
-Gigio@Work(?)-
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Si parlava di BSOD ?

Speriamo che il prossimo sia cosģ...
http://www.saunalahti.fi/~jylppy69/bluescreen.jpg
Bye, G.

 
http://www.saunalahti.fi/~jylppy69/bluescreen.jpg
finalmente una buona spiegazione di 'any key' !

 finalmente una buona spiegazione di 'any key' !
LOL
Un'altra possibilità:
http://www.saunalahti.fi/~jylppy69/fc.jpg
Bye, G.

"Paperino" ha scritto nel messaggio
...e la sempre servizievole Clippy :-)
http://www.saunalahti.fi/~jylppy69/suicide.gif
Bye, G.

 
Guardate cosa č successo al mio cellulare:
http://www.iammol.com/cazzate/image/potwnorm.jpg
 :PPP


ROTFL
ciao
ugo

 
http://www.saunalahti.fi/~jylppy69/suicide.gif
Ma... serve un browser particolare per vedere qualcosa?
Provati tutti i link con più pc e vari tipi di provider, ma nessuno è
raggiungibile :(
Ciao

 
Uffa! ^__^ non dovete darmi sti siti! altrimenti non studio piů! mi sono 
messo a risalire le directory del sito:
http://www.saunalahti.fi/~jylppy69/critics.jpg
http://www.saunalahti.fi/~jylppy69/emails.jpg
http://www.saunalahti.fi/~jylppy69/xp.jpg


Virgilio + mozilla e si vedono ...
Sara' l'afa! I pacchetti vanno lemme lemme ... ;-)
		maxx

visto che si parla di sciocchezzuole, io *amo* questa :)
http://www.geocities.com/rcwoolley/
saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 26+15, RA, 193, 152
   VBR - Vero Birro RomagnoloŽ, diffidate dalle imitazioni!
 BMW 530D "BatMobile EVO" Driver - Subarone da 500 CV dreamer
Kawasaki "Gas Gas" ZZ-R 1100 - HD Electra Ultra Classic Dreamer
   On contrary of popular belief, Unix *IS* user friendly:
    it just appears to be selective who it is friend with

 saluti.
ROTFL

 
http://www.geocities.com/rcwoolley/
quando hai un po' di tempo, passa sul mio sito
-> chappi -> pc*
--
ciao, j.
www.sundaysw.com

-> chappi -> pc*
provvedero' :)
devo sistemare un paio di sciocchezzuole --tipo finire la casa e
sposarmi, oltre che un servosterzo nuovo per i miei transpallet e
passare a motori ad eccitazione separata-- e poi posso dedicarmi a
quello che preferisco quando preferisco :)
saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 26+15, RA, 193, 152
   VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!


 quello che preferisco quando preferisco :)
ti ho detto di guardare delle immagini, non di metterti a fare sesso !

ti ho detto di guardare delle immagini, non di metterti a fare sesso !
mmmhh... ok, allora lo faro' :)
mi indichi qual e' il tuo sito?
dovrei premere ctrl+f e poi cercare nei post vecchi, ma questo
richiederebbe almeno 2ns di tempo e una connessione semipernanente tra
3 neuroni... troppo aumento di entropia: spero capirai ;)


 3 neuroni... troppo aumento di entropia: spero capirai ;)
capisco, capisco
--
ciao, j.
www.sundaysw.com

capisco, capisco
fantastico :)
ci sono delle immagini fichissime :)
ciao
-- 
      Gianni "bugbarbeq" Rondinini, 26+15, RA, 193, 152
   VBR - Vero Birro RomagnoloŽ, diffidate dalle imitazioni!

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda per buon programmatore

Ciao
Ma esiste si o no un modo per visualizzare gif animate in un form tramite
OCX di Windows o altro?

 OCX di Windows o altro?
http://groups.google.com/groups?as_q=gif89&ie=UTF-8&oe=UTF-8&as_ugroup=it*basic&lr=&hl=it


Certo che c'č. Ce ne sono diversi, io di solito uso Gif89.dll (non ha perň
il metodo onclick) se cerchi lo trovi in qualunque motore, altrimenti
mandami una email che te lo spedisco.
ciao
-------------------------
www.giessesoft.com
-------------------------

 OCX di Windows o altro?
Sul sito comune di questo NG (vedi firma) ce ne sono 4 o 5.
Il Sito Comune è anche tuo, usalo e aiutalo!
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Ci si vede tra una decina di gg

Beh ragazzi per quest'anno ho dato. Parto ... con il portatile
al seguito, ma la connessione sarebbe da cellulare. Costosa
e lenta ... quindi per quanto il mio contribuoto possa essere
modesto ... cercate di farne a meno finchè non torno ....
Buon proseguimento a chi rimane.
-- 
Saluti
Andrea Moro

 ha scritto


 Buon proseguimento a chi rimane.
buon viaggio bello ! 
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

uffa, ve ne state andando tutti, che tristezza.....
rimango solo io, qua, nel lodigiano, a patire il caldo?
beh, buone vacanze, allora......divertiti......
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 modesto ... cercate di farne a meno finchè non torno ....
Divertitevi :-)))
Bye, G.

 ha scritto

lui e il suo cellulare ? :P

 al seguito
Non sia mai!!!!!!!!!!!!!!!! :-(((
Al più ti consento un rivista di programmazione (max 100 pagine!)  :-)
BUONA VACANZA! :-)
                    Ciao
                                        Allanon
-- 
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità
Newsgroup: it.comp.lang.visual-basic
Titolo: opzioni di compilazione

Nel pannello delle proprietą del progetto, tab Make, esiste la possibilitą
di inserire degli argomenti opaionali alla compilazione. qualcuno sa
indicarmi qualcosa a riguardo?
p.s. in un porgramma scaricato ho trovato l'opzione -xfx.
grazie a tutti

indicarmi qualcosa a riguardo?
Gli argomenti opzionali servono, come dice il nome, per la
compilazione condizionale, cioe' per compilare o meno dei
pezzi di codice.
Supponi di decidere un parametro di compilazione condizionale
che decidi di chiamare LOGGED.
Nel campo degli argomenti di compilazione condizionale scrivi:
LOGGED = 1
Nel codice, potresti inserire un frammento come questo:
#if (LOGGED) then
	' chiamo una mia funzione di log
	MyLogFunction("bla bla bla")
#end if
Il risultato di tutto questo e' che se LOGGED = 1 allora
la chiamata a MyLogFunction viene compilata e sara' contenuta
nell'eseguibile, mentre se LOGGED = 0 oppure non e' definito
per niente allora la chiamata a MyLogFunction e' come se
non esistesse e non viene inclusa nell'eseguibile.
Un procedimento del genere e' molto comodo per produrre,
dagli stessi sorgenti, eseguibili con caratteristiche diverse,
ad esempio versioni DEMO, DEBUG e altro ancora.
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Un consiglio su libro Vb6

Un saluto a tutti.
Vorrei un consglio sull'acquisto di un libro Vb6.
Mi spiego meglio, finora ho utilizzato "Visual Basic 5" di Gary Cornell
edito dalla Mc-graw Hill.
Vorrei pero' passare a qualcosa di piu' complesso, non sono interessato ad
un libro in cui vengono spiegate nuovamente le basi del
linguaggio....preferirei un qualcosa di piu' approfondito che spiegasse per
esempio i vari controlli con esempi pratici........insomma qualcosa che mi
faccia fare un ulteriore passo avanti nell'approfondimento di tale
linguaggio.
Diciamo che dal Ng ho imparato tanto.....ed anche dalle mie ricerche su
google nei vecchi post.....cmq un buon libro non fa mai male.....fatemi
sapere in merito
ciao e grazie a tutti
e.

Francesco Balena_Programmare M$ Visula Basic_Mondadori Informatica
Costa tanto...:-( 150 mila.....ma lo si potrebbe definire...THE HOLY Vb! :-))
Ciao SIMO
--
__________________
www.sasim.cjb.net


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] For Each... si puo' applicare qui?

  For tmp = 1 To Toolbar1.Buttons.Count
        Toolbar1.Buttons(tmp).Key = Toolbar1.Buttons(tmp).Caption
        Toolbar1.Buttons(tmp).ToolTipText = Toolbar1.Buttons(tmp).Caption
  Next

 ha scritto nel messaggio
news:b6h9e7$58m0l$1...@ID-106271.news.dfncis.de...


 ha scritto nel messaggio
news:b6h9e7$58m0l$1...@ID-106271.news.dfncis.de...
:   For tmp = 1 To Toolbar1.Buttons.Count
:         Toolbar1.Buttons(tmp).Key = Toolbar1.Buttons(tmp).Caption
:         Toolbar1.Buttons(tmp).ToolTipText = Toolbar1.Buttons(tmp).Caption
:   Next
imho si, è il costrutto più giusto.
considera anche che, quando hai a che fare con simili array e usi un ciclo
for, occorre fare attenzione se sono 0-based, 1-based.
Ciao, Luca.

     Next
questo e' un semplice For-Next con variabile, non e' un For Each...

 questo e' un semplice For-Next con variabile, non e' un For Each...
giusto.

Newsgroup: it.comp.lang.visual-basic
Titolo: Opening a Random Access file

I have not done any vb programming for a couple of years, and have decided
to try to get back into it.  I have a .dat file, that I know was set up as a
random access file, but know no more about it.  Is there a programatic way
to either view the file, or the structure of this file.  Any information
would be greatfully received. The file I am trying to access is a catalogue
system I wrote with a friend few years ago, but I no longer have the vb
code.
Thank you in advance, Paul
Feel free to email me at the address below - please remove the "_no_spam"
(my feeble attempt to prevent spam trawlers) before using the address!!!!!
email: plil...@hotmail.com_no_spam

to either view the file, or the structure of this file. 
Yes, you can open the file for binary, but you _already must_ know how
that file is structured.
-- 
bye, hal
p.s.
this is an italian newsgroup, so please post here in italian.
Newsgroup: it.comp.lang.visual-basic
Titolo: Form Focus

Hi.
When i open a form from my main form it's out of focus.
I can use the Form.Show 1 or Form.Show vbModal, but then all other forms are
locked until I close the form.
How do I open a non-modal form and get it in focus right away?
Best Regards,
Tor Valen, Denmark

> How do I open a non-modal form and get it in focus right away?
See ZOrder on MSDN
bye
PS "it" stand for Italian. Please speack in our language.
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] "Dim WithEvents" in una classe.Sicuri che non si possa...

...proprio fare niente?
Ho intenzione di creare un server parallelo, e vorrei creare un'intera
classe dedicata alla gestione di un client singolo.
In pratica dal form creo un nuovo Winsock e, creando una nuova istanza della
classe, lo assegno a quest'ultima.
Gli eventi li posso gestire dal form principale, mi restituisce l'index del
controllo che li ha generati e in base a quello posso reindirizzarlo alla
giusta istanza della classe che risponde al client, ma se riuscissi ad
intercettare gli eventi del Winsock dentro la classe il codice riuscirebbe
più pulito non trovate?
Non riesco proprio ad intercettare gli eventi nella classe: mi dice che non
può gestirli!
Grazie a tutti quelli chi sono arrivati fino in fondo!!
Michele Antolini


Il difetto e' nel winsock che non e' costruito per supportare questo metodo
di creazione.
Esistono dei controlli mabry progettati apposta e che funzionano a
meraviglia, controlla sul loro sito.
Ciaotutti,
*

 di creazione.
ma quanto è bello rispondere ai messaggi vecchi :))
non ci ho capito granché dalla spiegazione. prova a dare uno sguardo qui
e vedi se ti interessa.
http://vbsimple.virtualave.net/activity/act_05.htm
ciao
--
Fibia "ritorna nel NG" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #25 delle Mitiche Brigate Takahashi sezione Sud

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo Shockwave Flash: non si ferma!!!!!

Nel programma che sto facendo in VB 6 utilizzo il controllo Shockwave
Flash per eseguire un filmato Flash. Per caricare tale filmato
utilizzo per esempio:
Flash.movie = app.path & "\Filmato.swf"
Dopodiché mi piacerebbe (visto che č partito) anche FERMARLO ma sembra
questa una grande pretesa visto che tutti i metodi che ho utilizzato
non sembrano efficaci. Continua a farmi la musichetta di sottofondo.
Ho provato:
Flash.Stop           risultato: niente
Flash.StopPlay       risultato: niente
Flash.FrameNum = 0   risultato: niente
Flash.Movie = ""     risultato: niente
Che gli devo fare ????? Gli devo sparare quando compare sul
monitor?!?!?!?
Ciao

 ha scritto nel messaggio
news:873a9408.02092...@posting.google.com...


...

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual basic ed access accesso da 2 pc

Salve ragazzi
ho creato un programma in visual basic che accede
ad un database access tramite odbc.
finchè lo utilizzo solo su un pc non ho problemi ma se devo
accedere ed aggiornare il database da 2 pc contemporaneamente non so
come fare.
ho provato ad installare il programma su una macchina e sull'altra
macchina andare ad aprire il programma ma non funziona perchè
visualizzo i dati ma non posso modificarli.
qualcuno può indicarmi come è possibile fare
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 come fare.
Scusa, ma perchè usi odbc con un data base access?
Ciao, Sauro

Nelle proprietą del DB Access hai impostato Accesso condiviso?
Ciao, Vincenzo

 Ciao, Sauro
uso odbc perchč ho sempre usato quello
so che esistono anche altri sistemi come utilizzare un file .udl
ma che vantaggi mi puo offrire?


> Nelle proprietà del DB Access hai impostato Accesso condiviso?
si ho controllato e la proprietà sulla connessione odbc ed è ok.
dopo vari tentativi sono riuscito a farlo funzionare.
però il problema che riscontro ora è nell aggiornamento dei record
modificati.
mi spiego meglio ho realizzato una applicazione con un database access
un form su cui ho inserito un controllo ado un data grid ed dei textbox
collegati direttamente al controllo ado per poter visualizzare i dati in
maniera più strutturata che non nella griglia.
vado a modificare dei dati nei textbox e successivamente
vado a salvarli nel database con il comando 
adodc.recordset.update
vado ad eseguire un refresh della tabella e del recordset
con i comandi
adodc.refresh
datagrid.refresh
il primo problema e che devo eseguire il refresh 2 volte perche se no la
griglia
non viene aggiornata
secondo
il cursore nella griglia si sposta sul primo recordset e non rimane sul
record attuale.


 ma che vantaggi mi puo offrire?
Non posso farti un esempio perchè di solito io uso DAO e non ADO come te.
In ogni caso mi risulta che anche con ADO puoi aprire direttamente un
database access senza dover utilizzare ODBC.
Io non so spiegartene i vantaggi ma ti assicuro che ce ne sono.
Un altrro consiglio (non mio ma di diversi altri "esperti") è quello di non
utilizzare i controlli DATA.
Ciao, Sauro

 ha scritto nel messaggio
news:74a98eaa9072ecf39f2...@mygate.mailgate.org...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Firewall

Questo é un domandone... :-)
Qualcuno sa spiegarmi come funziona un firewall (si limita a chiudere le
porte logiche?) e soprattutto qualcuno sa dirmi come baypassarlo? Per
esempio come fa MSN Messanger? Passa per caso dalla porta 80? Se sì come si
passa dalla porta 80 senza senza farsi pesacre dal browser?
            Grazie a tutti, anche solo di aver letto il mio Mex....
                        Allanon

Se sì come si passa dalla porta 80 senza senza
farsi pesacre dal browser?
Allora...premesso che una porta esiste ed è
attiva solo se qualcuno la usa,
se per esempio Explorer apre la 1043tcp
per collegarsi alla porta 80 di un webserver, la tua porta 1043 sarà
OCCUPATA da Explorer. Se io provo
ad entrare alla tua porta tcp1043, non
posso perchè l' ha occupata Explorer, a meno che non sia in grado di
accettare contemporaneamente più connessioni remote.
Per raggirare un
firewall basta usare i buchi presenti nei protocolli del sistema operativo
o meglio ancora usando buchi di altre apllicazioni.
Fai un programma, ci
piazzi una porta in ascolto ti colleghi a quella porta e il firewall non ti
bloccherà mai.
Prima ho detto che il firewall è un software stupido...ma
lui in effetti non fa altro che quello che tu gli dici di fare, se lanci un
programma lui non si intromette...tu hai accettato che il programma si
connetta o che faccia quello che deve fare, allora perchè mai il firewall
dovrebbe farsi carico di bloccare i dati che tu hai detto di accettare?
Mi fermo qua perchè altrimenti si sfocia nelle malandrate ;)) Spero di aver
reso un po il concetto...piccola curiosità...perchè devi raggirare un
firewall? :))
Saluti...
--------------------------------
Inviato via 
http://usenet.iol.it
 

Grazie 1000 Skunk!
Ora ho capito che non bypassero mai il limite che Fastweb impone al mio
ufficio... ma almeno riuscirò a fare decentemente il internet upgrader
(leggi ca...ata immonda)... :-)
            Grazie ancora!
                    Allanon

(leggi ca...ata immonda)... :-)
Non credo di aver capito ma...non penso
che sia un firewall a mettere un limite al tuo ufficio...che tipo di limite
hai? Limite sulla banda? Non puoi scaricare ad una velocemente maggiore di
0.05 kps? Giusto!!! A lavoro non devi mica farti gli affari tuoi!! ;))


 Saluti...
In realtà é che abbiamo un contratto particolare con FastWeb... 10 Mbit di
banda (reali!!!) ma non ci mappano tutte le porete sul server... :-(
            Ciao
                    Allanon
Newsgroup: it.comp.lang.visual-basic
Titolo: Help Visual Basic 6





Come posso fare per 
disporre di un help (magari in linea) per Visual Basic 
6 ?


 


Ringrazio per 
l'interessamento.


 


 


  
~~~~~~~~~~~
    
- Marco M. 
-
  
marc...@tin.it
  
~~~~~~~~~~~
  


 



 wrote in message
news:LOBBILAAPEOFIJGBDH...@tin.it...

Hai qualcosa contro l'uso del tasto F1? :)
Scherzi a parte... con l'installazione di VB non hai installato la guida in
linea richiamabile con il tasto F1?
Ciao, Adriano

Vedi che nella mia scatola di VB6 professional upgrade mancavano i due CD
della guida (MSDN).
Ho telefonato alla MS e me li hanno spediti subito. Ho poi scoperto che la
stessa cosa è successa a molti altri nello stesso periodo.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Costo VB5/VB6/VisualStudio

Qualcuno sa darmi dei prezzi indicativi per Visual Basic 5, Visual Basic
6 e Visual Studio 6.0?
Mi piacerebbe sapere inoltre se la M$ ha intenzione di lanciare un
Visual Basic 2000 o Visual Studio 2000 a breve... penso che allora i
prezzi delle precedenti versioni potrebbero calare...

Guarda sul sito 
http://www.micronix.it
Trovi dei prezzi indicativi.
P.S. per tutti: non sto facendo pubblicità; dato che non è la prima volta
che viene fatta questa domanda mi sembra comodo indicarlo anzichè mettermi a
copiarli e inserirli come risposta; se secondo voi è comunque una cosa non
bella da farsi ditemelo senza problemi e in futuro eviterò.

Newsgroup: it.comp.lang.visual-basic
Titolo: API per invio e-mail

Esiste un sistema per inviare messaggi con attachment, via e-mail, senza
utilizzare i controlli Active-x MAPI,
ma utilizzando le API (bzzzz).
Grazie a tutti.                    GOIO

 wrote in message
83drvd$5vo$1...@dns.ouverture.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: MDB e campi binary

Ho bisogno di creare una tabella sun un database MDB (formato Access97) in
cui
memorizzare dati binari.
Ho usato il comando:
CREATE TABLE FP (CODICE CHAR(6) NOT NULL, TEMPL  LONGBINARY)
Cosě facendo funziona perfettamente, ma trovo il file MDB esattamente
il doppio di quello che ci metto dentro, e infatti, se vado a vederlo
con un editor esadecimale, ad ogni byte dei miei dati,
lui ne scrive due sul database (il dato giusto e uno zero).
Non c'č modo di definire il campo in modo da non sprecare spazio ?
Ho provato con il tipo BINARY, ma quando eseguo l'istruzione CREATE TABLE
mi appare un errore n. 3047 e mi dice "Record troppo grande".
C'č qualche soluzione ????
Grazie
Sergio


Secondo me hai cannato tu a scrivere il dato.
Stai scrivendo una stringa VB vero? :)
Ciaotutti,
*

 Ciaotutti,
Ho provato sia a scrivere un tipo Stringa, sia a scrivere
un tipo Variant, sia ad usare AppendChunk,
ma il risultato č lo stesso.....
Ciao
Sir Jo

 ma il risultato è lo stesso.....
non e' che stai buttando dentro delle stringhe unicode, per caso ?

 ha scritto nel messaggio
news:9l0bq0$hft$1...@lacerta.tiscalinet.it...

Jet memorizza le stringhe utilizzando un set di caratteri multibyte (MBCS),
che 'pesano' esattamente il doppio di quelli Unicode.
nonsonostatoio

> non e' che stai buttando dentro delle stringhe unicode, per caso ?
Non ne ho idea, sinceramente.
Io leggo apro il file con
Open "...." For Binary Access Read As #1
Vs = Space(1000)       devo leggere 1000 byte
Get #1, , Vs
Close #1
A questo punto metto Vs dentro al file MDB
Che dici ?????
Ciao
Sir Jo

 wrote in message
9l1qrs$6pv$1...@pegasus.tiscalinet.it...

Dico che secondo me nel file c'e' una stringa unicode.
Fai la prova con questa diciharazione:
dim Vs() as byte
redim Vs(999)
open [...]
E poi leggi il contenuto di vs con un ciclo in debug, tipo
for i=0 to 999
    debug.print vs(i);
    if i mod 50 = 0 then debug.print
next
Cosi' vedi se il dato originale contiene gli zeri.
Ciaotutti,
*

 * <------ in ado come ti firmi, % ?

 > Ciaotutti,
Nel file ci sono dati HEX.
Li vedo con un editor esadecimale, sequenze di byte qualsiasi.
Li metto su una variabile String, li controllo con Asc(Mid(Vs,....,1))
e trovo la stessa sequenza.
Li scrivo sull'MDB.
Li rileggo dall'MDB e li rimetto su una variabile stringa, ricontrollo
e trovo la sequenza di byte uguale a prima.
Se li riscrivo su un altro file, il file viene generato UGUALE
all'originale.
Funziona tutto, non c'è problema, ma perchè mi occupa il doppio
dei byte ???????
Ciao
Sir Jo

 dei byte ???????
la risposta di nonsonostatoio l'hai vista ?
se fai una compattazione dopo gli addnew le dimensioni restano uguali ?
sono andato a rivedere il primo post, e parli di access97. col 2000, mi
sembra che memorizzi in unicode. col 97, non mi sembrava. pero' non ho
altre ipotesi, sorry ?
ciao, a.

 ciao, a.
Io utilizzo ancora formati Access 97 proprio per il fatto che
il formato Access 2000 memorizza in unicode, e quindi utilizza
spazio doppio.
Bho !!!!!!!
Ciao e grazie comunque
Sir Jo
Newsgroup: it.comp.lang.visual-basic
Titolo: Proprietà   Top Mostre di  openFileDialog...

Il codice del mio programma prevede   un modulo che mi fa aprire un menù da 
cui selezionare i file xls.
Sapete indicarmi  come impostare la proprietà  TopMostre su true dell' 
openFileDialog1?
 
Grazie anticipatamente
 
nero23
 
 
 
 
Module Module1
    Sub main()
 
        Dim openFileDialog1 As New OpenFileDialog
        openFileDialog1.InitialDirectory = 
System.Environment.CurrentDirectory
        openFileDialog1.InitialDirectory = "D:\"
        openFileDialog1.Title = "Seleziona il file"
        openFileDialog1.Filter = "File .* (*.xls)|*.xls|All files (*.*)|*.*"
        openFileDialog1.FilterIndex = 1
        openFileDialog1.RestoreDirectory = True
        openFileDialog1.Multiselect = True
 
        If openFileDialog1.ShowDialog() = DialogResult.OK Then
            For Each dirFile In openFileDialog1.FileNames
                Debug.Print(dirFile) 'visualizzo il percorso dei files 
selezionati...
            Next
        End If
    End Sub
 
End Module 
 

 openFileDialog1?
 
[snip]
 
TopMostre?
Mai sentita.
Che è e che fa?
 
-- 
 
-> G.Chiappori
www.chiappori.com
 
 
 

 Che č e che fa?
 
E' una proprietą della form che, se impostato su true, resta sempre in prima 
vista sullo schermo e con esso, anche la finestra openFileDialog.
 
ciao 
 

 ciao
 
TOPMOST....no topmostre!!! :)
 
-- 
----- Italliaaaaa 3227! -----
Bisogna sempre dare spontaneamente quello che non si può impedire ti 
venga tolto.
(Vittorio Alfieri)
 
 

 ciao
 
TOPMOST! no topmostre....presumo tu sia in vb6?VBA?
 
http://www.vbsimple.net/index.htm?/howto/ht_043.htm
 
 
-- 
----- Italliaaaaa 3227! -----
Il coraggio ce l'ho. E' la paura che mi frega.
(Totò)
 
 

 TOPMOST! no topmostre....presumo tu sia in vb6?VBA?
 VB.net

 TOPMOST....no topmostre!!! :)
 
Di solito mangio le parole!!
 
Hai ragione.
 
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: una query facile facile

                             Problema:
Devo ottenere un RecordSet con un solo Record,
i campi devono contenere il totale della condizione Where.
Mi spiego meglio:
Una tabella Anagrafe con campi; [nome] [data-di-nascita]
se eseguo la sub.....
Private Sub ETA()
Dim rst As Recordset, oggi As Date
oggi = Date
'''''''''''''''''''' Under20 '''''''''
    Under20 = Format(DateAdd("yyyy", -20, oggi), "m/d/yy")
    Q = "Select *From [Anagrafe] Where [Data di nascita] > #" & Under20 &
"#;"
    Set rst = DB.OpenRecordset(Q)
    If rst.RecordCount > 0 Then rst.MoveLast
    Under20 = rst.RecordCount
'''''''''''' Upper40 '''''''''
    Upper40 = Format(DateAdd("yyyy", -40, oggi), "m/d/yy")
    Q = "Select *From [Anagrafe] Where [Data di nascita] < #" & Upper40 &
"#;"
    Set rst = DB.OpenRecordset(Q)
    If rst.RecordCount > 0 Then rst.MoveLast
    Upper40 = rst.RecordCount
''''''''''''To2040 '''''''''
Q = "Select * From [Anagrafe] Where [Data di nascita] Between #" & Under20 &
"# And #" & Upper40 & "#;"
    Set rst = DB.OpenRecordset(Q)
    If rst.RecordCount > 0 Then rst.MoveLast
   To2040 = rst.RecordCount
'''''''''''''''''''''''''''''''''''''''''
End Sub
Ottengo lo scopo ma non nel modo giusto perchè devo aprire 3 RecordSet.
praticamente...
Private Sub ETA()
Dim rst As Recordset
    Under20 = Format(DateAdd("yyyy", -20, oggi), "m/d/yy")
    Q = "Select Count([Data di nascita]) As Under20 From [Anagrafe] Where
[Data di nascita] > #" & Under20 & "#;"
    Set Data1.Recordset = DB.OpenRecordset(Q)
    With Data1.Recordset
        If .RecordCount > 0 Then .MoveLast: .MoveFirst
    End With
End Sub
x una sola condizione va bene x 3 NO ?
-------------IN POCHE PAROLE,UNA QUERY DEL GENERE
    Under20 = Format(DateAdd("yyyy", -20, oggi), "m/d/yy")
    Upper40 = Format(DateAdd("yyyy", -40, oggi), "m/d/yy")
Q = "Select " & _
    "Count([Data di nascita]) As Under20," & _
    "Count([Data di nascita]) As Upper40," & _
    "Count([Data di nascita]) As To2040 " & _
    "From [Anagrafe]" & _
    "Where [Data di nascita] > #" & Under20 & _
    ",Where [Data di nascita] < #" & Upper40 & _
    ",Where [Data di nascita] Between #" & Under20 & "# And #" & Upper40 &
"#;"
 COME VA SCRITTA ?
Grazie


[cut]
questa l'ho scritta al volo sotto SQL7.. e funziona...
select "Under 20", count(id_ut) as quanti
from tbl_utenti_reg
where datediff(yy,data_n,getdate())<20
union
select "From 20 to 40",count(id_ut) as quanti
from tbl_utenti_reg
where datediff(yy,data_n,getdate()) between 20 and 40
union
select "Over 40", count(id_ut) as quanti
from tbl_utenti_reg
where datediff(yy,data_n,getdate())>=40
in access sostituisci 'yyyy' a yy e now() a getdate()
HTH
--
Stefano Zamboni 
sz...@libero.it
Leggi di Manubay per i programmatori:
1) Se la modifica di un programmatore a un programma esistente funziona,
probabilmente non era quello che voleva il cliente.
2) Il cliente non sa quello che vuole, ma sa quello che non vuole.
Newsgroup: it.comp.lang.visual-basic
Titolo: Leggere un txt da una int di linea all'altra

Ho un file di testo che contiene alcune cose separate da una linea vuota
esempio:
Messaggio1
Messaggio 2
Messaggio 3
Se ad esempio voglio prendere Messaggio 2 setto la variabile numero a 3 e
vado a prendere il messaggio scritto dopo il secondo ritorno a capo. Per
farlo ho scrutto questo codice:
Open App.Path + "\QUOTES.MEC" For Input As #1
Line Input #1, riga
If riga = "" Then contatore = contatore + 1
If contatore = numero Then GoTo prova
prova:
Do While riga <> ""
List1.AddItem riga
Line Input #1, riga
Loop
Close #1
Ma non va! Qualsiasi valore dia a numero mi prende sempre il primo
messaggio!
Probabilmente ho sbagliato qualcosa nella prima parte ma non riesco a capire
cosa.
Qualcuno mi puň aiutare?
Grazie!
--
=> Fabio883 <=
fab...@net-one.it
ICQ UIN: 5320334
IRC NICKNAME: Fabio883
Webmaster of:
883 English Site: 
http://883.hypermart.net
DarkMoon BBS: 
http://darkmoon.hypermart.net

 wrote in message
7bmqvi$i...@sympson.net-one.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Reports e le tabelle allegate...

 Saluti... Giovanni Biagini
Che io sappia il Cristal-Report NON e' capace di usare le tabelle
attaccate in un
database ACCESS. Forse usando l'ODBC .. .. ?
-- 
By  /\   /\    
   / _\ / _\  
  / <_ - <_ \  
 / <_______> \  Software  ( Maronese Ettore )



Newsgroup: it.comp.lang.visual-basic
Titolo: Salvare File

Usando una RichTextBox, come posso fare per salvare il file senza
tutte le sue intestazioně?
Grazie Ivan

...


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

Ciao,
qualcuno sa dove posso trovare le funzioni DDE?
grazie.
Lu.

 qualcuno sa dove posso trovare le funzioni DDE?
dal robivecchi.
microsoft le considera obsolete da un po. a che cosa ti servivano?
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo


ha scritto:


 ha
scritto:


Newsgroup: it.comp.lang.visual-basic
Titolo: Perchè non funziona...

Ho finito il programma di etichette, ma come mai sugli altri computer non 
funziona e sul mio si???

Mi da l'errore: file MSCOREE.DLL non trovato. Come posso fare?. 

> Mi da l'errore: file MSCOREE.DLL non trovato. Come posso fare?.
cambiare lavoro ad esempio... 

 Mi da l'errore: file MSCOREE.DLL non trovato. Come posso fare?. 
Devi installare il Framework, altrimenti non funzionerà mai.
-- 
news://it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL

 ha scritto nel messaggio 
news:e6738h$20b$1...@megan.servidellagleba.it...

Ok, grazie. 

 cambiare lavoro ad esempio...
 Ma se cambio lavoro come faccio a rompere le scatole,  :-)
Stai tranquillo hce fra poco inizio un corso a Milano e non ropo più.
Luca. 

 Stai tranquillo hce fra poco inizio un corso a Milano e non ropo piů.
Non esserne cosě sicuro: sono molto pochi quelli che riescono ad uscire dal 
tunnel della programmazione.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal report: stampare un certo numero di record per pagina

Salve a tutti.
Ho un problema che non mi fa dormire.
Ho cercato di risolverlo scaricando dal web crystal ma ho trovato qualcosa
che mi fa la cosa a metà ovvero:
Ho un certo numero di record, io vorrei stamparne un numero fisso per
pagina, diciamo 20 e appena sotto la stampa dei record devo (sottolineo
devo) stampare il contenuto del report footer.
Se dovessi stampare il page footer andrebbe sulla fine della pagina e mi
lascerebbe uno spazio tra la stampa dei record e il page footer, e questo al
cliente non va bene.
Ho trovato su crystal la maniera di stampare un certo numero di record ma mi
stampa solo quei record.
Se per esempio ho 25 record la funzione che inserisco mi stampa un report
con 20 record ma poi non mi stampa il secondo report con i restanti 5
record.
Sono veramente nella M...... vi prego aiutatemi.
Grazie per tutti quelli che cercheranno di aiutarmi. :-)
La funzione su crystal diceva così:
Use the following method:
1. Insert a section below on the Details section so that there is a Details
A and Details B.
2. Create the following formulas:
@Formula1
WhilePrintingRecords;
NumberVar Number := 0;
@Formula2
WhilePrintingRecords;
NumberVar Number;
Number := Number + 1;
3. Place @Formula1 in the Group Header. Format the formula to Suppress.
4. Place @Formula2 in Details A. Format the SECTION (not the formula) to
Suppress.
5. Format the Details B section to conditionally Suppress by selecting the
X+2 button INSTEAD of the selecting the Suppress box. This launches the
conditional formatting Formula Editor.
6. Enter this formula:
{@formula2} > 3
When you preview the report you will only see 3 records per group.


[cut]
prova con questo (trovato in un ng straniero.. myRecords è una variabile
globale del report):
Page Header - NumberVar myRecords := 0;
Details - NumberVar myRecords := myRecords + 1;
Details section format - New Page After formula - NumberVar myRecords;
(myRecords = 12) and (Next({Query.KeyField}) = {Query.KeyField})
Saluti
--
Stefano Zamboni 
sz...@libero.it
Seconda legge di Scott:
Quando si trova e si corregge un errore, si vedrà che andava meglio prima.

che versione hai di crystal? io ho la 8 e imposto nella sezione dettagli :
New Page After -> (pulsante Formula) RecordNumber > 10 
ma non so se e' disponibile in tutte le versioni! :-)
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Details - NumberVar myRecords := myRecords + 1;
queste due righe vanno inserite nel codice del report ?
I duepunti dopo NumberVar myRecords ci vogliono ......
per non avere errore ho scritto:
NumberVar myRecords = myRecords + 1
Nella New Page After formula ho inserito:
NumberVar myRecords;
(myRecords = 12) and (Next({Query.KeyField}) = {Query.KeyField})
Se faccio un check della formula mi dice:
This fild name in not know e il cursore si ferma sulla prima graffa.

 This fild name in not know e il cursore si ferma sulla prima graffa.
{Query.keyfield} e' ovviamente il nome di uno dei campi dei record che 
vuoi visualizzare!
ciao
		maxx

:-))
Newsgroup: it.comp.lang.visual-basic
Titolo: FILE MDB

Un ringraziamento a Ivano Modenin che ha risposto al mio messaggio di aiuto
per l'anteprima di stampa.
i miei problemi attuali sono:
1) come non far leggere un File MDB ad un utente in modo che non possa
andare a danneggiarlo
2) come mettere delle immagini (BMP,WMF ecc.) insieme ad un File MDB in
modo da costituire un unico File, cioè anche copiando i File non si perdano
delle informazioni importanti
Grazie
art...@edisons.it

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto prime armi!!!!!

Ciao a tutti da Roberto e Fabio!
Siamo alle primissime armi quindi chiediamo aiuto a tutti coloro che oltre
ad essere ormai esperti abbiano anche la pazienza di stare a sentire sti
due! ;-))))
Vorremmo costruire un piccolisssssimo programmino per iniziare riguardante
una piccola archiviazione di dati, con inserimento della data e del
contatore (semplice ID)
e naturalmente dei campi di immissione di descrizione sulla merce da
archiviare ecc... ecc...
Siamo riusciti solo a strutturare le form, quindi solo l'interfaccia
grafica e adesso i nodi vengono al pettine per dare funzionalità al tutto.
Ringraziamo in anticipo tutti coloro che si muoveranno a compassione di sti
due poveracci che hanno deciso di imboccare il tunnel del VB4.0
Se possibile risposte anche in e-mail
tes...@ntt.it
grazie Roberto e Fabio
http://www.geocities.com/NapaValley/6790

>

Newsgroup: it.comp.lang.visual-basic
Titolo: costruire un help

Ciao a tutti
avrei bisogno di un aiuto, sto progettando un programma che permetta
l'utilizzo  di una rete locale, il programma è completo solo che avrei
intenzione di implementare un Help.
Qualcuno sa come costruirne uno?
Grazie per l'aiuto

 Esiste un programma fornito con VB che si chiama Hcw.exe (Help Compiler
Writer), si trova nella dir tools, ma non č la cosa piů bella che esiste al
mondo. Dovresti provare a cercare in qualche sito dove distribuiscono sw
share, come ad esempio 
iol.it
 e 
volftp.vol.it
. Se trovi qualcosa che ti
piace dovrai poi provvedere alla registrazione.
--
-----------------------------
Bye from WildSkin
ICQ #48778908
-----------------------------

 l'utilizzo  di una rete locale, il programma è completo solo che avrei


 wrote in message
86i3eg$ojt$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Output di una InputBox

Come faccio a capire se l'utente, di fronte ad una InputBox, ha premuto
ESCAPE? 
Mi risponderete: 'Testa cosa ritorna la InputBox, e se ritorna "" sei a
posto'.
Ma se "" puo' essere una risposta valida, e l'utente vuole proprio
annullare l'operazione?
Bye by Massimo 8-]

 ha scritto

forse il cappuccino serve a me.
giuro che non capisco dov'e' il punto.

 wrote in message
8vu80g$5j4pn$1...@ID-51318.news.dfncis.de...


 wrote in message 3A2295AE...@txt.it...
: Come faccio a capire se l'utente, di fronte ad una InputBox, ha premuto
: ESCAPE?
: Mi risponderete: 'Testa cosa ritorna la InputBox, e se ritorna "" sei a
: posto'.
: Ma se "" puo' essere una risposta valida, e l'utente vuole proprio
: annullare l'operazione?
:
: Bye by Massimo 8-]

 Risposta insulsa ma esauriente, mi azzarderei a dire.
risposta esatta. al comma22 si puo' rispondere
solo spezzando la domanda.
un form in cui gestisci tu i vari tasti e output.
ciao, a.

 Ma se "" puo' essere una risposta valida, e l'utente vuole proprio
annullare l'operazione?
Direi che in quel caso l'InputBox non e` adeguato alle tue necessita`. Usa
un form.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 
Ci avevo pensato. Ma come si fa? Hai della documentazione/siti/articoli
da consigliarmi?
Bye by Massimo 8-]

Newsgroup: it.comp.lang.visual-basic
Titolo: MouseEnter/MouseExit

Ciao,
tempo fa avevo letto in questo NG il modo per creare eventi
MouseEnter/MouseExit per un qualsiasi controllo. Mi sembra usasse
SetCapture/ReleaseCapture, ma non riesco più a trovare l'articolo.
Qualcuno può darmi qualche suggerimento? O un qualsiasi altro metodo (anche
con subclassing).
Grazie,
Paolo

 cercare i vecchi messaggi dei newsgroup, con tanto di motore di ricerca.
Avevo già cercato su dejanews, ma non avevo trovato nulla. Per questo mi
sono rivolto al newsgroup.
Paolo Mugnaini

sono rivolto al newsgroup.
Te lo riposto io (l'ho fatto io una delle ultime volte):
---
Mi avevano postato questa soluzione (credo Moreno non ricordo) che trovo
molto interessante poichč non richiede subclassing ne' porcherie tipo timers
e funziona bene.
Private Sub Buttons_MouseMove(Index As Integer, Button As Integer, Shift As
Integer, x As Single, y As Single)
    If (GetCapture <> Buttons(Index).hwnd) Then
        Call SetCapture(Buttons(Index).hwnd)   ' catturo il mouse
        RaiseEvent ButtonMouseEnter(Index)
    Else
        If ((x < 0 Or x > Buttons(Index).ScaleWidth) Or (y < 0 Or y >
Buttons(Index).ScaleHeight)) Then
            ' se mi trovo al di fuori del controllo
            Call ReleaseCapture
            RaiseEvent ButtonMouseLeave(Index)
        End If
    End If
End Sub
Devi dichiararti le api SetCapture() e ReleaseCapture().
La cosa funziona perchč una volta chiamata la SetCapture il mouse viene
intercettato dalla finestra indicata fino al richiamo della
ReleaseCapture().
In questo caso viene fatto su un array di controlli (es. commandbutton) di
nome Buttons()
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: conversione VB3 -VB5

Ciao a tutti e buon anno
sono passato a vb5 in questi giorni ma aimč
Non riesco piu ad aprire i miei vecchi progetti di vb3
Come posso fare?
ho gia salvato il mio codice in TXT ma il mio problema Sono le form
non riesco a trovare il codice dei varii pulsanti e label della form
(posizioni e propietą, ecc.)
Sarņ costretto a rifarmele tutte di nuovo?
-- 
Massimo
mcor...@mail.wrnet.it


mcor...@mail.wrnet.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto,per la lettura dei codici a barre!!!!!

Ho sviluppato un piccolo programmino per la gestione delle mia videoteca,ora
vorrei migliorarlo ulteriormente, e avrei pensato ad una bella cosa, forse
un po' complicata per me,visto che è da soli 4  di mesi che mi sono
avvicinato alla programmazione in visul basic comprando vari manuali e
studiandoli piano piano, comunque cio' che mi piacerebbe fare è, come nelle
grandi videoteche, utilizzare un lettore di codici a barre per poter
archiviare le mie videocassette, molto velocemente.
Cio' che mi preoccupa ,non è la creazione dei codici a barre, esistono molti
programmi per la che permettono di farlo, ma la lettura di quest'ultimi.
O girato molti siti alla ricerca di qualche tutorials che trattasse
argomenti del genere, ma non ho trovato nulla, spero che tu potrai darmi
qualche consiglio, un parere o una qualsiasi tua opinione su cio',  sicuro
di una tua risposta ti mando per ora solo un grosso grazie.


I lettori di codici a barre non fanno altro che inviare una
stringa di caratteri che corrispondono al codice a barre.
Basta leggere la porta dove è collegato il lettore e
recuperare la stringa.

 wrote in message
8ah1n0$qr3$1...@nslave1.tin.it...


 ha scritto nel messaggio
news:8ah1n0$qr3$1...@nslave1.tin.it...
