none
PB DE CODE EXEMPLE LABYRINTHE RRS feed

  • Discussion générale

  • 1 : Nombre de lignes folles Alors qu'une attendue

    2  : Erreur  Que je n'arrive pas à me débarrasser 

    A L'AIDE merci d'avance  

      

    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ 
    Partial Class Form1 
        Inherits System.Windows.Forms.Form     «Formulaire Remplace La Méthode Éliminer verser NETTOYER LA LISTE des Composants.     <System.Diagnostics.DebuggerNonUserCode()> _     Overrides protégées Sous Dispose (ByVal disposing As Boolean)         Essayez             cas d'élimination des composants AndAlso Rien IsNot Puis                 components.Dispose ()             End If         Enfin             MyBase.Dispose (disposing)         End Try     End Sub    'Requise par le Concepteur Windows Form     Private composants Comme System.ComponentModel.IContainer     ' Remarque: la procédure suivante intérêt Requise par le Concepteur Windows Form     'Elle may être de Modifiée à l'aide du Concepteur Windows Form.       'Ne la Modifiez Pas à l'aide de l'éditeur de code.     System.Diagnostics.DebuggerStepThrough <() > _     Private Sub InitializeComponent ()         = Me.Panel1 System.Windows.Forms.Panel Nouveau ()         Me.FinishLabel = Nouveau System.Windows.Forms.Label ()         Me.Label4 = Nouveau System.Windows.Forms.Label ()         Moi . Label3 = Nouveau System.Windows.Forms.Label ()         Me.Label2 = Nouveau System.Windows.Forms.Label ()         = New Me.Label1         =         = Nouvelle System.Drawing.Point (-3, 3)         Me.Panel1.Name = "Panel1"         Me.Panel1.Size = Nouveau System.Drawing.Size (636, 609)         Me.Panel1.TabIndex = 0         '         'FinishLabel         '         Me.FinishLabel.BackColor = System.Drawing.Color.SpringGreen         Me.FinishLabel.Location = Nouveau System.Drawing.Point (395, 475)         Me.FinishLabel.Name = "FinishLabel"         Me.FinishLabel.Size = System.Drawing New. Taille (234, 130)         Me.FinishLabel.TabIndex = 4         Me.FinishLabel.Text = "Terminer"         '         'Label4         '         ​​Me.Label4.BackColor = System.Drawing.Color.RoyalBlue         Me.Label4.Location = Nouveau System.Drawing. Point (330, 156)         Me.Label4.Name = "Label4"         Me.Label4.Size = Nouveau System.Drawing.Size (21, 164)         Me.Label4.TabIndex = 3         '         'Label3         '         Me.Label3.BackColor = Système . Drawing.Color.RoyalBlue         Me.Label3.Location = Nouveau System.Drawing.Point (269, 156)         Me.Label3.Name = "Label3"         Me.Label3.Size = Nouveau System.Drawing.Size (21, 164)         Moi . Label3.TabIndex = 2         '         'Label2         '         Me.Label2.BackColor = System.Drawing.Color.RoyalBlue         Me.Label2.Location = Nouveau System.Drawing.Point (13, 133)         Me.Label2.Name = "Label2"         Moi . Label2.Size = Nouveau System.Drawing.Size (277, 23)         Me.Label2.TabIndex = 1         "         'Label1         '         Me.Label1.BackColor = System.Drawing.Color.RoyalBlue         Me.Label1.Location = Nouveau System.Drawing . point (330, 133)         Me.Label1.Name = "Label1"         Me.Label1.Size = Nouveau System.Drawing.Size (277, 23)         Me.Label1.TabIndex = 0         '         'Form1         '         = Me.AutoScaleDimensions nouveau système . Drawing.SizeF (6,0!, 13,0!)         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font         Me.ClientSize = Nouveau System.Drawing.Size (634, 612)         Me.Controls.Add (Me.Panel1)         Moi . FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D         Me.MaximizeBox = False         Me.Name = "Form1"         Me.Text = "Labyrinthe"         Me.Panel1.ResumeLayout (Faux)         Me.ResumeLayout (False)     End Sub     ami WithEvents Panel1 Comme System.Windows.Forms.Panel     ami WithEvents Label1 Comme System.Windows.Forms.Label     ami FinishLabel WithEvents Comme System.Windows.Forms.Label     ami Label4 WithEvents Comme System.Windows.Forms.Label     ami Label3 WithEvents Comme System.Windows.Forms . Étiquette     ami WithEvents Label2 Comme System.Windows.Forms.Label     privé Label1_Click Sub (sender System.Object, ByVal e As System.EventArgs) Handles Label1.Click     End Sub     Public Sub New ()         'This is appel Requis par le concepteur .         InitializeComponent ()         MoveToStart ()         'Ajoutez juin initialisation quelconque l'après l'appel InitializeComponent ().     End Sub     Private Sub FinishLabel_MouseEnter (sender System.Object, ByVal e As System.EventArgs) Handles FinishLabel.MouseEnter         MessageBox.Show ("félicitations »)         Close ()     End Sub     '' '<summary>     '' '      '' '</ summary>     '' '<remarks> </ remarks>    MoveToStart Private Sub ()         Dim startingpoint = Panel1.Location         StartingPoint.Offset (10, 10)         Cursor.Position = PointToScreen (startingpoint) End Sub. Classe Fin 
    • Type modifié Aurel Bera vendredi 28 septembre 2012 07:06 Pas de reponse
    dimanche 23 septembre 2012 09:00

Toutes les réponses

  • BONJOUR,

    Je n'ai rien compris.

    Merci d'expliquer votre problème correctement et de formater votre code à l'aide des boutons d'édition disponibles.

    Cordialement.


    N'hésitez pas à poser des questions si un problème subsiste ou quelque chose n'est pas clair. Dans l'autre cas, veuillez indiquer que le problème est résolu. Un problème mal expliqué amène à une solution partielle. Contact

    dimanche 23 septembre 2012 16:28
  • 1ere anomalie : J'ai fait l'exemple du Labyrinthe .Au lieue d'une

    ligne de code en automatique ça m'a sorti toutes ces lignes mais

    ça fonctionne maintenant que j'ai fait la 2eme partie ça me marque

    une erreur que je n'arrive pas à resoudre

    merci de votre contribution

    cordialement Dan

    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class Form1 Inherits System.Windows.Forms.Form 'Form remplace la méthode Dispose pour nettoyer la liste des composants. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Requise par le Concepteur Windows Form Private components As System.ComponentModel.IContainer 'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form 'Elle peut être modifiée à l'aide du Concepteur Windows Form. 'Ne la modifiez pas à l'aide de l'éditeur de code. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.Panel1 = New System.Windows.Forms.Panel() Me.FinishLabel = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.Panel1.SuspendLayout() Me.SuspendLayout() ' 'Panel1 ' Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.Panel1.Controls.Add(Me.FinishLabel) Me.Panel1.Controls.Add(Me.Label4) Me.Panel1.Controls.Add(Me.Label3) Me.Panel1.Controls.Add(Me.Label2) Me.Panel1.Controls.Add(Me.Label1) Me.Panel1.Location = New System.Drawing.Point(-3, 3) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(636, 609) Me.Panel1.TabIndex = 0 ' 'FinishLabel ' Me.FinishLabel.BackColor = System.Drawing.Color.SpringGreen Me.FinishLabel.Location = New System.Drawing.Point(395, 475) Me.FinishLabel.Name = "FinishLabel" Me.FinishLabel.Size = New System.Drawing.Size(234, 130) Me.FinishLabel.TabIndex = 4 Me.FinishLabel.Text = "Finish" ' 'Label4 ' Me.Label4.BackColor = System.Drawing.Color.RoyalBlue Me.Label4.Location = New System.Drawing.Point(330, 156) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(21, 164) Me.Label4.TabIndex = 3 ' 'Label3 ' Me.Label3.BackColor = System.Drawing.Color.RoyalBlue Me.Label3.Location = New System.Drawing.Point(269, 156) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(21, 164) Me.Label3.TabIndex = 2 ' 'Label2 ' Me.Label2.BackColor = System.Drawing.Color.RoyalBlue Me.Label2.Location = New System.Drawing.Point(13, 133) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(277, 23) Me.Label2.TabIndex = 1 ' 'Label1 ' Me.Label1.BackColor = System.Drawing.Color.RoyalBlue Me.Label1.Location = New System.Drawing.Point(330, 133) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(277, 23) Me.Label1.TabIndex = 0 ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(634, 612) Me.Controls.Add(Me.Panel1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D Me.MaximizeBox = False Me.Name = "Form1" Me.Text = "Labyrinthe" Me.Panel1.ResumeLayout(False) Me.ResumeLayout(False) End Sub Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents FinishLabel As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Public Sub New() ' Cet appel est requis par le concepteur. InitializeComponent() MoveToStart() ' Ajoutez une initialisation quelconque après l'appel InitializeComponent(). End Sub Private Sub FinishLabel_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FinishLabel.MouseEnter MessageBox.Show("felicitations") Close() End Sub ''' <summary> ''' ''' </summary> ''' <remarks></remarks> Private Sub MoveToStart() Dim StartingPoint = Panel1.Location StartingPoint.Offset(10, 10) Cursor.Position = PointToScreen(StartingPoint) End Sub. End Class


    • Fusionné Michel K lundi 24 septembre 2012 16:14 Doublon
    lundi 24 septembre 2012 15:08
  • Bonjour,

    Quel est votre code source ? Ce code est généré automatiquement par Visual Studio et ne doit pas être modifié.

    Si il apparaît suite à une erreur, il nous faut la ligne concernée par cette erreur dans votre code.

    De plus, quelle est cette erreur ?

    Cordialement.


    N'hésitez pas à poser des questions si un problème subsiste ou quelque chose n'est pas clair. Dans l'autre cas, veuillez indiquer que le problème est résolu. Un problème mal expliqué amène à une solution partielle. Contact

    lundi 24 septembre 2012 16:20
  • Bonjour,

    Nous changeons le type de votre question à « Discussion générale » parce que vous n’êtes pas revenu avec les informations sollicitées. Si vous avez plus de temps pour réexaminer la question et fournir plus d'informations, n'hésitez pas à modifier le type du thread à « Question ». Si le problème est résolu, s’il vous plaît partagez la solution avec nous afin que la réponse puisse être trouvée et utilisée par d'autres membres de la communauté ayant des questions similaires.

    Merci !

    Cordialement,

    Aurel


    Aurel BERA, Microsoft
    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

    vendredi 28 septembre 2012 07:05