Risultati da 1 a 7 di 7

Discussione: I Moduli di Classe vba



  1. #1
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    I Moduli di Classe vba

    Buongiorno,
    sto cercando degli esempi di codice vba liberamente disponibile, scritto utilizzando i moduli di classe...

    https://www.youtube.com/watch?v=B8ceYx_ZLPY

    https://www.youtube.com/watch?v=MjbmsVDnAL0

    https://www.youtube.com/watch?v=QSc08gY8o34
    https://www.youtube.com/watch?v=fPlt871GZsQ
    https://www.youtube.com/watch?v=-PHyJoICKKA

    meglio se in italiano ;)
    https://www.youtube.com/watch?v=Kqg2imRMlAQ

    grazie per la disponibilitÓ
    saluti

  2. #2
    L'avatar di Textomb
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    47
    Messaggi
    171
    Versione Office
    Excel 2016
    Likes ricevuti
    93
    Likes dati
    11
    Ciao.
    Posso darti un consiglio sull'argomento? Ti conviene affrontare un problema ed un'esigenza specifica. In questo modo troverai le risposte che ti servono per capire bene l'approccio e la procedura.

  3. #3
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215
    ...grazie per il consiglio Textomb, sull'argomento sono in fase di studio, quindi non ho un problema o una esigenza specifica.
    Per˛ un possibile campo di applicazione mi pare essere quello della gestione dei database, implementando i metodi di aggiunta, modifica, lettura o eliminazione di un record.
    Un esempio pratico da provare a risolvere in questo modo potrebbe essere questo http://www.forumexcel.it/forum/6-dom...ghlight=visita
    giÓ risolto in altro modo...
    Ma Ŕ una mia curiositÓ, per questo sono rimasto sul generale...
    Magari per˛ si appassiona all'argomento qualcun altro ;-)
    Grazie alla prossima.

  4. #4
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

  5. I seguenti utenti hanno dato un "Like"


  6. #5
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    pop up immagini

    Grazie Bruno...
    http://www.forumexcel.it/forum/7-dom...ll=1#post19624

    ...si prova ad aggiungere qualche commento sul codice?!

    ThisWorkbook:
    Codice: 
    Option Explicit
    'All'apertura della cartella, inizializzo le foto caricate nell'intervallo A1:A10 del foglio1
    Private Sub Workbook_Open()
       InitializePictures Sheet1.[A1:J10]
    End Sub
    Modulo Standard:
    Codice: 
    Option Explicit
    
    ' definisco una variabile pubblica Collection
    Public Pictures As Collection 
    
    'definisco una variabile a livello di modulo
    Private mResetImagesTime As Date
    
    
    Public Sub Test()
    
    
       InitializePictures [A1:A5]
    
    
    End Sub
    
    
    Public Sub InitializePictures( _
          ByVal PictureRange As Range _
       )
       
       Dim Picture As Shape
       
       Set Pictures = New Collection
       For Each Picture In PictureRange.Parent.Shapes
          If Picture.Type = msoOLEControlObject Then
             If TypeName(Picture.OLEFormat.Object.Object) = "Image" Then
                If Not Intersect(Picture.TopLeftCell, PictureRange) Is Nothing Then
                   Pictures.Add New clsPicture
                   Set Pictures(Pictures.Count).Picture = Picture
                End If
             End If
          End If
       Next Picture
       
    End Sub
    
    
    Public Sub ResetImages()
    
    
       ShrinkAnyExpandedPicture
       mResetImagesTime = 0
    
    
    End Sub
    
    
    Public Sub SetPictureResetTimer()
    
    
       If mResetImagesTime > 0 Then Application.OnTime mResetImagesTime, "ResetImages", Schedule:=False
       mResetImagesTime = Now() + TimeSerial(0, 0, 1.5)
       Application.OnTime mResetImagesTime, "ResetImages"
    
    
    End Sub
    
    
    Public Sub ShrinkAnyExpandedPicture()
    
    
       Dim PictureClass As clsPicture
       
       For Each PictureClass In Pictures
          PictureClass.ShrinkPicture
       Next PictureClass
    
    
    End Sub
    Modulo di Classe:
    Codice: 
    Option Explicit
    
    
    Private mPicture As Shape
    Private WithEvents mImageControl As Image
    
    
    Private Sub mImageControl_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
    
       If Not mImageControl.AutoSize Then
          ShrinkAnyExpandedPicture
          mImageControl.AutoSize = False
          mImageControl.AutoSize = True
          mPicture.ZOrder msoBringToFront
          SetPictureResetTimer
       End If
    
    
    End Sub
    
    
    Public Property Set Picture( _
          ByVal Picture As Shape _
       )
       
       Set mPicture = Picture
       Set mImageControl = mPicture.OLEFormat.Object.Object
    
    
    End Property
    
    
    Public Sub ShrinkPicture()
    
    
       If mImageControl.AutoSize Then
          mImageControl.AutoSize = False
          mPicture.Top = mPicture.TopLeftCell.Top
          mPicture.Left = mPicture.TopLeftCell.Left
          mPicture.Width = mPicture.TopLeftCell.Width
          mPicture.Height = mPicture.TopLeftCell.Height
       End If
    
    
    End Sub

  7. #6
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: pop up immagini

    ...in qualche modo Ŕ legato all'argomento della discussione che avevo aperto qualche mese fa, sul cui argomento non sono andato molto avanti ;)
    http://www.forumexcel.it/forum/7-dom...ll=1#post35555

    saluti
    gg

  8. #7
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Indicizzazione file

    ...La discussione a questo link si preannuncia interessante:
    http://www.forumexcel.it/forum/7-dom...ll=1#post36485

    saluti
    gg

Discussioni Simili

  1. Creazione Tabella - Una Classe per tutte le occasioni
    Di dracoscrigno nel forum Componenti Aggiuntivi, Add-ins e Plugins
    Risposte: 1
    Ultimo Messaggio: 02/06/17, 09:42
  2. le variabili dichiarate in un userform sono valide anche nei moduli?
    Di cianricc nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 01/03/17, 14:03
  3. Moduli vuoti si possono eliminare
    Di svizzera nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 03/02/17, 17:41
  4. Tabella Film divisi per genere con Modulo di classe
    Di dracoscrigno nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 24/01/17, 11:21
  5. Problema Esecuzione pi¨ moduli
    Di valeriomascolo nel forum Domande su Excel VBA e MACRO
    Risposte: 0
    Ultimo Messaggio: 22/09/15, 18:07

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •