Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Simulare il click con il mousedown

Io devo simulare il click (non l'evento ma proprio come se si premesse
l'icona) nella treeview.
Praticamente io devo fare il drag&drop ma dato che non clicco prima
lui mi copia quello che era simulato..quindi io voglio che quando fa
il mousedown sulla treeview nel mio elemento me lo deve selezionare, e
quindi poi posso leggere quello che c'è scritto....altrimenti
suggeritemi voi come si può fare...grazie
E-Mail: 
lig...@alo.it
ICQ: 11362849

...


-----------------------------------------------------------------------
 Leggere e salvare immagini in un database access con VB4.
-----------------------------------------------------------------------
----------------
Indice
----------------
 1. Elenco file
 2. Descrizione file
 3. Abbreviazioni usate
 4. Descrizione del problema
 5. Funzionamento
 6. Uso del programma di esempio
 7. Condizioni d'uso
---------------
1. Elenco file
---------------
      dbimg.vbp
      dbimg.mdb
      form1.frm
      dbimg.txt
-------------------
2. Descrizione file
-------------------
  dbimg.vpb : file progetto per VB4
  dbimg.mdb : file Access97 costituito da:
            tabelle Prova
            con Campi: Id di tipo contatore
                Pic di tipo Oggetto OLE
       inizialmente vuoto
  form1.frm : form con i seguenti controlli:
    Data1 : data control
   DataBaseName: percorso del file dbimg.mdb
   Name: Data1
   RecordSource: Prova
                  Label1 :
     DataSource: Data1
   DataField: Id
    Picture1 :
   DataSource: Data1
   DataField: Pic
    CMDialog1 : Common Dialog
   con filtro: File BMP|*.bmp
    Command1 : command button
   Caption: Apri
   nell'evento clic inserire il seguente codice:
   CMDialog1.filename = ""
   CMDialog1.Action = 1 'Apri
   If CMDialog1.filename <> "" Then
    Data1.Recordset.AddNew 'crea nuovo spazio
      Picture1.Picture = LoadPicture(CMDialog1.filename) 'carica l'immagine
           Data1.Recordset.Update 'salva
      Data1.Recordset.MoveLast 'sposta sull'immagine appena immessa
   End If
    Command2 : command button
   Caption: Esci
   con il seguente codice nell'evento clic
    unload Me
  dbimg.txt : Questo file
--------------------------------------------
3. Abbreviazioni usate
--------------------------------------------
 NG : News Group, gruppi di discussione (Non si sa mai...)
 db : data base, in questo caso creato con Access 97
---------------------------------------------
4. Descrizione del problema
---------------------------------------------
 Ho letto su molti NG che da codice si riusce solo a leggere le
immagini salvate in db Access come oggetto OLE. Così, quando mi sono
imbattuto in un articolo che spiegava come poter scrivere da codice
le immagini nel db, ho deciso di provare subito il codice proposto, ma
non funzionava.
Corretti i problemi ecco che ho deciso di renderlo pubblico.
---------------------------------------------
5. Funzionamento
---------------------------------------------
Come avrete notato il problema si risolve semplicemente legando una
Picture, impostata sul campo di tipo oggetto ole, al controllo data
opportunamente inizializzato con le informazioni del db.
Cosi facendo ogni modifica alla picture si riflette sul db.
Il metodo Data1.RecordSet.AddNew prepara il db all'aggiunta di un
record che è appunto l'immagine che si carica quando si clicca su Apri.
I dati vengono salvati con data1.recordset.Update e visualizzati
spostandosi sull'ultimo elemento.
Con poche modifiche si può anche far in modo di cambiare l'immagine
attualmente visualizzata.
L'utilizzo del controllo data porta anche un altro vantaggio.
Cliccando sui suoi pulsanti si possono scorrere tutte le immagini
già presenti nel db e nella label collegata viene visualizzato
l'Id dell'immagine. Bello, vero?
Attenzione però alle dimensioni del db: crescono molto rapidamente.
Ho provato a salvare cinque bmp 32x32 ed il db è arrivato a ben 1,5MB.
-----------------------------------
6. Uso del programma di esempio
-----------------------------------
 Porre il db nella stessa directory del progetto, aprire il progetto,
creare l'eseguibile.
 Una volta lanciato il programma cliccare sul pulsante Apri, scegliere
un bmp, e... godetevi lo spettacolo.
Usare i pulsanti del data control per scorrere il db e cliccare su Esci per
uscire.
-----------------------------------
7. Condizioni d'uso
-----------------------------------
 Di questo codice potete farne quel che volete, ma sappiate
che lo fate a vostro rischio e pericolo.
Suggerimenti? Impressioni? e-mail: 
vro...@iname.com
Eventuali marchi citati appartengono ai rispettivi proprietari.
 Spero di essere stato utile.
    Saluti a Tutti
  V. Roccasalvo
Fine ------------------------------------

Hai mancato il thread giusto, di poco, una sola riga. Riprova! :-))
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