[VB6] OCX in Moduli di Classe

[Xanz]

Salve volevo chiedere se è possibile dichiarare un ocx ( ad esempio un timer ) e utilizzarlo in un modulo di classe. Io ho provato ma me lo lascia solo dichiarare e non inizializzare.. quando provo ad utilizzarlo mi da questo errore: "Variabile oggetto o vatiabile del blocco With non impostata".. ma con Set non è possibile impostarla perchè si può utilizzare solo con le classi e non funziona nemmeno load.. nn riesco a venirne fuori.. qualkuno mi può aiutare? Ty

[Brainjar]

Se non vuoi utilizzare le API di Windows, 'SetTimer' 'KilTimer' ed i
meccanismi di CallBack, puoi utilizzare un form nascosto.

Metti il Timer in un form invisibile (visible = false).
in un metodo della classe carichi il form e successivamente
esegui una : Form1.Timer1.Enabled = true;
Nell'evento Timer del Timer1, metti le istruzioni che ti servono.

Ciao,

[Xanz]

Già.. quindi metterlo direttamente nel modulo di classe nn si può giusto?.. quindi se io poi volessi esportare il meccanismo nn posso esportare solo il modulo di classe ma dovrei esportare anke il form.. cmq l'idea delle api nn è male.. certo ke in vb senza api nn si fa quasi nulla

[Brainjar]

Già.. quindi metterlo direttamente nel modulo di classe nn si può giusto?.. quindi se io poi volessi esportare il meccanismo nn posso esportare solo il modulo di classe ma dovrei esportare anke il form.. cmq l'idea delle api nn è male.. certo ke in vb senza api nn si fa quasi nulla

Non è detto.
Se il modulo di classe diventa il cuore di un OCX, tutto viene
incluso in esso.
Dovrai solo importare l'OCX.

Ciao,

[Xanz]

Uhm.. il problema è ke nn sono molto pratico con gli ocx.. sai x caso dove posso trovare una buona guida ke spieghi come programmarli?

[Brainjar]

Segui passo passo :
1) Apri un nuovo progetto vb di tipo Controllo ActiveX
2) Da subito, ti viene aggiunto un pannello, simile ad un
form ma senza bordi. Quello è il contenitore del tuo OCX.
3) Da un nome al progetto
4) Mettigli un bottone (Command1) nel contenitore.
5) Rimpicciolisci il contenitore in modo da farci stare solo il
Command1
6) Inserisci questo codice :

    Private Sub Command1_Click()
        Load Form2
        Form2.Timer1.Enabled = True
        Form2.Show
    End Sub

7) Click col tasto destro su Finestra progetto, Inserisc->Form
8) Il Form1 ti viene aggiunto.
9) Nel Form1 aggiungi un Timer (Timer1), imposta Interval su 1000
10) Metti una textbox (TextBox1) sul Form1, rimpiccilisci il Form1
quanto basta per far vedere solo il TextBox1.
11) Inserisci questo codice nel Form1:

    Private Sub Timer1_Timer()
        Text1.Text = Time$
    End Sub

12) Chiudi il Form1.
13) Dal Menu' File click su 'Crea XXXXXX.ocx'

14) Chiudi VB.
15) Riapri VB.
16) Apri un nuovo progetto di tipo Standard Exe
17) Da Progetto->Componenti carica il tuo OCX appena creato. Trascina
il componente sul form.
18) Ti appare un bottone con su scritto "Command1".
19) Manda in esecuzione il progetto.
20) Clicca su Command1
21) Aspetta qualche istante.


Se tutto funziona hai creato un OCX con timer a 1 secondo.
Fai le modifiche sul tuo OCX nell'evento Timer del Timer1

Ciao,

[Xanz]

Sei stato gentilissimo davvero.. ma sai x caso se c'è una guida ke spiega come fare un ocx generico? Per poter farne anke altri non si sa mai..

[Brainjar]

C'è, forse, ancora online sul sito Visual Basic Italia, non ricordo,
l'indirizzo, una serie di tre lezioni sugli OXC. Ricordo il nome
dell'autore, Perrotta.
Prova a fare una ricerca su Google con "+OCX +Perrotta", dovresti
trovarle ancora.

Altri esempi potresti trovarli nei libri su VB, primo fra tutti,
quelli del già citato F.Balena.

Ciao,

[Xanz]

Grazie gentilissimo