Anatoli
11-11-2008, 11:32
A questo link trovate il progetto di test a cui sto lavorando con VB 2005EE:
http://snipurl.com/5beyx
E' piccolissimo è un test che mi serve per un'applicazione più grande ma non so proprio dove sia l'errore! :-(
E' un progetto formato da:
1 - form di avvio con questo codice:
Public Class Avvio
Private Sub NuovoToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles NuovoToolStripMenuItem.Click
Dim childForm As New Test()
childForm.MdiParent = Me
childForm.Show()
NuovoToolStripMenuItem.Enabled = False
End Sub
End Class
2 - un form Test.vb con 2 textbox ("comune" e "lavori") e con un button.
Tutto il codice di questo form è:
Public Class Test
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Matrix_test()
ArrTxt_test(0).Text = "Milano"
ArrTxt_test(1).Text = "Costrizione"
End Sub
End Class
3 - un modulo Matrice_CV_test.vb con questo codice:
Module Matrice_CV_test
Public ArrTxt_test(1) As TextBox
Sub Matrix_test()
ArrTxt_test(0) = Test.comune
ArrTxt_test(1) = Test.lavori
End Sub
End Module
Come potete notare, se accedete tramite il menù al form Test e cliccate sul Button1 non succede nulla, mentre si dovrebbero riempire le 2 TextBox.
Dove può essere l'errore?
Se può essere utile ho notato che avviando l'applicazione dal form Test anzichè dal form Avvio (quello che ha il menù), il tutto funziona.
http://snipurl.com/5beyx
E' piccolissimo è un test che mi serve per un'applicazione più grande ma non so proprio dove sia l'errore! :-(
E' un progetto formato da:
1 - form di avvio con questo codice:
Public Class Avvio
Private Sub NuovoToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles NuovoToolStripMenuItem.Click
Dim childForm As New Test()
childForm.MdiParent = Me
childForm.Show()
NuovoToolStripMenuItem.Enabled = False
End Sub
End Class
2 - un form Test.vb con 2 textbox ("comune" e "lavori") e con un button.
Tutto il codice di questo form è:
Public Class Test
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Matrix_test()
ArrTxt_test(0).Text = "Milano"
ArrTxt_test(1).Text = "Costrizione"
End Sub
End Class
3 - un modulo Matrice_CV_test.vb con questo codice:
Module Matrice_CV_test
Public ArrTxt_test(1) As TextBox
Sub Matrix_test()
ArrTxt_test(0) = Test.comune
ArrTxt_test(1) = Test.lavori
End Sub
End Module
Come potete notare, se accedete tramite il menù al form Test e cliccate sul Button1 non succede nulla, mentre si dovrebbero riempire le 2 TextBox.
Dove può essere l'errore?
Se può essere utile ho notato che avviando l'applicazione dal form Test anzichè dal form Avvio (quello che ha il menù), il tutto funziona.