Oppure

Loading
03/03/08 13:18
P4p3r0g4
Big G, il WithEvents serve a rendere l'oggetto fonte di eventi (with - events)?
aaa
03/03/08 13:54
M@d_Hacker
aaa
03/03/08 21:54
organittos
Cmq dopo la vostra discussione:D... Scherzo.. cmq ho capito come fare grazie tante a tutti:k:
aaa
03/03/08 22:25
gantonio
Postato originariamente da P4p3r0g4:

Big G, il WithEvents serve a rendere l'oggetto fonte di eventi (with - events)?


Sì ... il riferimento a MSDN fornito e' per VB.NET/C# ... quello per VB6 e'

msdn2.microsoft.com/en-us/library/…(VS.60).aspx
aaa
06/03/08 11:15
organittos
Private WithEvents Cmd As CommandButton

Private Sub Form_Load()
    Set Cmd = Controls.Add("VB.CommandButton", "Cmd")
    
    Cmd.Width = 2000
    Cmd.Top = 1000
    Cmd.Left = 500
    Cmd.Caption = "Si puo' fare"
    Cmd.Visible = True
End Sub

Private Sub Cmd_click()
    MsgBox "OK"
End Sub


Non capisco perchè non mi funziona per il form:rotfl: sembra strano...
aaa
06/03/08 12:27
gantonio
Postato originariamente da organittos:
Non capisco perchè non mi funziona per il form:rotfl: sembra strano...


Che vuoi dire?
aaa
06/03/08 12:48
organittos
se io modifico il codice per la creazione di commandbutto (immesso da M@d_Hacker), nel codice per la creazione di un form:

Private WithEvents frm As form

Private Sub Form_Load()
Set frm = Controls.Add("VB.Form", "frm";)

frm.Width = 2000
frm.Top = 1000
frm.Left = 500
frm.show
End Sub

il compilatore non mi riconosce la funzione controls per form esattamente qui
" set frm = controls.add("VB.Form","frm) "
Ultima modifica effettuata da organittos 06/03/08 13:15
aaa
06/03/08 13:08
P4p3r0g4
adesso non vorrei dire una cagata ma il il form non è un vero control ma più un container
cioe tecnicamente con quel codice dovrebbe saltarti fuori un form.. dentro ad un'altro form.

PS: hai scritto due codici diversi.
Prendo buono il primo.
Il secondo contiene 2 errori.
Ultima modifica effettuata da P4p3r0g4 06/03/08 13:10
aaa