mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: questa è strana

Date un'occhiata a questo codice:
x = 0
cartella$ = cartella$ + "output.txt"
Open cartella$ For Input As #3
Do While Not EOF(3)
        Line Input #3, rec$
        If InStr(rec$, "intra") Then
            x = 1
            Exit Do
        End If
Loop
Close #3
If x Then
    MsgBox ("Trovato!")
Else
    MsgBox ("Non trovato!")
End If
Fa parte di una procedura che deve testare la presenza di una stringa in un
file di testo. Il problema è questo: se eseguo il codice passo passo con F8
se la stringa viene trovata la variabile x viene istanziata correttamente e
viene visualizzato il messaggio corretto. Se eseguo il codice in una botta
sola, con F5, assolutamente no.
Qualcuno sa aiutarmi?
Grazie!

Fai proprio al caso mio...
Devo fare proprio la stessa cosa....
Adesso metto le mani sul tuo codice e poi ti posto...
Intanto se puoi dammi un aiutino:
    Esiste una funzione che faccia dormire per qualche secondo il mio
programmino?
    Devo fare un loop, sempre attivo, che testi la presenza di un file e
nel
momento in  cui questo viene creato (ovviamente non lungo 0) devo
leggerlo
ed analizzarne le righe proprio come il tuo esempio...
    Sai anche come posso fare a controllare che il file non sia lungo 0
??
    Ciao e grazie, intanto, adesso mi guardo il tuo loop....

...

Oddio...
Confrontandomi con qualcuno dei miei soci abbiamo trovato piů o meno
quest'idea:
fai un loop che contiene una chiamata alla funzione Dir
dim s as string
s = ""
do while  s = ""
 s = Dir ("path\nomefile")
Loop
esci dal loop quando il file esiste. A questo punto usa Timer per settare un
tempo d'attesa.
Mi dicono di inserire una DoEvents all'interno del loop per non inchiodare
la macchina e garantire il multitasking... non la conosco, guarda il manuale

Ciao,
ho provato il tuo codice, che a una prima lettura mi sembrava corretto, ho
solo inserito le dichiarazioni delle variabili, ed in effetti funziona sia a
passo sia in esecuzione diretta.
Non  ti da' nessun messaggio di errore e si limita a non variare la X?
hai provato ad inserire un'interruzione all'interno del blocco
         If InStr(rec$, "intra") Then
            x = 1
            Exit Do
        End If
per vedere se il flusso transita.....
e se il codice fa parte di una procedura, hai provato a verificare che
questa sia stata chiamata?
scusami se ti chiedo delle cose cosi' banali, ma mi pare veramente molto
moltoooo strano!!!
beppe

        End If


Grazie delle dritte, le variabili sono tutte dichiarate e c'è option
explicit. È una cosa stranissima, mai successo prima. Il codice non fa parte
di una subroutine chiamata, si tratta di un programma tutto sommato corto e
non complesso. Ho provato a mettere un'interruzione su x=1, intercetta il
pgm se vado avanti con F8 ma non ce la fa se eseguo con F5.

        End If


...


Ho risolto in stile Windows: spento e riacceso, la sub ha smesso di fare le
bizze.
Il PC è un PII con 128 MB RAM. Perché?

 transita con exe passo passo e non transita con esecuzione diretta
A me non lo fa. Non mi č chiaro perchč assegni a cartella$ il valore
Cartella$+ 'nomedelfile'.
Newsgroup: it.comp.lang.visual-basic
Titolo: Come fare 2?

Ammettiamo che io abbia molti controlli (che non sono una matrice)
Picture1,2,3,4 ecc
Posso canbiare esempio una proprieta (BorderStyle) o piu di una proprieta
 in un colpo solo senza dover scrivere 1 riga per ogni picture e una riga
per ogni
proprietą?
Grazie anticipatamente

 ha scritto nel messaggio
news:mVqH9.28742$fa.9...@news1.tin.it...

Non credo proprio.
Considera che per cambiare una caratteristica di un controllo, devi
impostare una proprietą del controllo stesso. E scrivere un valore in una
proprietą non č come scrivere un valore in una variabile.
Perņ, per semplificare al massimo, tu potresti creare delle collection di
controlli, in ognuna delle quali inserisci i controlli che devono avere
caratteristiche identiche (ad esempio un colore).
Poi, per cambiarle, basta fare:
Dim CTL as object
For Each CTL in Collection_Controlli
    CTL.ForeColor=xcxcxcxc
next CTL
Ciao
Alberto

 ha scritto nel messaggio
news:mVqH9.28742$fa.9...@news1.tin.it...

Se ho capito bene cosa intendi, puoi accedere ai controlli presenti su un
form tramite
la collezione controls del form.
E' possibile capire di che controllo si tratti utilizzando la funzione
TypeName (oltre che
dalle proprietą normali del controllo). Aggiungo un esempio (da far partire
avendo
inserito nel form qualche picture box):
8<---------------------------
    Dim C As Control
    For Each C In Me.Controls
        If TypeName(C) = "PictureBox" Then
            C.BackColor = QBColor(Val(Right(C.Name, 1)))
        End If
    Next C
8<---------------------------

...
Concordo con le risposte date.
Al massimo puoi anche fare cosě:
Dim Obj As Object
 For Each Obj In Me
  If Mid(Obj.Name, 1, 3) = "Picture" Then
   Obj.PROPRIETA = VALORE
  End If
 Next Obj
Alla fine cmq sempre un ciclo sugli oggetti devi fare....
Secondo me farersti meglio a creare una matrice se non ti comporta
altri problemi....
Ciao Al3x

Interessante!
e come si fa a creare una collection di controlli?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 e come si fa a creare una collection di controlli?
Come una collection qualunque.
Il fatto che gli oggetti da inserire siano controlli anzichč istanze di
altre classi non cambia niente.
Ciao
Alberto

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

C'č qualcuno cosě gentile da passarmi quattro righe di codice per la
lettura/scrittura su file .xls?
Grazie in anticipo
Emanuele

 wrote in message
P1Ko8.38744$S52.1...@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Esistenza chiave

Ciao, mi spiace disturbarvi.
Mi sapreste dire se c'č una funzione, oppure un modo per sapere se nel 
registro di sistema, all'indirizzo
HKEY_CURRENT_USER\Software\VB and VBA Program 
Settings\nomeapp\sezione\chiave
Esiste una data chiave o ancora meglio applicazione?
Esempio:
Vorrei sapere se qui:
HKEY_CURRENT_USER\Software\VB and VBA Program Settings\
C'č la "cartella" PIPPO.
Si puň?
grazie mille


GetSetting oppure le API per accedere al registro.
Cerca nei vecchi post con Google gruppi.
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: Software FREE per la generazione autoamtica di stored procedure

Ciao a tutti,
ho realizzato un applicazione VB per la generazione
automatica di stored procedure di base per
MS SQL Server 7/2000. Il software č completamente gratuito e credo che possa
far risparmiare un bel po' di ore di *noioso* sviluppo T-SQL.
Dategli un'occhiata su
www.lucianofiandesio.com
Saluti,
Luciano Fiandesio

Non riesco a connettermi!

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Servizio NT possibile?

Ciao, č possibile creare un eseguibile che funzioni come un servizio NT?
Quello che intendo fare č: ho un programmino che deve girare di continuo su
di una macchina NT server , volevo sapere se era possibile farlo partire con
il boot della stessa e quindi non dovermi per forza 'loggare' nella macchina
ed avviare a mano l'applicazione.
TIA Mina


http://www.cdctechnologies.com/vb/
ciao
	maxx

 wrote in message
9crigc$4dl$1...@fe1.cs.interbusiness.it...


 
Ti riconosco tutti i diritti sulla segnalazione del sito ;-) 
Lo avevi inserito in un tuo post del 22/12/2000!
Siccome non e' la prima volta che riposto questo indirizzo o il tuo post
ho inserito solo il link ... 
Non volevo rubarti un punto nella classifica postatori ...
ciao
	maxx

 Non volevo rubarti un punto nella classifica postatori ...
oddio, manco me ne ero accorto !
sono andato subito sul tuo link qui sopra e me lo sono segnato tra i
preferiti !
la cosa del "vecchio post" era perche' ormai sono un po' di volte che lo
metto fuori ( ASTERIX HAI SENTITO PER CASO ? ) e vigliacco se mai qualcuno
cerca in deja/gogle "servizi nt", singoli o doppi che siano :))
ok cosi' -- ciao, a. :)


Uhm uhm...
No, asterix non ha sentito e non si e' forwardato a casa il "vecchio post"
:P
Ciaotutti,
Asterix
Newsgroup: it.comp.lang.visual-basic
Titolo: textbox - eliminazione metacarattere

Salve a tutti!
Il mio problema nasce dalla necessita di
salvare il contenuto di una stringa
di una TextBox con l'evento INVIO.
Purtroppo
il contenuto della stringa e'
evidenziato (testo in bianco su sfondo blu)
per cui il salvataggio mi inserisce
pure il metacarattere che indica che il testo
e' evidenziato: come eliminare il metacarattere?


In una textbox ?
Che codice usi ?
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Il report di stampa non si avvia!

Ciao a tutti del NG,
ho un problema con una applicazione realizzata con VB6 che gestisce un
database Access. In pratica mi è successo che nell'ultima installazione
fatta su un PC con Windows 2000 , la stampa non funziona.
Ho realizzato i vari report con Crystal Reports e quando tento di aprire gli
stessi sul PC in questione mi viene visualizzato il seguente errore "CAN NOT
INITIALIZE OLE" .
Ritengo possa mancare qualcosa ma ho sempre utilizzato lo stesso pacchetto
di installazione che negli altri PC funziona regolarmente.
Vi sarei grato se poteste aiutarmi.
Fabio Sanfilippo
N.B. La versione di Crystal Report è quella fornita con VB 6 Professional.


Installa mdac_typ.exe
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] NON funziona un C....!!!!!!!!!!

MA porca miseria, possibile che non riesco a far funzionare questo cavolo di
DataReport, in qualsiasi parte lo metto mi da sempre errore!!!
Come diavolo si fa a gestire delle query su tabelle che andranno poi a
popolare il DataReport????????
Scusate ma quando le provo tutte (o quasi) e continua a non riuscirmi mi
inc....arrabbio!!!
Vi prego aiutatemi voi!   (:((((
Grazie.
Paolo.

 wrote in message
news:3eWw6.1594$f73....@news1.tin.it...


 ha scritto nel messaggio
news:9a1dmc$354hd$1...@ID-77234.news.dfncis.de...


Prova a postarmi il problema, vedo se sono in grado, a me piacciono molto i
data report e li tropvo comodi e funzionali.
Ciao
Massimiliano

Newsgroup: it.comp.lang.visual-basic
Titolo: Install Shiled e Cd...

Ciao a tutta la lista!
Ho realizzato un'applicazioncina in Vb4 a 16bit in cui compare un menù
principale da cui si possono lanciare più sessioni alternative di Setup
reliazzate, in sottodirettrici, con Install Shiled 2.12.
Il problema è che avendo ora masterizzato il tutto su Cd-Rom su alcune
macchine ci sono dei problemi. Errori del tipo: "Impossibile caricare il
file"........... al lancio del menù pricipale (d:\install.exe).
Qualche buon'anima ha da darmi qualche suggerimento??? Qual'è la lista
completa delle ".dll" che debbo includere nella radice del Cd-Rom in cui c'è
anche l'applicazione Vb4 di partenza???
Grazie a chi vorrà rispondermi..........
Alberto

Tieni presente che alcune dll vanno registrate perció anche avendo tutte le
DLL puó darsi che il prg non funzioni, se ti é possibile,visto che comunque
lavori a 16bit usa Vb3 che richiede sol 390k di VBRun300.dll
Ciao,
Corrado

 wrote in message
80upb9$hoc$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione Pacchetti di installazione

Devo creare un pacchetto di intallazione di un mio programma
però ho riscontrato dei problemi utilizzando (creazione guidata
pacchetti di installazione di visualbasic6)
1 voglio decidere a priori dove installare il mio programma senza 
  lasciare la possibilita all'utente di cambiare il percorso
  questo perchè se faccio dei collegamenti con dei file a visual basic
  ex immagini non so come automaticamente cambiare il percorso dei file
2 quando creo una pacchetto con visualbasic non mi include le cartelle
  ove ho salvato file di immagini richiamate da visualbasic nel    
  programma.
Vi prego aiutatemi
By
elia
P.S.
E' possibile richiamare da visualbasic un immagine senza immettere il
percorso completo ma solo il nome file?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Non ne sono certo.
Se non ricordo male questo sistema quando l'ho usato in un programma creava
dei problemi quando si modificava la cartella corrente ma solo sotto un
sistema operativo, mi pare fosse Xp ma non ne sono certo.
E' sempre meglio usare il percorso completo creato come ti ho spiegato
sopra.
ciao
Paolo B.

 
grazie era proprio quello che mi serviva.
By
elia

Newsgroup: it.comp.lang.visual-basic
Titolo: Complimenti ad Ettore Maronese.

Desidero pubblicamente fare i miei complimenti ad Ettore Mronese.
Anche se forse il NG non è il luogo adatto.
Ho prelevato il suo OCX  "Mes Tab Prt" che finalmente mi ha consentito le
stampe tabellari dei Database.
Suggerisco a quanti (principianti come me) hanno avuto difficolta nelle
stampe di Provarlo.
Ciao !!!

...

Mai avuto tanto clamore... :-)
Grazie :-)
PS: La registrazione e' gratuita.
PPS: Scusate l'OT
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutatemi per favore AIUTO!! API!!! -- WEBMASTER LEGGI

I

via Mailgate.ORG Server - 
http://www.mailgate.org

 degl'occhiali
 Bhe ne ho bisogno anch'io visto che pure io leggevo solo l.
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

--
[....]


    Ora speriamo che tutti hanno letto e avvertiamo sul NG che e severamente
proibito parlare dei BUGS MS (tanto ci sono perché l'importante non è come
se ne parla, ma che se ne parli :-))))))))))))))))


Newsgroup: it.comp.lang.visual-basic
Titolo: COMBO che salva dati in un altro record...

Mi chiedevo se č possibile impostare un combo che abbia come item gli indici
dei dati esistenti in alcuni record della tabella "A" e sulla selezione
dell'indice mi visualizzi i dati relativi all'interno delle txtBox, poi perň
alla pressione di un pulsante "OK" il contenuto delle text deve essere
memorizzato all'interno di uno o piů record di diverse tabelle, dello stesso
DB.
grazie
--
                                   Marco Bielli



Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Come si disegna su piu' livelli ? (non é ot)

Ciao a tutti !!
C'é una cosa che mi incuriosisce da tempo, e non sono ancora riuscito a
trovare informazioni che soddisfino questa mia curiosita' :
Avete presente i programmi di disegno tipo "CorelDraw" o simili ? Quando si
traccia un cerchio o un quadrato, questo viene messo sulla pagina e nel caso
si voglia correggere la posizione gli si clikka sopra, il disegno tracciato
viene selezionato ed é quindi possibile muoverlo.
Ok... allora.. come si fa ? Non penso che saranno cosi' matti da mettere un
controllo picturebox uno sopra l'altro no ?  o si fa davvero in questo modo
?
Pensavo a qualche particolare procedura che crea piu' strati di "schermi"
virtuali dove disegnare, ma non ho trovato nulla sull'argomento..
Qualcuno sa quindi come si può fare un programma simile e potrebbe darmi
qualche "spunto" ?
grazie mille !!!!
DaVe

Noi abbiamo fatto un piccolo Layout Editor, ma tutto quello che disegni è
comunque rappresentato da un oggetto (textbox, label, bitmap, linea, ecc.).
Non so come fanno alla Corel, ma credo che il concetto sia lo stesso. Ogni
cosa che disegni deve essere riconosciuta anche nel suo singolo.
Newsgroup: it.comp.lang.visual-basic
Titolo: Come fare una RPC per eseguire un comando su una macchina SUN?

Salve a tutti, vorrei mandare in esecuzione da VB (oppure da C/C++,
includendo la chiamata in una dll richiamabile da VB) un comando (o un
eseguibile) su una macchina SUN in rete.
Potete darmi qualche dritta?
saluti
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 ha scritto nel messaggio
news:8vvnqq$75j$1...@nnrp1.deja.com...


,

Newsgroup: it.comp.lang.visual-basic
Titolo: Cartelle di sistema

ho inserito nel mio programma questo codice per  trovare le directory di
sistema
Declare Function trovadir Lib "shfolder.dll" Alias "SHGetFolderPathA" (ByVal
hwndOwner As Long, ByVal nFolder As Long, ByVal hToken As Long, ByVal
dwReserved As Long, ByVal lpszPath As String) As Long
strpath = Space(260)
Call trovadir(0, &H20, 0, 0, strpath)  'TEMPORANEI INTERNET
strpath = Left(strpath, InStr(strpath, Chr(0)) - 1)
txtitemp.Text = strpath
sapete dirmi che valore devo dare a nFolder al posto di &H20 per ottenere la
directory dei file temporanei (C:\WINDOWS\TEMP)???
Ciao, Devaraja

 directory dei file temporanei (C:\WINDOWS\TEMP)???
Environ("TEMP")
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: recupero e compressione db access

ricordo che con vb3 esistevano delle operazioni di recupero e compressione
db access
cose che tornavano molto utili soprattutto se c'era qualche problema al  db.
Esistono ancora in vb6 e se si come si fa? non sono riuscito a trovare nulla
se non l' "Analyzer"
Grazie MArco G.

 ha scritto nel messaggio
news:d7ota.91381$iy5.2...@twister2.libero.it...

Imposta neiriferimenti "microsoft jet and replication object 2.6"
'---------------------------------------------------------------------------
------------
' Nome Procedura : Compatta
' Data-Ora       : 22/09/2001 22.50
' Autore         : Administrator
' Commenti       :
'
'
'
'
'
'---------------------------------------------------------------------------
------------
'
Private Sub Compatta()
On Error GoTo Compatta_Error
    Cn.Close 'chiudo la connessione principale al db
    Set Cn = Nothing
    Dim CONN As JRO.JetEngine
    Dim CONN_Sorg As String
    Dim CONN_Dest As String
    Set CONN = New JRO.JetEngine
    CONN_Sorg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
                & FN.Barra(App.Path) & "trasfagg.mdb"
    CONN_Dest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
                & FN.Barra(App.Path) & "trasfagg_COMPAT.mdb"
    CONN.CompactDatabase CONN_Sorg, CONN_Dest
    Set CONN = Nothing
    fnConnetti 'riapro la connessione principale al db
   On Error GoTo 0
   Exit Sub
Compatta_Error:
    Select Case Err.Number
        Case Else
                Select Case MsgBox("Errore numero " & Err.Number & " (" &
Err.Description & _
                    ") in Compatta, la procedura č contenuta in Form
frmMain, contattare il fornitore " & _
                    "del programma. Nel frattempo cosa si desidera fare?", _
                    vbAbortRetryIgnore + vbExclamation + vbDefaultButton1,
"Errore non previsto")
                    Case vbAbort
                        End
                    Case vbRetry
                        Resume
                    Case vbIgnore
                        Resume Next
                End Select
    End Select
End Sub
--
David Ruscelli
Oh...My dog!

*Marco G.* ha scritto:

Con DAO 3.6, vedi CompactDatabase. La RepairDatabase (disponibile
separatamente con DAO 3.51 che però non vede i formati 2000) è stata tolta e
(forse) inclusa nella CompactDatabase.
Newsgroup: it.comp.lang.visual-basic
Titolo: Recupero ID che non appare in listbox

In una form ho 2 listview.
Le colonne le aggiungo in base al risultato della query che controlla
ognuna.
Le query sono eseguite tutte sullo stesso id.
Nella prima listbox visualizzo i gli ordini che hanno IDOrdine, IDCliente,
Ordine_num ecc
Nella seconda listbox visualizzo i dettagli dell'Ordine selezionato nella
listbox Ordini
Come posso fare a non dover mostrare l'IDOrdine e visualizzare ugualmente i
dettagli dell'ordine selezionato nella listbox degli Ordini ?
Grazie, Alberto

ALCAU (ST1) ha scritto nel messaggio ...

Non metterla e basta: se recordset e lista hanno lo stesso ordinamento dei
dati, all' i_esima posizione nella lista corrisponderà l' i_esima posizione
nel recordset e cosi' l'IDOrdine sarà facilmente reperibile.
o ancora, se il controllo è consistente, recupera i dettagli sulla base di
IDCliente e Ordine_num .....

 ha scritto nel messaggio
news:94mp76$5u6$1...@fe1.cs.interbusiness.it...

Penso di non aver capito  ;-(



Utilizza la proprietą Itemdata per memorizzare l'ID (numerico): sintassi ed esempi nella guida in
linea.
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
---------------------------------------------------------------------------

 IDCliente e Ordine_num .....
Cioè in VB non esiste la possibilità di gestire le listbox come in Access
e cioè con ID nascosto e Descrizione in vista?

> Christian:

Ciao Christian!
Non e` quello il discorso. E` che sono due oggetti decisamente diversi,
anche se apparentemente si chiamano entrambi ListBox. In realta` una e` una
Access.ListBox, l'altra una VB.ListBox.
Come sai la Access.ListBox ha una logica basata su colonne, che possono
essere visibili o meno. La VB.ListBox invece ha una colonna solamente. Ha
pero` la proprieta` DataField, quando associata ad un campo del record
corrente, che e` analoga a quello che hai chiamato "ID nascosto", ovvero la
proprieta` "Colonna associata" dell'Access.ListBox. Considera anche la
proprieta` ItemData della VB.ListBox.
Altra cosa ancora, ovviamente, la MSComctlLib.ListView, di cui forse (?!) si
sta discorrendo in questo thread...
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: Lancio Macro da Visual Basic

Volevo sapere se era possibile lanciare una macro da
codice Visual Basic, senza utilizzare l'oggetto DoCmd.
So come lanciare una query utilizzando QueryDefs, ma una macro si puň?
Se si, potete illustrami il codice.
Grazie.
-- 
Posted from  [217.58.17.179] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 So come lanciare una query utilizzando QueryDefs, ma una macro si puň?
L'oggetto DoCmd non esiste in VB, č specifico di Access. Se posso darti un
consiglio, scegli se il tuo programma deve girare in Access o in VB e lascia
perdere la via di mezzo.
Secondo me ti conviene portare tutte le tue macro in VB e fare tutto da lě.
Ciao,
Carlo.
Newsgroup: it.comp.lang.visual-basic
Titolo: CATTURARE una Finestra con Scrolling

Sto facendo una Screen Capture.
Dopo aver catturato 
- lo Schermo intero,
- la Finestra attiva,
- una Parte dello Schermo (tracciando
  un rettangolo su una immagine di questo
  salvata precedentemente su un Form, ingrandito 
  alle sue dimensioni massime) 
vorrei aggiungere un ultima funzionalità 
(indubbiamente utile): quella di cattura del
CONTENUTO di una Finestra anche in presenza di 
SCROLLING sia verticale che orizzontale (di
catturatori con scrolling orizzontale per la verità
mi sembra a tuttora di averne visto solo uno, 
neanche "SnagIt" lo fà).
La cattura del Contenuto che appare sullo schermo 
in quel determinato momento (non oltre lo scrolling,
cioè) non è difficile (già fatto), ma è
 
- l'andare a disegnare un rettangolo attorno al 
  Contenuto ed all'interno del bordo della Finestra attivata 
  con un click dall'utente (quale è l'Api migliore ?
  Forse l'Api Rectangle, ma come trovargli e passargli 
  le coordinate del Contenuto della Finestra in questione,
  in modo esatto ?)
- muoverla (credo si usi l'Api ScrollWindowEx) ad 
  un movimento del mouse da parte dell'utente prima 
  verso destra e poi verso il basso (come fà la mia 
  applicazione minimizzata o resa invisibile a sapere 
  dei movimenti del mouse, non su di essa, ma appunto 
  sullo schermo ?)
- ed infine memorizzarla su una Picturebox (magari 
  memorizzando su di essa ogni nuova singola linea che
  appare dopo aver attivato lo scrolling)
che presenta diverse difficoltà.
Consigli, "dritte" o esempi,
anche per singole parti della programmazione di 
questa "CATTURA CON SCROLLING", (che credo possa 
essere anche di interesse generale soprattutto 
a riguardo dei movimenti del mouse sullo Schermo,
anche quando la propia applicazione è minimizzata
o resa invisibile),
sono AMPIAMENTE RICHIESTI.
Grazie, Andrea

 wrote in message 387a3ce...@news.libero.it...



wrote:

Ho sbagliato a postare e me ne sono partiti due: uno ("Grazie.
Ora...") era la risposta
per un thread piu sopra ( "Tracciare rettangoli ..." ).
Non pretendevo minimamente una risposta in 5 minuti; non diciamole
neanche per scherzo queste cose!     ;-)
Andrea

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

Come converto e compilo un programma da italiano in greco?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Come converto e compilo un programma da italiano in greco?
Se il progetto è nato per essere multilingue, avrai un file di risorse 
o altro, con tutti i testi già tabellati. A manina, quindi, ti metti lì 
e traduci tutte le stringhe.
Se il progetto non è nato per la gestione multilingua, su google trovi 
parecchi consigli su come modificarlo per fargli gestire più lingue.
Il vero problema, forse, è che il greco usa caratteri diversi dai 
nostri, per cui devi sostituire i controlli standard con quelli che 
supportano l'Unicode.
Ciao
Alberto
-- 
Autore di
"Petting for Dummies"
Newsgroup: it.comp.lang.visual-basic
Titolo: Indirizzo IP del mio ISP

Ciao a tutti,
come posso rilevare l'indirizzo IP del server del mio Internet Service
Provider dopo aver effettuato la chiamata con il RadDial?
Grazie !!!

 Provider dopo aver effettuato la chiamata con il RadDial?
Se il Server del tuo ISP č pingabile, cambia ISP.
Altrimenti spiega meglio quello che vuoi fare.

 Se il Server del tuo ISP è pingabile, cambia ISP.


Se il Server del tuo ISP è pingabile, cambia ISP.
Ma non ha spiegato a quale server si riferiva... perchè un server ftp
ad esempio non dovrebbe essere pingabile?
Remove CUTME from E-Mail address to reply!
Visit Hardware Tips: 
http://www.hardwaretips.com

Ciao,
il problema è di capire che indirizzo ha il server a cui mi sono connesso
con RasDIal
Ammesso e non concesso di chiamare un nuovo Internet Service Provider di cui
non si sa assolutamente nulla tranne che il nr di Tel, User e Pwd, è
possibile sapere una volta connesso il suo indirizzo IP?
Ciao e grazie
Alex
Lord Rayden <ray...@CUTTHIShardwaretips.com> wrote in message
nL7JObp6G30s584fNn2=Zz05...@4ax.com...


 possibile sapere una volta connesso il suo indirizzo IP?
Quello che puoi (o dovresti sapere) è l'indirizzo che ti è stato
assegnato e quello del gateway. In genere, in una connessione
tramite accesso remoto con IP dinamico, l'indirizzo del gateway
corrisponde al tuo indirizzo. Altra cosa che puoi sapere è
l'indirizzo del Dns (mascherato).
Una volta ottenuto il tuo indirizzo dinamico, sostituisci il quarto
ottetto con il valore 255, fai un ping all'indirizzo (non valido):
dovrebbe risponderti il tuo Dns reale (o il suo gateway).
Con questi due dati (il tuo IP e quello del gateway non
mascherato), dovresti poter risalire al provider.
Penso comunque che potrebbe servirti solo sapere l'IP
dinamico assegnato per discriminare tra provider diversi,
se ho capito quello che vuoi fare.
Se non sai come ottenerlo, riscrivi.

 ad esempio non dovrebbe essere pingabile?
Mi pare chiedesse l'IP dell'ISP.
Non vedo molta relazione con l'IP di "un server ftp"
preso a caso. Anche ci fosse, nessuno mi dice che la
risposta non provenga dal getway o dal firewall o
quant'altro.

quant'altro.
In questo caso anche la conoscenza dell'indirizzo reale del tipo
10.0.0.11 non servirebbe a molto dato che dall'esterno non sarebbe
accessibile con tale indirizzo!
Continuo comunque a non capire a cosa gli serva sapere il nome del
provider: se deve connettersi a un  suo server non ha bisogno di quei
dati!
Ciao


 dati!
Continuo a non saperlo neanche io, dato che non si è fatto sentire.
Newsgroup: it.comp.lang.visual-basic
Titolo: Si può usare la formula CERCA di excel?

In un foglio in excel ho la seguente intestazione di riga: 
In A1 =  tipo diametro 
in B1 = lunghezza 2 
in C1 = lunghezza 2,10 
in D1 = lunghezza 2,30 
in E1 = lunghezza 2,50 
nella seconda riga ho i dati: 
in A2 ho scritto Diametro 0,10 
in B2 ho scritto 0,015 
in C2 ho scritto 0,016 
in D2 ho scritto 0,018 
in E2 ho scritto 0,019 
In un secondo foglio (sempre della stessa cartella) 
IN A1 ho scritto Diametro 0,10 
IN B2 il dato è a scelta (lo scelgo tramite una convalida 
elenco): se scelgo lunghezza 2 IN C1 mi deve apparire il dato 
presente in B2 del foglio precedente, se scelgo lunghezza 2,10 
mi deve apparire il dato presente in C2 del foglio precedente e 
così via. Ho provato con CERCA e CERCA.VERT ma non riesco ad 
ottenere ciò che voglio. Come posso fare? 
Cordiali Saluti e grazie mille per l'attenzione.
Stefania
-- 
Postato da Alice Newsgroup: lo usi da web ma con le funzioni del newsreader 
http://newsgroup.alice.it
Gerarchie it, italia, it-alt, tin, it.binari. Unico!

 ottenere ciň che voglio. Come posso fare?

Newsgroup: it.comp.lang.visual-basic
Titolo: orrori di run times con windows 98 dopo l'installazione

Ciao a tutti,
io ho creato un un programmino in visual basic che espostra dei files via 
FTP.
Le installazioni che ho fatto di prova sono adate tutte a buon fine tranne 
che su WINDOWS 98.
Qui mi da un errore di RUN-TIMES 48 impossibile trovare WININET.dll.
Ho provato a fare delle ricerche su internet e su msdn ma con pochi 
risultati. Sapete darmi delle indacazioni di siti dove posso trovare delle 
Patch etcc....
Grazie a tutti in anticipo!
Alberto 

 Qui mi da un errore di RUN-TIMES 48 impossibile trovare WININET.dll.
Ma l'hai distribuito?
E che versione di IE c'è nella macchina target?
Leggi anche:
http://support.microsoft.com/default.aspx?scid=kb;en-us;201357
Ciao
Alberto
-- 
"C'è un Calvelli dentro ognuno di noi" (cit.) 

No non l'ho distribuito!
L'ho provato su  un amd 450 di prova con win 98 e internet explorer penso 
4.0 quella distribuita
con ůWIn 98 Seconda edizione.
cmq da quando ho installato il mio programma internet explorer non funziona 
piů!
Pensi che installando l'ultima versione riesco a rislvere il problema?
Grazie mille per il link al sito della Microsft!
Ciao 

 funziona più!
Mmmmhhh...
mi ricorda qualcosa...
Non è che c'è IExplorer 3?
http://support.microsoft.com/default.aspx?scid=kb;en-us;174508


 ha scritto nel messaggio 
news:d47q03$bdr$1...@area.cu.mi.it...

si hai ragione è la versione 3.0 , solo che non ho salvato le vecchie DLL :( 

 si hai ragione è la versione 3.0 , solo che non ho salvato le vecchie DLL :( 
Be', guardala cosi`:
<MODE INCORAGGIAMENTO ON>
adesso sai che quando si usa una libreria bisogna sapere
*prima* quali versioni di windows la supportano (ed in quale
versione), quali prerequisiti richiedono (in questo caso la
versione minima di IE) e farli firmare al cliente.
</MODE INCORAGGIAMENTO ON>
-- 
ciao, hal

 si hai ragione è la versione 3.0 , solo che non ho salvato le vecchie DLL
:(
internet e' grande...
http://www.oldversion.com/program.php?n=msie
c'e' ancora anche ie_pre-ms :)
http://browsers.evolt.org/?ie-sprynet
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: [COM] - Creazione oggetto DCOM

Ciao a tutti e ... buon Lunedì :-)
Ho pochissima esperienza con DCOM, avendo usato per anni l'automazione
remota.
Ora ho convertito un oggetto server da RemAuto a DCOM e la mia
applicazione continua a funzionare, però la creazione dell'oggetto
dura circa 5 secondi, manifestamente molto di più che non prima con
RemAuto.
In pratica, eseguendo passo per passo il codice, giunto all'istruzione
    Set m_oArt = New CArticleDB
passano circa 5 secondi e poi viene eseguita la successiva istruzione.
Vista la mia inesperienza con DCOM, vorrei sapere se questo è tipico
di DCOM oppure ho sbagliato io da qualche parte nelle configurazioni?
Grazie in anticipo per le vostre repliche.
Ciao,
   Giovanni 
Ciao,
 Giovanni 
  ( Ing...@SoftHome.net )
To reply please remove 'XYZ'

 wrote in message
un9kbscejt3l0v2pi...@4ax.com...


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

mi servono API o compilazioni (se esistono)
x disttivare ALT F4
e Per disattivare L'alt+crtl+canc
mr...@tin.it

...


 wrote in message
75jn95$414$1...@nslave1.tin.it...


e Per disattivare L'alt+crtl+canc
Per disattivare L'alt+crtl+canc, dai un'occhiata al Sito Comune, c'e' un
progettino che chiama una vespa... emm.... un'ape emm.. un'API.
http://members.xoom.com/it_lang_vb
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://members.xoom.com/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: SMS su porta COM

Con questo codice sto sperimentando una connessione BT (BlueTooth)
attraverso una porta USB
in cui viene individuata una COM virtuale.
Ma il silenzio è assoluto....nemmeno un errore !
Qualcuno ha provato e conosce qualcosa ? Ne sarei grato.
Grazie
Private Sub SMSend()
Dim phonenum As String
Dim risposta
On Error GoTo errore
phonenum=12457845
COM1.CommPort = 5
COM1.Settings = "19200,n,8,1"
COM1.PortOpen = True
COM1.Output = "ATZ" & vbCr
Wait 1
COM1.Output = "AT+CMGF=?"  'interroga il "modem" se risponde con la modalità
testo( =1)
Wait 1
COM1.Output = "AT+CMGF=1" & vbCr    'setta la modalità testo
COM1.Output = "AT+CMGS=" & phonenum & vbCr
Wait 2
risposta = COM1.Input
If InStr(risposta, ">") > 0 Then
COM1.Output = "testo da mandare" & vbCr
End If
Wait 2
risposta = COM1.Input
If InStr(risposta, "OK") > 0 Then
MsgBox "Messaggio inviato"
End If
Exit Sub
errore:
MsgBox Error
End Sub
--
Gulp
....forse mi sono perso qualcosa !


ha scritto:

In generale quando si aspetta una risposta da una porta è meglio fare
un polling e vedere quando arriva un carattere.
Se imposti:
COM1.InputLen=1
poi fai un 
  DO
   If Main.MsComm1.InBufferCount > 0 Then
      Ins$ = Ins$ & Com1.Input 
     If  InStr(Ins$, Chr(&HA)) Then Exit Do
  End If
 Loop
 
questa routine aspetta che il modem riponda qualcosa, dato che di
solito i modems rispondono stringhe che finiscono con Cr+LF (0x0D
0x0A)
Metti un breakpoint subito dopo per vedere cosa è arrivato.
Tu nel tuo software fai dei wait e non controlli i caratteri in
ingresso.
ciao
  Stefano

 
ha scritto:
Errore di copia/incolla         :-(
invece di
   If Main.MsComm1.InBufferCount > 0 Then
metti
   If Com1.InBufferCount > 0 Then
_______________
  DO: DoEvents
   If Com1.InBufferCount > 0 Then
      Ins$ = Ins$ & Com1.Input 
     If  InStr(Ins$, Chr(&HA)) Then Exit Do
  End If
 Loop
___________
'qui metti il break per vedere il valore di Ins$
ciao
  Stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: TOOLBAR TEXT

Ho un piccolo problema con le toolbar.
La mia applicazione ha una toolbar con le icone e il testo che descrive la
funzione ed anche il tooltip.
Su alcuni computer il testo sotto l'icona compare mentre su altri lo stesso
eseguibile non č in grado di visualizzarlo e la toolbar risulta piů piccola.
Qual'č l'arcano meccanismo che fa decidere al programma se mostrare o no il
testo.
Grazie a chiunque mi dia un aiuto.
Giancarlo Domanico
gdoman...@flashnet.it

...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Errore 35613 (ImageList non inizializzato)

il2 è un controllo ImageList
ESFXDAMA.imgc_database è una casella combinata a immagini (ImageCombo)
Il seguente codice in IDE non crea problemi e funziona.
In EXE si verifica un Errore "35613 = Il controllo ImageList deve essere
inizializzato prima di essere usato"
all'istruzione finale.
    Dim lim As ListImage
    il2.ListImages.Clear
    comodo = App.Path & IIf(Right(App.Path, 1) <> "\", "\", "")
    comodo1 = Dir(comodo & "*.ICO")
    Do
        If comodo1 = "" Then Exit Do
        comodo1 = UCase(comodo1)
        Set lim = il2.ListImages.Add(, UCase(comodo1), LoadPicture(comodo &
comodo1))
        comodo1 = Dir
    Loop
    Set ESFXDAMA.imgc_database.ImageList = il2    'QUI SI VERIFICA L'ERRORE
Qui 
http://support.microsoft.com/default.aspx?scid=kb;en-us;149322
 si dice
che l'errore (anche se il contesto è diverso) è stato corretto in VB6...
Qualche indicazione/workaround? Grazie.

     Set ESFXDAMA.imgc_database.ImageList = il2
Ho risolto: la App.Path era diversa fra IDE e EXE e l'EXE non trovava
immagini *.ICO (mi sta bene così).
Quindi:
     If il2.LstImages.Count Then
          Set ESFXDAMA.imgc_database.ImageList = il2
     End If

Newsgroup: it.comp.lang.visual-basic
Titolo: Printer problem. Only one copy

I have used the common control (showprinter) and printer.print to print
the text. I can change printer (I'v got 3 printers in my home) and that
works fine, but if I change the number of copies to 3 I only get one
copy. What Have I done wrong? I'v alspo tried with 
printer.copies = 3 but then vb complains about my printer drivers and
stuff... 
Thanks!
BumbyBear
P.S. Please reply via email (
bumb...@home.se
)

...

Newsgroup: it.comp.lang.visual-basic
Titolo: fare operazioni sui file, ricerca stringa e sostituizione con chiusura e salvataggio

dovrei da vb aprire un file cercare una determinata riga del file e
sostituirla con un altra stringa
poi chiudere e salvare il file
mi sapreste postare un piccolo esempio per fare ciň?
grazie a tutti.

[Simba883 = 
circa_s...@libero.it
 in c3s4ak$ia2$
1...@lacerta.tiscalinet.it
]
ha scritto:

Open ... For Input, Do, Eof, Line Input, Print #canale, Close
PS: Ogni volta che leggo i tuoi post penso che stai facendo qualcosa di
"sporco".
Potresti raccontarci cosa stai facendo? Grazie.

 Potresti raccontarci cosa stai facendo? Grazie.
vabbč che so diabolico ma non faccio nulla di sporco, o perlomeno lo lavo
dopo....
devo modificare un file .INI di una stampante pdf in modo che possa
assegnare il nome del documento in vb al documento pdf stampato e per fare
ciň prima di lanciare la stampa devo modificare il file INI compreso????


scusa l'ignoranza ma mi faresti un piccolo esempio per aprire pippo.txt
andare alla riga 4 e sostituire ciň che c'č alla riga 4 con la stringa
"ciao"
e poi chiudere e salvare
grazie infinite..........

 e poi chiudere e salvare
La guida ora l'hai?


si ok grazie

 "ciao"
Se t'accontenti ti faccio un esempio in vbs
 (usa il fso che volendo puoi trasportare in VB)
set fso=createobject("scripting.filesystemobject")
myfile = "C:\PIPPO.TXT"
oldX = "ciň"
newX = "ciao"
sData = f_r(myfile)
sData = Replace(sData,oldX,newX)
f_w sData, myfile
Function f_r(FilePath)
  f_r = FSO.OpenTextFile(FilePath,1).ReadAll
End Function
Sub f_w(sData,FilePath)
 fileRef = FSO.OpenTextFile(FilePath, 2, True).WriteLine(sData)
End Sub
'Ovvio che cambia tutte le "ciň" esistenti con "ciao"  ma :
Msgbox SkipLineInFile
Function SkipLineInFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "UNO" & vbCrLf & "DUE"& vbCrLf & "TRE" & vbCrLf &"Ciao"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
For i = 0 To 2
   f.SkipLine
Next
   SkipLineInFile = f.ReadLine
End Function
--
Fosco

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Posizione client-area di una form

Salve a tutti,
sto' impazzemdo per cercare di individuare la posizione della client-area di una form child dentro
una mdiform:
Una soluzione che ho trovato e' questa
clientareaTop = mdiFrm.Height + (frmChild.Height - frmChild.ScaleHeight)
clientareaLeft = mdiFrm.Left + (frmChild.Width - frmChild.ScaleWidth)
In questo modo riesco ad ottentre la posizione dentro la mdiform della client-area di una finestra
figlia.
Questo pero' non funziona nel caso in cui nella mdiform ci sia una statusbar o pure la barra di
scorrimento orizzontale (quella in basso).
Sapete se esiste un'api che permetta di leggere le coordinate della client-area in una form ?
Ciao, David.

client-area in una form ?
Di solito queste funzioni iniziano tutte per Get e una ricerca č piuttosto
rapida.
Quella che fa per te č la GetClientRect().
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: stampe e database

Allora, cercherò di essere breve: vorrei realizzare un programma di
fatturazione, nel quale su ogni fattura io vado ad inserire i servizi che ho
effettuato; fino ad ora i programmi di questo tipo che ho realizzato,
andavano a scrivere in una tabella predefinita nella quale potevano essere
messe massimo "tot" descrizioni di articoli venduti con massimo "x"
caratteri; per capirci, la tabella nella quale erano memorizzate le fattura
era formata da vari campi quantità, vari campi descrizione e vari campi
prezzo.....
I prossimo progretto che vorrei realizzare, invece prevede che io possa
inserire in una fattura un numero illimitato di prestazioni; per fare questo
pensavo di strutturare il database con una tabella movimenti, con i campi di
riferimento al numero di fattura, la quantità, la descrizione eccetera...
Vi starete chiedendo "e il problema dov'è?"
I problemi sono due... e la domanda sorge sbondanea......
1. ogni campo descirzione può contere al massimo 255 caratteri, visto che il
campo testo al massimo arriva a questo... potrebbe anche bastare; ma se non
bastasse, c'è un modo per aumentare i caratteri che può supportare un campo?
2. questo è il vero problema: io uso il metodo printer.print per stampare i
dati del database; se imposto lo schema della fattura in modo che la
descrizione venga stampata in una ben determinata area del foglio, e devo
andare a capo con la descrizione, come faccio a far capire che quello che è
il testo della descrizione deve essere riportato a capo come se fosse
applicato il word wrap?
Non so se sono stato chiaro.... spero di si.
Grazie a chi potrà rispondermi

 riportato a capo come se fosse applicato il word wrap?
Decidi un numero di caratteri per riga, ad esempio 50.
Prendi i primi 50 caratteri, e li stampi.
Incrementi la posizione y della stampa di quanto vale una riga
Stampi i successivi 50
Incrementi la y
Stampi i successivi 50
Se vuoi l'importo allineato con l'inizio della descrizione, stampi l'importo
subito dopo aver fatto la prima riga, se lo vuoi allineato con l'ultima
riga, lo stampi prima di passare al record successivo.
Ciao
Alberto


La Function DrawTextEx penso faccia al tuo caso :)
"The DrawTextEx function draws formatted text in the specified rectangle."


Devo dire che è un'ottima soluzione.... ma se fosse necessario andare a capo
parola per parola (come se ci fosse attivato il word wrap)?
Grazie per gli ottimi consigli

Grazie molte... ho visto che si tratta di una api... oggi pomeriggio con un
po' di pazienza vedo di studiarmela, ma a prima vista sembra essere proprio
quello che cercavo.
Grazie mille a tutti
"Perekkiofono" <spa...@spamma.spamma> ha scritto nel messaggio
news:JMU_9.114547$0v.33...@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 e Crystal Reports 10

Buongiorno a tutti,
avrei bisogno di conoscere il codice corretto e funzionante per scollegare e 
ricollegare ad un'altra fonte dati un report come da topic; la mia base dati 
č mySql 5.0.
Io ho scritto una roba del genere...
Dim crxApp As New CRAXDRT.Application
Dim crxRpt As CRAXDRT.Report
Dim tbl As CRAXDRT.DatabaseTable
Call crxApp.LogOnServer("P2SODBC.dll", "prova", "prova")
Set crxRpt = crxApp.OpenReport(App.Path & "\mioReport")
crxRpt.DiscardSavedData
crxRpt.EnableParameterPrompting = False
crxRpt.Database.LogOnServer "P2SODBC.dll", "prova", "prova"
(*)
crReport_nuovo.ReportSource = crxRpt
crReport_nuovo.RefreshEx True
crReport_nuovo.Refresh
crReport_nuovo.ViewReport
ma continua a rimanere collegato al vecchio db tramite ODBC..
forse manca qualcosa del genere dove ho messo (*)
For Each tbl In crxRpt.Database.Tables
   tbl.SetDataSource "P2SODBC.dll", "prova", "prova"
Next
ma sembra non andare, magari la sequenza non č corretta
aiut!
Grazie 

Dovresti provare a riassegnare l'associazione delle tabelle nell'evento 
Initalize del report.

Newsgroup: it.comp.lang.visual-basic
Titolo: ? Simulare HyperLink

Ho visto questo esempio sul NG per simulare un HyperLink con una label.
Funziona bene, l'unico problema è che, nell'evento DragDrop vorrei 
intercettare solo il tasto sinistro del mouse, ma non me lo permette.
Ho letto che il Drag disabilita mouseDown e mouseup
Ho usato pure l'api GetAsyncKeyState ma non funziona.
Questo è il codice
Private Sub lblLink_DragDrop(index As Integer, Source As Control, X As 
Single, Y As Single)
' // Simulazione Eventi HTML "onMouseOver" & "onMouseOut"
' - onClick event
    If Source = lblLink(index) Then
        lblLink(index).FontUnderline = False
        ' Per lanciare un URL...
    End If
End Sub
Private Sub lblLink_DragOver(index As Integer, Source As Control, X As 
Single, Y As Single, State As Integer)
' // Simulazione Eventi "onMouseOver" & "onMouseOut"
' - onMouseOut Event.
    If State = vbLeave Then
        With lblLink(index)
            .FontUnderline = False
            .Drag vbEndDrag
        End With
    End If
End Sub
Mi date una soluzione?
Grazie 

 Grazie
Questo esempio mi pare fatto meglio, puoi adattarlo alle tue esigenze.
http://vbnet.mvps.org/code/intrinsic/sehyperlink.htm
Ancora meglio sarebbe creare un controllo custom a partire da quel codice (come
ho fatto io).
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.
Newsgroup: it.comp.lang.visual-basic
Titolo: Scambio di file fra pc......

Come è possibile in vb5 realizzare un app. che permetta lo scambio di file
fra 2 pc in rete con protocollo TCP/IP.....??
l'ocx winsock permette solo lo scambio di messaggi giusto? esiste qualche
altro controllo che permetta anche lo scambio di file.....?
Grazie x le risp.
--
Ciao
Federico

Puoi usare il controllo Inet, ma sui pc dev'esserci un server FTP.
Altrimenti puoi usare winsock per implementarti un tuo protocollo (niente
proibisce di mettere dati nel 'messaggio').
----------------------------------------------------------------------
Stefano Minardi
zet...@mclink.it
----------------------------------------------------------------------

> l'ocx winsock permette solo lo scambio di messaggi giusto
giusto!
ma un file E' un messaggio...
non ci sono limiti di lunghezza del messaggio nè di contenuto... devi sono
scrivere un pò di codice per controllare il "flusso", ma il sistema funziona
benissimo.
buon divertimento!
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] DCOM e RPCRT4.DDL vi è mai capitato che...

Vi č mai successo che dopo avere scritto un oggetto ActiveX COM, averlo
provato (e averlo trovato perfettamente funzionante) e aver deciso di
provare a distribuirlo (DCOM), su 2 di sei client funzioni e su 4 no?
Ho letto su MSDN che c'č un BUG strano nella gestione del marshalling e che
bisognerebbe usare una versione di RPCRT4.DLL leggermente inferiore a quella
oggi distribuita. Purtorppo sia su MSDN che in rete sono riuscito a
trovarla. Chiamare Microsoft sarŕ la mia ultima risorsa, per il momento
provo a vedere se qualcuno  di voi ha avuto e risolto il problema.
Descrizione lunga per gli interessati:
Ho un programma EXE scritto con VB5 Enterprise Sp3 che chiede ad un oggetto
che chiameremo ELAB di fare una certa elaborazione prendendo i dati da un
server Oracle.
ELAB funziona con ADO (ho scaricato la versione di MDACTYP che contiene ADO
2.1, quindi precedente a quella disponibile dopo il rilascio di W2K).
Anche ELAB č scritto in VB5 Enterprise Sp3
Ora, la funzionalitŕ locale č perfetta: uno orologio svizzero. La
funzionalitŕ in distribuzione pure, ma solo per 2 macchine su 6.
I client sono tutti Compaq vecchio DeskPro da 100 a 133 Mhz con W95 B
(sic!), il server una macchina similare con WNt Sp4.
Il problema si presenta dal lato client con uno strano messaggio a proposito
di un errore che riporta alla DLL descritta.
Se qualcuno che ha avuto problemi simili ha una soluzione o la versione
descritta in MSDN riceverŕ la mia gratitudine :) di piů non pozzo. Al
massimo prometto di aiutare gli altri rispondendo a qualche messaggio sul NG
quando ho tempo (anzi inizio adesso cosě facio vedere la buona volontŕ :o)
Grazie,
Dads, il vecchio plurale.
P.S. risposte qui che posso vederle anche dal lavoro, tnx.

 di un errore che riporta alla DLL descritta.
Potrebbe essere dovuto a una installazione parziale o imperfetta
di DUN. Capita a volte. Alcune distribuzioni OEM di Win95
creavano il problema. Potrebbe essere la IRpcStubBuffer::Invoke,
ma non ne sono sicuro. O forse un valore UUID context handle
con marshlling incompleto o errato.
So invece che la versione di DCOM per Win95 non č
compatibile con la versione 2.0 del socket (winsock).
Prova a vedere.

Grazie mille Jimi.
Se ti trovi in giro per Milano fammi sapere, ti devo almeno un caffè :o)
Dads
Per Jimi: 
ald...@usausa.net
nell'indirizzo mail (c'è un usa di troppo)
P.S.: ma dove hai trovato la dritta? ho cercato per giorni interi!

 P.S.: ma dove hai trovato la dritta? ho cercato per giorni interi!
Se parli delle informazioni, ho fatto una ricerca estesa nei
meandri del cranio e ho scoperto che faceva parte del bagaglio
acquisito (o degli impedimenta, a seconda dei punti di vista).
Se parli del sito MS, era tra i link (del browser, chiaro).
ciao