Sub Btclic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclic1.Click form1.visible = false Form2.visible = true End Sub
Public Class Form2 Private Sub blabla() MsgBox("test qcm") End Sub Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load blabla() End Sub End Class
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyValue = 13 Then form2.blabla() End If End Sub
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress If e.KeyChar = ChrW(13) Then form2.blabla() End If End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyValue = 13 Then Form2.Show() End If End Sub
Form2, je pensais à .show mais ça ne fait rien quand je presse entrée (Form2 est crée mais vide)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Btclic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclic1.Click Label1.Text = "Allons y ! " Form2.Show ' je ne connais pas le bon terme pour me renvoyer à Form2 End Sub
Sub Btclic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclic1.Click Label1.Text = "Allons y ! " Form2.blabla() 'appel du qcm End Sub
Public Class Form2 Shared Sub blabla() End Sub End Class
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub