mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [LOL?]Controllo a scelta

So che forse è una domanda stupida e molti di voi staranno già ridendo però
la faccio comunque :-)
E' possibile scegliere un controllo mediante stringa? mi spiego meglio: io
ho 3-4 controlli sul form e una textbox, vorrei fare in modo che il testo
della textbox venga usato come nome di controllo dal codice e fare qualcosa
di simile a (text1.text).caption = "prova"
è possibile? io ho pensato a  SendMessageA ma richiede comunque l'handle e
sono da capo col mio problema..
per ora uso un Select Case ma se il numero di controlli dovesse crescere io
dovrei scrivere un codice lunghissimo e non mi sembra conveniente.
mi potete aiutare?
ciao

 dal codice e fare qualcosa di simile a (text1.text).caption = "prova"
Me.Controls(variabile_contenente_il_nome_del_controllo)

 E' possibile scegliere un controllo mediante stringa?
Se ho capito bene, devi impantanarti con i WindowsScripting ( o come si
chiamano, adesso mi sfugge il nome preciso) , in pratica da codice, tu
scrivi una strinda che e' un listato da far eseguire allo scriptengine tipo
:
mioCodiceDaFarEseguire = " text1.text = 'Cicio' " & vbnewline & "msgbox
'pluto' "
ScriptEngine.Run mioCodiceDaFarEseguire.
-- 
<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/

 Me.Controls(variabile_contenente_il_nome_del_controllo)
O_o , sai che sta cosa non la conoscevo proprio ?
ghghghg
Se ne impara sempre una nuova dai vecchi :p


 O_o , sai che sta cosa non la conoscevo proprio ?
Beh, ad ogni elemento di un insieme ci si può riferire col nome (costante o
variabile) o con l'indice numerico. Non ci vedo nulla di strano.
Perchè per un campo di un recordset posso dire
recordset.Fields("pippo")
oppure recordset.Fields(variabile_che_contiene_pippo)
o anche con recordset.Fields(5)
e non potrei farlo per l'insieme Nome_form.Controls?

 variabile) o con l'indice numerico. Non ci vedo nulla di strano.
Beh', non e' automatico... non e' strettamente necessario popolare una
collection utilizzando una chiave univoca e non c'era alcuna garanzia che
l'avessero fatto; per la collection Controls la scelta piu' logica era
appunto quella di usare il nome stesso del controllo e per fortuna e'
l'implementazione che hanno scelto.
En passant, un altra possibilita' ancora piu' generica (anche il nome del
membro puo' essere parametrizzato) e' CallByName.
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 fortuna e' l'implementazione che hanno scelto.
Sě, mi riferivo agli insiemi "di sistema/linguaggio" (quelli predisposti,
come Controls, Forms, etc.), non tanto alle Collection generiche/costruite.

 strano.
e' che non mi ci ero mai imbattuto e non ne conoscevo l'esistenza quindi ^_^

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto su programma per la simulazione della tastiera.

Ciao a tutti, spero che qualcuno possa aiutarmi. vorrei infatti simulare,
tramite un programmino vb, la pressione dei tasti sulla tastiera. per
esempio, includendo un internet browser in una form vb, vorrei poter passare
tra i vari oggetti sul sito web visitato simulando delle pressioni del tasto
"tab", scrivendo numeri nelle caselle preposte e dare l'invio. cercherei
quindi uno spunto per questo, non ho proprio idea da dove partire e se
possibile ovviamente. spero di essere stato chiaro e conciso. ringrazio in
anticipo chi mi voglia rispondere.
Andrea.

 wrote in message
news:E0H37.80939$cd.4...@news1.tin.it...


 tramite un programmino vb, la pressione dei tasti sulla tastiera.
in vb esiste l'istruzione SendKeys che invia alla finestra attiva una o più
sequenze di tasti, come se queste fossero state immesse tramite tastiera.
:-) :-) :-) :-) :-) :-) :-) :-)
helios....@eshiol.it
http://www.eshiol.it
:-) :-) :-) :-) :-) :-) :-) :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Non trovo più Printer.print

Ciao raga mi sono imbattuto in una cosa a me nuova... ve la spiego.. allora
un paio di mesi fa ho cercato di impostare l'orientamento della pagina e non
trovavo la funzione "Orientation" di printer.
Voi Guru mi avete fatto notare che bisognava installare la SP5 ed io ho
seguito il vostro consiglio con grande successo.
Oggi pero non trovo più "print" di printer ma dove è finito??? Possibile che
la Sp5 mi abbia cancellato la funzione??? Ditemi qualcosa...perfavore.
Grazie Francesco

 wrote in message
news:9qcdm6$2nt$1...@serv1.albacom.net...


 L'intellisense non te lo fa vedere, ma esiste, stai sicuro!.
Già, anche perché non serve averne l'autocompletamento.
Si puo abbreviare con un semplice ?.
-- 
Samuele Battarra
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/news/
Newsgroup: it.comp.lang.visual-basic
Titolo: problema in esecuzione

Satuti a tutti.
Ho appena finito di creare un'applicazione per la gestione, compressivo di
database (*.mdb) e relativi report (crystal report).
Tutto bene fino a che:
- Installato l'applicativo (eseguibile, database e report sono condivisi)
nel lanciare una particolare stampa report (tutte la altre stampe report
funzionanao) l'applicazione dà come msg "...questo prg ha eseguito un
operazione...nel modulo xxx  msvbvm60.dll.
Qualcuno a qualche idea per poter risolvere questo enigma...
Ciao
Jack



Io ho smesso di usare Crystal Report per problemi simili.
Potrebbe anche darsi che nel tuo caso CR non centri nulla... io comunque
te l'ho detto...  :-)
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 wrote in message
4om9ptkeqlur5n9a6...@4ax.com...

Cosa mi consigli di usare per creare dei report?
Senza dover stravolgere particolarmente le applicazioni già create??
Ciao
Jack

Senza dover stravolgere particolarmente le applicazioni già create??
Se devo essere sincero, quella è stata l'ultima volta che ho usato dei
report. Forse anche perché le relativamente semplici stampe delle
applicazioni che ho sviluppato poi mi hanno permesso di usare il buon,
sano, vecchio Printer.Print a gogo senza impazzire e senza rimpiangere
l'uso dei report "veri"...
Ultimamente si è discusso parecchio sul ng a proposito di un'alternativa
al DataReport, tanto che si era iniziato a svilupparne uno in team: il
"DataRaptor". Maggiori info sul Sito Comune, sezione "Leonardo" (ora il
progetto è temporaneamente fermo per problemi di... gestione e
manovalanza... per maggiori info, cerca "Leonardo" tra i post recenti su
deja).

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Module Zio 1.0 Added

http://www.g2kweb.it/gigio2k/gallery.asp?gallery_dir=Varie/ZioGigio
Che dire... sto ubriaco... no e  'poco..... vabbe' vedete le foto ! 
-- 
<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/


Non ho capito chi dei due doveva partorire, se il tipo con la maglia rossa o
la moglie
:-PPPP
cmq Compliments...
-- 
Per diventare grandi non bisogna avere paura di essere piccoli
Per rispondere in privato elimina dall'indirizzo "togliquesto"
MasterDavidex - David Ruscelli

 cmq Compliments...
TNK !

Newsgroup: it.comp.lang.visual-basic
Titolo: GdiTransparentBlt

Sono ormai giorni che mi sto scervellando per trovare una soluzione che mi
permetta la fusione tra due icone all'interno di una picture per poi
inserirla dentro una cella di una msflexgrid.
Sono riuscito a trovato il seguente codice, che mi permette di fondere due
picture in una.
Però, ho la necessità, di tenere nascoste le due picture.
Quì sorge il problema, perchè tale funzione non gira se le due picture non
sono visibili ed inoltre, se metto la funzione in un ciclo for,
necessita di un doevents, altrimenti non funziona.
Ringrazione chi mi darà un suggerimento.
Ciao Maurizio.
GdiTransparentBlt Picture2.hdc, 0, 0, Picture2.ScaleWidth,
Picture2.ScaleHeight, Text1.Text, 0, 0, Text2.Text, Text3.Text, vbWhite

 ha scritto nel messaggio
news:chs5gu$jev$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: ADO nel web qualcuno è tanto gentile di farmi un esempio?

qualcuno è tanto gentile da farmi un esempio di utilizzo di ADO per
connettersi ad un db nel web eseguire una query di eliminazione su una
tabella e una query di accodamento da tabella locale a tabella sul db nel
web..
Grazie mille a tutti i maghi di ADO.


http://www.able-consulting.com/MDAC/ADO/Connection/Recordset_URL.htm#AdoUrlC
onnection
inoltre OCCHIO!!!!!
il database remoto DEVE essere in una dir dove hai I PERMESSI DI LETTURA
SCRITTURA SE NO NON VA NULLA!!!
e quelli te li da il tuo provider...in genere c'è già una dir con i permessi
r/w e il tuo provider te l'ha comunicata con i tuoi dati!
:-)
Bye man!
--
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 Quotefix e altro:
http://www.martek.it/go.asp?portamia=4
Usr: ICLVB Pw: amici

Newsgroup: it.comp.lang.visual-basic
Titolo: stampa unione ?

Sapete come posso fare una stampa unione ?
Es : l'utente scrive una lettera è il programma automaticamente stampa la
lettera per ogni destinatario tirato fuori da un database ..
Sto impazzendo ...
Grazie mille !!!!


Word?
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemino con cursore list box

Ho la necessità di spostare il cursore di un listbox fino a mostrare una
stringa cercata. Ho scritto il seguente codice ma non riesco a trovare
l'istruzione per spostare il cursore.
Dim x As Integer, TrovaStringa As String
TrovaStringa = "aaa"
For x = 1 To ListBox.ListCount - 1
 If ListBox.List(x) = TrovaStringa Then
   a questo punto dovrei far posizionare il cursore del
   listbox in maniera da poter vedere la riga che contiene
   Trovastringa
 End If
Next x
Qualcuno può aiutarmi ?
Grazie.Nino


Spero che ti serva
Ciao L'oriundo

 [CUT]
ed eventualmente anche
ListBox.TopIndex = x
per fare in modo che sia visibile...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

usa il metodo select-selected
Nino <anton...@Virgilio.it> wrote in message
uv4A8.87317$vF6.2...@news2.tin.it...


 Luca Dormio - 
luca....@tin.it
Usando
ListBox.ListIndex = x gia lo selezioni e lo rendi 'visibile'
usando
ListBox.TopIndex = x lo muovi all inizio degli elementi della lista
Ciao
L'Oriundo

 Luca Dormio - 
luca....@tin.it
Usando


 ListBox.TopIndex = x lo muovi all inizio degli elementi della lista
Hai perfettamente ragione
ho avuto poca fiducia nel "caro vecchio" ListBox, pendando di doverlo
trattare male come un ListView :-)
Ciao
--
Luca Dormio - 
luca....@tin.it

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 - Directory di default

Salve, 
c'è qualcuno in grado si dirmi se è possibile settare la directory di
default per i files projects, forms, bas etc, in pratica quelli
elaborati dal programmatore, in modo che non sia sempre
C:\Programmi\Visual Studio\VB98?
A me non piace che i files in senso lato 'documenti' siano nella
cartella Programmi (anche ai fini di un eventuale backup) insieme agli
exe, alle dll agli ocx eccetera.
Le applicazioni Office per esempio permettono di scegliere una
cartella per i files doc, mdb xls etc.
Grazie
Filippo

 C:\Programmi\Visual Studio\VB98?
Puoi impostare la directory dei modelli ma non mi risulta che sia 
possibile impostare quello che desideri tu.
Io faccio cosě,
Ho una cartella progetti, all'interno della quale c'č una cartella 
template, all'interno di questa ho suddiviso le cartelle:
grafica
database
librerie
documenti
backup
classi
report
setup
mentre nella root ci vanno i file frm, bas,
quando inizio un nuovo progetto non faccio altro che copiare e incollare 
la cartella template e rinominarla con il nome appropriato.
Il salvataggio dei singoli file poi lo faccio di volta in volta nella 
sottocartella giusta, non č poi cosě scomodo.
ciao
stefano

"Filippo"

nel link con cui lanci vb6, in "da" setti la dir che vuoi. da me, c:\vb.
ciao, a.

ciao, a.
Ottimo e piů facile del previsto.
Grazie
Filippo

stefano
Grazie, 
Andrea Palazzi mi ha dato la soluzione, in verità semplicissima, ma
bisognava pensarci.
Ciao
Filippo

Newsgroup: it.comp.lang.visual-basic
Titolo: scambio dati fra due o piu' form

Ciao a tutti.
Vorrei sapere come posso fare a scambiare dati tra due form.
Mi spiego.
Io apro un database nel form1 e ci associo un paio di campi text.
Poi nel form2 voglio fare la stessa cosa ma senza dover per forza creare un
altro controllo Data.
Si puo' fare?
Grazie per la collaborazione.
Ciao
equ...@tin.it

Ciao,
Lo scambio di dati fra due form e' molto semplice, basta che nel secondo
form quando assegni il valore della proprieta' di un oggetto del primo
fai riferimento al primo form.
Vedo di essere piu' chiaro:
nel form frm1 c'e' un text box tbpippo1 la cui proprieta' text e' "ciao"
nel secondo form frm2 c'e' un text box tbpippo1 e in una routine tu vuoi
riferirti al valore di tbpippo1. Devi scrivere allora:
tbpippo2.text=frm1.tbpippo1.text
Controindicazioni:
Ricordati che se gestisci gli eventi tipo change etc. devi stare attento
a non variare i valori degli oggetti o dei controlli da altri form
perche' tale azione viene interpretata come un evento change.
Spero di esserti stato utile e scusa per la confusione.
Massimiliano Gimondo

...


Ehm...scusa

Ma porc...
non riesco a postare:
Volevo dire:
Newsgroup: it.comp.lang.visual-basic
Titolo: Quale programma per usare i NG?

Ciao, io attualmente uso Free Agent, ma il programma meschino scarica
solo i titoli dei messaggi e non anche il messaggio stesso.
So che roba M$ fa questa cosa, ma preferirei non dare troppa corda a
zio Bill.
C'e' qualche programma che puo' servire allo scopo ?
Ciao.
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
                 Trust no ONE.
Per rispondermi via E-Mail togli STOPSPAMMERS.
Guarda la RFD per it.comp.prog.collaborazione !

C'e' qualche programma che puo' servire allo scopo ?
Free Agent (!).
Group > Default Properties > Retrieving ...
-------------------------------
Louis Cretier  -  R1100RS/R80GS      
http://www.show.it/lcretier.htm
-------------------------------
"L'uomo accorto impara dai propri errori
 il saggio impara da quelli altrui"

Group > Default Properties > Retrieving ...
Coe sono stato ingenuo ! Grazie mille ! E per fortuna che non mi tocca
cambiare neppure programma. Questo FreeAgent e' pieno di potenzialità
!
Ciao


Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa Simbolo

Salve,
come posso stampare un cuoricino (quello dei semi delle carte);
forse e' un carattere unicode?
in questo caso come devo fare?
Grazie.
Roberto Granata
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio 
news:du71hr$l7f$1...@news.newsland.it...


 ...ricorda di colorarlo di rosso però..


 in questo caso come devo fare?
Mappa Caratteri in utilita di sistema, ti guardi i vari font e ne scegli uno 
che abbia il cuore tra i vari caratteri.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]- Download automatico quotazione EURO

Salve a tutti !
Dovrei realizzare un PRG che in automatico, ricavi dal WEB, la quotazione in
tempo reale dell'Euro.magari riuscendolo a salvare in un file per poi
effettuere i calcoli Lira ->Euro.
Qualcuno ha relaizzato qualcosa di simile o conosce il sito da cui ricavare
l'informazione ???
Grazie a tutti
genesio
--
Genesio Conti - Calvizzano (NA) - Italy
E-Mail :  gen...@NOSPAMsofthome.net
( remove NOSPAM for answer )

genesio
Il tasso di conversione Lira italiana -> Euro è stato fissato dalle autorità
economiche europee in maniera costante e invariabile a partire dal 1°
gennaio 1999. Tale tasso è  1 Euro = 1936,27 Lit.
Puoi quindi utilizzare questa equivalenza in maniera diretta nei tuoi
programmi, sicuro che essi rimangano comunque e sempre validi per quanto
riguarda la conversione in valuta europea (a meno di variazioni degli
accordi, attualmente non prevedibili e comunque poco probabili).
Saluti
Fabrizio

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per un piccolo menù !!

Salve a tutti,
Vorrei creare un piccolo script in visual basic che all'avvio del Pc:
1)  mi saluti con un messaggio indicante l'username e il domain name, come
posso fare a prendere il valore di tali variabili ?
2) Vorrei  che lanciasse outlook express se rispondo si ad una domanda di
richiesta
3) Come posso fare a far visualizzare solo i messaggi e non la
finestra?...c'č un modo piů elegante di form.visible = false ?; chiedo
questo perchč spulciando l'MSDN ho visto che basta una riga cosě:
var strMsg = "Benvenuto \"" + Env("UserName")
strMsg += "\" nel dominio \"" + Env("UserDomain") + "\" \r\n\r\n"
Grazie per eventuali aiuti
Ciao
Alessandro


Se lo fai in VBS non lo so, se lo fai in VB metti solo un modulo con la Sub
Main()
Per ricavare l'user-id usa l'api WNetGetUser (solo win9x)
Per aprire outlook puoi mettere una shell...
Ciao
--
Timothy Redaelli
timothy....@email.it

Newsgroup: it.comp.lang.visual-basic
Titolo: rinominare un file

Come rinominare un file?
Grazie


guarda sulla guida il comando NAME
HTH
--
Ciao,
Enrico

Newsgroup: it.comp.lang.visual-basic
Titolo: funzioni API e finestre

C'è qualcuno che può spiegarmi con un piccolo esempio come posso, con l'uso
delle funzioni API, valutare la presenza di una finestra (conoscendone solo
il nome, il testo o titolo e il parent, ma non l'handle), e in caso postivo
inviargli una stringa, come se gliela digitassi da tastiera, possibilmente
anche in background. Vi prego, per me è molto importante.
    grazie da adesso,
Pappo

C'č un ottimo libro sulle API.
L'API di Windows 98 for Dummies Espresso, Apogeo, 19.000 lire
Lě trovi tutti gli sciami e gli alveari che vuoi.
Ciao

la API è FindWindow
Ciao
PAPPO ha scritto:

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] E VEDEMO CHI SA' RISPONDERME!

Okkey gente...il problema é questo:
io voglio poter settare l'orientazione della stampante di default da
orizzontyale a verticale e viceversa SENZA usare le commondialog e senza il
comando printer.orientation=vbPRORLandscape et similia (perchè di fatto il
controllo che uso io non vede le modifiche fatte in queste 2 modalità,
mentre se prima di eseguire il programma io vado fisicamente in imposta
stampante -> carta-> orientazione foglio e la cambio, il programma funziona
correttamente!)
Qualcuno ha un'idea di come fare?
Grazie!
mde...@stardust.it

 wrote in message
93297819...@plutone.pianeta.it...


Non mi sembra un ottimo titolo per chiedere aiuto !!!
Concordo, sopratuto se el titolo xe in dialeto......
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------


E se fosse straniero?


Cosa? Il dialetto o il titolo?
ARGHHHHHHHH!!!!!!! HO BISOGNO DI ANDARE IN VACANZA!!!!!!!!!
--
Roal Zanazzi
z...@iol.it

 ARGHHHHHHHH!!!!!!! HO BISOGNO DI ANDARE IN VACANZA!!!!!!!!!
E nun sclerà che te fa mmale :))

Newsgroup: it.comp.lang.visual-basic
Titolo: conoscere la data di files .xls

Salve gente,
esiste un modo da vb5 di conoscere la data di creazione/modifica di un file
xls esistente in una determinata cartella?
Grazie a chiunque mi risponda!

>esiste un modo da vb5 di conoscere la data di creazione/modifica di un file
FileDateTime(nomepercorso)
vale per tutti i file vedi help VB
Ciaio Stefano

 wrote in message
84v4g2$d2m$1...@lacerta.tiscalinet.it...


 wrote in message
10jg29u$jbs$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT]Epifania,Epifania ... tutte le feste vanno via!!!!!

Scusate per lo sfogo ,so che molti di voi sono over 25, ma chi è al di sotto
dei diciotto come me puo' ben capire la tristezza di questo giorno: dopo due
settimane di (quasi) completa nullafacenza, domani il tragico ritorno ai
banchi scolastici!!!!!Un Mega in bocca al lupo per chi è in questa tragica
situazione!
Good Bye By Ged
--
"Non so che immagine abbia di me il mondo, ma io mi vedo come un bambino che
gioca sulla riva del mare, e di tanto in tanto si diverte a scoprire un
ciottolo più levigato o una conchiglia più bella del consueto, mentre
davanti mi si stende, inesplorato, l'immenso oceano della verità"!!!!
Isaac Newton

 situazione!
Noi over 25 e lavoratori invece siamo felicissimi!
;-(
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 Scusate per lo sfogo ,so che molti di voi sono over 25, ma chi è al di
sotto
GRRRRRRR
Speriamo che vi interroghino tutti stamani in matematica greco latino
chimica e pure .....religione (ai miei tempi c'era ...c'è ancora???)!!!!!
Per domani prevedo compito in classe!
(perfido wodkino!)
:oP

 dei diciotto come me puo' ben capire la tristezza di questo giorno...
emm emm dimentichi la fascia 19/23 , che faccio ? posso rattristirmi lo
stesso o e' solo per voi over e under ?
ecco adesso so triste perche' nessuno ci considera ! :(

 ecco adesso so triste perche' nessuno ci considera ! :(
la fascia 19/23 ? ma non siete gia' in prime time ? :P

 ecco adesso so triste perche' nessuno ci considera ! :(
Affogo il mio dolore nei dolcetti della Befana:)))
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 situazione!
Se ti può consolare, io ne ho 41, e ho iniziato l'orario di lavoro
alle 12:30, eppure mi è toccato alzarmi presto lo stesso... per
portare mia figlia a scuola. :-(
Bye, G.


ROTFL!

 --
Riordinando un po' le idee:
Under 18: dopo circa un mese di festa ci si deve alzare alle 6.30 per andare
a scuola
Over 18:dopo circa un mese ci si deve alzare alle 6.30 per andare
all'università e/o per andare a lavoro e/o per accompagnare la figlia a
scuola :-)
Ah ragazzi,ragazzi... Da quel che ho capito, non importa esser grandi o
piccini, la fine di una festa va in cu.(biiip).o a tutte.... Le età!!!!!
Con questo Ng oltre ad imparare a programmare sto diventando molto + saggio!
Spero anche voi:))))))))
GoodBye By Ged


 Spero anche voi:))))))))
CUT
Con l'età capirai che ci vuol poco a far festa ...e ad approfittare di ogni
momento libero!
(un wodkino che ha lavorato il 24 ed il 31 ed anche la sera dell'Epifania!)
Sti giovani!
IN MINIERA a lavurà!!!!
:o)
p.s.
Cmq la sfera di cristallo prevede interrogazioni a raffica.....io comincerei
a studiare! tiè!
:oP

 Affogo il mio dolore nei dolcetti della Befana:)))
e poi diventi tutta ciccia e brufoli....
Salutoni
Sergio

 [CSSoft] ha scritto:
 > e poi diventi tutta ciccia e brufoli....
 No, no! Nella mia calza tra i vari dolcetti c'erano anche 2 kinder bueno,
quindi niente ciccia e brufoli ;-) eheheheheh!!!! 

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]- MSDE come si utilizza da VB?

Ho preso delle documentazioni dal sito M$ che "consigliavano"
l'utilizzo di MSDE (Microsoft Database Engine) al posto di DAO o Jet.
L'ho scaricato dal loro sito ma mi ha creato una icona che fa partire
una sorta di monitor nella barra di stato e non c'è nessun file della
guida che illustra come utilizzarlo. Sarà mica una versione ridotta di
SQL server?

 wrote in message
39731f55...@news.flashnet.it...

Ciao....
    E' il motore di SQL Server 7.0.
    Microsoft ha adottato questa metodologia:
    Fornire SqlServer7 con tutte le sue fuzionalità, oppure MSDE (Fornito
con il pacchetto di Office2000) che praticamente è il motore sul quale gira
SQL Server
    con le appropriate limitazioni logicamente, amministrazione ridotta  a 0
prima di tutto , limitazione sul numero di connessioni contemporanee per
ogni licenza (5 credo)
    .... E' una valida soluzione per un applicazione a basso costo di
sviluppo e di buona potenzialità per quanto riguarda la gestione dei dati.

 SQL server?
Si, in pratica non e' altro che una versione ridotta (e gratuita) di SQL
Server.
Ciao.

Lo devo installare su tutte le mie postazioni vero?
e poi: come fai a sapere che sono possibili solo 5 connessioni? Io non
ho trovato nulla...

 SQL server?
L'utilizzo e' del tutto uguale a SQL Server
utilizzando ADO.
1. Connessione con il DB
    dim con as new adodb.connection
    con.connectionstring="tua stringa di connessione"
    con.open
2. Creare il recordset
    dim rst as new adodb.recordset
    rst.open "Select Campo1 from Clienti",con,adopenstatic,adlockreadonly
3. Hai i dati dei clienti all'interno del tuo rst
    'SE HO DEI DATI NEL MIO RECORD SET ALLORA FAMMELI VEDERE..
    if not (rst.eof and rst.bof )then
        rst.movefirst
        do until rst.eof
            msgbox rst.collect("Campo1") & ""
            rst.movenext
        loop
    endif

 ho trovato nulla...
Sono cinque in contemporanea , poi MSDE le accoda una dietro l'altra con
conseguente perdita di prestazione sul server per quello
è gratis, ma comunque come ti dicevo è ottimo per le applicazioni di piccola
taglia.
Consiglio: utilizza nei tuoi progarmmi una connessione unica a livello
globale e fai riferimento ad essa con i recordset che utilizzerai
in modo che il numero di connessioni sia almeno una per ogni client.
Se proprio devi usare piu' connessioni allora tienile aperte per il minor
tempo possibile.
MSDE va installato solo sul server, oppure se lavori solo client solo su
tale macchina.
Newsgroup: it.comp.lang.visual-basic
Titolo: IsOpenFile

C'è una funzione che mi dice se un file è già apero?
Ciao
Grazie

prova ad aprirlo bloccando il file in scrittura, se ti da errore vuol
dire che il file č gia aperto
ti invio la funzione che utilizzo io:
Public Function IsFileBusy(FileName As String) As Boolean
    Dim NumberFile As Integer
 
    NumberFile = FreeFile()
    On Error GoTo Exception
    Open FileName For Binary Access Read Lock Read Write As
#NumberFile
    IsFileBusy = False
    Close #NumberFile
    Exit Function
 
Exception:
    IsFileBusy = True
End Function

 dire che il file č gia aperto
Scusami, non mi sono spiegato bene.
Io voglio sapere se il file a cui voglio accedere č gią in utilizzo da
qualche altro programma.
Perche ho un file che 4 applicativi vanno a leggere in poche frazioni di
secondo
e non vorrei che accavallandosi generassero dei problemi.
Grazie Simo

qualche altro programma.
se il file è bloccato da una di queste applicazioni allora la mia
funzione esce per errore perchè non può aprire in modalita esclusiva
il file

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema query Access num.2

Auguri a tutti
da una tabella devo eseguire tramite una query, la selezione di alcuni campi
o altri
 a seconda di una determinata condizione di un campo della stessa tabella.
devo fare questo senza utilizzare moduli
come moduli intendo la programmazione visual basic che risiede in Access
Grazie.

 wrote


Prova ad usare un iif nella select, tipo :
SELECT Campo1, Campo2, IIF(Cond=True,Campo3,Campo4) as NuovoCampo FROM Tabella;
--
Posted from 
mta04-acc.tin.it
 [212.216.176.35]
via Mailgate.ORG Server - 
http://www.mailgate.org

Newsgroup: it.comp.lang.visual-basic
Titolo: MAPIMessage Problem

Hi
Are there something wrong with this control or with me??
I have used both MAPISession & MAPIMessage.
    mySession.DownLoadMail = True
    mySession.SignOn
    mySession.DownLoadMail = True
    myMessage.SessionID = mySession.SessionID
    myMessage.FetchUnreadOnly = False
    'do some stuff here to get the email I want
 
    MsgBox myMessage.AttachmentCount
    this statemet returns 0 & it is supposed to be 2 , all the other
stuff works , I can even get the attchmet path & name of the first
attchmet it sees , It just doesn't see the correct number of
attachment.
What am I missing ??
Thanks
Christiaan

 ha scritto nel messaggio
news:87175011.0305...@posting.google.com

Hi Christiaan
count it would have to begin to count from 0 therefore correct number of
attachment is count-1
pardons my English
hi
Alessandro
--
Morfeus®
Free Joint
:PII
Newsgroup: it.comp.lang.visual-basic
Titolo: Re: Macro VBA

 indicazioni per risolvere il mio problema? 
Accendi il registratore di macro.
Attivi un filtro automatico sui dati
Selezioni il criterio delle righe da eliminare
Selezioni tutto il foglio
Modifica->Vai a->Speciale->Solo celle visibili
Ctrl+'-'
Dati->Togli filtro automatico
Arresta il registratore di macro.
Ciao
Alberto
-- 
"Se viriamo, viriamo viriamo viriamo;
Se andiamo dritti, viriamo"
(Cit. "il tattico")


Per Excel ci sarebbe anche:
microsoft.public.it.office.excel
Questa macro ti elimina rutte le righe che hanno
nella colonna A il valore che andrai a mettere al
posto di "IlValoreDaEliminare".
Public Sub mEliminaRigheVuote()
    Dim nr As Long
    Dim l As Long
    With ActiveSheet
        nr = .Range("A65536").End(xlUp).Row
            For l = nr To 1 Step -1
                If .Cells(l, 1).Value = "IlValoreDaEliminare" Then
                    .Rows(l).Delete Shift:=xlUp
                End If
            Next l
        .Cells(1, 1).Select
    End With
End Sub
-- 
----------------------------
Mauro Gamberini

Newsgroup: it.comp.lang.visual-basic
Titolo: Collegarsi a DB4 o DB5 in VB.NET

Avredi la necessita di collegarmi ad un database DBase per prelevare i dati 
di una tabella e trasferirli in una tabella SQL. Le ho provate di tutte ma 
non riesco a collegarmi. Se utilizzo nuova connessione in designer, mi 
mostra e mi apre la connessione alla tabella con i suoi dati. Ma il mio 
problema è che il prodotto finale deve avere la necessita di scegliere il 
database DB e questo viene fatto con una semplice OpenFileDialog, Il 
problema resta la connessione, il tipo di driver da utilizzare (presuppongo 
ODBC) e come riempire la tabella per prelevare i dati.
chi mi aiuta a riemipre questi campi??
Dim sql, connectionstring, name As String
Dim command As OleDb.OleDbCommand (ho provato cone odbc.odbcCommand)
Dim reader As OleDb.OleDbDataReader (vale come sopra)
Dim table As New DataTable
connectionstring = "Provider=MSDASQL.1;Persist Security Info=False;Data 
Source=dBASE Files;Initial Catalog=D:\Programmi\EL5\LOG\1.LOG"
sql = "SELECT * FROM 1"
Using connection As New 
............................................(connectionstring)
connection.Open()
command = New ...................................................(sql, 
connection)
reader = command.ExecuteReader
table.Load(reader, LoadOption.PreserveChanges)
End Using
se poi è sbagliato proprio come approccio allora chiedo venia, ma mi 
sovviene solo questo al momento.
Grazie a tutti.
Enzo


Ciao, Vincenzo

Newsgroup: it.comp.lang.visual-basic
Titolo: Ho bisogno di una guida per le API!!

Scusate, so che č una delle domande piů frequenti, ma non sono stato
abbastanza
attento.
Dove posso scaricare un elenco delle api e loro descrizione?
In alternativa cosa c'č di simile?
Grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: msflexgrid additem e colonna vuota

 wend
grazie mille
Ilario

             if virgola=0 then virgola=len(str_campi)+1
ho dimenticato di correggere len(str_campi +1) con  len(str_campi)+1
grazie

      end if


 Vedi le correzioni che ho fatto (non ho provato):
cut
ciao Lupo
le correzzioni le ho fatte ed effittivamenti il codice e' piu' pulito, ma
niente se la colonna vuota e' in mezzo a quelle piene  tipo "1,-2,3,4"
funziona ma se e' all'inizio  tipo "-,1,2,3,4" mi mette un doppio vbtab e
non capisco dove
ciao

 ciao


  lupo e' come la panda se non ci fosse bisognerebbe inventarlo
grazie mille   immaginavo fosse li la modifica ma ne ho provate diverse,
senza arrivare a quella giusta

   lupo e' come la panda se non ci fosse bisognerebbe inventarlo
La Gingo vorrai dire...
Ilario, invece, (cit.) "quota come un cinghiale da scogliera" :-P


cerchero' di migliorare il piu' in fretta possibile
ciao Ilario

Newsgroup: it.comp.lang.visual-basic
Titolo: Casella di testo a 2 decimali

Ciao a tutti
In una form creata con VB2008 express edition, ho una casella di testo
che, su clic di un pulsante importa un valore da excel :
Casella.Text = .cells(1, 5).value
la cosa funziona ma il valore ha molti decimali (22,54668745...)
come posso dire alla casella di testo che voglio un valore numerico a
2 decimali (22,55)?
In excel non imposto nulla nelle celle cioè lo apro, eseguo una
formula e copio il risultato sulla casella di testo, vorrei quindi
fare tutto da VB senza impostare la cella di excel a numerico...
grazie
Marco


Dai un'occhiata alla funzione Math.Round e ai suoi overloads.
Ciao

 - Mostra testo citato -
Ciao,
ho provato ma non so come inserirlo nel codice...
un cortese aiutino?
grazie


Casella.Text = Math.Round(.cells(1, 5).value, 2)
ciao

 - Mostra testo citato -
Tutto perfetto e funzionante, grazie 1000
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Richiamare le routine

Ho uno strano problema con le sub.
Una stessa sub (si chiama archiviazione e a due parametri) viene richiamata
in due routine. In un caso non ho nessun problema, nell'altro invece la sub
richiamata non viene vistaa.
Quando faccio girare la routine in cui archiviazione viene chiamata mi da un
errore con scritto:
errore di compilazione
Prevista function, sub o property
Qualcuno sa dirmi cosa fare??
Aiutatemi!!!
Annalisa
--------------------------------
Inviato via 
http://usenet.libero.it

Qualcuno sa dirmi cosa fare??
prob è un problema di scope, ma se non posti il codice o, quantomeno,
dici dove son definite le varie routine e come effettui la chiamata...
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

Ho un problema con le routine.
Una stessa sub (si chiama rchiviazione e ha 2 parametri) viene richiamata in
due routine. In un caso non ho nessun problema, nell'altro la sub non viene
vista.
Quando lancio la ruotine in cui archiviazione viene richiamata mi da questo
errore:
errore di compilazione
Prevista routine, sub o property.
Qulacuno sa dirmi cosa posso fare?
AIUTO!!!


 ha
scritto:

--------------------------------
Inviato via 
http://usenet.libero.it

valore
codice, please


 ha
scritto:

--------------------------------
Inviato via 
http://usenet.libero.it

Basta???
secondo te basta a riprodurre l'errore??!?!?


 Basta???
Sě. Basta.

 Sub Archiviazione(ByVal foglio As Integer, ByVal colonna As Integer)
Prova a metterci "Public" davanti :-)
Andrea

 per valore
umm umm non ci ho capito molto, cmq fai cosi dai che dovrebbe andare :
Scrivi  "Public Sub Archiviazione" invece di "private" cosi sara' visibile
all'interna di tutta la form (se archiviazione e' nella form ) se la metti
in un modulo , archiviazione diventa accessibile da tutto e tutti i
form/moduli !
es: se Archiviazione e' in form1
e dentro a from1 chiamo Archiviazione(1,2) funziona
se la faccio da Form2 non funziona e mi da l'errore che segnali tu !
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] cdplayer.ini sintassi

Ciao a tutti, volevo sapere se ci sono delle regole particolari per
leggere\scrivere nel file cdplayer.ini contenuto nella cartella di win.
Non mi rispondete insultandomi... plz
Ho già guardato il file e probabilmente è molto intuitivo capire come
funziona, solo che vorrei sapere se ci sono delle regole precise per
scrivere al suo interno in modo che continui a rimanere compatibile con
qualsiasi altro programma che lo usa.
Ghigo    :)

 ha scritto nel messaggio
news:a70jvq$a4a$1...@newsreader.mailgate.org...

Per leggere e scrivere in un file .ini, puoi usare 2 API:
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias _
    "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, ByVal lpDefault As String, _
    ByVal lpReturnedString As String, ByVal nSize As Long, _
    ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias _
    "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, ByVal lpString As Any, _
    ByVal lpFileName As String) As Long
Ciao!
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)


Grazie mille.
Non avresti mica un esempio di codice o della documentazione a riguardo?
Ghigo

 Non avresti mica un esempio di codice o della documentazione a riguardo?
Preso paro-paro da API Guide scaricabile da 
http://www.allapi.net/
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As
String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Sub Form_Load()
    Dim Ret As String, NC As Long
    'Write the setting to the file (c:\test.ini) under
    '   Project1 -> Keyname
    WritePrivateProfileString App.Title, "KeyName", "This is the value",
"c:\test.ini"
    'Create a buffer
    Ret = String(255, 0)
    'Retrieve the string
    NC = GetPrivateProfileString(App.Title, "KeyName", "Default", Ret, 255,
"C:\test.ini")
    'NC is the number of characters copied to the buffer
    If NC <> 0 Then Ret = Left$(Ret, NC)
    'Show our string
    MsgBox Ret
    'Delete the file
    Kill "c:\test.ini"
End Sub
Ciao
Michele

Grazie mille... proverň!
Ghigo    :)
Newsgroup: it.comp.lang.visual-basic
Titolo: quadratini di selezione! aiuto!

Salve!
qualcuno puo dirmi dove trovare un esempio o spiegarmi direttamente com fare
a creare quei quadatini attorno ad un oggetto che permettono di spostarlo,
ridimensionarlo,... tipo quando spostiamo i controlli in VB?
GRAZIE!

 wrote in message news:sDQF8.60491

Dato che (ancora) c'è tanto vale usarlo.
Vai sul sito comune, sotto Leonardo, progetto DataRaptor c'è un controllo
scritto da Ettore Maronese che fa questo.
Non è molto intuitivo il funzionamento poichè sfrutta, tra le altre, il
subclassing, ma dopo un piccolo studio non ti sarà difficile adattarlo alle
tue esigenze.
P.S.: Usa il mio adHook, probabilmente una vecchia versione... scarica anche
questo dal sito comune.
Ciao

 ha scritto nel messaggio
news:3MQF8.70544$zW3.1...@news1.tin.it...


 grazie!
ciao, assa.
--
Sito Comune
http://www.it-lang-vb.net/

Newsgroup: it.comp.lang.visual-basic
Titolo: indirizzo IP

Salve a tutti!
C'è qualcuno che mi sa dire se c'è una funzione in VB che restituisce il
corrente indirizzo IP reale assegnato dal POP al PC collegato  ad internet??
Vi ringrazio anticipatamente!!

 wrote in message 8shpcs$an$1...@nslave2.tin.it...
| Salve a tutti!
| C'è qualcuno che mi sa dire se c'è una funzione in VB che restituisce il
| corrente indirizzo IP reale assegnato dal POP al PC collegato  ad
internet??
Soluzione molto stupida (nonzòneanchesefunziamadovrebbe) applicabile SOLO se
non ce ne sono altre:
ti metti un controllo winsock e leggi la proprietà localIP. Ciao!

va benissimo grazie!! :)))

Newsgroup: it.comp.lang.visual-basic
Titolo: Urgente: Nothing

Come faccio a verificare se 
Me.TreeView1.HitTest(x, y) mi da come risultato Nothing?
Non posso ne' usare IsNull ne' IsEmpty.
Che cavolo faccio?
Grazie
Ciao Lorenzo


in generale, per verificare se un campo o una variabile sono null (et
Similia) is usa IsNull (et IsSimilia )
mentre per verificare le impostazioni di un oggetto si usa l'operatore
Is -staccatro- valore da verificare
.....QUINDI, per rispondere alla tua domanda, fai:
if Me.TreeView1.HitTest(x, y) is nothing then
.........................................
.......................................
................................
endif
bye Marco

 wrote in message 37dfb03b...@news.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Codici a barre e database

Avendo un lettore di codici a barre e un database dove sono vari nomi,
vorrei attraverso il visual basic 6.0, creare un programma che colleghi il
lettore di codici a barre all'archivio.
Sapete dirmi se esiste qualche piccola applicazione e magari qualche sito
dove poter iniziare questa ricerca ????
Ancora più grato sarei a chi mi può spiegare con esattezza passo passo come
dovrei fare !!!!!!
Grazie per l'aiuto.
By AlexCai

 ha scritto nel messaggio
news:RKN%5.139547$hk4.5...@news.infostrada.it...


Scusa Aleffandro ma bisognerebbe che Daniele fosse così gentile da spiegare
anche come  "codificare i nomi e tramite l'uso di un font" perchè la cosa
interesserebbe anche me ma a dir la verità non so dove mettere le mani!!
Grazie a tutti.
Ciao :-)
Paolo
"Daniele" <danieleATlippisdi.com> ha scritto nel messaggio
news:t3vaq78...@corp.supernews.com...


 dovrei fare !!!!!!
ti sembra poco:-)
decidi che codifica utilizzare (numerica o alfanumerica) e che BC utilizzare
dipende in larga parte dalla struttura dell'archivio
sviluppa il programma di gestione database, ricerca ecc. poiche' come dicevo
prima un lettore di BC in genere lavora in emulazione di tastiera non ti
vincola molto con il programma
sviluppa il programma di stampa dei BC font o altro
e fai ancora domande sul NG :-)
Ciao Stefano

 > Avendo un lettore di codici a barre e un database dove sono vari nomi,
[...]

 magari cambia l'algoritmo con cui abbinare i caratteri ma alla fine il
Devo avere ancora un libro da qualche parte che parla delle codifiche per
barcode, se lo trovo vedro' di essere piu' preciso, sono alcuni anni che non
mi occupo piu' di barcode e non ricordo a quali specifiche codifice fosse
riferito il problema (quando li usavo non esistevano font e si disegnavano
tutti da programma) però ricordo bene che esistono barcode in cui la
rappresentzione grafica dei singoli caratteri cambia rispetto alla posizione
del carattere nella stringa codificata, cambiano,  diventano speculari o
ancora le barre nere e bianche si invertono ecc.
Questo significa che un carattere puo avere piu di un immagine. se di una
particolare codifica esiste il font vai pure tranquillo se non la trovi
probabilmente il problema e' dovuto a questa caratteristica e in questo caso
la soluzione consiste nel disegnare le barre via programma, cosa piu' facile
di quanto non si pensi.
Cioa stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: ancora sulle stampe

Eccomi qui, di nuovo per fare una domanda semplice e, per certi versi,
postata migliaia di volte.
Una cosa, tra le tante, che ancora non ho fatto, e' la stampa.
Stavo iniziando a documentarmi sul CR, ma qui sul ng leggo che non e' uno
strumento "buono".
Domandina...
Cosa usereste per scrivere, che ne so, una fattura?
E per fare una lista semplice semplice dei gusti di gelato che ci soal
supermercato?
Per ora, l'unica applicazione che ho fatto che utilizza la stampante, usa il
metodo print di un Form, ma non mi sembra la soluzione migliore.
Mi date qualche spunto?
TNX.... Maurizio

 Mi date qualche spunto?
metodo print, ma dell'oggetto printer :-)
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

Come ti ha detto Sergio... Printer.Print !!!
Oppure se vuoi spendere un po di soldi, acquista VSVIEW che ha al suo
interno il controllo vsPrinter che in pratica č un Printer molto piů potente
e in automatico hai l'anteprima e la conversione in PDF.
Ciao, Vincenzo

 metodo print, ma dell'oggetto printer :-)
...
Eh, infatti, pero' io il metodo print su printer, non lo trovo :-((
Anche utilizzando la guida in linea, nell'elenco dei metodi dell'oggetto
printer, print non c'e'.
Come si usa?
Ciao... Maurizio

 Come si usa?
Bene, grazie :-P
Bye, G.

....
Riprendo l'argomento e rispondo mi accodo alla mia domanda iniziale.
Ho fatto un po' di prove, e qualche cosa sono riuscito ad ottenerla.
Ho prima impostato la grandezza della pagina ad A4, poi ho detto che volevo
stampare in orizzontale, ho settato lo spessore delle linee a 2 e impostato
le unita' di misura a mm.
Quindi ho stampato una frase... "Ciao"
con Printer.Print "Ciao"
Fin qui tutto OK
Ho poi provato a costruire una griglia...
Inizio con le righe orizzontali
Printer.Line (10,10) - (190,10)
Printer.Line (10,20) - (190,20)
Pinter.Line (10,30)  - (190,30) ...
Continuo con le verticali
Printer.Line (10,10) - (10,190)
Printer.Line (20,10) - (20,190)
Printer.Line (30,10) - (30,190) ...
Ora, se tento di scrivere del'altro testo (Printer.Print " Casella 1),
questo mi viene aggiunto in coda alle linee.
iIo invece avrei bisogno di popolare le caselle della griglia.
Suggerimenti?
Ciao... Maurizio

 Suggerimenti?
dare una occhiata ai metodi currentx e currenty


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

ciao a tutti
come posso gestire la porta parallela in vb 6 sotto win xp???
in qbasic usavo INP e OUT ma in vb non esistono.
grazie mille
ciao

Prova a vedere qui
http://www.aaroncake.net/electronics/vblpt.htm
oltretutto le funzioni sono vbInp e vbOut, come piace a te :-)

Adorno Scagaceto wrote:

Ops, mi sono accorto che non va sui sistemi NT...
ecco qua, altra dll per interfacciarsi alla parallela...
http://www.programmersheaven.com/zone15/cat610/28409.htm
Comunque, se gooogli, c'è parecchia roba.

 per i link, da ringraziare è paperino.
Newsgroup: it.comp.lang.visual-basic
Titolo: UpdateBatch con DataGrid - E' possibile ?

Ciao a tutti quanti.
Ho un problema (magari uno solo ..) con il controllo DataGrid
(vb6 sp4)
Quando tento di aggiornare un recordset disconesso associato a una
DataGrid con il metodo UpdateBatch, molto semplicemente, non ci
riesco.
Infatti se ricarico i dati vedo che sono quelli prima della modifica.
Se al posto della datagrid, utilizzo dei controlli textBox associati
va tutto bene.
Un'altra domanda sulla datagrid:
Se definisco un evento con la sintassi:
Private WithEvents oRs As ADODB.Recordset
mi aspetto che succeda qualcosa quando attivo per esempio il controllo
della fine del recordset
Private Sub oRs_EndOfRecordset(fMoreData As Boolean, _
        adStatus As ADODB.EventStatusEnum, _
        ByVal pRecordset As ADODB.Recordset)
	Msgbox "Sei arrivato alla fine !! "
End Sub
Come prima, se mi sposto nel recordset con la dataGrid non succede
niente, se mi sposto nel recordset con un button (oRs.movenext) quando
raggiungo la fine ho il mio bel messaggio.
Ecco il codice
'<------- inizio codice ---------->
'In una Form
Option Explicit
Dim oConn As ADODB.Connection
Dim oRs As ADODB.Recordset
'Private WithEvents oRs As ADODB.Recordset
 
Sub CaricaDataGrid()
    Dim sConn As String
    Set oConn = New ADODB.Connection
    Set oRs = New ADODB.Recordset
    sConn = "Provider=SQLOLEDB;" & _
            "Data Source=NomeServer;" & _
            "UID=UserID;PWD=Password;" & _
            "Initial Catalog=Sample"
 
   oConn.Open sConn
   oRs.CursorLocation = adUseClient
   oRs.Open "select top 10 * from Table1", _
   oConn, adOpenDynamic, adLockOptimistic, adCmdText
   Set DataGrid1.DataSource = oRs
   Set oRs.ActiveConnection = Nothing
   oConn.Close
   Me.Caption = "Stai lavorando con un recordset Disconnesso"
End Sub
Sub AggiornaDati()
    oConn.Open
    Set oRs.ActiveConnection = oConn
    oRs.UpdateBatch
End Sub
<----- fine codice ------>
Grazie a tutti per l'aiuto
Sam

 wrote:
Sono sempre io
Per quanto riguarda l'UpdateBatch, mi sono accorto solo dopo mandato
il messaggio che il recordset era settato
	oRs.Open "select top 10 * from Table1", _
	oConn, adOpenDynamic, adLockOptimistic, adCmdText
invece di 
	oRs.Open "select top 10 * from Table1", _
	oConn, adOpenDynamic, adLockBatchOptimistic, adCmdText
                              ^^^^^^^^^^^^^^^^^^^^^
Una parte del problema me la sono risolta da solo :-)
Mi aiutate per quanto riguarda gli eventi ? 
Ciao
Sam
