Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Timer e proprieta' Value di CommandButton

In genere un istruzione del tipo:
Command1.value=true
dove Command1 e' un commandButton, simula la pressione del pulsante con 
relativo scatenamento dell'evento click.
Se l'istruzione in questione si trova pero' a sua volta all'interno di 
un evento Timer di un Timer, l'evento Click non viene eseguito.
E' normale? Sono io che non me ne sono mai accorto?
All'interno del codice di un evento non si puo' scatenare un altro evento?
grazie
	maxx
P.S. Maledetti voi che non mi avete indicato una classe per gli 
istogrammi ... ;-)
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 All'interno del codice di un evento non si puo' scatenare un altro evento?
Ma scrivere una sub e richiamare quella č piů brutto che usare 'sto coso? :P
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 
No, poi lo faro', solo che sto facendo dei test, ho messo alcuni 
parametri + la chiamata alla routine che sto testando dentro l'evento 
click di un pulsante e premo quello per vedere se le modifiche che sto 
facendo funzionano.
In realta' il timer mi serve perche' il resize di un form contenente una 
picture box  contenente delle shape create a runtime con l'istruzione 
load non funziona. Allora pensavo di richiamare la routine che 
visualizza queste shape (barre di un istogramma) con:
- resize abilita il timer
- il timer scatena il click del pulsante
(Ho molta fretta :-(  )
Ovviamente non ho fatto i conti con VB.
ciao
	maxx


 load non funziona.
Sto litigando anch'io con la load.
Pensavo di caricarmi tutti gli oggetti "loadati" a runtime in una collection
in modo da poter farci i For anche con oggetti intermedi rimossi, ma a
quanto pare fare un
Dim c As MyObj
Set c = MyColl(i)
Da un bel Errore 13 anche se i tipi sono gli stessi :(
Proverò a infilare nella collection solo gli indici anzichè l'intero
oggetto.


 All'interno del codice di un evento non si puo' scatenare un altro evento?
No so se ho capito bene la situazione. Comunque:
Private Sub Command1_Click()
MsgBox "ciao"
End Sub
Private Sub Timer1_Timer()
Command1.Value = True
End Sub
Con questo codice l'evento legato al command button viene generato ad ogni
intervallo. E questo che intendevi?

 
Una volta ero piu' volenteroso e almeno ci provavo ad usare certe 
strutture che in teoria vb fornisce.
Pero' sono cosi' tanti i limiti e le stranezze incomprensibili che ormai 
ci ho rinunciato, preferisco scrivere del codice piu' "brutto", ma che 
funziona al primo colpo e che non mi imponga di ricordare che il tal 
metodo funziona con l'oggetto x ma non con quello y... :-(
Si vede che sto invecchiando ...


 
Si', ma nel mio form l'evento non viene generato...
Ovviamente se creo un nuovo progetto, ci metto un command button, un 
picturebox, un timer  e scrivo il seguente codice:
Private Sub Command1_Click()
MsgBox "ciao"
End Sub
Private Sub Picture1_Resize()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
Command1.Value = True
End Sub
Il msgbox appare.
Nel form che mi da problemi, non c'e' molto codice piu' di quello qui 
sopra, ma dopo Command1.Value = True non succede nulla ... :-(
	maxx


 maxx
Si ora ho capito. Scusami ma non avevo afferrato la situazione.

 sopra, ma dopo Command1.Value = True non succede nulla ... :-(
Salvati progetto, form e tutto. Al solo scopo di ridurre il codice, togli
quel che palesemente non c'entra. Quando hai un codice leggero che pure
presenta ancora il problema, pubblicalo. Io credo che tutto dipenda da
qualche sciocchezza che ti sfugge perchè ci stai su da un po'...
Alternativa: fatti un caffè e rileggi il tuo codice...

Il 27/04/2004 23.14, Lupo scrisse:

Sfortunatamente non bevo caffe' e mi sono gia' bevuto una tisana... :-)
VERSION 5.00
Object = "{EE128208-4F73-11D3-83BB-C47C02EE3D01}#1.0#0"; 
"ControlResizer.ocx"
Begin VB.Form frmCurvaAf
    Caption         =   "Form1"
    ClientHeight    =   6480
    ClientLeft      =   60
    ClientTop       =   345
    ClientWidth     =   9825
    LinkTopic       =   "Form1"
    MDIChild        =   -1  'True
    ScaleHeight     =   6480
    ScaleWidth      =   9825
    Begin VB.Timer Timer1
       Enabled         =   0   'False
       Left            =   8760
       Top             =   0
    End
    Begin VB.CommandButton Command1
       Caption         =   "Visualizza"
       Height          =   375
       Left            =   8640
       TabIndex        =   1
       Top             =   480
       Width           =   1095
    End
    Begin VB.PictureBox Picture1
       Appearance      =   0  'Flat
       BackColor       =   &H80000005&
       ForeColor       =   &H80000008&
       Height          =   5415
       Left            =   120
       ScaleHeight     =   5385
       ScaleWidth      =   9585
       TabIndex        =   0
       Top             =   960
       Width           =   9615
       Begin VB.Shape Shape1
          Height          =   1815
          Index           =   0
          Left            =   240
          Top             =   3480
          Visible         =   0   'False
          Width           =   615
       End
    End
    Begin ControlResizer.AutoResizer AutoResizer1
       Height          =   375
       Left            =   9120
       Top             =   0
       Width           =   375
       _ExtentX        =   661
       _ExtentY        =   661
       ResizeFont      =   0   'False
    End
End
Attribute VB_Name = "frmCurvaAf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'---------------------------------------------------------------------------------------
' Module    : frmCurvaAf
' DateTime  : 27/04/2004 18.09
' Author    : maxx
' Purpose   :
'---------------------------------------------------------------------------------------
Option Explicit
Private Sub Disegna(a() As Currency)
'questa e' la routine che dovrebbe venir richiamata dal commnad button
'ho tolto il codice che e' ininfluente, qui il programma non ci arriva !
End Sub
Private Sub Command1_Click()
     Dim a(10) As Currency
     a(0) = 10
     a(3) = 20
     a(7) = 8
     Disegna a
End Sub
Private Sub Form_Load()
     Me.height = 6885: Me.width = 9945
End Sub
Private Sub Form_Unload(Cancel As Integer)
     Set frmCurvaAf = Nothing
End Sub
Private Sub Picture1_Resize()
     Timer1.Interval = 500
     Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
     Timer1.Enabled = False
     DoEvents
     Command1.Enabled = True
End Sub
Niente altro.
Quando faccio il resize del form, resize viene eseguito, Timer viene 
eseguito, Command1.enabled=true viene eseguito, ma command1_click no.
ControlResizer e' un ocx che fa il resize del form.
ciao


 eseguito, Command1.enabled=true viene eseguito, ma command1_click no.
E dove sarebbe l'istruzione che attiva il Command1? <eg>

Il 27/04/2004 23.30, Lupo scrisse:

Sono un cog...ne! :-(
Mi ritiro in penitenza ...
grazie


 Sono un cog...ne! :-(
Mai vantarsi ;-)

Il 27/04/2004 23.35, Lupo scrisse:

Intendi dire che ce ne sono anche altri? :-)
	maxx
P.S. Sono ancora in tempo per cancellare il thread. Ognuno cancella i 
suoi messaggi ... e facciamo come se non fosse successo niente.


 suoi messaggi ... e facciamo come se non fosse successo niente.
Fai come vuoi, ma l'ho già fotocopiato. :-P :-P

 
Figurati che ero arrivato a pensare che la colpa del problema poteva 
essere ESP0DAMA, in esecuzione insieme a VB6!
;-)
	maxx


 essere ESP0DAMA, in esecuzione insieme a VB6!
Vai, vai (andate, andate) che il torrone come lo si fa a CR non lo si fa da
nessuna parte.
Qui lo si gira di piů e meglio. Io, ormai, ho le spalle larghe, ehm, ...
virtuali.

 nessuna parte.
Per il prossimo Natale mi inviti a mangiarlo?
Io porto il panetun de milan!!
notte


 Io porto il panetun de milan!!
Vegni me a milan, cul turon de cremuna. Anca prima de Nadal.

 anzichè l'intero oggetto.
Puoi postare un esempio concreto? Io non ho mai avuto i problemi che
riscontri e faccio uso smodato di collection di oggetti.
Lokar
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org

 riscontri e faccio uso smodato di collection di oggetti.
Ho provato in questo momento a simulare la situazione e ovviamente funziona.
Non vorrei che dipenda da qualcosa nel mio usercontrol indicizzato.
Se riesco a riprodurre la cosa farò sapere.
Ciao

Il 28/04/2004 11.17, Zanna scrisse:

Sara' stata la mia sfiga che ieri sera aveva avvolto anche te!
;-)


 Sara' stata la mia sfiga che ieri sera aveva avvolto anche te!
Forse ieri sera tutti i Load del mondo hanno smesso di funzionare... 
sarà stato un bug nella dll delle date ;)
Ciao

 nessuna parte.
Quest'inverno io ho assaggiato "l'originale torrone di Napoli"...
Ciao

[Zanna = 
circa_z...@virgilio.it
 in
c6nufn$ebnic$
4...@ID-184808.news.uni-berlin.de
] ha scritto:

Beh, anche qui si fa il LupoTorrone e potrebbe essere persino considerato
originale, ma insomma... ;-)
http://www.italianmade.com/foods/subcat30021.cfm

 suoi messaggi ... e facciamo come se non fosse successo niente.
Ti piacerebbe, eh ? :-P
Me lo sono già salvato, e secondo me Wodka lo mette nel bestiario.
Bye, G.

 
Amici!
	maxx
