Problème avec visual basic .net, usercontrol, validating/enter event

Problème avec visual basic .net, usercontrol, validating/enter event - VB/VBA/VBS - Programmation

Marsh Posté le 10-07-2008 à 02:54:10    

voici mon problème
 
dans le code plus bas, l'event enter est exécuté même si après le messsage box, il y a un e.cancel = true
 
si j'enlève le message box qui est avant le e.cancel pour le mettre après, l'event enter n'est pas executé
 
mon problème est que je dois poser une question via un message box et décider si je dois mettre e.cancel a true ou non
 

Code :
  1. Public Class Form1
  2.     Inherits Form
  4.     Public Sub New()
  5.         InitializeComponent()
  6.     End Sub
  8.     Protected Overrides Sub Finalize()
  9.         MyBase.Finalize()
  10.     End Sub
  12.     <System.Diagnostics.DebuggerNonUserCode()> _
  13.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  14.         Try
  15.             If disposing AndAlso components IsNot Nothing Then
  16.                 components.Dispose()
  17.             End If
  18.         Finally
  19.             MyBase.Dispose(disposing)
  20.         End Try
  21.     End Sub
  23.     Private components As System.ComponentModel.IContainer
  25.     <System.Diagnostics.DebuggerStepThrough()> _
  26.     Private Sub InitializeComponent()
  27.         Me.Class12 = New WindowsApplication1.Class1
  28.         Me.Class11 = New WindowsApplication1.Class1
  29.         Me.SuspendLayout()
  31.         Me.Class12.Location = New System.Drawing.Point(192, 67)
  32.         Me.Class12.Name = "Class12"
  33.         Me.Class12.Size = New System.Drawing.Size(143, 59)
  34.         Me.Class12.TabIndex = 1
  36.         Me.Class11.Location = New System.Drawing.Point(44, 43)
  37.         Me.Class11.Name = "Class11"
  38.         Me.Class11.Size = New System.Drawing.Size(142, 83)
  39.         Me.Class11.TabIndex = 0
  41.         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
  42.         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
  43.         Me.ClientSize = New System.Drawing.Size(484, 273)
  44.         Me.Controls.Add(Me.Class12)
  45.         Me.Controls.Add(Me.Class11)
  46.         Me.Name = "Form1"
  47.         Me.Text = "Form1"
  48.         Me.ResumeLayout(False)
  50.     End Sub
  51.     Friend WithEvents Class11 As WindowsApplication1.Class1
  52.     Friend WithEvents Class12 As WindowsApplication1.Class1
  53. End Class
  56. Public Class Class1
  57.     Inherits UserControl
  59.     Private Sub InitializeComponent()
  60.         Me.Panel1 = New System.Windows.Forms.Panel
  61.         Me.TextBox1 = New System.Windows.Forms.TextBox
  62.         Me.Panel1.SuspendLayout()
  63.         Me.SuspendLayout()
  65.         Me.Panel1.Controls.Add(Me.TextBox1)
  66.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
  67.         Me.Panel1.Location = New System.Drawing.Point(0, 0)
  68.         Me.Panel1.Name = "Panel1"
  69.         Me.Panel1.Size = New System.Drawing.Size(150, 150)
  70.         Me.Panel1.TabIndex = 2
  72.         Me.TextBox1.Location = New System.Drawing.Point(9, 18)
  73.         Me.TextBox1.Multiline = True
  74.         Me.TextBox1.Name = "TextBox1"
  75.         Me.TextBox1.Size = New System.Drawing.Size(116, 20)
  76.         Me.TextBox1.TabIndex = 0
  78.         Me.Controls.Add(Me.Panel1)
  79.         Me.Name = "Class1"
  80.         Me.Panel1.ResumeLayout(False)
  81.         Me.Panel1.PerformLayout()
  82.         Me.ResumeLayout(False)
  84.     End Sub
  85.     Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
  86.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  88.     Private Sub Panel1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.Enter
  89.         TextBox1.Dock = DockStyle.Fill
  90.     End Sub
  92.     Private Sub Panel1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.Leave
  93.         TextBox1.Dock = DockStyle.None
  94.     End Sub
  96.     Private Sub Panel1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Panel1.Validating
  97.         If TextBox1.Text = "ok" Then
  99.             'ne fonctionne  pas
  100.             MsgBox("no" )
  102.             TextBox1.Focus()
  103.             e.Cancel = True
  105.             'fonctionne
  106.             'MsgBox("no" )
  107.         End If
  109.     End Sub
  111.     Public Sub New()
  112.         InitializeComponent()
  113.     End Sub
  114. End Class

Reply

Marsh Posté le 10-07-2008 à 02:54:10   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed