mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Nome utente e password

Ciao a tutto l'NG,
    ho il seguente problema da sottoporvi:
ho un'applicazione che apre un file in server in rete, questo server ha 
bisogno di un autenticazione utente e password, come faccio a passarla da 
programma.
grazie a tutti 

 programma.
un altro membro della lega per l'abolizione del punto interrogativo, vedo.
a me avevano consigliato l'utilizzo del comando netuse, ma non ricordo più
i dettagli. google potrebbe aiutarti.
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Ti riciclo una mail di un paio di giorni fa:
****************
Puoi usare due metodi: una Shell() con NET USE eccetera, oppure
un paio di API. Questo codice funziona perfettamente in VB, dovrebbe
andare anche in VBA: 
http://www.visualbasicforum.com/t70907.html
oppure questo:
http://vbnet.mvps.org/index.html?code/network/netconnect.htm
Se ti servono altre informazioni sulle API coinvolte, qui trovi tutto,
http://www.mentalis.org/apilist/WNetAddConnection2.shtml
compreso un altro esempio, magari anche più semplice.
Un piccolo appunto: se usi quell'API su Win 2003 dimmelo che ci
dovrebbe essere qualche differenza, te la ritrovo.
***************
Un Paperino che fa come con il maiale: non si butta via niente :-)
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Oracle: top ten ordinati per data

scusate l'OT ma qui magari trovo piu' aiuto che da altre parti...
sto cercando di estrarre i gli ultimi 10 o 20 record inseriti da una
tabella
questo e' il comando SQL:
1 SELECT *
2   FROM (SELECT *
3         FROM (
4              SELECT a.*
5              FROM intradoc.article a
6              ORDER BY a.article_date
7              )
8        WHERE rownum < 20
9        )
mi da sempre errore sulla linea 6:
10:51:30  ORA-00907: missing right parenthesis
ho provato anche a fare un'altra semplice subquery con l'istruzione
ORDER BY ma non funziona mi da sempre lo stesso errore
Marco

 scusate l'OT ma qui magari trovo piu' aiuto che da altre parti...
2 domandine:
a) a parte i problemi sintattici, mi sembra che la tua query raccolga i
primi venti record inseriti, non gli ultimi, pare anche a te?
b) il database oracle supporta l'istruzione "SELECT TOP"?
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

a) non guardiamo il capello!! ;) tra le mille prove che avevo fatto
avevo tolto anche il DESC nel ORDER BY
b) eh! purtroppo no! e mi sembra assurdo non poter fare una cosa del
genere con oracle! un modo se pur estremamente complesso ci dovra'
essere!!..spero

 
le tabelle-vista che crei con (select..) devono avere un alias. quindi:
from (select...) AS t1
ciao

Ho provato ad eseguire la stessa query usando una tabella di un DB
Oracle che ho, e non viene generato l'errore.
La domanda che quindi mi nasce spontanea è: intradoc.article è una
tabella o una vista?
Se si tratta di una vista l'errore potrebbe essere li.
Se non è una vista allora non so proprio esserti di aiuto, l'errore
che ti da mi viene solo se ometto una delle parentesi.
Comunque ti rassicuro, anche secondo la mia esperienza usare il rownum
è l'unico modo per fare quello che in SqlServer si può fare con una
select top...
sigh
Piero

 ha scritto nel messaggio 
news:1127739324.3...@g49g2000cwa.googlegroups.com...
Ho provato ad eseguire la stessa query usando una tabella di un DB
Oracle che ho, e non viene generato l'errore.
La domanda che quindi mi nasce spontanea è: intradoc.article è una
tabella o una vista?
Se si tratta di una vista l'errore potrebbe essere li.
Purtroppo no...è una tabella
Cmq spulciando la rete mi sembra di capire che sia un problema di che si 
abbia dalla versione 8.0.xxx in giu ma non è ben chiaro
Comunque ti rassicuro, anche secondo la mia esperienza usare il rownum
è l'unico modo per fare quello che in SqlServer si può fare con una
select top...
sigh
eh gia! brutta storia!! grazie dell'aiuto a tutti!
Piero
Newsgroup: it.comp.lang.visual-basic
Titolo: Confronto tra il contenuto di due picturebox

Il mio problema è questo: catturo una piccola area dello schermo e la metto
in una picturebox.
Poi devo continuare a "catturare" quella porzione di schermo (la metto in
una seconda picturebox) per vedere quando c'è un cambiamento rispetto a
quella che ho memorizzato nella picturebox1.
Il problema è che se voi fate debug.print picturebox.picture vi ritrovate un
numero (e io non capisco cos'è) e quindi non riesco a confrontare due
immagini con "if picturebox1.picture = picturebox2.picture"
Anche se il contenuto è esattamente lo stesso i due valori sono sempre
diversi.
Quindi: come posso fare a comparare due immagini?? Grazie!

 diversi...
Il numero che ottieni e' l' "handle to a bitmap", numero che VB assegna
all' oggetto grafico: e' molto utile per le chiamate alle API ma non
ha niente a che fare con il contenuto vero e proprio dell' immagine.
Ciao e fammi sapere se ti posso aiutare in modo piu' pratico.
Franco
Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzo di Web Services svc/wsdl

SAlve,
premesso che ne so proprio poco, st� cercando dei buoni tutorial ma non 
trovo molto di ben chiaro per un neofita, comunque speriamo di trovare 
qualche risposta fra qualcuno di voi.
Ho un gestionale che espone dei web services che posso riutilizzare per i 
miei scopi, ok.
Se utilizzo il comando
svcutil.exe 
http://nomeserver/nomeservizio.svc?wsdl
dal prompt, mi crea due file, un .cs ed un output.config.
Adesso il problema � capire come utilizzarli in VB2008 o VB2005 per creare 
almeno una pagina web o un'applicazione che utlizzi i metodi esposti.
Sono ben accetti anche link utili per imparare ad utilizzarli.
Saluti 

 Sono ben accetti anche link utili per imparare ad utilizzarli.
Io non ho usato svcutil ma per testare un webservice da usare in un
applicazione VB6 su Oracle mi sono fatto un progetto con Visual
Studio .Net 2005 e ho usato la Add Web Reference (che penso faccia
quello che fa svcutil)  e ti ritrovi già nel progetto l'oggetto
Webservice con tutte le classi e i metodi che espone.
Ciao
Fritz

Newsgroup: it.comp.lang.visual-basic
Titolo: Richiesta di aiuto.

A chiunque possa aiutarmi.
Nel piccolo programma che stò realizzando vorrei spostarmi da una casella di
testo all'altra, dopo aver immesso un testo, premendo in tasto ENTER.
Momentaneamente riesco a farlo solo con il tasto TAB

Nel piccolo programma che stņ realizzando vorrei spostarmi da una casella


Newsgroup: it.comp.lang.visual-basic
Titolo: come controllare badges magnetici via Web?

 ha scritto nel messaggio
news:pk0roug2vgrkkdjjl...@4ax.com...
| Ciao!
|
| Mi piacerebbe avere qualche dritta, link ad esempi di come controllare
| badges magnetici via Web (es. per il controllo ingressi in una
| sala)..., quali apparecchi comprare e dove per fare delle prove....
|
| Vorrei riuscire a collegare il tutto ad un server web Apache e db
| PostgreSQL.
|
|
| Grazie mille per qualsiasi consiglio!
|
| Maurizio

 ZUCCHETTI TMC e sono parecchio soddisfatto.
dalle altissime prestazioni ? hmmm... :P:P

Caro Javalab,
non ho detto "altissime prestazioni", però il prodotto è ben fatto, ben
supportato anche a livello di librerie ed ha un costo nella media. Forse
conosci, a parità di costi, qualcosa di meglio? Fammelo sapere, per favore,
ne sono interessato!
Ciao!

 ha scritto
no, non conosco altro, e anzi, entro breve mi servira'.
pero' ammetterai che alcuni mesi di rottura di c. in radio con una
delle pubblicita' piu' bifolche ch'io abbia sentito (*) possono
produrre una lieve distanza, causa spesso di una differenza di
potenziale che esplode in sogghigno.
sia chiaro: non era certo per te, che seguo da anni qui, quanto
appunto per le "altissime prestazioni".
ciao, j.
(*) (sta ora concorrendo a poche lunghezze il dash che vuolsi cosi'
cola' dove si puote: a differenza di me, che se puotessi il puotibile
il dash lo farei bere ai copy interessati: non bastava l'informatica a
massacrare l'italiano, ci mancavano gli idioti pseudo arcaizzanti).
Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] ActiveX e COM in VB.NET??

Scorrendo l'indice di Programmare Visual Basic .Net ho notato che non
vengono citati ActiveX e COM.
Sono specificati diversamente, il libro non li tratta, oppure non esistono
piu con 
VB.NET
?
Chi mi sa dare una spiegazione?
Ciao e grazie anticipatamente
MatteoC.
--------------------------------
Inviato via 
http://usenet.libero.it

Diciamo che la tecnologia è stata rimpiazzata, perciò pur essendo sempre
possibile realizzare componenti la tecnologia che 'lega' questi componenti
non è più COM (e quindi ActiveX) ma il .NET framework.
Ti assicuro che i vantaggi sono notevoli, cito ad esempio la side-by-side
execution e il fatto di non richiedere nessuna registrazione nel registry
per poter funzionare ovvero la fine del 'famoso' dll-hell.
Se può interessarti la tecnologia COM è comunque ancora supportata in .NET a
patto che ne accetti i relativi svantaggi.
HTH
--
Corrado Cavalli [Microsoft MVP]
UGIdotNET - 
http://www.ugidotnet.org

 Chi mi sa dare una spiegazione?
Per quanto riguarda il libro, l'argomento non e' stato affrontato (viene
detto chiaramente, ma "dentro", in fondo nell'introduzione), per il resto
vedi il post di Corrado...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 patto che ne accetti i relativi svantaggi.
Teoricamente se la tecnologia COM è gia supportata in .NET Framework non
dovrei più avere bisogno di utilizzarla ancora con 
VB.NET
, rischiando cosi
di incontrare notevoli svantaggi!!??
Oppure pur essendoci .NET Framework è ancora necessario utilizzarla? Spero
di no!!
Ciao Grazie per il chiarimento MatteoC.


 di no!!
No, vista la notevole quantità di codice basato su COM, in dotNET è stata
prevista la possibilità di utilizzare codice COM based attraverso un
opportuno RCW (Runtime Callable Wrapper) così come è stato prevista la
possibilità di utilizzare codice managed (.NET) da applicazioni COM based
attraverso un appositio CCW (COM Callable Wrapper).
La presenza di questi wrapper fa sì che le prestazioni non siano le migliori
possibili ma perlomeno aiutano la migrazione di codice verso la piattaforma
.NET

Newsgroup: it.comp.lang.visual-basic
Titolo: [RIVENDITA VB6 usato con Licenza] è legalmente consentita?

Scusate l'intromissione (e la niubbità):
volevo sapere se la rivendita di software USATO
con passaggio di regolare licenza, poniamo il caso di VB6,
ma anche di qualsiasi altro software (mettiamo Office 2003),
è consentita dalla Legge?
Ripeto, si assuma il caso di una rivendita fatta onestamente:
chi lo cede se ne priva totalmente (lo disinstalla dopo averlo usato quattro
anni,
cancella le copie di backup...), chi lo acquista riceve anche la licenza.
Inoltre per VB6 è tecnicamente fattibile, cioè chi lo acquista riesce ad
usarlo?
E' cioè "nominale" o magari legato ad un numero seriale valevole per
una determinata macchina...?
Grazie a chi mi darà delucidazioni per entrambi i quesiti.


Io ti posso raccontare un esperienza personale nella quale, per quanto 
riguarda un noto programma di G.i.s., si è beccato una cazziata perché 
non è legale la cessione anche a titolo gratuito della licenza... ti 
puoi immaginare se la fai pagare...
Non sò però se questo è valido su tutte le licenze, anche se a dir la 
verità penso di si visto che ti vendono la licenza di utilizzo e non il 
software.
Io sarei anche curioso di sapere come viene licenziato un programma 
sviluppato con software prodotto con pacchetti tipo vb6

Nel contratto di licenza Microsoft trovi  scritte le modalita di cessione 
della licenza.
In breve (vado a mente) il venditore deve cedere tutta la documentazione,le 
licenze, i supporti ottici/magnetici che sono parte integrante del 
"pacchetto cosi come viene messo in vendita all'origine.
Poi deve assolutamente distruggere qualsiasi installazione del prodotto 
ceduto in suo possesso.
Saluti
Riccardo 

 Grazie a chi mi darà delucidazioni per entrambi i quesiti.
Prego :)
Cosa vendi di preciso?
bye

 bye
Sto acquistando un VB6

Newsgroup: it.comp.lang.visual-basic
Titolo: istruzione wait

Salve,
sto cercando in msdn l'istruzione wait, ma non trovo quello che mi
serve! Voglio utilizzarla per bloccare il flusso del programma per
qualche secondo (sto usando Vb6 ! ). Qualcuno puo' aiutarmi?
Grazie
Donatella :)
-- 
Posted from root@[195.120.213.3] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Usa l'API Sleep
la dichiarazione č:
Private (o public) Declare Sub Sleep Lib "kernel32" (ByVal Millisecondi As
Long)

qualche secondo (sto usando Vb6 ! ). Qualcuno puo' aiutarmi?
Usa il controllo Timer.
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

qualche secondo (sto usando Vb6 ! ). Qualcuno puo' aiutarmi?
Nell'altro post ho dimenticato di dirti che esistono vari modi per
procedere. Per sapere pregi/difetti dei vari modi, c'e' un thread di
qualche giorno fa intitolato "Controllo TIMER", se non ricordo male.
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro RomagnoloŽ, diffidate dalle imitazioni!


GRAZIEEEE
Non avevo pensato a sleep!
Ciao
Donatella :)


Newsgroup: it.comp.lang.visual-basic
Titolo: come si disabilita....

con il codice.... il pulsante di chiusura di una form?? cioe' la (x)
grazie

A grandi linee:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Cancel = 1
End Sub

Ciao,
l'esempio di Cristiano va bene tranne che per una piccolissima cosa... in
quel modo il form NON può più essere chiuso:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = 0 Then
        Cancel = 1
    EndIf
End Sub
Così non ti fa chiudere il form solo se tenti di chiuderlo clickando sulla X
del suddetto, mentre puoi chiuderlo in tutti gli altri modi.
Guarda sulla guida in linea sotto QueryUnload per vedere gli altri valodi di
UnloadMode.
Ciao, Mirco.
Cristiano Larghi Micronix2 <C.La...@Micronix.it> wrote in message
7vv5q4$a5n$1...@fe1.cs.interbusiness.it...


grazie duemila.


 wrote in message
382314c1...@news.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Manifesto alternativo

Caro lettore,
se sei appena arrivato in questo NewsGroup è il caso che tu legga per prima
cosa questo breve messaggio PRIMA di iniziare a postare senza ritegno.
Qui, di solito, parliamo di Visual Basic e tutte le tecnologie che ad esso
sono collegate. Il che vuole dire che una domanda su come usare il Visual
Basic di Word è normalmente bene accetta, una domanda su cosa danno al
cinema sotto casa no, anche se il programma con cui la cassiera tiene la
contabilità fosse scritto in VB. Quindi, per prima cosa, domandati se sei
sul NewsGroup giusto.
Poi ricordati che in generale il 90% delle domande che ti possono venire in
mente hanno già la risposta scritta da qualche parte e quindi prima di
chiedere sarebbe il caso di documentarsi. Come???
- Guardando il sito comune, che sta su 
http://www.it-lang-vb.net/
.
Seriamente, guardateci prima di postare dato che è pieno di informazioni
utili.
- Leggendo i manuali. Sembra impossibile ma c'è scritto veramente tutto.
- Leggendo dei libri. Su Visual Basic ce ne sono tanti, un bell'elenco lo
trovi sul sito comune a 
http://www.it-lang-vb.net/Libri.asp
- Girando un po su Internet, sempre sul sito comune c'è una bella raccolta
di Link in italiano ed in inglese
A questo punto se hai consultato quanto scritto ed hai ancora dei dubbi puoi
fare la tua domanda. Non prima. Ed in generale ricordati che:
- E' inutile che tu chieda come si fa un programma per fare la contabilità
di una ditta da 200 miliardi di fatturato se non sai neppure cosa sia l'Iva
- E' inutile che tu ci posti una domanda generica del tipo "ho fatto un
programma in VB e non va, che faccio?". Se avessimo tutti una sfera di
cristallo puoi credere che saremmo qui a leggere sti messaggi ed a
risponderti? O forse la sfrutteremmo per fare un 6 al SuperEnalotto e
trasferirci alle Maldive?
- La qualità e la bontà della risposta sono sempre collegate alla domanda.
Domande sceme avranno risposte poco serie o nessuna risposta.
Saluti
Massimo
PS: Ma ti ho detto che sul sito comune trovi veramente tutto quello che ti
serve???? 
http://www.it-lang-vb.net/

bello.......mi piace.........č "simpatico".......
cmq io aggiungerei come riferimenti anche 
www.deja.com
, perchč lě si possono
trovare i vecchi msg.......
bello, cmq.....bel lavoro!!!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262


Lol
Molto simpatico e al tempo stesso esauriente.
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con Database

Ho una database paradox con estensione .db che prima riuscivo ad aprire
tranquillamente con Access 2003. ed usarlo in Vb6.
Adesso se apro quel database sia con vb sia con access mi da un errore che
dice:
"Il modulo di gestione di database Microsoft Jet con e' riuscito a trovare
l'oggetto RUBRICA.db.
 Assicurarsi che l'oggetto esista e che il nome e il percorso siano digitati
corretamente."
Ma il percorsco e' esatto e l'oggetto esiste.
Ho provato ad aggiornare l'Mdac e niente , ho provato ad aggiornare il
database engine jet 4 e niente..
adesso non so cosa fare.!
Qualcuno mi puo aiutare a risolvere il problema?
Grazie

"Deskdeck"  ha scritto:
[...] prima riuscivo ad aprire
tranquillamente con Access 2003. ed usarlo in Vb6.
Adesso [...]
prima di cosa e dopo cosa?
termoPilucco

 ha scritto nel messaggio
news:c6o9ju$e50ao$1...@ID-188026.news.uni-berlin.de...


[Deskdeck = 
circa_d...@virgilio.it
 in
GMNjc.158679$
rM4.6...@news4.tin.it
] ha scritto:

Un database Access può NON avere l'estensione .MDB e può essere aperto
tranquillamente con DAO o ADO.
Fatto salvo qualche applicativo che pretende tale estensione, per pura
formalità, potresti pubblicare le esatte istruzioni di apertura? Grazie.

 Non so cosi risolverai però ci sono in giro le sp8 per il jet engine 4.
L'ultimo mdac che hai è la ver 8?anche per questo è uscito una piccola patch
correttiva che risolveva alcuni bug
Prova e facci sapere
Ciao e buon lavoro Vincenzo

> Ho una database paradox con estensione .db
Urca, mi era sfuggito: ritiro tutto. Perdono.

 ;-)
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: TreeView (evidenziazione)

In questo programmino ridotto all'osso che comprende un TreeView ed un
TextBox :
Private Sub Form_Load()
   Dim Nd As MSComctlLib.Node
   Set Nd = TreeView1.Nodes.Add(Key:="A1", Text:="PRIMO")
   Set Nd = TreeView1.Nodes.Add(Key:="B1", Text:="SECONDO")
   Set db = TreeView1.Nodes.Add("B1", tvwChild, , "figlio di secondo")
   Nd.Expanded = True
End Sub
Private Sub Text1_GotFocus()
    Text1.Text = RTrim$(Text1.Text)
    Text1.SelStart = Len(Text1.Text)
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
   Text1.SetFocus
End Sub
non riesco ad ottenere che, facendo click sul treeview, rimanga SELEZIONATO
l'item del treeview stesso e, CONTEMPORANEAMENTE, il focus cada sul textbox
in cui l'utilizzatore puo' digitare quel che desidera.
Grazie anticipatamente se qualcuno vorrą aiutarmi.
Ugo Bottari

Grazie anticipatamente se qualcuno vorrą aiutarmi.
prop. hideselection
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
---------------------------------------------------------------------------

Puntuale ed utile suggerimento !
Grazie
Ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: Spostarsi su una true dbgrid

Come posso spostare il corsore da codice su un determinato campo di una true
dbgrid ?
Grazie, Alberto

 ha scritto nel messaggio
news:4I6n6.26524$Yx4.1...@news6.giganews.com...

Se sei gia' posizionato nella riga e vuoi posizionare il cursore in una
colonna :
tdbgrid1.Col = NumeroColonna
Se devi scegliere anche la riga, vedi l'help per la proprieta' row.
Ciao.
Lorenzo

Newsgroup: it.comp.lang.visual-basic
Titolo: Nascondere colonna DBGRID

Ciao a tutti.
Come da oggetto.
Ho già provato con gli esempi dell'Help in linea, ma la prima colonna è
sempre visibile.
Grazie a tutti.
http://digilander.iol.it/lamak
la...@libero.it

mi pare che la prima (quella grigia) non si nasconda mica...
le altre con visible...
--[GbC]--

provato anche ad impostare la larghezza della colonna a 0?
GbC <NOS...@PLEASE.MAN> wrote in message 85nm8o$qbl$1...@nslave2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Comandare la porta parallela.

Ciao a tutti.
Spero di non scrivere una cavolata e di non essere OT.
Volevo sapere se era possibile comandare i singoli pin della porta
parallela.
Cioč se č possibile via software, e soprattutto via VB, porre a livello
logico 1 o 0 i vari pin della porta parallela singolarmente e se č anche
possibile leggerne lo stato.
Non sň se mi sono spiegato. Spero di sě e spero che questo sia possibile.
Un grazie a tutti
Ciao
Sagenut

 ha scritto nel messaggio
news:XI%D5.16293$N93.5...@news.infostrada.it...



Grazie Olivier. Ho downloadato la DLL che tu mi hai indicato.
Non è che sapresti anche indicarmi dove potrei reperire del sorgente che usi
questa DLL per capirne meglio l'utilizzo? Te ne sarei molto grato.
Sagenut

Ciao a tutti di nuovo.
La DLL Win95io contiene queste dichiarazioni:
Declare Sub vbOut Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As
Integer)
Declare Sub vbOutw Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As
Integer)
Declare Function vbInp Lib "WIN95IO.DLL" (ByVal nPort As Integer) As Integer
Declare Function vbInpw Lib "WIN95IO.DLL" (ByVal nPort As Integer) As
Integer
Qualcuno può mandarmi un sorgente per vederne l'uso pratico?
Grazie a tutti.
Sagenut
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 e EXCEL non funzionano bene insieme

programma.
Ho avuto lo stesso problema e dopo molte prove credo che e excel ad essere
lento
ho un foglio con 6000 righe e 120 colonne di cui quasi 90 colonne con
formule molte delle quali mie personali
risultato: 15 minuti per aggiungere una riga al folgio
ho provato a lavorare solo su excel e ottengo lo stesso risultato così, alla
fine, ho convertito tutto in access
Ciao Stefano

 lento
Ciao Stefano e grazie della risposta.
Almeno so che qualcun'altro ha avuto lo stesso problema.
Avevo anch'io pensato (quando riesco a farlo :) di usare access ma non ne
avevo intenzione perché access é un prodotto separato dall'office standard e
quindi la maggior parte degli utenti devono comprarlo separatemente e
tentavo di risolvere il problema con excel , ma....
Forse StarOffice della Sun comprende anche una specie di Access?
Controlliamo...
Ora proverň  anche con Access , al limite... il cliente se lo deve comprare
(o copiare) ... fatti suoi.
Ti interpellerň di nuovo se ho problemi con quel tipo di lavoro con Access
... :-) dato che tu l'hai risolto prima di me.
Sempre se non ti di disturbo.
TNX VM!
Marcello Zappa.

 (o copiare) ... fatti suoi.
[...]
Scusami se mi permetto qualche osservazione su queste tue parole, ma la cosa
mi interessa e mi piacerebbe conoscere anche il parere di qualcun altro.
A parte il discorso del copiare, decisamente censurabile quanto meno perche'
rischi di mettere in difficolta', anche gravi, qualcuno che potrebbe non
essere ben informato o consapevole dei rischi che potrebbe correre, trovo
poco corretto questo tuo atteggiamento disinvolto con il denaro altrui.
Non mi interessa fare la morale: considera che ogni lira che il cliente
spende in "prodotti" e' una lira che non entra nelle tue tasche; ogni lira
che il cliente spende per far girare il tuo programma entra, dal suo punto
di vista, nel costo del programma, quindi quando fara' delle valutazioni non
distinguera' se quella lira e' entrata nelle tue tasche o in quelle di
altri.
Un'altra cosa: hai delle provvigioni da quell'acquisto del cliente? Se e'
cosi', amen, posso anche capirti. Altrimenti me ne guarderei bene da
avvantaggiare Microsoft che non mi sembra faccia una politica cosi' generosa
nei confronti degli sviluppatori. Se ho torto saro' ben felice di cambiare
idea.
--
Ciao.
Maurizio



Newsgroup: it.comp.lang.visual-basic
Titolo: Quasi quasi torno indietro...

Ho ancora un sacco di rogne in un pc con W98
VB6 Learning e SP5, nel senso che più di metà
dell'MSDN mi risulta illeggibile causa il 'famoso'
errore causato da ITSS.DLL.
Le ho provate tutte (comprese quelle consigliate
ma Microsoft ovviamente)...
Vorrei reinstallare VB6 e MSDN senza SP: devo
mettere mano al registry? Se si, dove per una
cancellazione totale?
Pensare che a casa con WinMe e SP5 (ed Explorer
5.5, dato che dicono sia causa anche sua) non ho
nessun problema...
_____________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

Puoi solo formattare...
Oppure togliere tutto a mano... ma impieghi meno a formattare e
ripristinare... Dai che ogni tanto fa bene... Farebbe bene anche passare a
NT o 2000... :-)
        Ciao
                Allanon

 ha scritto nel messaggio
news:9e32k6$4na$1...@nreadB.inwind.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: invio fax con vb

salve,
ho necessità di inviare dei fax da procedura in VB. Nel PC ho installato
WinFax ma non voglio utilizzarlo come stampante o per lo meno vorrei avere
la possibilità di passargli in automatico il parametro numero telefonico e
file allegato.(che li prendo dall'anagrafica della procedura)
Altrimenti come posso fare?
Ciao
Andrea
-- 
Posted from 
an1-182.dialup.tiscalinet.it
 [62.11.102.182] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:522a0cdc846a0ebb9c7...@mygate.mailgate.org...


Newsgroup: it.comp.lang.visual-basic
Titolo: Err.Raise e On Error

Ho creato un modulo di classe che ad una certa operazione genera un errore
con Err.Raise
In una routine:
Dim myCls As New clsMiaClasse
On Error Goto 9999
X=myCls.Funzione(y) 'e quì si genera l'error
msgbox X
9999
End Sub
Perché nonostante la gestione dell'errore mi appare la schermata dell'errore
di runtime?
Grazie

Imposta VB in modalitá 'Break on unhadnled errors'
Ciao,
Corrado

 wrote in message
81h207$gr0$1...@fe1.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: lanciare la stampa di un report di access da visual basic

sapete se č possibile lanciare da vb una stampa di un report se una certa
query non č vuota senza dover aprire il database?
grazie.

 query non è vuota senza dover aprire il database?
Sì, per la seconda parte:
Fai una query appoggiandoti a un db/connessione aperto/a e nel comando citi
esplicitamente il "vero" db sul quale vuoi fare la query:
Per esempio "Select * From C:\Cartella\database.Nome_Tabella"
Non hai nemmeno il db/connessione di appoggio già aperto/a? Temo (e mi
torna) che non si possa...
Newsgroup: it.comp.lang.visual-basic
Titolo: problemino di lentezza

ho copiato del codice, ma non sono sicura che funzioni bene.
Devo cancellare il contenuto di 2 tabelle.
La prima la cancella velocemente mentre la seconda è lentissimo.
sono grandi uguali, stesso numero di record e campi (circa)
i record hanno una chiave sola
ci sono solo 500 (circa) record
Sapete aiutarmi?
ciao
    Dim AdoCONN_TPM As ADODB.Connection
    Dim RSTREPORT_TPM As ADODB.Recordset
    Set AdoCONN_TPM = New ADODB.Connection
    AdoCONN_TPM.CursorLocation = adUseClient
    Set RSTREPORT_TPM = New ADODB.Recordset
    RSTREPORT_TPM.CursorLocation = adUseClient
    AdoCONN_TPM.ConnectionString = _
    "Provider = microsoft.jet.oledb.4.0;persist security info = false; data 
source = " & Connetti_db
    sql = "DELETE * FROM ARTICOLI"
    AdoCONN_TPM.Open
    RSTREPORT_TPM.Open sql, AdoCONN_TPM, adOpenStatic, adLockReadOnly, 
adCmdText
    sql = "DELETE * FROM CLIENTI"
    RSTREPORT_TPM.Open sql, AdoCONN_TPM, adOpenStatic, adLockReadOnly, 
adCmdText
    If AdoCONN_TPM.State = adStateOpen Then
        AdoCONN_TPM.Close
        Set AdoCONN_TPM = Nothing
        Set RSTREPORT_TPM = Nothing
    End If

 ci sono solo 500 (circa) record
[CUT]
Solo un'indicazione: le Action Query (come DELETE, INSERT INTO etc..) si
effettuano con il metodo Execute dell'oggetto ADODB.Connection, non aprendo un
recordset!
    sql = "DELETE * FROM CLIENTI"
    AdoCONN_TPM.Execute sql
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.

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

Private Sub Command1_Click()
Dim t As Integer
   t = 0
While t < 5000
    t = t + 1
Wend
If t = 5000 Then MsgBox " ", vbCritical
End
perke quando premo il pulsante command1 non parte il conteggio e dopo 5 sec
mi fa vedere il messaggio??invece me lo fa vedere subito????;invece se
scrivo t <= 5000 non mi fa piu vedere il msgbox perke????

1) I cicli While, Do e For non hanno una "cadenza" misurabile in secondi,
quindi ciclare 5000 volte ed eseguire un semplice incremento di variabile
all'interno del ciclo stesso viene eseguita dal processore in un tempo
pressochè istantaneo, data appunto la semplicità di operazione richiesta e
la velocità di elaborazione dei processori odierni.
2) se si mette <= 5000 si uscirà dal ciclo solo quando "t" sarà uguale a
5001, quindi il successivo If fallisce.
Se ti interessa un metodo per creare operazioni da eseguire ogni tot
secondi, usa l'oggetto Timer
Byez
Tango


Prova cosě:
Dim t as Single
t=timer
while timer-t<5
  doevents
wend
Newsgroup: it.comp.lang.visual-basic
Titolo: Database Access 2.0 Con Microsoft Visual Basic 6.0







Nella mia applicazione utilizzo Database Access 2.0 con Microsoft Visual 
Basic 6.0


Questa è l'istruzione inserita nel programma per aprire il 
database


Set DbSviluppo = DBEngine.Workspaces(0).OpenDatabase(DB_Lavoro) 


Aprendo Un'Altra sessione del programma, nel momento in cui utilizzo questa 
istruzione:


Set rsSub = DbSviluppo.CreateQueryDef("Sub", Sql)


viene generato questo errore


Errore run-time: (3186) Impossibile salvare. Attualmente bloccato dall'utente 
<nome_utente> sulla macchina <nome_macchina>. 


Sembra che il Database venga bloccato in modifica struttura (cioè non 
è possibile creare query , Tabelle , ecc....)


Ho notato che questo accade anche se nell'altra sessione apro un recordset o 
carico una form con un Datacontrol associato al database aperto.


usando Freelocks si risolve parzialmente il problema però non posso 
metterlo dappertutto!!!!!!!!!!


Da notare che questo problema non esiste assolutamente con il Visual basic 
3.0


Cosa posso fare per risolvere tutto questo!!!


Help Me!!!!! Ciao!!!



 ha scritto

(per favore non postare in html).
dunque, se come penso sei sicuro che il db non era contemporanemente aperto
con access, andando a naso ipotizzo:
access era il formato 'nativo' per vb3
vb6 ha access97 come 'nativo' (default,quello che vede senza sp o
smarchingegnamenti vari), con sp4 vede anche il 2000.
se apri un mdb con una versione di access successiva a quella con cui l'mdb
e' stato creato, ti consente di vederlo ma non di modificarlo (dovresti
convertirlo).
forse puoi _provare_ a mettere i vecchi riferimenti dao (2-2.5 se non
sbaglio, anziche' 3.5x-4) e vedere cosa ne pensa vb.
ciao, a.

Purtroppo non posso convertire il database da Access 2.0 alla versione
Access successiva, ho necessità di usare la versione 2.0!
Ho già provato ad usare tutte le possibili librerie DAO, compreso le vecchie
versioni (tranne ovviamente quelle a 16 bit per vb 3.0 che non funzionano )
ma non c'è stato niente da fare !!!!
Esiste un' altra soluzione ????
    Grazie , Ciao!!!
-- 
Posted from 
ro...@sdelta.topnet.it
 [151.99.190.227] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

     Grazie , Ciao!!!
purtroppo non me ne vengono in mente. access2000 ha l'opzione strumenti /
converti / salva _alla_ versione precedente, e mi sa intenda la 97, quindi
anche l'idea di fare le modifiche in access salta.
Newsgroup: it.comp.lang.visual-basic
Titolo: vb.net funzionamento del for each con "guppo" che cambia

Salve a tutti,
in un ciclo for each elemento in gruppo, come ci si deve comportare se 
all'interno del loop il "gruppo" puo' cambiare? esempio:
 
                Dim uidList As List(Of Long) = imap.GetAll
 
                For Each uid As Long In uidList
 
                    'qui eseguo delle operazioni su uid rimuovendolo 
anche...
 
                Loop
 
praticamente nel corso del loop mi trovo a fare delle operazione nelle quali 
uid puo' essere anche rimosso, e l'unica soluzione trovata è la seguente:
 
                Dim uidList As List(Of Long) = imap.GetAll
 
                For Each uid As Long In uidList
 
 
                    uidList  = imap.GetAll
                    if uidlist.count=0 then exit for
                Loop
 
ma non se, in caso di nuovi elementi nell'uidlist mi vengano ciclati anche 
questi... Che ne pensate?
 
D. 
 


penso che dovresti ricorrere alle dictionary...
ti permette reperire velocemente l'elemento attraverso la "key"
di più non posso dire anche perché non so cosa devi fare...

 all'interno del loop il "gruppo" puo' cambiare?
 
Se l'unico tipo di cambiamento sulla lista è la rimozione di qualche 
elemento, puoi sostituire il 'for each' con un 'for' a ritroso e non hai 
problemi:
 
Dim uidList As List(Of Long) = imap.GetAll
Dim uid, i As Long 
 
For i= uidList.Count -1 to 0 Step -1
  uid = uidList(i)
  'ecc.. ecc..
Next
 
Se invece la lista cambia sia con rimozione sia con aggiunta di 
elementi, dovresti evitare del tutto il ciclo 'for' e sostituirlo invece 
con un ciclo 'while' nel quale testi la condizione di uscita desiderata
Newsgroup: it.comp.lang.visual-basic
Titolo: Sfarfallio dei form

Ciao a tutti,
vorrei porgervi una domanda, per la quale non riesco a trovare una
soluzione.
Ho creato una applicazione che inizia con l'apertura di un form-MDI,
contenente oltre al menu testuale classico ancheuna barra a icone per le
operazioni piu' comuni.
Fra le diverse maschere che vengono aperte, ne ho alcune contenenti delle
MSFGrid, che vengono popolate con dei dati memorizzati nel database
sottostante di tipo Access.
Quando carico delle finestre normali, senza questo controllo, ma piu'
precisamente direi senza la lettura dei dati dal DB, la finestra si carica
liscia come l'olio, e tutte le icone presenti nella barra delle icone, sono
perfettamente visibili.
Ma quando apro le finestre che vanno a leggere sul DB e che devono riportare
i dati all'interno della MSFG, che come sappiamo è lenta, l'icona della
barra delle icone, appena premuta, sparisce per alcuni secondi, e finche la
finestra non e' stata caricate, non riappare, ottenendo un bruttissimo
effetto ottico.
Non riesco a capire (e risolvere) due cose...
1) Perchè l'icona sparisce ?
Il codice di caricamento dei dati ( uso una query SQL) non si trova
nell'evento _Click del commandButton, ma in una funzione a parte, quindi
l'icona non dovrebbe attendere l'esecuzione di tutto il codice per essere
ridipinta....
2) Perchè la MSFG è cosi lenta nel visualizzare i dati (in alcuni casi ci
mette anche due o tre minuti).?
Inizialemtne usavo un ciclo FOR... NEXT ma poi voi mi avete consigliato un
DO....LOOP....la resa non e' cambiata molto.
3) Vorrei far apparire una barra di scorrimento, che dia l'idea del
caricamento dei dati, ma non sono riuscito a interporla correttamente nel
mio ciclo di caricamento.
In pratica ho ottenuto di avere prima l'apparente blocco del sistema con
clessidra e icona scomparsa, e poi appare la barra di scorrimento , cosi ci
metto il doppio.
Se avete qualche suggerimento, saro lieto di scoltarlo.
Emanuele


vedi sopra.
Attento nell'uso del DOEVENTS all'interno dei cicli, otterresti un
rallendamento significativo della procedura.
Magari richiama il DOEVENTS ogni X iterazioni.
Ciao, Francesco.

[cut]
Grazie Francesco
Emanuele
Newsgroup: it.comp.lang.visual-basic
Titolo: Active Reports funziona con database da Access 2000

Ciao a tutti!
Sto creando un nuovo report con Active Reports: ho appena inserito nella
Detail Section un nuovo controllo DAO ed ho specificato nella proprietà
DatabaseName di quest'ultimo il file DB da usare
(C:\Documenti\database.mdb).
Adesso però se cerco di selezionare la proprietà RecordSource, mi compare
questo messaggio di errore:
"DAO ERROR #3343 Formato di database 'C:\Documenti\database.mdb' non
riconosciuto. Source: DAO.Workspace"
E' possibile che il formato non sia riconosciuto perchè AR non funziona con
database fatti con Access2000 (come il mio)???
Anche con VB avevo avuto problemi di compatibilità con i DB Access 2000, ma
usando Jet 4.0 si era risolto tutto...
Cosa ne pensate?
Grazie a tutti!!!
Ciao, Diego

 Ciao, Diego
Penso che il datacontrol di ActiveReports non gestisca DAO3.6
Io proverei ad aprire il recordset prima di lanciare la stampa o con un
oggetto DAO.Recordset
oppure con con datacontrol su un form e poi, ammettendo che il tuo recordset
si
chiami Data1.Recordset puoi fare cosģ:
Set MioReport.DataControl.Recordset=Data1.Recordset
e quindi fai
MioReport.Show vbmodal
Per i datacontrol infatti non č necessario impostare la proprietą
DatabaseName e RecordSource, ma
basta impostargli solo la proprietą Recordset e i dati se li prendono da
un'altra base dati.
Non ti assicuro perņ che nel tuo caso specifico la cosa funzioni............
Ciao
Sergio
Newsgroup: it.comp.lang.visual-basic
Titolo: Passare l'handle di un'immagine alla stampa

Salve a tutti, sto sviluppando una dll in cui dovrei passare il percorso
completo di un file immagine all'oggetto Printer.hDc; come devo fare,
tenendo conto che sono all'interno di una dll e quindi il tutto deve
avvenire in modo trasparente ? Grazie a tutti i volenterosi.
Stefano
--------------------------------
Inviato via 
http://usenet.libero.it


Dimenticavo di precisare che le immagini sono esclusivamente TIF e quindi
non posso essere caricate in un oggetto image o picturebox. Grazie.

Newsgroup: it.comp.lang.visual-basic
Titolo: media in un recordset

ho preso da poco l'abitudine di "riempire" le variabili recordset (ADO) con
l'istruzione Open
Myrst.open StringaSQL, [....]
una volta ottenuto il recordset, devo elaborare alcune medie su alcuni suoi
valori (ad es, l amedia del campo "Importo" quando il campo "Data" è
compreso in un intervallo di date) e cosi via.
tutte cose semplicissime da fare con una query SQL, (SELECT AVG...), ma
avendo gia il recordset, devo fare il tutto con ADO...
come posso fare? non vorrei scorrere il recordset record per record...
grazie
Mario



Cosa intendi per "avendo gia' il recordset" ?
Hai gia' aperto il recordset ed ottenuto i records e non vuoi
rilanciare una query?
Ciao

 rilanciare una query?
esatto
tutti i valori di cui calcolare la media sono gia in un recordset.
Mario

Le query in SQL sono fatte apposta per eseguire operazioni di questo tipo, se 
non vuoi farle devi scorrere record per record
-- 
Posted from  [217.57.33.234] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


ed invece no, la soluzione piu' efficiente e' lanciare una seconda query
che ti calcoli totali medie o quant'altro, sopratutto se i record sono
tanti e/o se ti trovi ad usare un server ( fosse anche MSDE )
altrimenti 
detto rs il recordset
 
	if rs.eof and rs.bof then
		.... = 0
	else
		rs.movefirst
		while not rs.eof
			......		' qui il codice per calcolo di medie o quant'altro
			rs.movenext	
		wend
	endif
ed aspetti .....

Newsgroup: it.comp.lang.visual-basic
Titolo: [meeting] :)

Sono andato sul sito comune
http://www.it-lang-vb.net/
ma non trovo indicazioni per il meeting
(ho provato home, info, bacheca, ... ecc...)
Lo so, che se vado un po' a spulciare nei vecchi messaggi
trovo le risposte che cerco, ma...
quand'e'?
dove?
quanto costa?
perche'?
...sono tutte info che dovrebbero stare a portata di SC.
oppure qualcuno pensa che nessuno lo visita :))))))))
no-flame,pls
ciao. buc

 ha scritto nel messaggio
news:k_vh8.41358$_u5.1...@news1.tin.it...

Sarebbe l'occasione buona per dare la possibilità a Timothy di cominciare,
se Assa non ha tempo...
ciao...

 (ho provato home, info, bacheca, ... ecc...)
CUT
va beh al prossimo meeting se non mettono almeno un banner di 800x600 gli
scateno contro "3 teenager hackeroni".... :-)
Si va a Bologna...
raduno fissato alle 11.45 alla stazione centrale
Si va a mangiare in un ristorante...45.000 lire...(conversione in Euro a
carico tuo! :-) )
Si ragiona un po e si mangia un po....+ siamo meglio č!
Vieni?

 no-flame,pls
Hai ragionissima!
Comunque è qui (sei un po' in ritardo però :PPP)
http://www.it-lang-vb.net/meeting
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [Meeting] _RISULTATI_ Votazioni _LUOGO_

Con 5 voti a 2 ( alla faccia :-/ ) 
E' stato scelto il ristorante [B] 
[B]Ristorante "La Campagnola"
Via Caselle, 60 - 40068 S.Lazzaro di Savena (BO)
tel. 051 460197 fax 051 460091
Proposto da Michele Moccia
-- 
<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/

 Proposto da Michele Moccia
Io non ho votato per motivi che non sto a spiegare e quindi non ho 
diritto di lamentarmi, però... che palle!
Non si cambia mai???
Bisognerebbe mettere la regola "non più di tre volte nello stesso posto" ;)
Ciao

 posto" ;)
/me segna sull'agendina : Ricordarsi di strappare i canini a zanna motivo :
"Io non ho votato _e_quindi_non_ho_diritto_di_lamentarmi, però...
_che_palle_ !
:ppppppp votavi ... cioe' ci sono stati in totale 7 voti ! B vince A 5 a 2
... bastavano 4 persone ... :ppppppp
Dai veloci con ste date che gia' mi sale il languorino ! ^_^
Se possibile da adesso in poi passo la palla a Michele Moccia per il risto.
-- 
-Gigio@Work(?)-

 risto.
Ok. Appena si sara' decisa la data ed avro' un circa del numero di
partecipanti, andro' a prenotare.
Ciao
Michele

 partecipanti, andro' a prenotare.
se ti e' possibile potresti prendere la gestione da appena si decide la data
?
Ricordo che non ho tempo in questi mesi e una manina mi sarebbe di molto
aiuto !


 molto aiuto !
Faro' il possibile ;-)
Ciao
Michele
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutoo!!!

Ciao ragazzi sono un novellino della programmazione e mi interessava
apprendere nozioni sulla gestione di database in Visual Basic 5 o 6.
Per iniziare vi faccio una domanda che vi sembrerà scema. Per includere nei
miei programmi pulsanti che si comportano come nelle pagine web (quando
vengono puntati dal mouse cambiano colore e apparenza) quali eventi devo
usare???????
Ringrazio anticipatamente chi mi risponderà.
Grazie mille
Ciao a tutti!
--
ChEaT  };-)>
E-Mail: 
schiu...@infinito.it
#ICQ 67236122
- - - - - - - - - - - - - - - - - - - - - - - - - - - - -

 usare???????
Evento MouseMove (avviene quando il puntatore va sopra al controllo)
Puoi usare l'evento 'MouseMove' del pulsante per l'evidenziazione cambiando
la proprietà  "backcolor" (con la proprietà Style su 1 - Graphical) e il
'MouseMove' dell'area circostante (form, frame ecc.) per rimettere la
proprietà originale.
Ciao  :-)
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come leggere i colori dei pixel?

Ho fatto un pgm nel quale con il mouse disegno un triangolo (con 3 oggetti
Line) sopra un oggetto Image.
A questo punto avrei la necessità di leggere il colore dei pixel
dell'immagine racchiusi all'interno del triangolo.
Qui nasce il mio problema. Tempo fa avevo letto sul NG come leggere il
colore di un pixel (Color=form.point (x,y)) ma come posso fare per leggere
tutti i pixel del triangolo creato? In pratica dovrei scandire (?) l'interno
del triangolo creato rilevando i valori dei singoli pixel.
Avrei bisogno di un suggerimento su come implementare questa parte.
In pratica basterebbe poter scorrere nella sua interezza 2 oggetti Line,
poterne rilevare cioè le coordinate dall'inizio alla fine.
Spero di essere stato abbastanza chiaro.
Grazie Franco







ora basta, no? ;)
-- 
GbC
http://www.chiappori.net
Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 & SHELL

Saluti a tutto il NG.
Ho un problema di questo tipo:  mando in esecuzione un programma esterno in
una finestra DOS come segue:
RetVal = Shell("c:\Adr\" + Directory + "\vai.bat", 2)
Vorrei che fino a quando la shell non è terminata, il programma non prosegua
(cosa che adesso fa).
In Retval dovrei avere l'ID del TASK.
Mi potete indicare come fare??
Grazie e saluti
Leo

In Retval dovrei avere l'ID del TASK.
Ti copio la parte che ti puo' interessare di un mio vecchio e stupidisso
programma di prova che ho risistemato in questi giorni a seguito della
lettura in questo ng dei post del thread "Sapere la lista di Files e
directories" aperto da Luca Paganelli, al quale Daniele ha risposto con una
soluzione classica e molto pulita trascritta a memoria.
Leggendo questi post mi sono ricordato di una mia soluzione "sporca" del
problema che consisteva nell'indirizzare l'output del comando Dir del DOS ad
un file temporaneo che, una volta creato, veniva letto dal mio programma e
poi cancellato (cosa non si fa, presi dalla disperazione!). Il problema era
proprio quel "una volta creato"! E quando finiva, il Dos, di lavorare?
Oggi la risposta la puoi trovare in Appleman, Daniel _Visual Basic Win32
API - Guida del programmatore_, Mondadori Informatica, L. 120.000 (per lo
meno l'edizione che ho io, aggiornata a VB4).
L'argomento e' anche trattato, con altre e piu' attuali soluzioni
(callback...), da Bruno Salzano in una delle "perle" del Sito comune, che
t'invito a consultare.
Option Explicit
DefInt I-K
DefLng L
DefStr S
Private Const lSYNCHRONIZE = &H100000, lINFINITE = &HFFFF
Private Declare Function lOpenProcess Lib "kernel32" _
    Alias "OpenProcess" ( _
      ByVal lDesiredAccess _
    , ByVal lInheritHandle _
    , ByVal lProcessId)
Private Declare Function lWaitForSingleObject Lib "kernel32" _
    Alias "WaitForSingleObject" ( _
      ByVal lHandle _
    , ByVal lMilliseconds)
Private Declare Function lCloseHandle Lib "kernel32" _
    Alias "CloseHandle" ( _
      ByVal lObject)
Private Sub QuelloCheVuoi()
Dim lRet, sCmd
    sCmd = _
        "c:\Adr\" _
      & Directory
      & "\vai.bat"
    lRet = Shell(sCmd, vbMinimizedFocus)
    If lRet = 0 Then
    Else
        ' Il programma resta congelato fino al termine
        ' dell'esecuzione di sCmd.
        Call WaitForTerm1(lRet)
    End If
End Sub
Private Sub WaitForTerm1(lPId)
Dim lRet
    lRet = lOpenProcess(lSYNCHRONIZE, 0, lPId)
    If lRet = 0 Then
    Else
        Call lWaitForSingleObject(lRet, lINFINITE)
        Call lCloseHandle(lRet)
    End If
End Sub
--
Ciao.
Maurizio
Newsgroup: it.comp.lang.visual-basic
Titolo: CONTAINER CONTROL





Ho costruito un piccolo activex a cui abbisogna 
sapere se il form che lo contiene viene ridimensionato. Il problema è che non so 
come ottenere il nome o HWND del form che lo contiene.


 


Qualcuno può darmi un 
suggerimento?



 ha scritto nel 
  messaggio 
news:000801c05b8e$9a6703e0$02e7abd4@geppo
...


Ciao Giuseppe,
Leggi anche la mia risposta alla tua INFORMAZIONI.
Per ottenere l'Hwnd del form, nell'ocx puoi fare riferimento
alla proprietą Parent dello UserControl
In ogni istante UserControl.Parent.hWnd ritorna il valore che cerchi
Potresti aggiungere, nell'ActiveX, una prorietą ContainerHwnd come :
Public Property Get ContainerHwnd() As Long
    ContainerHwnd = UserControl.Parent.hWnd
End Property
In modo da poterla utilizzare anche nel form che ospita l'activex.
Ciao, Vito
-- 
Posted from 
smtp4.libero.it
 [193.70.192.54] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG