Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


Generation échouée [RESOLU]

Partagez
avatar
polien


Masculin Nombre de messages : 2933
Age : 21
Localisation : Bouches du Rhones
Emploi/loisirs : velo, informatique, électronique, robotique, modélisme feroviaire
Humeur : Je commence tout mais ne finit rien :P
Date d'inscription : 19/05/2011

Generation échouée [RESOLU]

Message par polien le Jeu 16 Juin 2011 - 14:12

Bonjour,

Chaque foit que je compile, le logiciel m'indique: GENERATION ECHOUEE Sad
Voici le rapport de génération:
Code:

Building failed : errors number: 2
File code : G:\autre\softwave zator\Temp\Code.vb

Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : WindowsForm1.szw
SplashScreen :
Optimize : True
----------------------------------------------------------------
    5 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"G:\autre\aessai\WindowsApplication1\Bin\CresusNavidad_v1.manifest"'; non reconnue ignorée
    6 - Line 760, Column 0, Error BC30456 : 'listView1' n'est pas un membre de 'CresusNavidad_v1.WindowsForm1_f'.
----------------------------------------------------------------

' 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.3603
'
'    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("CresusNavidad_v1")>
<Assembly: Reflection.AssemblyDescription("Naviguateur internet")>
<Assembly: Reflection.AssemblyCompany("extracreaologie")>
<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 CresusNavidad_v1
   
    Public Class WindowsForm1_f
        Inherits System.Windows.Forms.Form
       
        Public WithEvents button1 As System.Windows.Forms.Button
       
        Public WithEvents button2 As System.Windows.Forms.Button
       
        Public WithEvents button9 As System.Windows.Forms.Button
       
        Public WithEvents textBox1 As System.Windows.Forms.TextBox
       
        Public WithEvents button5 As System.Windows.Forms.Button
       
        Public WithEvents button10 As System.Windows.Forms.Button
       
        Public WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
       
        Public WithEvents label1 As System.Windows.Forms.Label
       
        Public WithEvents button11 As System.Windows.Forms.Button
       
        Public WithEvents button12 As System.Windows.Forms.Button
       
        Public WithEvents button14 As System.Windows.Forms.Button
       
        Public WithEvents button15 As System.Windows.Forms.Button
       
        Public WithEvents button16 As System.Windows.Forms.Button
       
        Public WithEvents listBox1 As System.Windows.Forms.ListBox
       
        Public WithEvents button17 As System.Windows.Forms.Button
       
        Public WithEvents label2 As System.Windows.Forms.Label
       
        Public WithEvents label3 As System.Windows.Forms.Label
       
        Public WithEvents label4 As System.Windows.Forms.Label
       
        Public WithEvents label5 As System.Windows.Forms.Label
       
        Public WithEvents webBrowser1 As System.Windows.Forms.WebBrowser
       
        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.button1 = New System.Windows.Forms.Button
            Me.button2 = New System.Windows.Forms.Button
            Me.button9 = New System.Windows.Forms.Button
            Me.textBox1 = New System.Windows.Forms.TextBox
            Me.button5 = New System.Windows.Forms.Button
            Me.button10 = New System.Windows.Forms.Button
            Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
            Me.label1 = New System.Windows.Forms.Label
            Me.button11 = New System.Windows.Forms.Button
            Me.button12 = New System.Windows.Forms.Button
            Me.button14 = New System.Windows.Forms.Button
            Me.button15 = New System.Windows.Forms.Button
            Me.button16 = New System.Windows.Forms.Button
            Me.listBox1 = New System.Windows.Forms.ListBox
            Me.button17 = New System.Windows.Forms.Button
            Me.label2 = New System.Windows.Forms.Label
            Me.label3 = New System.Windows.Forms.Label
            Me.label4 = New System.Windows.Forms.Label
            Me.label5 = New System.Windows.Forms.Label
            Me.webBrowser1 = New System.Windows.Forms.WebBrowser
            Me.SuspendLayout
            '
            'button1
            '
            Me.button1.BackColor = System.Drawing.Color.White
            Me.button1.BackgroundImage = CType(resources.GetObject("button1.BackgroundImage"),System.Drawing.Image)
            Me.button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.button1.Image = CType(resources.GetObject("button1.Image"),System.Drawing.Image)
            Me.button1.Location = New System.Drawing.Point(12, 67)
            Me.button1.Name = "button1"
            Me.button1.Size = New System.Drawing.Size(35, 35)
            Me.button1.TabIndex = 0
            Me.button1.UseVisualStyleBackColor = false
            '
            'button2
            '
            Me.button2.BackColor = System.Drawing.Color.White
            Me.button2.BackgroundImage = CType(resources.GetObject("button2.BackgroundImage"),System.Drawing.Image)
            Me.button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.button2.Cursor = System.Windows.Forms.Cursors.Default
            Me.button2.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.button2.Image = CType(resources.GetObject("button2.Image"),System.Drawing.Image)
            Me.button2.Location = New System.Drawing.Point(53, 67)
            Me.button2.Name = "button2"
            Me.button2.Size = New System.Drawing.Size(35, 35)
            Me.button2.TabIndex = 1
            Me.button2.UseVisualStyleBackColor = false
            '
            'button9
            '
            Me.button9.BackgroundImage = CType(resources.GetObject("button9.BackgroundImage"),System.Drawing.Image)
            Me.button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.button9.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.button9.Location = New System.Drawing.Point(7, 105)
            Me.button9.Name = "button9"
            Me.button9.Size = New System.Drawing.Size(136, 24)
            Me.button9.TabIndex = 9
            Me.button9.Text = "Tester la connection!"
            Me.button9.UseVisualStyleBackColor = true
            '
            'textBox1
            '
            Me.textBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192,Byte),Integer), CType(CType(255,Byte),Integer), CType(CType(192,Byte),Integer))
            Me.textBox1.Location = New System.Drawing.Point(146, 107)
            Me.textBox1.Name = "textBox1"
            Me.textBox1.Size = New System.Drawing.Size(543, 20)
            Me.textBox1.TabIndex = 10
            '
            'button5
            '
            Me.button5.BackgroundImage = CType(resources.GetObject("button5.BackgroundImage"),System.Drawing.Image)
            Me.button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.button5.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.button5.Location = New System.Drawing.Point(695, 99)
            Me.button5.Name = "button5"
            Me.button5.Size = New System.Drawing.Size(35, 35)
            Me.button5.TabIndex = 11
            Me.button5.Text = "GO"
            Me.button5.UseVisualStyleBackColor = true
            '
            'button10
            '
            Me.button10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.button10.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.button10.Location = New System.Drawing.Point(94, 67)
            Me.button10.Name = "button10"
            Me.button10.Size = New System.Drawing.Size(35, 35)
            Me.button10.TabIndex = 15
            Me.button10.Text = "Act"
            Me.button10.UseVisualStyleBackColor = true
            '
            'ProgressBar1
            '
            Me.ProgressBar1.Location = New System.Drawing.Point(7, 717)
            Me.ProgressBar1.Name = "ProgressBar1"
            Me.ProgressBar1.Size = New System.Drawing.Size(675, 23)
            Me.ProgressBar1.TabIndex = 16
            '
            'label1
            '
            Me.label1.BackColor = System.Drawing.Color.Transparent
            Me.label1.Location = New System.Drawing.Point(775, 29)
            Me.label1.Name = "label1"
            Me.label1.Size = New System.Drawing.Size(63, 23)
            Me.label1.TabIndex = 21
            Me.label1.Text = "Historique:"
            '
            'button11
            '
            Me.button11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.button11.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.button11.Location = New System.Drawing.Point(135, 67)
            Me.button11.Name = "button11"
            Me.button11.Size = New System.Drawing.Size(35, 35)
            Me.button11.TabIndex = 22
            Me.button11.Text = "Ann"
            Me.button11.UseVisualStyleBackColor = true
            '
            'button12
            '
            Me.button12.BackColor = System.Drawing.Color.White
            Me.button12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.button12.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.button12.Location = New System.Drawing.Point(309, 67)
            Me.button12.Name = "button12"
            Me.button12.Size = New System.Drawing.Size(35, 35)
            Me.button12.TabIndex = 18
            Me.button12.Text = "fa+"
            Me.button12.UseVisualStyleBackColor = false
            '
            'button14
            '
            Me.button14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.button14.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.button14.Location = New System.Drawing.Point(350, 68)
            Me.button14.Name = "button14"
            Me.button14.Size = New System.Drawing.Size(35, 35)
            Me.button14.TabIndex = 24
            Me.button14.Text = "fav"
            Me.button14.UseVisualStyleBackColor = true
            '
            'button15
            '
            Me.button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.button15.Cursor = System.Windows.Forms.Cursors.Default
            Me.button15.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.button15.Location = New System.Drawing.Point(200, 67)
            Me.button15.Name = "button15"
            Me.button15.Size = New System.Drawing.Size(35, 35)
            Me.button15.TabIndex = 25
            Me.button15.Text = "Ac"
            Me.button15.UseVisualStyleBackColor = true
            '
            'button16
            '
            Me.button16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.button16.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.button16.Location = New System.Drawing.Point(241, 67)
            Me.button16.Name = "button16"
            Me.button16.Size = New System.Drawing.Size(35, 35)
            Me.button16.TabIndex = 26
            Me.button16.Text = "Ac+"
            Me.button16.UseVisualStyleBackColor = true
            '
            'listBox1
            '
            Me.listBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192,Byte),Integer), CType(CType(255,Byte),Integer), CType(CType(192,Byte),Integer))
            Me.listBox1.FormattingEnabled = true
            Me.listBox1.ItemHeight = 14
            Me.listBox1.Location = New System.Drawing.Point(838, 29)
            Me.listBox1.Name = "listBox1"
            Me.listBox1.Size = New System.Drawing.Size(257, 102)
            Me.listBox1.TabIndex = 28
            '
            'button17
            '
            Me.button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.button17.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.button17.Location = New System.Drawing.Point(1099, 30)
            Me.button17.Name = "button17"
            Me.button17.Size = New System.Drawing.Size(159, 45)
            Me.button17.TabIndex = 29
            Me.button17.Text = "Vider l'historique"
            Me.button17.UseVisualStyleBackColor = true
            '
            'label2
            '
            Me.label2.BackColor = System.Drawing.Color.Transparent
            Me.label2.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
            Me.label2.Location = New System.Drawing.Point(15, 37)
            Me.label2.Name = "label2"
            Me.label2.Size = New System.Drawing.Size(79, 23)
            Me.label2.TabIndex = 30
            Me.label2.Text = "Naviguation:"
            '
            'label3
            '
            Me.label3.BackColor = System.Drawing.Color.Transparent
            Me.label3.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
            Me.label3.Location = New System.Drawing.Point(216, 38)
            Me.label3.Name = "label3"
            Me.label3.Size = New System.Drawing.Size(53, 23)
            Me.label3.TabIndex = 31
            Me.label3.Text = "accueil:"
            '
            'label4
            '
            Me.label4.BackColor = System.Drawing.Color.Transparent
            Me.label4.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
            Me.label4.Location = New System.Drawing.Point(321, 39)
            Me.label4.Name = "label4"
            Me.label4.Size = New System.Drawing.Size(58, 23)
            Me.label4.TabIndex = 32
            Me.label4.Text = "préférés:"
            '
            'label5
            '
            Me.label5.BackColor = System.Drawing.Color.Transparent
            Me.label5.ForeColor = System.Drawing.Color.Red
            Me.label5.Location = New System.Drawing.Point(94, 39)
            Me.label5.Name = "label5"
            Me.label5.Size = New System.Drawing.Size(105, 23)
            Me.label5.TabIndex = 33
            '
            'webBrowser1
            '
            Me.webBrowser1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left)  _
                        Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
            Me.webBrowser1.Location = New System.Drawing.Point(4, 134)
            Me.webBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
            Me.webBrowser1.Name = "webBrowser1"
            Me.webBrowser1.Size = New System.Drawing.Size(1257, 580)
            Me.webBrowser1.TabIndex = 34
            Me.webBrowser1.Url = New System.Uri("http://www.google.fr/", System.UriKind.Absolute)
            '
            'WindowsForm1
            '
            Me.BackColor = System.Drawing.Color.White
            Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"),System.Drawing.Image)
            Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.ClientSize = New System.Drawing.Size(1276, 751)
            Me.Controls.Add(Me.label5)
            Me.Controls.Add(Me.label4)
            Me.Controls.Add(Me.label3)
            Me.Controls.Add(Me.label2)
            Me.Controls.Add(Me.button17)
            Me.Controls.Add(Me.listBox1)
            Me.Controls.Add(Me.button16)
            Me.Controls.Add(Me.button15)
            Me.Controls.Add(Me.button14)
            Me.Controls.Add(Me.button11)
            Me.Controls.Add(Me.label1)
            Me.Controls.Add(Me.button12)
            Me.Controls.Add(Me.ProgressBar1)
            Me.Controls.Add(Me.button10)
            Me.Controls.Add(Me.button5)
            Me.Controls.Add(Me.textBox1)
            Me.Controls.Add(Me.button9)
            Me.Controls.Add(Me.button2)
            Me.Controls.Add(Me.button1)
            Me.Controls.Add(Me.webBrowser1)
            Me.Cursor = System.Windows.Forms.Cursors.Default
            Me.DoubleBuffered = true
            Me.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
            Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
            Me.Name = "WindowsForm1"
            Me.Text = "CresusNavidad_v3"
            Me.TransparencyKey = System.Drawing.SystemColors.ActiveBorder
            Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
            Me.ResumeLayout(false)
            Me.PerformLayout
        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. CresusNavidad_v1 can't start without it. Please install the .Net Framework 3.5 and try again.", "CresusNavidad_v1", 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 Class WindowsForm2_f
        Inherits System.Windows.Forms.Form
       
        Public WithEvents label1 As System.Windows.Forms.Label
       
        Public WithEvents button1 As System.Windows.Forms.Button
       
        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(WindowsForm2_f))
            Me.label1 = New System.Windows.Forms.Label
            Me.button1 = New System.Windows.Forms.Button
            Me.SuspendLayout
            '
            'label1
            '
            Me.label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(128,Byte),Integer), CType(CType(128,Byte),Integer))
            Me.label1.Location = New System.Drawing.Point(13, 13)
            Me.label1.Name = "label1"
            Me.label1.Size = New System.Drawing.Size(211, 58)
            Me.label1.TabIndex = 0
            Me.label1.Text = "Vous n'etes pas connecté, vérifier que votre cable internet est bien branché ou q"& _
                "ue votre wifi est bien activée puis appuyer sur Réessayer"
            '
            'button1
            '
            Me.button1.BackgroundImage = CType(resources.GetObject("button1.BackgroundImage"),System.Drawing.Image)
            Me.button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.button1.Location = New System.Drawing.Point(12, 81)
            Me.button1.Name = "button1"
            Me.button1.Size = New System.Drawing.Size(149, 23)
            Me.button1.TabIndex = 1
            Me.button1.Text = "Réessayer"
            Me.button1.UseVisualStyleBackColor = true
            '
            'WindowsForm2
            '
            Me.BackColor = System.Drawing.Color.White
            Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"),System.Drawing.Image)
            Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.ClientSize = New System.Drawing.Size(231, 122)
            Me.Controls.Add(Me.button1)
            Me.Controls.Add(Me.label1)
            Me.DoubleBuffered = true
            Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
            Me.Name = "WindowsForm2"
            Me.Text = "Déconnecté"
            Me.ResumeLayout(false)
        End Sub
    End Class
   
    Public Class WindowsForm3_f
        Inherits System.Windows.Forms.Form
       
        Public WithEvents label1 As System.Windows.Forms.Label
       
        Public WithEvents timer1 As System.Windows.Forms.Timer
       
        Public WithEvents components As System.ComponentModel.IContainer
       
        Public Sub New()
            MyBase.New
            Me.InitializeComponent
        End Sub
       
        Private Sub InitializeComponent()
            Me.components = New System.ComponentModel.Container
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(WindowsForm3_f))
            Me.label1 = New System.Windows.Forms.Label
            Me.timer1 = New System.Windows.Forms.Timer(Me.components)
            Me.SuspendLayout
            '
            'label1
            '
            Me.label1.BackColor = System.Drawing.Color.Transparent
            Me.label1.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
            Me.label1.ForeColor = System.Drawing.Color.Red
            Me.label1.Location = New System.Drawing.Point(16, 6)
            Me.label1.Name = "label1"
            Me.label1.Size = New System.Drawing.Size(350, 61)
            Me.label1.TabIndex = 0
            Me.label1.Text = "Ce site à bien été rajouté aux pages préférées!"
            '
            'timer1
            '
            Me.timer1.Enabled = true
            Me.timer1.Interval = 6000
            '
            'WindowsForm3
            '
            Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"),System.Drawing.Image)
            Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.ClientSize = New System.Drawing.Size(388, 82)
            Me.Controls.Add(Me.label1)
            Me.DoubleBuffered = true
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
            Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
            Me.Name = "WindowsForm3"
            Me.ResumeLayout(false)
        End Sub
    End Class
   
    Public Class WindowsForm5_f
        Inherits System.Windows.Forms.Form
       
        Public WithEvents label2 As System.Windows.Forms.Label
       
        Public WithEvents linkLabel1 As System.Windows.Forms.LinkLabel
       
        Public WithEvents button1 As System.Windows.Forms.Button
       
        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(WindowsForm5_f))
            Me.label2 = New System.Windows.Forms.Label
            Me.linkLabel1 = New System.Windows.Forms.LinkLabel
            Me.button1 = New System.Windows.Forms.Button
            Me.SuspendLayout
            '
            'label2
            '
            Me.label2.BackColor = System.Drawing.Color.Transparent
            Me.label2.ForeColor = System.Drawing.Color.White
            Me.label2.Location = New System.Drawing.Point(12, 9)
            Me.label2.Name = "label2"
            Me.label2.Size = New System.Drawing.Size(262, 20)
            Me.label2.TabIndex = 1
            Me.label2.Text = "Logiciel créé par polien avec Software Zator 2011"
            '
            'linkLabel1
            '
            Me.linkLabel1.BackColor = System.Drawing.Color.Transparent
            Me.linkLabel1.Location = New System.Drawing.Point(12, 29)
            Me.linkLabel1.Name = "linkLabel1"
            Me.linkLabel1.Size = New System.Drawing.Size(85, 23)
            Me.linkLabel1.TabIndex = 2
            Me.linkLabel1.TabStop = true
            Me.linkLabel1.Text = "Visiter le site"
            '
            'button1
            '
            Me.button1.Location = New System.Drawing.Point(12, 55)
            Me.button1.Name = "button1"
            Me.button1.Size = New System.Drawing.Size(74, 39)
            Me.button1.TabIndex = 3
            Me.button1.Text = "OK"
            Me.button1.UseVisualStyleBackColor = true
            '
            'WindowsForm5
            '
            Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"),System.Drawing.Image)
            Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
            Me.ClientSize = New System.Drawing.Size(346, 123)
            Me.Controls.Add(Me.button1)
            Me.Controls.Add(Me.linkLabel1)
            Me.Controls.Add(Me.label2)
            Me.DoubleBuffered = true
            Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
            Me.Name = "WindowsForm5"
            Me.Text = "Credits"
            Me.TransparencyKey = System.Drawing.Color.Red
            Me.ResumeLayout(false)
        End Sub
    End Class

    Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_SOFTWAREZATOR_VARIABLES
        Public VARIABLES_SOFTWAREZATOR_CURRENT_PLUGIN_VARIABLES As String
        Public varfavori As Object '
        Public UrlAOuvrir As Object '
        Public titre As Object '
        Public site_internet As Object ' nom du site
        Public image As Object '
        Public historique As Object '
        Public hist As Object '
        Public fichier As Object '
        Public favori As Object ' les favori
        Public datejour As Object '
        Public connect As Object ' connecté
        Public accueil 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
Private _WindowsForm2 As WindowsForm2_f = New WindowsForm2_f
Public Property WindowsForm2 As WindowsForm2_f
Get
Return _WindowsForm2
End Get
Set(ByVal value As WindowsForm2_f)
_WindowsForm2 = value
End Set
End Property
Private _WindowsForm3 As WindowsForm3_f = New WindowsForm3_f
Public Property WindowsForm3 As WindowsForm3_f
Get
Return _WindowsForm3
End Get
Set(ByVal value As WindowsForm3_f)
_WindowsForm3 = value
End Set
End Property
Private _WindowsForm5 As WindowsForm5_f = New WindowsForm5_f
Public Property WindowsForm5 As WindowsForm5_f
Get
Return _WindowsForm5
End Get
Set(ByVal value As WindowsForm5_f)
_WindowsForm5 = value
End Set
End Property
    End Module



    Partial Public Class WindowsForm1_f

 Public Sub button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button11.Click
Try
webBrowser1.Stop()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button10.Click
Try
WebBrowser1.Refresh
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button2.Click
Try
Me.webBrowser1.GoForward()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", 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
Me.webBrowser1.GoBack()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub webBrowser1_DocumentTitleChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles webBrowser1.DocumentTitleChanged
Try
titre = Me.webBrowser1.DocumentTitle
Me.Text = "" & titre & " CresusNavidad v3"
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub webBrowser1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs)Handles webBrowser1.ProgressChanged
Try
If e.MaximumProgress <> 0 And e.MaximumProgress >= e.CurrentProgress Then
            ProgressBar1.Value = Convert.ToInt32(100 * e.CurrentProgress / e.MaximumProgress)

        Else
            With ProgressBar1
                .Value = 100
                .Visible = True
            End With
        End If

Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button1.MouseEnter
Try
Me.label5.Text = "Précédent"
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button17.Click
Try
Me.listBox1.Items.Clear()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button9.Click
Try
connect = VelerSoftware_GeneralPlugin_Connecter_Internet.IsConnected()
If connect = "True" Then
 System.Windows.Forms.MessageBox.Show("Vous etes bien connecté!", "Connection", MessageBoxButtons.OK, MessageBoxIcon.Information).ToString
Else
If "" <> "Dialog" Then WindowsForm2 = New WindowsForm2_f
 WindowsForm2.Show()
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub webBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)Handles webBrowser1.DocumentCompleted
Try
Me.textBox1.Text = Me.webBrowser1.Url.ToString
historique = Me.textBox1.Text
Me.listBox1.Items.Add("" & historique & "")
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button11_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button11.MouseEnter
Try
Me.label5.Text = "Annulaton"
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button14.Click
Try
Me.listView1.Visible = "True"
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button12.Click
Try
If "" <> "Dialog" Then WindowsForm3 = New WindowsForm3_f
 WindowsForm3.Show()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button15.Click
Try
Me.webBrowser1.Navigate("" & accueil & "")
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button2_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button2.MouseEnter
Try
Me.label5.Text = "Suivant"
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button10_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button10.MouseEnter
Try
Me.label5.Text = "Actualiser"
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button5.Click
Try
site_internet = Me.textBox1.Text
Me.webBrowser1.Navigate("" & site_internet & "")
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button16.Click
Try
accueil = Me.textBox1.Text
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

    End Class

    Partial Public Class WindowsForm2_f

 Public Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button1.Click
Try
connect = VelerSoftware_GeneralPlugin_Connecter_Internet.IsConnected()
If connect = "True" Then
Application.Restart()
Else
 System.Windows.Forms.MessageBox.Show("Aucune connection n'a été trouvée, réessayer", "Connection", MessageBoxButtons.OK, MessageBoxIcon.Information).ToString
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

    End Class

    Partial Public Class WindowsForm3_f

 Public Sub timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles timer1.Tick
Try
Me.DialogResult = System.Windows.Forms.DialogResult.None : Me.Close()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub WindowsForm3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
Try
My.Computer.FileSystem.WriteAllText("" & Application.StartupPath & "\PagesPréférées\" & titre & ".url", "[InternetShortcut] " & System.Environment.NewLine & "URL=" & historique & "" & System.Environment.NewLine & "", True)
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

    End Class

    Partial Public Class WindowsForm5_f

 Public Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button1.Click
Try
Me.DialogResult = System.Windows.Forms.DialogResult.None : Me.Close()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "CresusNavidad_v1", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

    End Class


Public Class VelerSoftware_GeneralPlugin_Connecter_Internet

   Private Declare Function InternetGetConnectedState Lib "wininet.dll" Alias "InternetGetConnectedState" (ByRef lpdwFlags As Integer, ByVal dwReserved As Integer) As Boolean

    Shared Function IsConnected() As Boolean
        Dim Desc As Integer
        Return InternetGetConnectedState(Desc, 0)
    End Function

End Class

End Namespace

Merci de m'indiquer l'erreur confused


Dernière édition par polien le Ven 17 Juin 2011 - 6:35, édité 1 fois



Cordialement,
Polien.

Bonnes vacances !
Je ne serai pas souvent sur le forum entre le 14/07 et le 25/08, donc je peut mettre du temps à répondre Wink

BESOINS D'UN TUTO? CONSULTER LE SOMMAIRE !

Débutez avec SZ avec les tutos en pdf !
avatar
JHPC-Software
Connaisseur
Connaisseur

Masculin Nombre de messages : 761
Age : 24
Localisation : Bruxelles
Emploi/loisirs : Etudiant en informatique / Informatique, Electronique, ...
Humeur : Très bonne
Date d'inscription : 07/01/2011

Re: Generation échouée [RESOLU]

Message par JHPC-Software le Jeu 16 Juin 2011 - 14:40

Bonjour,
Code:
6 - Line 760, Column 0, Error BC30456 : 'listView1' n'est pas un membre de 'CresusNavidad_v1.WindowsForm1_f'.
Le truc c'est que dans un de tes code il met qu'il y a un listview au nom de listview1 hors il y en a pas dans la WindowsForm1.
Et vu le rapport complet, tu t'ai tromper dans ta Windowsform1 ta un ListBox pas un ListView ... SmileSmile
Met ListBox a la place de ListView dans tes codes et normalement ça devrais fonctionner

Cordialement,
JHPC



--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
JHPC Software a fais un forum



--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
avatar
polien


Masculin Nombre de messages : 2933
Age : 21
Localisation : Bouches du Rhones
Emploi/loisirs : velo, informatique, électronique, robotique, modélisme feroviaire
Humeur : Je commence tout mais ne finit rien :P
Date d'inscription : 19/05/2011

Re: Generation échouée [RESOLU]

Message par polien le Jeu 16 Juin 2011 - 16:16

@JHPC-Software a écrit:Bonjour,
Code:
6 - Line 760, Column 0, Error BC30456 : 'listView1' n'est pas un membre de 'CresusNavidad_v1.WindowsForm1_f'.
Le truc c'est que dans un de tes code il met qu'il y a un listview au nom de listview1 hors il y en a pas dans la WindowsForm1.
Et vu le rapport complet, tu t'ai tromper dans ta Windowsform1 ta un ListBox pas un ListView ... SmileSmile
Met ListBox a la place de ListView dans tes codes et normalement ça devrais fonctionner

Cordialement,
JHPC

c'était bien sa, merci Very Happy



Cordialement,
Polien.

Bonnes vacances !
Je ne serai pas souvent sur le forum entre le 14/07 et le 25/08, donc je peut mettre du temps à répondre Wink

BESOINS D'UN TUTO? CONSULTER LE SOMMAIRE !

Débutez avec SZ avec les tutos en pdf !
avatar
JHPC-Software
Connaisseur
Connaisseur

Masculin Nombre de messages : 761
Age : 24
Localisation : Bruxelles
Emploi/loisirs : Etudiant en informatique / Informatique, Electronique, ...
Humeur : Très bonne
Date d'inscription : 07/01/2011

Re: Generation échouée [RESOLU]

Message par JHPC-Software le Jeu 16 Juin 2011 - 17:00

Bonsoir,
Derien, un petit résolu dans le titre sa serais bien Smile

Cordialement,
JHPC



--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
JHPC Software a fais un forum



--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Contenu sponsorisé

Re: Generation échouée [RESOLU]

Message par Contenu sponsorisé


    La date/heure actuelle est Mer 15 Aoû 2018 - 9:06