mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Apprendere il Visual Basic

Quale libro e/o CD consigliate per apprendere il Visual Basic?
Esistono per caso manuali on-line o siti che trattano questo linguaggio in
maniera abbastanza esaustiva?
M@rio

 ha scritto

stando sul futuribile:
francesco balena
programmare ms vb .net
ms/mondadori
a buon conto il cd contiene anche il suo libro su vb6.
altre cose le trovi recensite sul sito comune del ng
www.it-lang-vb.net
siti ce n'e' un'infinita'. da me ne trovi ca 600, di vario livello.
--
ciao
www.sundaysw.com

Newsgroup: it.comp.lang.visual-basic
Titolo: X ESPERTISSIMI

Sto utilizzando l'oggetto winsock con un protocollo UDP. Ma il progetto
installato su alcune macchine da l'errore 10047 GRUPPO INDIRIZZI NON
SUPPORTATO. Questo al momento di attribuire al BIND il numero di porta... Ho
attribuito tutti i numeri di porta possibili... COSA DEVO FARE? E'
urgente.... Vi ringrazio!


Il "Family Address not supported" (anche errore 126) è spesso causato
da un difetto di istanziamento del socket (ie, il socket non ha terminato
in modo corretto la fase di inizializzazione o questa non è completata).
In genere non è ricorsivo, ossia si verifica al primo tentativo di
comunicazione, dopodiché il socket viene "resettato".
Quindi una soluzione potrebbe essere quella di piazzare un
"On Error Resume Next" prima del metodo .SendData, controllare
se si è verificato un errore e quindi ritrasmettere il dato.
(Questo genere di controllo con il protocollo UDP sarebbe comunque
meglio farlo).
Questo tipo di errore può dipendere dalla modalità di utilizzo
del controllo.
Ad esempio, stai usando l'UDP in modalità "broadcast" (non hai
specificato un .RemoteHost e una .RemotePort) e il codice che
definisce il Bind alla porta si trova nell'evento Form_Load del
form dove il controllo è posizionato.
Prova a spostare il codice in un modulo e ad inserirlo dopo
l'istruzione Form.Show. Prova una porta tra 1001 e 1100.
Un errore simile si può generare anche nel caso venga usato
.Bind quando il protocollo specificato è TCP, oppure se
.LocalPort non è 0 o anche se con .Bind hai cercato di
specificare un indirizzo IP locale (.Bind "LocalPort", "LocalIP" e
non semplicemente .Bind "LocalPort").
Se non si risolve, prova a postare un po' di codice.
PS
Scusami se ho rinominato il subject, ma ci sono alcuni che
lo usano per rintracciare gli argomenti.
Newsgroup: it.comp.lang.visual-basic
Titolo: Proprieta' Tag

Ciao a tutti.
vorrei inserire nella proprietą tag di ogni controllo una descrizione;
tale descrizione verra' inserita successivamente in una StatusBar, a seconda
del controllo che ha il focus.
Mi trovo in difficolta' con le datagrid: vorrei inserire una descrizione per
ogni colonna,
ma purtroppo la proprieta' tag e' generica per la datagrid.
Avevo pensato di creare un array bidimensionale inserendo
nome del controllo e descrizione,
ma ad ogni getfocus dei controlli dovrei scorrere l'array per trovare il
nome del controllo.
Esiste qualcosa simile a un metodo find per gli array? O c'e' qualche
soluzione migliore?
--
Posted from 
relay1.inwind.it
 [212.141.53.67] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 vorrei inserire nella proprietà tag di ogni controllo una descrizione;

Sent via Deja.com 
http://www.deja.com/
Before you buy.

Newsgroup: it.comp.lang.visual-basic
Titolo: Simulazione pressione di un tasto

Come faccio da codice a simulare la pressione di un pulsante?
Mi spiego meglio, ho messo un pulsante nascosto con del codice su on_click,
vorrei simularne la pressione, facendo scattare l'on_click, da un altro
on_click su un altro pulsante.
Grazie, Marzia

command1.value = True
"Marzia" <marz...@writSPAMeme.com> ha scritto nel messaggio
news:3dWV5.12135$hk4.4...@news.infostrada.it...


 on_click su un altro pulsante.
forse non ho capito. non e' sufficiente:
    sub command2_click
        command1_click
    end sub
?
d'altra parte, se il cmd e' nascosto, forse fai meglio a legare il codice
relativo a una sub e richiamare la sub dal secondo command.
ciao, a.

 Grazie, Marzia
Puoi creare una sub e richiamarla dalla routine click di tutti e due i
pulsanti, oppure:
Private Sub Altropuls_Click
On_Click
End Sub
--
GUiLE
Newsgroup: it.comp.lang.visual-basic
Titolo: Chiudere una applicazione che richiede del tempo

Quando viene chiusa la mia applicazione è necessario eseguere delle
operazioni prima della sua terminazione effettiva. Il problema l'ho risolto
mettendo un pulsante chiudi e disabilitando la X del form. Il problema però
rimane se l'utente decide di arrestare o riavviare windows. Per adesso ho
risolto il tutto mettendo un do - loop con un doevents dentro l'evento
Form_QueryUnload. Il fatto è che si apre la "famosa" finesta di windows
dicendo che l'applicazione non risponde, quando invece non è vero. Qualcuno
ha una idea di come si fa a dire a windows "mi sto chiudendo apestta un
po'?" in modo da non fargli aprire la finestra?
Grazie a tutti
Dario Di Marino


Domanda: perchè non hai messo il codice necessario alla chiusura nell'evento di
queryunload?
Seconda domanda: quanto tempo occorre alla tua applicazione per chiudersi?
Salutoni
Sergio

Il codice in pratica deve fermare una ventina di ServerExe in una certa
sequenza i quali girano in modo asincrono rispetto all'applicazione
principale. Se uno di questi server è occupato a fare qualcosa, tipo la
trasmissione di un fax o una stampa, prima di arrestarsi nella sua attività
deve finire il lavoro che ha iniziato. Diciamo che il tempo varia dai 30
secondi a vari minuti a seconda del tempo richiesto per terminare il lavoro
(es trasmettere altre 5 pagine di un fax di 12 pagine).
Grazie per l'interessamento
Dario Di Marino

 certa sequenza
Così, a braccio, non ho conoscenza di un metodo che dica al sistema operativo di
aspettare tanto tempo prima dichiudere. Io metterei nel queryunload un controllo
per verificare se i serverexe sono ancora attivi, e se sì rifiuterei la
chiusura, con un messaggio che inviti l'utente a riprovare più tardi.
Salutoni
Sergio

Grazie comunque
Dario Di Marino

 rimane se l'utente decide di arrestare o riavviare windows.
Bene, ma se l'utente, pur essendo invitato da un opportuno messaggio ad
attendere, decide si staccare la spina... che ci puoi fare?
Newsgroup: it.comp.lang.visual-basic
Titolo: associare il contenuto di un database ad una variabile

Salve,
Mi serve una mano per collegare il contenuto di un campo di un database
ad una variabile per poi leggerla e levorarci sopra!!!
Dopo aver aperto un oggetto connection, un oggetto recordset ed aver
letto (cn stringhe MySQL) la parte della tabella interessata come posso
fare???? HO UN URGENTE BISOGNO DEL VOSTRO AIUTO!!!! Vi prego

 fare????
Cioè, tu vuoi mettere il valore (Value) di un campo (Field) di un 
Record di un Recordset in una variabile?
Qualcosa tipo:
Variabile = Recordset1.Fields.Item("Nome_Campo").Value
Alberto
-- 
"Se viriamo, viriamo viriamo viriamo;
Se andiamo dritti, viriamo"
(Cit. "il tattico")

Grazie x la risposta....
ti spiego meglio:
io ho un database del tipo: id , nome, stato (dove lo stato mi indica
se una certa cosa è occupata o no) e io devo vedere se questa cosa è
occupata e se risulta vero ci devo lavorare sopra come per esempio
cambiare immagine o altro.... mi puoi aiutare? grazie ancora

 cambiare immagine o altro.... 
Ah, allora il codice di prima è perfetto.


Grazie sei la mia salvezza!!!!!
Ti ringrazio infinitamente.....

 Ti ringrazio infinitamente.....
Mi prendi per il culo?


No al contrario era un ringraziamento partito dal profondo del
cuore....
mi hai salvato la vita veramente!!!
cmq non mi permetterei mai!!!!
sono molto educata!!!!

Non mi xmetterei mai!!!!!
sei stato veramente la mia salvezza!!!!
Non prenderla cm una presa in giro.....
sono molto più educata di quello ke pensi
Cmq grazie ancora

Newsgroup: it.comp.lang.visual-basic
Titolo: Programmi d'esempio

Chiedo se qualcuno gentilmente puo' inviarmi qualche programmino d'esempio
da studiare circa l'accesso a database. Per esempio una piccola agenda
telefonica in cui io possa capire come accedere al database in lettura,
scrittura, ordinamento ed estrazione dati.
Grazie 1000.

Dai un'occhiata a qualche messaggio fa....
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] VARIABILE da MODULO.BAS a FORM

Ho in un modulo1 ".bas":
---cut--- module1
Public Sub prova()
X = "pippo"
End Sub
Cosa devo mettere nel FORM per far si che possa scrivere:
me.text1.text = X   o me.text1.text = module1
cioè che mi scriva il pippo proveniente dal FORM
e viceversa? stessa cosa?
non trovo come definire la sintassi giusta.
GRAZIE PER l'AIUTO
è la mia prima applicazione in "modulo BAS"
ciao
email: 
wl...@ticino.com
reply togliere [NOSPAM]

č la mia prima applicazione in "modulo BAS"


--
Salve,
praticamente la variabile che vuoi far vedere al form, deve essere
inizializzata come pubblica nel modulo:
Public X As String
Arrivederci!!
---------------------------------------------------------
Simone Severa
Uninet Technical Support
Via Cornelia, 498 00166 Roma, Italy
Office Phone +39 6 61114300
Fax. +39 6 61114202
E-Mail. 
sse...@uni.net
---------------------------------------------------------


MOLTE GRAZIE!
PUBLIC... Arghhh proprio vero che molti libri che ho qui di questo saltano a
piedi pari.. ringrazio per l'aiuto.... e consiglio permettendo ora sistemo
il tutto.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Api e WinNT

Ho sviluppato alcune applicazioni che sfruttano delle API dalle librerie
ADVAPI32, KERNEL32 ,USER32 e SHELL32 , sotto WinNT alcunemi  rispondono con
un errore. Le librerie si chiamano sempre uguali o è cambiato il nome della
funzione ?

funzione ?
Esattamente, quali funzioni danno errore?
Saluti.
Fabrizio
---------------------------------------------
E` in votazione il gruppo it.comp.appl.ms-sqlserver

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

Come si fa a passare ad una procedura o ad una funzione un array di oggetti
?
Grazie ancora

 Come si fa a passare ad una procedura o ad una funzione un
array di oggetti?
Anche cosi`, xEs:
Option Explicit
Sub main()
Dim a As Excel.Workbook
Dim b As Excel.Worksheet
Dim c As Excel.Range
Dim d()
Set a = Excel.Application.ActiveWorkbook
Set b = a.ActiveSheet
Set c = b.Range("a1")
ReDim d(2)
Set d(0) = a
Set d(1) = b
Set d(2) = c
pippo d
End Sub
Sub pippo(a)
Debug.Print a(0).Name
Debug.Print a(1).Name
Debug.Print a(2).Value
End Sub
--
Ciao.
Maurizio
--------
?SPQR(C)
 X

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO!!!

Ho creato un progetto con delle DLL scritte in VB.
Ho fatto un pacchetto di istallazione tramite il programma fornito con VB.
Tutto a posto.
Quando va poi ad istallarlo mi da sempre l'errore "impossibile trovare e
quindi registrare ......\$(DLLselfRegisterx)'
Perchè mi da questo errore. Non riesco a trovare la strada.
Sbaglio da qualche parte?

 ha scritto nel messaggio
news:Aw__b.11446$HO2....@news.edisontel.com...

se invece di urlare aiuto, cercavi su google il tuo problema, avevi già la
soluzione.....
apri il file lst con il blocco note, e togli quel DLLSelfRegister e gira
tutto.....
good coding!!!
-- 
Alletun
"Io lo so che accadrà. La voce sussurra nei miei pensieri di Jair, Rone,
Allanon e soprattutto nelle Mortombre.
Sussurra segreti che mi sono tenuti nascosti, nella grigia oppressione
di questo giorno e nell'oscurità caliginosa di quello che mi aspetta.
Saremo distrutti. Tutti."
Brin Ohmsford - La Canzone di Shannara - T. Brooks

 ha scritto nel messaggio
news:c1ht55$1hq4qm$1...@ID-134521.news.uni-berlin.de...


 Geazie
no, aspetta, sei impazzito?!?!?!?!?
il parametro DLLSelfRegister serve, in alcuni casi, come per le dll o gli
ocx. Significa semplicemente che un certo file deve essere registrato nel
registro e basta.
Eliminalo solo in quel file che ti dà problemi, o nei files TLB, dove non
serve......
cerca su google, ne saprai di più....


 non serve......
i files TLB li puoi proprio eliminare
ciaociao

 ciaociao
sì, giusto, grazie per la precisazione....
ma ho la sensazione che ormai 'sto Mfelix non stia nemmeno più leggendo....
:-))) good coding!!!


 :-))) good coding!!!
...and Happy Debugging!

 Avrà cancellato *.dll dal pc :) :) :)


Newsgroup: it.comp.lang.visual-basic
Titolo: Arresta il sistema

E' possibile sapere quando viene dato il comando "Arresta il Sistema" da
Win98 e eventualmente bloccarlo?
            Gabriele

 wrote in message
news:vUK9Y9f...@newsmst.mcis.galactica.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] TAPI

Dopo esserci impazzito per settimane sono riuscito a gestire un minimo le
chiamate (fare una chiamata, trasferirla su un altro numero, rispondere e
altre piccole cose...) mediante l'interfaccia TAPI. Qualcuno di voi sa darmi
qualche dritta (e magari qualche esempio) per funzioni un po' pių evolute?
(tipo riprodurre e registrare messaggi vocali e ricevere FAX?)
Grazie in anticipo a chi mi aiuta!
--
ICQ # 6722293
http://digilander.iol.it/metalmilitia/

Ciao, Sono interessato all'argomento.
Ti spiace farmi sapere che cosa sei riuscito a fare?
Grazie, Marco Rossi

 wrote in message
news:jl%X3.56349$s17.5...@typhoon.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Errore Installazione

Ho creato un pacchetto di installazione con Windows Installer.
Con Win 2000/XP nessun problema ma con win98 ho i seguenti problemi:
1) Il mio progetto richiede che sia installado MDAC sulla macchina e durante
l'installazione questo non viene incluso;
2) Questo è il problema maggiore, quando stà per finire l'installazione mi
viene visualizzato il messaggio ERROR 1406 .... non è possibile scrivere la
chiave di registro.....
Potete aiutarmi?
Grazie

 non è possibile scrivere la chiave di registro.....
A spanne, sembrerebbe che stai andando a toccare qualche chiave
di sola lettura ... magari se posti pure la chiave che vai a modificare
forse potremmo aiutarti.
-- 
Saluti
Andrea Moro
Sito Comune : 
http://www.it-lang-vb.net

*Raffy* ha scritto:

Prova a installare MDAC_TYP.EXE adeguato (coerente con la versione di ADO
indicata fra i riferimenti del progetto) prima e da solo. Poi fai il setup
della tua applicazione, senza includere MDAC

 ha scritto nel messaggio
news:b96fnn$g5n49$1...@ID-61006.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB 3

Avrei un piccolo problema
ho un veccio progetto scritto in modo binario con vb3.0
ma adesso ho il 5.0 e che ovviamente non sa recuperare progetti binari
nessuno sa come fare per trasformarlo in testo?
ho se percaso qualcuno sa come fare per scaricare la veccia versione di vb..
grazie tanto
rispondere a 
buon...@wanadoo.fr

 a écrit dans le message :
7gfgja$bkr$1...@wanadoo.fr...


grazie mille
Scusa un momento...
Se tu avessi letto il Manifesto di questo newsgroup, reperibile al sito comune (
www.murialdo.it/it_lang_vb
), avresti
visto che c'è un modo per porre le domande, in modo chiaro ed esplicito, affinché sia più facile algi altri rispondere.
Inoltre, avresti visto che è anche possibile postare la domanda nuovamente (nel caso non si sia ottenuto risposta la
prima volta), ed anche come postarla, al fine di renderla più "visibile" ed attirare l'attenzione...
Quindi se nessuno ti ha risposto, la ragioni sono 3:
1)	La tua domanda è stata mal posta e nessuno l'ha notata e/o considerata
2)	La tua domenda non è stata compresa, per lo stesso motivo di cui sopra
3)	Nessuno è in grado di aiutarti, poiché quì nessuno è un genio e certe cose si possono non sapere
Quindi, invece di lamentarti, perché non riformuli la domanda come si deve???
P.S.
Io non lo so, altrimenti, almeno ora, ti avrei risposto...
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

ultimamente non riesco a rispondere piů a niente :-))
o c'č qualcuno che mi precede
o non saprei rispondere
o non mi va di rispondere
o altro....
quindi...
in riferimento alla nota in oggetto ed alla luce di quanto esposto
delibero quanto segue:
fatemi qualche domanda :-))
bye bye

fatemi qualche domanda :-))
Cos'è che hai fumato????? ;-))
Ciao,
Moreno
P.S.
Almeno tu che sai come funziona il ng, dai il buon esempio: evita inutili OT...., o almeno, mettici davanti un [OT].....


...


grazie tanto
vai in VB3 e salva tutto in formato ascii. C'e' un opzione da attivare
prima di salvare ...
Ciao

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

Ho realizzato una semplice applicxazione con VB embedded 3.0con una serie di
controlli tra cui MSCE COMM CONTROL 3.0 e MSCE GRID CONTROL 3.0 per un palmare
Compaq Pc pocket iPaq H 9300 con sistema operativo Windows CE 3.0.
Ebbene quando eseguo l'applicazione sul palmare mi da due errori:
1) impossibile creare il controllo COMM1.....
2) impossibile creare il controllo GRICTRL1....
se dall'applicazione elimino i due oggetti gira correttamente.
C'è qualcuno chi mi sa dare una mano?
Grazie Marco
-----------------------------------------
Messaggio inviato con Excite Newsgroup.
http://www.excite.it/newsgroup

 se dall'applicazione elimino i due oggetti gira correttamente.
Non conosco eVB, ma hai distribuito i due controlli sul PPC?
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [un poco OT]...cmq pls AIUTO!!!

Salve a tutti
ho un problema che non riesco a risolvere
All'avvio di Win98 il PC si blocca (l'Hd smette di lavorare) e sono
costretto a riavviare il tutto
il bello è che si blocca alla seconda schermata del caricamento...come posso
fare a far tornare tutto come prima?
grazie in anticipo
Merlino666

La causa più probabile di questo tipo di blocchi è la scheda video (nella
seconda schermata carica i driver), prova a partire in modalità provvisoria
e a forzarla come vga standard.

Newsgroup: it.comp.lang.visual-basic
Titolo: Resize field

E' possibile allargare la grandezza di un campo testo in access tramite 
sql o non si può? Gli esempi trovati in rede con alter column e modify 
non funzionano. Grazie... e buone feste a tutti :)
 
-- 
Greg
 
 


Ciao, appena provato su access 2003
ALTER TABEL tabella1 ALTER COLUMN [TESTO] TEXT(60)
e funziona correttamente.
Attenzione TEXT non può essere superiore a 255 altrimenti devi usare il tipo Memo
 
Ciao
Efisio

scusa, ALTER TABLE .....

 Memo
 
Il DB è Access 2000 e forse è un poco diverso dal 2003.
Quell'istruzione non mi funziona, invece ha funzionato con VARCHAR(x) 
al posto di TEXT(x)
 
In ogni caso grazie per il contributo e Buone Feste a tutti :)
 
-- 
Greg
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] [SQL-VB] Transazioni e Cursori

per gestire le transazioni in ADO per un DB SQL, la connessione deve essere
aperta con i cursori
lato server, lato client o è indifferente?

 
Lato server sicuramente funziona (lo sto usando cosě).
Lato client non so.
-- 
Samuele Battarra
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/news/
Newsgroup: it.comp.lang.visual-basic
Titolo: maschera di input

Ciao,
sono ancora io.Stò utilizzando VB 6.0
e volevo chiedervi come posso
fare per far visualizzare una specie di
maschera di input nel text in cui
ci andrebbe scritta una data.
Grazie.
--------------------------------
Inviato via 
http://usenet.iol.it

 ha scritto nel messaggio
news:213Z82Z52Z179Y...@usenet.iol.it...


Ok, mi sono spiegata male a quanto pare!
In pratica io ho un textbox nel
quale l'utente dovrebbe inserire una data e chiedevo se si potrebbe
impostare in Vb una maschera di input come per esempio c'č in Access.
Spero di essere stata piů chiara.
Ciao.


 Ciao.
Usa il controllo Masked Edit invece del text box
Ciao
Stefano Raspadori

 Spero di essere stata pių chiara.


Ti ringrazio.
Adesso sono contenta!
Ciao ciao.


 Spero di essere stata più chiara.


Newsgroup: it.comp.lang.visual-basic
Titolo: Spostare una barra...senza barra!

Devo realizzare una piccola barra per visualizzare delle info. E' cosi
stretta che non ci può stare la barra del titolo. Per spostarla vorrei
usare una shape quadrata.
Che codice ci devo mettere per ottenere lo scopo?
Grazie

 wrote in message
news:3659B0EC...@iol.it...

Ciao, prova cosi'
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam
As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Dim z
     If Button = 1 Then
          Dim ReturnVal As Long
          z = ReleaseCapture()
          ReturnVal = SendMessage(hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    Else
    End If
End Sub
Ciao
*** E' in corso la CFV di it.binari.visual-basic
*** Leggetela su it.news.gruppi o it.news.annunci
*** Seguite le istruzioni per votare
--
Andrea :-{)
acm...@hotmail.com
================================================
Leggi 
http://beatles.cselt.it/news-it/FAQ.html
 e
http://beatles.cselt.it/news-it/gruppi-it.html
Potresti imparare qualcosa di piu' sui NG
================================================

 >stretta che non ci puņ stare la barra del titolo. Per spostarla vorrei


Grazie
Sempre io, mi ero dimenticato !
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1





Thanx a lot!
Ciao, basta sostituire al Sub Form_MouseDown questo che segue:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Dim z
     If Button = 1 Then
          Dim ReturnVal As Long
          z = ReleaseCapture()
          ReturnVal = SendMessage(hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
      ElseIf Button = 2 Then
          End
    End If
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: Impossibile trovare il provider! AIUTO!!!

Nella mia mini applicazione, creata con VB6, ho incluso un'ADO data control
per collegarmi ad un database (Provider=Microsoft jet, ho provato sia con il
3.x che con il 4.0). Fichè il programma gira sul mia Pc tutto ok. Quando VB
cra il pacchetto di installazione e lo installa su un'altra macchina mi da
"IMPOSSIBILE TROVARE IL PROVIDER". Dov'è l'errore? Premetto che dopo aver
installato VB6 il prog. funziona sempre. Ho scaricato anche l'ultima
versione di mdac (2.1) ma niente.....Cosa posso fare?
Vi prego aiutatemi, sono bloccato e non vedo una lira...:.(
Grazie

Ci provo ... non mi sparare!
Il privider dovvrebbe essere una file.dll che deve essere registrato nel
Registry di Windows, prova a controllare ne registry, crecando ODBC32, se
utilizzi ODBC.
Ciao!
--
http://web.tiscalinet.it/minorchio

"IMPOSSIBILE TROVARE IL PROVIDER". Dov'č l'errore? Premetto che dopo aver


Newsgroup: it.comp.lang.visual-basic
Titolo: Invio in una stringa

come posso dire via codice di andare a capo?
mi spiego:
text1.text = "ciao [codice per andare a capo] come stai?"
e l'output dovrebbe essere:
ciao
come stai?
aiutini?

 ha scritto:

text1.text = "ciao" & vbCrLf & "come stai?"
Occhio che se text1 è un TextBox devi impostare la proprietà MultiLine a
True.
Newsgroup: it.comp.lang.visual-basic
Titolo: Complimenti a Fabio Guerrazzi

Faccio i complimenti per l'ottimo lavoro condotto a il nostro amico Fabio
www.sourcecode4free.com/cgt
Michele

 ha scritto nel messaggio
news:h1yN7.205478$sq5.9...@news.infostrada.it...


 :-))
assolutamente niente.
anch'io faccio i miei complimenti gratuiti al bravo guerrazzi !
--
ciao, j.
--
http://digilander.iol.it/javalab

..questa me la segno. Mai nessuno mi aveva dedicato un thread! :)))
..sono imbarazzato..:)
Fabio

 anch'io faccio i miei complimenti gratuiti al bravo guerrazzi !
Ovviamente... anche al sottoscritto sono servite più di una volta le routine
pubblicate nel suo sito.
ciao
Fabio Guerra (non Guerrazzi :-) )


Inoltre ho letto il nome di un altro luminare del NG: Franco Languasco.
Ciao.
------------------------- SiDB Simple DataBase engine ----
------------------------- adParser Expression evaluator --
 
http://space.virgilio.it/zntf...@tin.it/
----------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: multi file select on open dialog

 where can i have the code of a working open dialog that will allow
multi select?
or if you know where to get it
--
thanks
michael
michae...@supset.com
Sent via Deja.com 
http://www.deja.com/
Before you buy.



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

Mi hanno detto che se su un sistema non sono presenti dei particolari file
(penso siano DLL), i programmi in formato EXE compilati in Visual Basic non
possono funzionare.
Mi sapreste indicare quali sono questi file?



La Virtual Machine di VB (MSVBVMx0.DLL, con x=5, 6 a seconda della versione di Vb) e tutte le altre
librerie e OCX utilizzate dal progetto. Variano da progetto in progetto, a seconda di quali
componenti usi, ecc. per sapere esattamente quali sono, prova a crearti un file di dipendenze con il
Package & Deployment Wizard di VB...
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
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:ZCE86.56647$eB2.4...@news.infostrada.it...

Sicuramente il principale è MSVBVM60.DLL (per VB6), che rappresenta il
"run-time", ovvero l'interprete del codice (ricorda che VB è un linguaggio
interpretato e non compilato).
Poi dipende da eventuali ActiveX utilizzati, comunque a monte di tutti c'è
la DLL sopraindicata.
Ciao, A.

 ha scritto nel messaggio
news:93v5b5$1al$1...@serv1.iunet.it...


 ha scritto nel messaggio
news:peH86.144$lV5....@news2.giganews.com...


 quello che il "compilatore" genera si chiama p-code
BESTIALITA'
VB 6 (così come pure VB 5) può compilare sia in p-code che in native-code
(quest'ultimo è il default).
Byee
Zeross

 ha scritto nel messaggio
news:uyL86.61540$eB2.5...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [VBS] cancellare tutti i file e directory all'interno di una dir

Salve a tutti,
spero prima di tutto di non essere ot chiedendo aiuto su vbs, altrimenti mi 
scuso in anticipo...
dovrei cancellare il contenuto di una directory (quindi tutti i file e 
subdir) senza pero' eliminare la directory padre... come posso fare?
grazie 1000
Dade 

"Dade" <cucca7...@NOSPAMgmail.com> ha scritto nel messaggio 
news:48c1...@newsgate.x-privat.org...

Ti conviene cancellare tutto col metodo .deletefolder della libreria 
microsft scripting runtime e poi ricreare la dir vuota
--
greg 

 greg
magari controllando prima che attributi ha la cartella per ricrearla
identica

Newsgroup: it.comp.lang.visual-basic
Titolo: Immagini TIFF

C'e' qualcuno che mi puo'indicare se esiste documentazione e/o DLL o OCX per
aprire e stampare file TIFF 32 bit ?
Ringrazio in anticipo tutti quanti.

 wrote in message
84kt2u$hcs$1...@lacerta.tiscalinet.it...


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

Ciao a tutti. Ho un atroce problema:
Private Sub chkFilmato_Click()
    If chkFilmato Then
        chkFilmato.Caption = "Disattiva filmato"
        actFilmato.Visible = True
        actfilmato.SetFocus
        actFilmato.Run
        txtValue.SetFocus
    Else
        chkFilmato.Caption = "Attiva filmato"
        actFilmato.Visible = False
        txtValue.SetFocus
    End If
End Sub
Il mio scopo è il seguente:
All'apertura del Form, non si vede nessun filmato.
Se seleziono chkFilmato , allora si apre la finestra del filmato, parte il
filmato e porta la prorietà caption di chkFilmato a "DISATTIVA FILMATO"  Se
non è selezionato la finestra del filmato scompare e la proprietà caption di
chkFilmato è "ATTIVA FILMATO".
Fin quì tutto regolare, ma se inposto il valore predefinito di
"actFilmato.value=False", se chkFilmato è selezionato, si apre soltanto la
finestra vuota senza nessun filmato (ovvero come se non trovasse il percorso
del filmato).
Come posso fare ????
Infinitamente grazie a tutti voi.
gius...@infoservizi.it

Prova a modificare il codice cosě:
...
chkFilmato.Caption = "Attiva filmato"
        actFilmato.Visible = False
        txtValue.SetFocus
        actFilmato.Stop
        actFilmato.Enabled=False
Forse il problema č che non č possibile rendere invisibile il controllo
actFilmato se questo č ancora abilitato.

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

Ciao a tutti,
ho visto che Microsoft permette il download di visual 
studio.net
 beta1.
Sono però 110 Mb, anche se frazionati.
Che ci sia la possibilità di avere una copia di tutto ciò in CD?.
C'è qualcuno che ne sa qualcosa?
Grazie a chi mi risponderà
                            Paolo

 ha scritto nel messaggio
news:C5N16.178338$hk4.6...@news.infostrada.it...


Quello da 110Mb che trovi dul sito MS č il framework (la piattaforma o
meglio l'Sdk) , visual studio .net č composto da 3 cd. comunque ti posso
dire che č figo davvero!
Newsgroup: it.comp.lang.visual-basic
Titolo: Eseguire macro

Come posso far eseguire una macro? Sto tentando di usare Run, ma non riesco
a gestire la sintassi. Non so come indicare il percorso della macro ma non
solo. Se qualcuno mi spiegasse come fare gliene sarei molto grato.
Grazie.
--------------------------------
Inviato via 
http://usenet.iol.it

Trovato la risposta. Basta indicare il nome della macro.
La vita
raramente è semplice, ma i pirla come me riescono a complicarsela anche
quando è facile.
Ciao a tutti


Newsgroup: it.comp.lang.visual-basic
Titolo: Flexgrid sull'ultima riga..

Ciao ragazzi..un aiuto..
quando apro la un form contenente una flex grid vorrei che mi andasse a
selezionare automaticamente
l'ultima riga di questa.
Qualche aiuto?
ciao
fab

 ha scritto nel messaggio
news:axYo9.25390$Fz.7...@news1.tin.it...

CUT
Fgrid.Rows....ti indica quante righe ci sono
Fgrid.Row......indica/imposta la riga corrente
Fai 2+2....e hai fatto!
:-)

Fai 2+2....e hai fatto!
Non proprio tutto. Le righe possono non essere tutte visibili e, di conseguenza,
viene si' selezionata l' ultima riga, ma rimane nascosta e l'utente e' costretto
a far scorrere la griglia.
Occorre percio' impostare anche la TopRow in modo che l' ultima riga visibile
sia proprio quella selezionata.
Una soluzione potrebbe essere stimare quante sono le righe visibili.
Qui sotto ipotizzo che le righe siano tutte alte uguali e non ci siano
righe nascoste:
Private Sub SetTopRow()
    Dim righeVisibili As Long, mi_TopRow As Long
    With MSFlexGrid1
        .Row = .Rows - 1
        righeVisibili = .Height \ .RowHeight(0) - .FixedRows
        mi_TopRow = .Rows - righeVisibili
        If (mi_TopRow > .FixedRows) Then
            .toprow = mi_TopRow
        End If
    End With
End Sub
-- 
hth, hal

 Una soluzione potrebbe essere stimare quante sono le righe visibili.
Imposta  .TopRow con ilm valore di .Row (ultima riga), sara la flexgrid ad
accertarti il valore o a modoficarlo nell'ultimo valido.

 ha scritto nel messaggio
news:AGYo9.25431$Fz.7...@news1.tin.it...

In realtà manca ....ma un po' di una volontà di questi giovani...che
diamine!...anche ColSel
Sicuramente avrai ragione Hal (ieri era giornatuccia)
però sto sviluppando un progetto e ....
   'Seleziona ultima riga
    Gcont.Row = Gcont.Rows - 1
    Gcont.Col = 0
    Gcont.ColSel = Gcont.Cols - 1
a me va....
Saluti "grande vecchio"!
:-)
(ma sbaglio o ti sei convertito al Net anche tu?...non mi addolorare....)

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo OLE di VB6 collegato a campo OLE di Access2000

 ha scritto nel messaggio
news:qkjq8.105954$%g7.34...@twister2.libero.it...
Credo che, con la data che hai messo al post per restare sempre in testa,
non ti risponderà nessuno.

 non ti risponderà nessuno.
Ma non si possono eliminare questi post ?
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: liste e VB

Devo definire delle liste di lungezza variabile.
A quanto ho capito le collection implementano liste di oggetti, che
nella mia struttura indurrebbero troppo overhead.
C'è un modo per definire liste di dati?
Per il problema che devo implementare non posso definire array aperti
per l'impossibilità di conoscere al momento della chiamata della
procedura la dimensione dell'array.
Mi spiego: quello che devo fare è una sorta di query e devo memorizzare
la lista dei dati trovati, quindi la dimensione dipende da quanti
oggetti trovo che rispondono alla query.
Come faccio?
Grazie.

...



E che mi potresti dire dell' overhead in termini di memoria allocata?
Considerando che la struttura che mi serve  potrebbe essere anche molto
complessa (es. annidamento di liste a 4 livelli ( a leggerlo inorridirei anche
io, ma devo ricorrere per forza ad una soluzione del genere!)).
Grazie ancora.
Stefano.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Report di Access da VB

E' possibile visualizzare da VB 6.0 un report creato da Access 2000 ??

E' possibile visualizzare da VB 6.0 un report creato con Access 2000 ??


Segui Attentamente Quanto Ti Descrivo.
Supponiamo di Stampare o visualizzare Tale Report con Una Azione
Button_Click
private sub CmdApriReport_Click()
Dim ApriReport as Acces.Application
Set ApriReport=New Access.Application
Aprireport.OpenCurrentDatabase("Percorso Database\Database.Mdb")
ApriReport.Docmd.OpenReport"Report da Visualizzare o Da Stampare"
Aprireport.CloseCurrentDatabase
end sub
includi Nei Riferimenti Access8.0 Object Library o Successivo.
Ciao!!!
Fammi Sapere L'Esito.
Newsgroup: it.comp.lang.visual-basic
Titolo: Refresh

Ciao NG,
Come posso eliminare un ellisse (Ellipse delle API) disegnato x esempio sul
Desktop (dando il relativo hDC)??
Va bene anche un refresh.
:-)
Grazie

Desktop (dando il relativo hDC)??
Se l' hai disegnata in xor, basta che la ridisegni para-para ed avrai
ripristinato quello che c' era prima.
Ciao
Aldo

 wrote in message
96p27q$e2v$1...@nreadB.inwind.it...

Ho trovato questa API che però non so se/come funziona:
    BOOL PaintDesktop(  HDC hdc  );
Oppure se vuoi fare una cosa fine, ti ricavarti l'HWND del desktop
(per esempio con:    HWND WindowFromDC(  HDC hDC ) ; )
poi puoi o crearti una regione della forma della tua ellisse o crearti un
RECT che racchiude la tua ellisse, quindi
richiamare una delle seguenti API:
BOOL RedrawWindow(
  HWND hWnd,               // handle to window
  CONST RECT *lprcUpdate,  // update rectangle
  HRGN hrgnUpdate,         // handle to update region
  UINT flags               // array of redraw flags
);
oppure
BOOL InvalidateRgn(
  HWND hWnd,    // handle to window
  HRGN hRgn,    // handle to region
  BOOL bErase   // erase state
);
oppure
BOOL InvalidateRect(
  HWND hWnd,           // handle to window
  CONST RECT *lpRect,  // rectangle coordinates
  BOOL bErase          // erase state
);
Buon Lavoro
--
 /\/\/\/\/\/\/\/\/\/
| Partecipa alla stesura di progetti VB sviluppati in team,
| informati sul Sito Comune sezione Leonardo.
| Io partecipo al progetto Data Rapto, alleati con noi.
 \/\/\/\/\/\/\/\/\/\
Ciao
Ettore Maronese, il Mes
http://www.maronese.com/mes
Sito Comune di questo NG
http://www.murialdo.it/it_lang_vb

 ha scritto nel messaggio
news:96pa2g$lnqfq$2...@ID-56381.news.dfncis.de...

Grazie x la risp. Aldo, ma se la volessi "muovere" questa figura??
Rimarrebbe la "scia" :-)


La risposta e' sempre la stessa: ridisegni la vecchia figura, 
ripristinando cosi' lo sfondo precedente, quindi disegni la 
nuova figura nella nuova posizione. Tutto in xor: niente scia.
Ciao
Aldo

 10x 1000 :-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Per il thread dello SPLASHSCREEN

 
Nel thread denominato "Re: Una proposta quasi fantascentifica...." ho
lanciato la
proposta di creare una lista di cose carine che si potrebbero realizzare, e
ragruppare
in un sito quelle realizzate.
"SplashScreen.zip" potrebbe essere un punto di inizio.....
-- 
Hi, Ciao
Ettore                 By -MES-
http://www.aspide.it/freeweb/ilmes


Cedo molto volentieri la mia piccola routine per la toolbar "piatta" (in
attachment al mio msg di qualche tempo fa).
Se vi serve, ve la mando...
(naturalmente il copyright e' mio... :-)
Comunque e' un'ottima idea... un archivio di funzioni, routines, pezzi di
codice pronti per l'uso e liberamente utilizzabili.
Sullo stile dello SWAG (archivio di routines per Pascal).
--
Roal Zanazzi
z...@iol.it

 
Esatto, la cosa piu' difficile sara' tenere informati chi bazzica nel NG sulle
nuovita' presenti....
Difficile ma tutt'altro che impossibile.
Un'altra cosa su cui io desidero premere molto e' la creazione di una lista di cose
carine da realizzare, piccole DLL, OCX o sorgenti. Se ad esempio a te viene un'idea
o noti che fare una data OCX sarebbe utile, lo segnali. Poi chi ha voglia e tempo
la realizza.
Io a questa cosa ci credo, e secondo me non e' neppure troppo ambiziosa.


[empty]
qual'e' l'indirizzo?

Ettore Maronese ha scritto nel messaggio +ADw-01bd8c05+ACQ-b2648860+ACQ-64c0c0c0+AEA-mes+AD4-...
+AD4-Roal Zanazzi +ADw-zrs+AEA-iol.it+AD4- scritto nell'articolo
+ADw-6kp78s+ACQ-onn+ACQ-2+
AEA-hermes.iol.it
+AD4-...
+AD4APg-
+AD4-
+AD4-Esatto, la cosa piu' difficile sara' tenere informati chi bazzica nel NG
sulle
+AD4-nuovita' presenti....
+AD4-Difficile ma tutt'altro che impossibile.
Potreste fare con lo stesso sistema che ho usato io. Dividete le pagine per
i vari mesi dell' anno e le ultime novit+AOA- vengono messe nel 'capitolo'
ULTIME NOVITA'.
Creare anche una lista con segnate le date degli aggiornamenti effettuati
per fare capire all' utente con quale frequenza vengono fatti.
P.S. Se vi serve qualcosa d' interessante potete prendarla senza problemi
dal mio sito.
+AD4-
+AD4-Un'altra cosa su cui io desidero premere molto e' la creazione di una lista
di cose
+AD4-carine da realizzare, piccole DLL, OCX o sorgenti. Se ad esempio a te viene
un'idea
+AD4-o noti che fare una data OCX sarebbe utile, lo segnali. Poi chi ha voglia e
tempo
+AD4-la realizza.
Mi sembra una fantastica idea.
+AD4-
+AD4-Io a questa cosa ci credo, e secondo me non e' neppure troppo ambiziosa.
Forza ragazzi, che se continuate cos+AOw- la cosa va in porto.
Ciao, Gianni Zacchia
--
+AF8AXwBfAF8AXwBfAF8AXwBfAF8AXwBfAF8AXwBfAF8AXwBfAF8AXwBfAF8AXwBfAF8AXwBfAF8-
Hai visitato il mio sito? Lo puoi trovare a questo indirizzo:
 
http://free.imd.it/giazack/
Qu+AOw- puoi trovare tutto quello che cerchi su Visual Basic 5. Trucchi, faq,
ocx, active-x, link, sorgenti.
TUTTO? Si, addirittura come creare finestre circolari o di altre forme.

 Ciao, Gianni Zacchia

Newsgroup: it.comp.lang.visual-basic
Titolo: ToolTips multiline in una listview... e' possibile)?

Ok, so che VB non permette di creare tooltips multilinea.
So che in giro c'e' del codice che permette di farlo ma non ho trovato
nulla che funzioni anche per i ToolTips degli item di una listview.
Sapete se esiste e dove trovarlo?
Ciao
--
Mauro G. Todeschini
e-mail: 
mgt...@bigfoot.com
ICQ UIN: 51957951


Newsgroups: it.comp.lang.visual-basic
Subject: Tooltips su più righe
Date: Thu, 14 Oct 1999 22:38:30 +0200
Ho già inviato a molti di voi il progetto di Brad Martinez che dimostra
l'uso di tooltips su più righe. Mi è stato richiesto di postarlo sul sito
comune e ho scritto a Brad in tal senso. Incollo qui la sua risposta: il
succo è che preferisce che si scarichi direttamente dal suo sito,
l'indirizzo è nel corpo del testo.
Saluti a tutti,
Domenico
Hey Domenico,
I finally got a page up on the site where an updated tooltip control demo
can be found. The demo contains a few changes from the one I originally sent
you. I'd prefer that you point those interested to the URL and not pass
along the demo I sent you. That way not only will folks know exactly where
the demo came from, but I'll have much more control over the source as
well... Thanks.
http://www.mvps.org/btmtz/tooltip

Newsgroup: it.comp.lang.visual-basic
Titolo: Files in una cartella

Sapete per caso come posso monitorare una cartella?
In buona sostanza io ho dei files in una cartella e vorrei che all'avvio del
mio programma controllasse questi files.
Il controllo si deve basare sulla data e sulla deminsione in modo che se
qualche files viene cambiato il mio programma sia capace di individuarlo.
Tutto questo con .net
Grazie in anticipo


Potresti creare un programma che giri come servizio Windows,
e che sfrutti le classi Directory e File del namespace System.IO.
HTH,
Antonio
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Webmaster 
www.visualcsharp.it
"Great spirits have always encountered violent opposition
from mediocre minds." A.Einstein
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 ha scritto nel messaggio
news:932ga.47584$7y3.1...@twister1.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: risoluzione schermo

E' possibile con 
vb.net
 2003 leggere la risoluzione dello schermo ?
Grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 E' possibile con 
vb.net
 2003 leggere la risoluzione dello schermo ?
In .NET 2005 esite il favoloso namespace My.Computer.
In .NET 2003 ti devi accontentare di Screen.PrimaryScreen.CioCheTiServe
bye
-- 
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.nicolaottomano.it/sinapsi.htm
email spamtrap: 
spam...@nicolaottomano.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Lanciare una form Win95

Salve,
chi sa' come si può fare a lanciare da un programma vb5 la form di Win95
raggiungibile da:
Avvio
Impostazioni
Pannello di controllo
Password
Cambia altre password
E' la form che permette di cambiare la pasword di rete di Win 95, in caso di
collegamento
ad una rete WinNT aggiorna la password nell'elenco degli utenti del PDC...
Thanks

...

--------
Ciao Maurizio,
Prova a vedere il codice qui riportato:
    Dim Esegui As Long
    Esegui = Shell("Rundll32.exe shell32.dll,Control_RunDLL password.cpl",
vbNormalFocus)
    SendKeys "%a"
Esso ti permette di visualizzare l'applet "Proprietà - Password". Per
visualizzare la finestra "Cambia altre password", interviene l'istruzione
"SendKeys"; quest'ultima invia al programma la combinazione di tasti ALT+A,
che visualizza proprio la finestra da te desiderata.
Spero di non aver dimenticato nulla. Fammi sapere.
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260
http://www.armaditaggia.com/marco

Newsgroup: it.comp.lang.visual-basic
Titolo: Re: cambiare password ad un db access

 se avevo la guida ........
....


 Come si puň fare ?
Nel thread precedente hai giustamente osservato che la pwd del db 
'precompattazione' va messa in un parametro piů a destra.
Ma quando l'avevi messa nel terzo parametro, non avevi inventato del 
tutto...
Rileggiti la guida.
Compattando, puoi imporre che la pwd del db 'postcompattazione' sia diversa 
da quella del db 'precompattazione'.
Ciao
Alberto
-- 
"C'č un Calvelli dentro ognuno di noi" (cit.) 

Come si puň fare ?
Grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: winsocks

mi collego ad un server alla porta 25 per mandare e-mail
mi rispone correttamente poi quando faccio
     WskClient2.SendData "helo Nome"  & vbKeyReturn
non ho nessuna risposta.
Qualcuno sa dirmi perchč?
__________________________________________________________________ ICQ#:
144986453 Current ICQ status: + More ways to contact me
__________________________________________________________________

 Qualcuno sa dirmi perchè?
non e' che vuole il vbcrlf al posto del vbkeyreturn ?
da msdn dice che vbkeyretur = 13 mentre sbkeyreturn e' di norma 13-10
-- 
<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: R: Informazioni sulle API


Meglio cosi', ci sono gia' troppi idioti che fanno danni... se sapessero
anche usare le API... ahi, ahi!
--
Roal Zanazzi
z...@iol.it

 anche usare le API... ahi, ahi!
Questa la trovo... Pungente!
Flavio Ronco
--
f.ronco@*NonMiServeNiente*
flashnet.it
http://www.metabrains.com
  [Under Construction]
-------------------------------------------------------------
"Che pubblico in gamba! Se ci dite dove lavorate,
domani mattina se abbiamo tempo vi veniamo a vedere"
[Paolo Rossi]

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema : Drag&Drop da Desktop

Per favore c'č un'anima pia che mi spiega come posso far visualizzare
su una textbox la path e il nome di un file trascinandolo
semplicemente dal desktop o da un altra finestra?
Rispondete sul newsgroup
Grazie 
			STEFANO

semplicemente dal desktop o da un altra finestra?
pio   pio
da fare in design-time:
1) Crea una TextBox sulla tua Form
2) Impostagli Multiline = True    'non strettamente necessario, ma ai fini
della dimostrazione si...
3) Impostagli OLEDropMode = 1 - Manual
supponendo che la TextBox si chiami Text1 aggiungi questa routine nel codice
della Form:
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As
Integer, Shift As Integer, x As Single, y As Single)
    Dim Filename As Variant    'Detesto i Variant
    Dim DaPassare As String
    Text1 = ""
    For Each Filename In Data.Files
        DaPassare = Filename
        Text1 = Text1 & DaPassare & vbCrLf
    Next Filename
    Effect = vbDropEffectNone
End Sub
dopodichč un bel F5, riduci a icona VB e ti metti allegramente a trascinare
1, 20, o 40 files sopra la TextBox che si riempirą magicamente dei relativi
percorsi     :-)
Salutissimi
Faber

 percorsi     :-)
magia ! funziona !
grazie :)
domanda; se (cosa molto probabile) nel form ci sono altri controlli, c'e'
modo di intercettare un drop del genere senza dover scrivere il codice per
ogni controllo ?
ciao, a.

ogni controllo ?
non mi viene in mente nulla se non farti una funzione il cui prototipo
potrebbe essere
Public Sub Trascinato (Data As DataObject, ByRef Effect As Long)
che chiami nella routine OLEDragDrop di ogni oggetto...
Ciauz
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: Seagate Crystal Reports 8

Qualcuno mi sa dire se per distribuire un'applicazione VB in cui ci sono dei
report realizzati con Crystal Report 8 è necessario aggiungere manualmente i
files di CR al Setup o se esiste un modo per far aggiungere automaticamente
tutti i files necessari?
Grazie
Skysurfer

Quando crei il setup, oltre ai file principali e alle dipendenze che vengono
rilevate in automatico, devi specificare tutti i file che ti servono per far
funzionare il pogr. (database, report, ini, ecc.).
Ciao Luciano.

Newsgroup: it.comp.lang.visual-basic
Titolo: Ado & SQL aiuto!!!!!!!!

Salve,
ho un piccolo problema che da un paio di giorno mi assilla :-(((((
Mi sono fatto due tabelle con realazione 1:N che sintetizzo cosě
Tabella1 magazzino1
Campi CodiceProdotto chiaveprimaria indicizzata no duplicati
	Descrizione	indicizzata no duplicati
	QuantitaDisponibile
Tabella2 magazzino2
Campi CodiceProdotto chiave esterna indicizzata duplicati ammessi
      Prezzo
      Quantita
	ecc.....
	ecc....
ho utilizzato la seguente stringa sql per legare le due tabelle
"select * from magazzino1 inner join magazzino2 on
Magazzino1.CodiceProdotto=Magazzino2.CodiceProdotto"
per la ricerca utilizzo l'istruzione
rs.Find "CodiceProdotto LIKE '" & " ChiavediRicerca &"'"
ecc...
ma non funziona!!!! (:-(( da errore 3265 se cerco di visualizzare il
CodiceProdotto con rs!CodiceProdotto
io vorrei riuscire a legare le due tabelle in modo da ricercare sulla
tabella1 il CodiceProdotto o
la Descrizione e fare il collegamento con i record della tabella2, in modo
da visualizzare
solo quelli che quando navigo con i comandi MoveNext,ecc....
rispondono ai requisiti di ricerca, Dove stň sbagliando???????????????
-- 
Posted from [194.73.242.3] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 rs.Find "CodiceProdotto LIKE '" & " ChiavediRicerca &"'"
Non ti consiglio di usare il Find, usa una SQL con WHERE


 rs.Find "CodiceProdotto LIKE '" & " ChiavediRicerca &"'"
Forse volevi scrivere:
    rs.Find "CodiceProdotto LIKE '" & ChiavediRicerca & "'"
Prova con la query
"select * from magazzino1 inner join magazzino2 on
Magazzino1.CodiceProdotto=Magazzino2.CodiceProdotto
where Magazzino1.CodiceProdotto=" & ChiavediRicerca

 ha scritto nel messaggio
news:3kgH6.1871$FS.2...@news1.tin.it...
