Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


Erreur inderminée [RESOLU]

Partagez
avatar
gipse
Habitué
Habitué

Masculin Nombre de messages : 575
Localisation : en face de mon voisin
Emploi/loisirs : informatique, SZ
Humeur : je suis heureux grace a SZ !
Date d'inscription : 19/01/2011

Erreur inderminée [RESOLU]

Message par gipse le Mar 15 Mar 2011 - 12:12

Voila donc erreur inderminée :
2 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"D:\Documents and Settings\maxou\Mes documents\Mes Projets SoftwareZator\deskop\Bin\ArgentDePoche.manifest"'; non reconnue ignorée
3 - Line 355, Column 0, Error BC30183 : Mot clé non valide en tant qu'identificateur.
Merci de vos réponse Very Happy
Gipse


Dernière édition par gipse le Mer 16 Mar 2011 - 12:32, édité 1 fois



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.forumotion.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr
avatar
lereparateurdepc


Masculin Nombre de messages : 5575
Age : 25
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: Erreur inderminée [RESOLU]

Message par lereparateurdepc le Mar 15 Mar 2011 - 17:37

re ,

Bon , camme ça je ne peut rien dire ....

Quelles modifications ont entrainées cette erreur de génération ?

Cordialement ,
Le répatateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
gipse
Habitué
Habitué

Masculin Nombre de messages : 575
Localisation : en face de mon voisin
Emploi/loisirs : informatique, SZ
Humeur : je suis heureux grace a SZ !
Date d'inscription : 19/01/2011

Re: Erreur inderminée [RESOLU]

Message par gipse le Mar 15 Mar 2011 - 23:13

Ben en fait c'est bizarre je vien de viré toute les fonction de la seul fenêtre de mon log et il y a quand meme... Crying or Very sad Crying or Very sad Crying or Very sad Crying or Very sad Crying or Very sad
Gipse Sad



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.forumotion.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr
avatar
Admin
Administrateur
Administrateur

Masculin Nombre de messages : 1882
Age : 26
Localisation : Boulogne Billancourt(92100)(France)
Emploi/loisirs : Software Development Engineer
Date d'inscription : 24/01/2008

Re: Erreur inderminée [RESOLU]

Message par Admin le Mer 16 Mar 2011 - 5:36

Bonjour,

Peux-tu mettre tout le contenu du rapport s'il te plait? Smile



Les 4 règles d'or du forum : Bonjour, Merci, Pas de SMS, Et un petit "[RESOLU]" dans le titre du sujet quand le problème est réglé. Wink

Etienne

Site internet : http://www.velersoftware.com
Twitter : http://twitter.com/VelerSoftware
avatar
gipse
Habitué
Habitué

Masculin Nombre de messages : 575
Localisation : en face de mon voisin
Emploi/loisirs : informatique, SZ
Humeur : je suis heureux grace a SZ !
Date d'inscription : 19/01/2011

Re: Erreur inderminée [RESOLU]

Message par gipse le Mer 16 Mar 2011 - 10:55

Rapport entier ? D'accord...
Code:
Last build the mercredi 16 mars 2011 at 11:54

Building failed : errors number: 2
File code : F:\programmes\Veler Software\Veler Software\SoftwareZator 2011\Temp\Code.vb

Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : WindowsForm1.szw
SplashScreen :
Optimize : True
----------------------------------------------------------------
    2 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"D:\Documents and Settings\maxou\Mes documents\Mes Projets SoftwareZator\deskop\Bin\ArgentDePoche.manifest"'; non reconnue ignorée
    3 - Line 356, Column 0, Error BC30183 : Mot clé non valide en tant qu'identificateur.
----------------------------------------------------------------

' NOTE :
' TOUTES MODIFICATIONS APPORTEES A CE FICHIER CODE NE SERONT PAS PRISES EN COMPTE LORS DE LA REGENERATION DU PROJET.

'------------------------------------------------------------------------------
' <auto-generated>
'    Ce code a été généré par un outil.
'    Version du runtime :2.0.50727.3615
'
'    Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
'    le code est régénéré.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System

Imports System.ComponentModel

Imports System.Windows.Forms

<Assembly: Reflection.AssemblyTitle("deskop")>
<Assembly: Reflection.AssemblyDescription("")>
<Assembly: Reflection.AssemblyCompany("")>
<Assembly: Reflection.AssemblyProduct("")>
<Assembly: Reflection.AssemblyCopyright("Copyright © 2011")>
<Assembly: Reflection.AssemblyTrademark("")>
<Assembly: Reflection.AssemblyVersion("1.0.0.0")>
<Assembly: Reflection.AssemblyFileVersion("1.0.0.0")>
<Assembly: Runtime.InteropServices.ComVisible(True)>


'Ce Namespace a été généré par SoftwareZator 2011 Edition Standard (2.0.0.0)
Namespace ArgentDePoche
   
    Public Class WindowsForm1_f
        Inherits System.Windows.Forms.Form
       
        Public WithEvents label1 As System.Windows.Forms.Label
       
        Public WithEvents groupBox1 As System.Windows.Forms.GroupBox
       
        Public WithEvents button1 As System.Windows.Forms.Button
       
        Public WithEvents textBox1 As System.Windows.Forms.TextBox
       
        Public WithEvents groupBox2 As System.Windows.Forms.GroupBox
       
        Public WithEvents groupBox3 As System.Windows.Forms.GroupBox
       
        Public WithEvents button5 As System.Windows.Forms.Button
       
        Public WithEvents comboBox1 As System.Windows.Forms.ComboBox
       
        Public WithEvents textBox3 As System.Windows.Forms.TextBox
       
        Public WithEvents button4 As System.Windows.Forms.Button
       
        Public WithEvents button3 As System.Windows.Forms.Button
       
        Public WithEvents button2 As System.Windows.Forms.Button
       
        Public WithEvents textBox2 As System.Windows.Forms.TextBox
       
        Public WithEvents groupBox4 As System.Windows.Forms.GroupBox
       
        Public WithEvents label4 As System.Windows.Forms.Label
       
        Public WithEvents label5 As System.Windows.Forms.Label
       
        Public WithEvents label3 As System.Windows.Forms.Label
       
        Public WithEvents label2 As System.Windows.Forms.Label
       
        Public WithEvents dateTimePicker1 As System.Windows.Forms.DateTimePicker
       
        Public WithEvents components As System.ComponentModel.IContainer
       
        Public Sub New()
            MyBase.New
            Me.InitializeComponent
        End Sub
       
        Private Sub InitializeComponent()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(WindowsForm1_f))
            Me.label1 = New System.Windows.Forms.Label
            Me.groupBox1 = New System.Windows.Forms.GroupBox
            Me.button1 = New System.Windows.Forms.Button
            Me.textBox1 = New System.Windows.Forms.TextBox
            Me.groupBox2 = New System.Windows.Forms.GroupBox
            Me.groupBox3 = New System.Windows.Forms.GroupBox
            Me.button5 = New System.Windows.Forms.Button
            Me.comboBox1 = New System.Windows.Forms.ComboBox
            Me.textBox3 = New System.Windows.Forms.TextBox
            Me.button4 = New System.Windows.Forms.Button
            Me.button3 = New System.Windows.Forms.Button
            Me.button2 = New System.Windows.Forms.Button
            Me.textBox2 = New System.Windows.Forms.TextBox
            Me.groupBox4 = New System.Windows.Forms.GroupBox
            Me.label4 = New System.Windows.Forms.Label
            Me.label5 = New System.Windows.Forms.Label
            Me.label3 = New System.Windows.Forms.Label
            Me.label2 = New System.Windows.Forms.Label
            Me.dateTimePicker1 = New System.Windows.Forms.DateTimePicker
            Me.groupBox1.SuspendLayout
            Me.groupBox2.SuspendLayout
            Me.groupBox3.SuspendLayout
            Me.groupBox4.SuspendLayout
            Me.SuspendLayout
            '
            'label1
            '
            Me.label1.Location = New System.Drawing.Point(6, 18)
            Me.label1.Name = "label1"
            Me.label1.Size = New System.Drawing.Size(100, 23)
            Me.label1.TabIndex = 0
            Me.label1.Text = "Mot de passe:"
            '
            'groupBox1
            '
            Me.groupBox1.Controls.Add(Me.button1)
            Me.groupBox1.Controls.Add(Me.textBox1)
            Me.groupBox1.Controls.Add(Me.label1)
            Me.groupBox1.Location = New System.Drawing.Point(1, 0)
            Me.groupBox1.Name = "groupBox1"
            Me.groupBox1.Size = New System.Drawing.Size(175, 65)
            Me.groupBox1.TabIndex = 1
            Me.groupBox1.TabStop = false
            Me.groupBox1.Text = "connection"
            '
            'button1
            '
            Me.button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer))
            Me.button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.button1.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
            Me.button1.Location = New System.Drawing.Point(148, 32)
            Me.button1.Name = "button1"
            Me.button1.Size = New System.Drawing.Size(27, 22)
            Me.button1.TabIndex = 2
            Me.button1.Text = "Ok"
            Me.button1.UseVisualStyleBackColor = false
            '
            'textBox1
            '
            Me.textBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer))
            Me.textBox1.ForeColor = System.Drawing.Color.Black
            Me.textBox1.Location = New System.Drawing.Point(6, 32)
            Me.textBox1.Name = "textBox1"
            Me.textBox1.Size = New System.Drawing.Size(144, 22)
            Me.textBox1.TabIndex = 1
            Me.textBox1.UseSystemPasswordChar = true
            '
            'groupBox2
            '
            Me.groupBox2.Controls.Add(Me.groupBox3)
            Me.groupBox2.Controls.Add(Me.button4)
            Me.groupBox2.Controls.Add(Me.button3)
            Me.groupBox2.Controls.Add(Me.button2)
            Me.groupBox2.Controls.Add(Me.textBox2)
            Me.groupBox2.Enabled = false
            Me.groupBox2.Location = New System.Drawing.Point(182, 0)
            Me.groupBox2.Name = "groupBox2"
            Me.groupBox2.Size = New System.Drawing.Size(326, 133)
            Me.groupBox2.TabIndex = 2
            Me.groupBox2.TabStop = false
            Me.groupBox2.Text = "Argent"
            '
            'groupBox3
            '
            Me.groupBox3.Controls.Add(Me.button5)
            Me.groupBox3.Controls.Add(Me.comboBox1)
            Me.groupBox3.Controls.Add(Me.textBox3)
            Me.groupBox3.Location = New System.Drawing.Point(179, 88)
            Me.groupBox3.Name = "groupBox3"
            Me.groupBox3.Size = New System.Drawing.Size(141, 39)
            Me.groupBox3.TabIndex = 5
            Me.groupBox3.TabStop = false
            Me.groupBox3.Text = "Autre"
            '
            'button5
            '
            Me.button5.BackColor = System.Drawing.Color.FromArgb(CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer))
            Me.button5.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.button5.Font = New System.Drawing.Font("Segoe UI", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
            Me.button5.Location = New System.Drawing.Point(108, 12)
            Me.button5.Name = "button5"
            Me.button5.Size = New System.Drawing.Size(27, 22)
            Me.button5.TabIndex = 2
            Me.button5.Text = "Ok"
            Me.button5.UseVisualStyleBackColor = false
            '
            'comboBox1
            '
            Me.comboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer))
            Me.comboBox1.ForeColor = System.Drawing.Color.Black
            Me.comboBox1.FormattingEnabled = true
            Me.comboBox1.Items.AddRange(New Object() {"+", "-"})
            Me.comboBox1.Location = New System.Drawing.Point(6, 12)
            Me.comboBox1.Name = "comboBox1"
            Me.comboBox1.Size = New System.Drawing.Size(40, 21)
            Me.comboBox1.TabIndex = 0
            '
            'textBox3
            '
            Me.textBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer))
            Me.textBox3.ForeColor = System.Drawing.Color.Black
            Me.textBox3.Location = New System.Drawing.Point(47, 12)
            Me.textBox3.Name = "textBox3"
            Me.textBox3.Size = New System.Drawing.Size(64, 22)
            Me.textBox3.TabIndex = 1
            '
            'button4
            '
            Me.button4.Location = New System.Drawing.Point(7, 89)
            Me.button4.Name = "button4"
            Me.button4.Size = New System.Drawing.Size(165, 38)
            Me.button4.TabIndex = 4
            Me.button4.Text = "Bonne note"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"(+10)"
            Me.button4.UseVisualStyleBackColor = true
            '
            'button3
            '
            Me.button3.Location = New System.Drawing.Point(179, 46)
            Me.button3.Name = "button3"
            Me.button3.Size = New System.Drawing.Size(141, 36)
            Me.button3.TabIndex = 3
            Me.button3.Text = "Croix "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"(-10)"
            Me.button3.UseVisualStyleBackColor = true
            '
            'button2
            '
            Me.button2.Location = New System.Drawing.Point(6, 46)
            Me.button2.Name = "button2"
            Me.button2.Size = New System.Drawing.Size(166, 36)
            Me.button2.TabIndex = 2
            Me.button2.Text = "Nouvelle semaine sans croix"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"(+10)"
            Me.button2.UseVisualStyleBackColor = true
            '
            'textBox2
            '
            Me.textBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer))
            Me.textBox2.Enabled = false
            Me.textBox2.ForeColor = System.Drawing.Color.Black
            Me.textBox2.Location = New System.Drawing.Point(6, 15)
            Me.textBox2.Name = "textBox2"
            Me.textBox2.Size = New System.Drawing.Size(314, 22)
            Me.textBox2.TabIndex = 1
            Me.textBox2.UseSystemPasswordChar = true
            '
            'groupBox4
            '
            Me.groupBox4.Controls.Add(Me.label4)
            Me.groupBox4.Controls.Add(Me.label5)
            Me.groupBox4.Controls.Add(Me.label3)
            Me.groupBox4.Controls.Add(Me.label2)
            Me.groupBox4.Enabled = false
            Me.groupBox4.Location = New System.Drawing.Point(1, 133)
            Me.groupBox4.Name = "groupBox4"
            Me.groupBox4.Size = New System.Drawing.Size(507, 84)
            Me.groupBox4.TabIndex = 3
            Me.groupBox4.TabStop = false
            Me.groupBox4.Text = "Actualisation"
            '
            'label4
            '
            Me.label4.Location = New System.Drawing.Point(6, 56)
            Me.label4.Name = "label4"
            Me.label4.Size = New System.Drawing.Size(261, 23)
            Me.label4.TabIndex = 0
            '
            'label5
            '
            Me.label5.Location = New System.Drawing.Point(273, 56)
            Me.label5.Name = "label5"
            Me.label5.Size = New System.Drawing.Size(228, 23)
            Me.label5.TabIndex = 0
            '
            'label3
            '
            Me.label3.Location = New System.Drawing.Point(273, 18)
            Me.label3.Name = "label3"
            Me.label3.Size = New System.Drawing.Size(228, 23)
            Me.label3.TabIndex = 0
            '
            'label2
            '
            Me.label2.Location = New System.Drawing.Point(6, 18)
            Me.label2.Name = "label2"
            Me.label2.Size = New System.Drawing.Size(261, 23)
            Me.label2.TabIndex = 0
            '
            'dateTimePicker1
            '
            Me.dateTimePicker1.CalendarForeColor = System.Drawing.Color.Black
            Me.dateTimePicker1.CalendarMonthBackground = System.Drawing.Color.FromArgb(CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer))
            Me.dateTimePicker1.CalendarTitleBackColor = System.Drawing.Color.FromArgb(CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer))
            Me.dateTimePicker1.CalendarTitleForeColor = System.Drawing.Color.Black
            Me.dateTimePicker1.CalendarTrailingForeColor = System.Drawing.Color.Black
            Me.dateTimePicker1.Enabled = false
            Me.dateTimePicker1.Location = New System.Drawing.Point(1, 71)
            Me.dateTimePicker1.Name = "dateTimePicker1"
            Me.dateTimePicker1.Size = New System.Drawing.Size(175, 22)
            Me.dateTimePicker1.TabIndex = 4
            Me.dateTimePicker1.Value = New Date(2011, 3, 14, 0, 0, 0, 0)
            '
            'WindowsForm1
            '
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Inherit
            Me.BackColor = System.Drawing.Color.White
            Me.ClientSize = New System.Drawing.Size(520, 221)
            Me.Controls.Add(Me.dateTimePicker1)
            Me.Controls.Add(Me.groupBox4)
            Me.Controls.Add(Me.groupBox2)
            Me.Controls.Add(Me.groupBox1)
            Me.ForeColor = System.Drawing.Color.Black
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
            Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
            Me.MaximizeBox = false
            Me.MinimizeBox = false
            Me.Name = "WindowsForm1"
            Me.Text = "Argent De Poche"
            Me.TransparencyKey = System.Drawing.Color.White
            Me.groupBox1.ResumeLayout(false)
            Me.groupBox1.PerformLayout
            Me.groupBox2.ResumeLayout(false)
            Me.groupBox2.PerformLayout
            Me.groupBox3.ResumeLayout(false)
            Me.groupBox3.PerformLayout
            Me.groupBox4.ResumeLayout(false)
            Me.ResumeLayout(false)
        End Sub
       
        <System.STAThreadAttribute()>  _
        Public Shared Sub Main()
            System.Windows.Forms.Application.EnableVisualStyles()
If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5", "Version", Nothing) Is Nothing Then
System.Windows.Forms.MessageBox.Show("The .Net Framework 3.5 was not found. ArgentDePoche can't start without it. Please install the .Net Framework 3.5 and try again.", "deskop", MessageBoxButtons.OK, MessageBoxIcon.Error)
System.Diagnostics.Process.Start("http://www.microsoft.com/downloads/details.aspx?FamilyId=333325FD-AE52-4E35-B531-508D977D32A6&displaylang=fr")
End
End If
My.Resources.Culture = Globalization.CultureInfo.InvariantCulture : My.Resources.Culture = My.Resources.Culture
System.Windows.Forms.Application.SetCompatibleTextRenderingDefault(False)
For Each arg As String In System.Environment.GetCommandLineArgs
If Not arg = System.Windows.Forms.Application.ExecutablePath Then
Redim Preserve ALL_ARGUMENTS_APPLICATIONS(ALL_ARGUMENTS_APPLICATIONS.Length) : ALL_ARGUMENTS_APPLICATIONS(ALL_ARGUMENTS_APPLICATIONS.Length - 1) = arg
End If
Next
System.Windows.Forms.Application.Run(New WindowsForm1_f)
        End Sub
    End Class

    Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_SOFTWAREZATOR_VARIABLES
        Public VARIABLES_SOFTWAREZATOR_CURRENT_PLUGIN_VARIABLES As String
        Public argent As Object '
        Public date As Object '
        Public l1 As Object '
        Public l2 As Object '
        Public l3 As Object '
        Public l4 As Object '
        Public mdp As Object '
        Public mdpentré As Object '
        Public ALL_ARGUMENTS_APPLICATIONS() As Object = New Object(-1){}
        Public ALLUSERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("ALLUSERPROFILE"))
        Public APPDATA As Object = CStr(Environment.GetEnvironmentVariable("APPDATA"))
        Public CLASSPATH As Object = CStr(Environment.GetEnvironmentVariable("CLASSPATH"))
        Public CommonProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("CommonProgramFiles"))
        Public COMPUTERNAME As Object = CStr(Environment.GetEnvironmentVariable("COMPUTERNAME"))
        Public ComSpec As Object = CStr(Environment.GetEnvironmentVariable("ComSpec"))
        Public FP_NO_HOST_CHECK As Object = CStr(Environment.GetEnvironmentVariable("FP_NO_HOST_CHECK"))
        Public HOMEDRIVE As Object = CStr(Environment.GetEnvironmentVariable("HOMEDRIVE"))
        Public HOMEPATH As Object = CStr(Environment.GetEnvironmentVariable("HOMEPATH"))
        Public LOCALAPPDATA As Object = CStr(Environment.GetEnvironmentVariable("LOCALAPPDATA"))
        Public LOGONSERVER As Object = CStr(Environment.GetEnvironmentVariable("LOGONSERVER"))
        Public NUMBER_OF_PROCESSORS As Object = CStr(Environment.GetEnvironmentVariable("NUMBER_OF_PROCESSORS"))
        Public OS As Object = CStr(Environment.GetEnvironmentVariable("OS"))
        Public PATH As Object = CStr(Environment.GetEnvironmentVariable("PATH"))
        Public PATHEXT As Object = CStr(Environment.GetEnvironmentVariable("PATHEXT"))
        Public PROCESSOR_ARCHITECTURE As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE"))
        Public PROCESSOR_IDENTIFIER As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_IDENTIFIER"))
        Public PROCESSOR_LEVEL As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_LEVEL"))
        Public PROCESSOR_REVISION As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_REVISION"))
        Public ProgramData As Object = CStr(Environment.GetEnvironmentVariable("ProgramData"))
        Public ProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("ProgramFiles"))
        Public [PUBLIC] As Object = CStr(Environment.GetEnvironmentVariable("PUBLIC"))
        Public SESSIONNAME As Object = CStr(Environment.GetEnvironmentVariable("SESSIONNAME"))
        Public SystemDrive As Object = CStr(Environment.GetEnvironmentVariable("SystemDrive"))
        Public SystemRoot As Object = CStr(Environment.GetEnvironmentVariable("SystemRoot"))
        Public TEMP As Object = CStr(Environment.GetEnvironmentVariable("TEMP"))
        Public TMP As Object = CStr(Environment.GetEnvironmentVariable("TMP"))
        Public USERDOMAIN As Object = CStr(Environment.GetEnvironmentVariable("USERDOMAIN"))
        Public USERNAME As Object = CStr(Environment.GetEnvironmentVariable("USERNAME"))
        Public USERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("USERPROFILES"))
        Public windir As Object = CStr(Environment.GetEnvironmentVariable("windir"))
    End Module

    Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_FORMS_SOFTWAREZATOR_VARIABLES
Private _WindowsForm1 As WindowsForm1_f = New WindowsForm1_f
Public Property WindowsForm1 As WindowsForm1_f
Get
Return _WindowsForm1
End Get
Set(ByVal value As WindowsForm1_f)
_WindowsForm1 = value
End Set
End Property
    End Module



    Partial Public Class WindowsForm1_f

 Public Sub WindowsForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
Try
argent = My.Computer.FileSystem.ReadAllText("" & Application.StartupPath & "\Argent.txt", System.Text.Encoding.Default)
Me.textBox2.Text = "" & argent & ""
l1 = My.Computer.FileSystem.ReadAllText("" & Application.StartupPath & "\Label1.txt", System.Text.Encoding.Default)
Me.label2.Text = "" & l1 & ""
l2 = My.Computer.FileSystem.ReadAllText("" & Application.StartupPath & "\Label2.txt", System.Text.Encoding.Default)
Me.label3.Text = "" & l2 & ""
l3 = My.Computer.FileSystem.ReadAllText("" & Application.StartupPath & "\Label3.txt", System.Text.Encoding.Default)
Me.label4.Text = "" & l3 & ""
l4 = My.Computer.FileSystem.ReadAllText("" & Application.StartupPath & "\Label4.txt", System.Text.Encoding.Default)
Me.label5.Text = "" & l4 & ""
mdp = My.Computer.FileSystem.ReadAllText("" & Application.StartupPath & "\Mot de passe.txt", System.Text.Encoding.Default)
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "ArgentDePoche", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button1.Click
Try
mdpentré = Me.textBox1.Text
If mdpentré = "" & mdp & "" Then
Me.groupBox2.Enabled = true
Me.groupBox1.Enabled = false
Else
 System.Windows.Forms.MessageBox.Show("Perdu, essaye encore !" & System.Environment.NewLine & ":P", "ArgentDePoche", MessageBoxButtons.OK, MessageBoxIcon.Error).ToString
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "ArgentDePoche", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

    End Class

End Namespace

Namespace My.Resources

    'Cette classe a été générée automatiquement par la classe StronglyTypedResourceBuilder.
    '''<summary>
    '''  Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
    '''</summary>
    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
    Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
    Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
    Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
    Public Module Resources

        Private resourceMan As Global.System.Resources.ResourceManager

        Private resourceCulture As Global.System.Globalization.CultureInfo

        '''<summary>
        '''  Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
        '''</summary>
        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Public ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
            Get
                If Object.ReferenceEquals(resourceMan, Nothing) Then
                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ArgentDePoche.Resources", GetType(Resources).Assembly)
                    resourceMan = temp
                End If
                Return resourceMan
            End Get
        End Property

        '''<summary>
        '''  Remplace la propriété CurrentUICulture du thread actuel pour toutes
        '''  les recherches de ressources à l'aide de cette classe de ressource fortement typée.
        '''</summary>
        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Public Property Culture() As Global.System.Globalization.CultureInfo
            Get
                Return resourceCulture
            End Get
            Set(ByVal value As Global.System.Globalization.CultureInfo)
                resourceCulture = value
            End Set
        End Property


End Module
End Namespace
Merci,
Gipse Smile



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.forumotion.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr
avatar
Admin
Administrateur
Administrateur

Masculin Nombre de messages : 1882
Age : 26
Localisation : Boulogne Billancourt(92100)(France)
Emploi/loisirs : Software Development Engineer
Date d'inscription : 24/01/2008

Re: Erreur inderminée [RESOLU]

Message par Admin le Mer 16 Mar 2011 - 11:56

Bonjour,

C'est la variable "Date" qui pose problème car "date" est un mot clé en VB.Net (on ne pouvait pas le deviner, c'est vrai), de même que "error" ou "form". Donc l'ordinateur confond le mot clé "date" et le nom "date". Il te suffit de renommer ta variable pour corriger le problème Smile

@+



Les 4 règles d'or du forum : Bonjour, Merci, Pas de SMS, Et un petit "[RESOLU]" dans le titre du sujet quand le problème est réglé. Wink

Etienne

Site internet : http://www.velersoftware.com
Twitter : http://twitter.com/VelerSoftware
avatar
gipse
Habitué
Habitué

Masculin Nombre de messages : 575
Localisation : en face de mon voisin
Emploi/loisirs : informatique, SZ
Humeur : je suis heureux grace a SZ !
Date d'inscription : 19/01/2011

Re: Erreur inderminée [RESOLU]

Message par gipse le Mer 16 Mar 2011 - 12:32

AAAA ok merci j'avais fait une sauvegarde et viré toute les fonction mais j'avais pas du tout pensé au variable... Embarassed
Merci beaucoup,
Gipse Very Happy
P.S: Sujet Resolu



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.forumotion.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr

Contenu sponsorisé

Re: Erreur inderminée [RESOLU]

Message par Contenu sponsorisé


    La date/heure actuelle est Mer 17 Oct 2018 - 22:30