Etienne BAUDOUX

Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX

Le Deal du moment : -15%
(Adhérents Fnac) LEGO® Star Wars™ ...
Voir le deal
552.49 €

2 participants

    Generation échouée [RESOLU]

    polien
    polien



    Masculin Nombre de messages : 3002
    Age : 27
    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 - Generation échouée [RESOLU] Empty Generation échouée [RESOLU]

    Message par polien 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
    JHPC-Software
    JHPC-Software
    Connaisseur
    Connaisseur


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

    generation - Generation échouée [RESOLU] Empty Re: Generation échouée [RESOLU]

    Message par JHPC-Software 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
    polien
    polien



    Masculin Nombre de messages : 3002
    Age : 27
    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 - Generation échouée [RESOLU] Empty Re: Generation échouée [RESOLU]

    Message par polien 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
    JHPC-Software
    JHPC-Software
    Connaisseur
    Connaisseur


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

    generation - Generation échouée [RESOLU] Empty Re: Generation échouée [RESOLU]

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

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

    Cordialement,
    JHPC

    Contenu sponsorisé


    generation - Generation échouée [RESOLU] Empty Re: Generation échouée [RESOLU]

    Message par Contenu sponsorisé


      La date/heure actuelle est Jeu 28 Mar 2024 - 14:41