Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
982 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1757635
spirch
Posté le 10-07-2008 à 02:54:10  profilanswer
 

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

mood
Publicité
Posté le 10-07-2008 à 02:54:10  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
probléme $_SESSION dans IE7Problème variable
4875+0.2332 = 4875.233398 problème précision float?probleme de passage de parametre avec accent.
probleme de conenxion a phpmyadminprobleme menu deroulant IE/firefox
problème flash/actionscriptProbleme VBA
Problème de daterequete à problème
Plus de sujets relatifs à : Problème avec visual basic .net, usercontrol, validating/enter event

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.066 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR