Bonjour
Alors voila c'est simple je sais même pas ce qui cloche alors je vais donnée le rapport de génération :
Alors voila c'est simple je sais même pas ce qui cloche alors je vais donnée le rapport de génération :
- Code:
Project : Naligator
Last build the vendredi 20 mai 2011 at 21:51
Building failed : errors number: 3
File code : D:\Programmes\Temp\Code.vb
Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : WindowsForm1.szw
SplashScreen :
Optimize : True
----------------------------------------------------------------
2 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"C:\Documents and Settings\Max\Mes documents\Mes Projets SoftwareZator\N'avigator\Bin\Naligator.manifest"'; non reconnue ignorée
3 - Line 444, Column 0, Error BC30193 : Les spécificateurs et les attributs ne sont pas valides pour cette instruction.
4 - Line 878, 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.3620
'
' 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("DemonstrationForm")>
<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 Naligator
Public Class WindowsForm1_f
Inherits System.Windows.Forms.Form
Public WithEvents button3 As System.Windows.Forms.Button
Public WithEvents button2 As System.Windows.Forms.Button
Public WithEvents button1 As System.Windows.Forms.Button
Public WithEvents pictureBoxIcone As System.Windows.Forms.PictureBox
Public WithEvents label1 As System.Windows.Forms.Label
Public WithEvents pictureBoxReduire As System.Windows.Forms.PictureBox
Public WithEvents panelBarreDeLegende As System.Windows.Forms.Panel
Public WithEvents pictureBoxFermer As System.Windows.Forms.PictureBox
Public WithEvents pictureBoxAgrandir As System.Windows.Forms.PictureBox
Public WithEvents panel1 As System.Windows.Forms.Panel
Public WithEvents button4 As System.Windows.Forms.Button
Public WithEvents webBrowser1 As System.Windows.Forms.WebBrowser
Public WithEvents TextBox1 As System.Windows.Forms.TextBox
Public WithEvents button5 As System.Windows.Forms.Button
Public WithEvents button6 As System.Windows.Forms.Button
Public WithEvents button7 As System.Windows.Forms.Button
Public WithEvents label2 As System.Windows.Forms.Label
Public WithEvents timer1 As System.Windows.Forms.Timer
Public WithEvents button8 As System.Windows.Forms.Button
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(WindowsForm1_f))
Me.button3 = New System.Windows.Forms.Button
Me.button2 = New System.Windows.Forms.Button
Me.button1 = New System.Windows.Forms.Button
Me.pictureBoxIcone = New System.Windows.Forms.PictureBox
Me.label1 = New System.Windows.Forms.Label
Me.pictureBoxReduire = New System.Windows.Forms.PictureBox
Me.panelBarreDeLegende = New System.Windows.Forms.Panel
Me.pictureBoxFermer = New System.Windows.Forms.PictureBox
Me.pictureBoxAgrandir = New System.Windows.Forms.PictureBox
Me.panel1 = New System.Windows.Forms.Panel
Me.label2 = New System.Windows.Forms.Label
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.button7 = New System.Windows.Forms.Button
Me.button4 = New System.Windows.Forms.Button
Me.button8 = New System.Windows.Forms.Button
Me.button6 = New System.Windows.Forms.Button
Me.button5 = New System.Windows.Forms.Button
Me.webBrowser1 = New System.Windows.Forms.WebBrowser
Me.timer1 = New System.Windows.Forms.Timer(Me.components)
CType(Me.pictureBoxIcone,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.pictureBoxReduire,System.ComponentModel.ISupportInitialize).BeginInit
Me.panelBarreDeLegende.SuspendLayout
CType(Me.pictureBoxFermer,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.pictureBoxAgrandir,System.ComponentModel.ISupportInitialize).BeginInit
Me.panel1.SuspendLayout
Me.SuspendLayout
'
'button3
'
Me.button3.BackColor = System.Drawing.Color.Transparent
Me.button3.BackgroundImage = CType(resources.GetObject("button3.BackgroundImage"),System.Drawing.Image)
Me.button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.button3.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(128,Byte),Integer), CType(CType(128,Byte),Integer), CType(CType(255,Byte),Integer))
Me.button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.button3.Location = New System.Drawing.Point(78, 3)
Me.button3.Name = "button3"
Me.button3.Size = New System.Drawing.Size(40, 43)
Me.button3.TabIndex = 10
Me.button3.UseVisualStyleBackColor = false
'
'button2
'
Me.button2.BackColor = System.Drawing.Color.Transparent
Me.button2.BackgroundImage = CType(resources.GetObject("button2.BackgroundImage"),System.Drawing.Image)
Me.button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.button2.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(128,Byte),Integer), CType(CType(128,Byte),Integer), CType(CType(255,Byte),Integer))
Me.button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.button2.Location = New System.Drawing.Point(124, 3)
Me.button2.Name = "button2"
Me.button2.Size = New System.Drawing.Size(69, 43)
Me.button2.TabIndex = 12
Me.button2.UseVisualStyleBackColor = false
'
'button1
'
Me.button1.BackColor = System.Drawing.Color.Transparent
Me.button1.BackgroundImage = CType(resources.GetObject("button1.BackgroundImage"),System.Drawing.Image)
Me.button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.button1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(128,Byte),Integer), CType(CType(128,Byte),Integer), CType(CType(255,Byte),Integer))
Me.button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.button1.Location = New System.Drawing.Point(3, 3)
Me.button1.Name = "button1"
Me.button1.Size = New System.Drawing.Size(69, 43)
Me.button1.TabIndex = 11
Me.button1.UseVisualStyleBackColor = false
'
'pictureBoxIcone
'
Me.pictureBoxIcone.BackColor = System.Drawing.Color.Transparent
Me.pictureBoxIcone.ErrorImage = Nothing
Me.pictureBoxIcone.Image = CType(resources.GetObject("pictureBoxIcone.Image"),System.Drawing.Image)
Me.pictureBoxIcone.InitialImage = Nothing
Me.pictureBoxIcone.Location = New System.Drawing.Point(3, 3)
Me.pictureBoxIcone.Name = "pictureBoxIcone"
Me.pictureBoxIcone.Size = New System.Drawing.Size(50, 22)
Me.pictureBoxIcone.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.pictureBoxIcone.TabIndex = 1
Me.pictureBoxIcone.TabStop = false
'
'label1
'
Me.label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.label1.BackColor = System.Drawing.Color.Transparent
Me.label1.Font = New System.Drawing.Font("Comic Sans MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.label1.ForeColor = System.Drawing.Color.White
Me.label1.Location = New System.Drawing.Point(401, 5)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(70, 20)
Me.label1.TabIndex = 2
Me.label1.Text = "Naligator"
Me.label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'pictureBoxReduire
'
Me.pictureBoxReduire.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.pictureBoxReduire.ErrorImage = Nothing
Me.pictureBoxReduire.Image = CType(resources.GetObject("pictureBoxReduire.Image"),System.Drawing.Image)
Me.pictureBoxReduire.InitialImage = Nothing
Me.pictureBoxReduire.Location = New System.Drawing.Point(921, 3)
Me.pictureBoxReduire.Name = "pictureBoxReduire"
Me.pictureBoxReduire.Size = New System.Drawing.Size(33, 22)
Me.pictureBoxReduire.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pictureBoxReduire.TabIndex = 1
Me.pictureBoxReduire.TabStop = false
'
'panelBarreDeLegende
'
Me.panelBarreDeLegende.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.panelBarreDeLegende.BackgroundImage = CType(resources.GetObject("panelBarreDeLegende.BackgroundImage"),System.Drawing.Image)
Me.panelBarreDeLegende.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.panelBarreDeLegende.Controls.Add(Me.pictureBoxIcone)
Me.panelBarreDeLegende.Controls.Add(Me.label1)
Me.panelBarreDeLegende.Controls.Add(Me.pictureBoxReduire)
Me.panelBarreDeLegende.Controls.Add(Me.pictureBoxFermer)
Me.panelBarreDeLegende.Controls.Add(Me.pictureBoxAgrandir)
Me.panelBarreDeLegende.Location = New System.Drawing.Point(0, 0)
Me.panelBarreDeLegende.Name = "panelBarreDeLegende"
Me.panelBarreDeLegende.Size = New System.Drawing.Size(1035, 28)
Me.panelBarreDeLegende.TabIndex = 8
'
'pictureBoxFermer
'
Me.pictureBoxFermer.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.pictureBoxFermer.BackColor = System.Drawing.Color.Transparent
Me.pictureBoxFermer.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.pictureBoxFermer.ErrorImage = Nothing
Me.pictureBoxFermer.Image = CType(resources.GetObject("pictureBoxFermer.Image"),System.Drawing.Image)
Me.pictureBoxFermer.InitialImage = Nothing
Me.pictureBoxFermer.Location = New System.Drawing.Point(999, 3)
Me.pictureBoxFermer.Name = "pictureBoxFermer"
Me.pictureBoxFermer.Size = New System.Drawing.Size(33, 22)
Me.pictureBoxFermer.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pictureBoxFermer.TabIndex = 1
Me.pictureBoxFermer.TabStop = false
'
'pictureBoxAgrandir
'
Me.pictureBoxAgrandir.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.pictureBoxAgrandir.ErrorImage = Nothing
Me.pictureBoxAgrandir.Image = CType(resources.GetObject("pictureBoxAgrandir.Image"),System.Drawing.Image)
Me.pictureBoxAgrandir.InitialImage = Nothing
Me.pictureBoxAgrandir.Location = New System.Drawing.Point(960, 3)
Me.pictureBoxAgrandir.Name = "pictureBoxAgrandir"
Me.pictureBoxAgrandir.Size = New System.Drawing.Size(33, 22)
Me.pictureBoxAgrandir.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pictureBoxAgrandir.TabIndex = 1
Me.pictureBoxAgrandir.TabStop = false
'
'panel1
'
Me.panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.panel1.BackgroundImage = CType(resources.GetObject("panel1.BackgroundImage"),System.Drawing.Image)
Me.panel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.panel1.Controls.Add(Me.label2)
Me.panel1.Controls.Add(Me.TextBox1)
Me.panel1.Controls.Add(Me.button2)
Me.panel1.Controls.Add(Me.button7)
Me.panel1.Controls.Add(Me.button4)
Me.panel1.Controls.Add(Me.button3)
Me.panel1.Controls.Add(Me.button8)
Me.panel1.Controls.Add(Me.button6)
Me.panel1.Controls.Add(Me.button5)
Me.panel1.Controls.Add(Me.button1)
Me.panel1.Location = New System.Drawing.Point(3, 31)
Me.panel1.Name = "panel1"
Me.panel1.Size = New System.Drawing.Size(1029, 111)
Me.panel1.TabIndex = 13
'
'label2
'
Me.label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.label2.BackColor = System.Drawing.Color.Transparent
Me.label2.ForeColor = System.Drawing.Color.White
Me.label2.Location = New System.Drawing.Point(839, 8)
Me.label2.Name = "label2"
Me.label2.Size = New System.Drawing.Size(60, 18)
Me.label2.TabIndex = 14
Me.label2.Text = "00 : 00 "
'
'TextBox1
'
Me.TextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.TextBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(224,Byte),Integer))
Me.TextBox1.Enabled = false
Me.TextBox1.ForeColor = System.Drawing.Color.Black
Me.TextBox1.Location = New System.Drawing.Point(232, 3)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(601, 22)
Me.TextBox1.TabIndex = 13
'
'button7
'
Me.button7.BackColor = System.Drawing.Color.Transparent
Me.button7.BackgroundImage = CType(resources.GetObject("button7.BackgroundImage"),System.Drawing.Image)
Me.button7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.button7.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(128,Byte),Integer), CType(CType(128,Byte),Integer), CType(CType(255,Byte),Integer))
Me.button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.button7.Location = New System.Drawing.Point(199, 32)
Me.button7.Name = "button7"
Me.button7.Size = New System.Drawing.Size(35, 28)
Me.button7.TabIndex = 10
Me.button7.UseVisualStyleBackColor = false
'
'button4
'
Me.button4.BackColor = System.Drawing.Color.Transparent
Me.button4.BackgroundImage = CType(resources.GetObject("button4.BackgroundImage"),System.Drawing.Image)
Me.button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.button4.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(128,Byte),Integer), CType(CType(128,Byte),Integer), CType(CType(255,Byte),Integer))
Me.button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.button4.Location = New System.Drawing.Point(199, 3)
Me.button4.Name = "button4"
Me.button4.Size = New System.Drawing.Size(27, 23)
Me.button4.TabIndex = 10
Me.button4.UseVisualStyleBackColor = false
'
'button8
'
Me.button8.BackColor = System.Drawing.Color.Transparent
Me.button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.button8.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(128,Byte),Integer), CType(CType(128,Byte),Integer), CType(CType(255,Byte),Integer))
Me.button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.button8.ForeColor = System.Drawing.Color.White
Me.button8.Image = CType(resources.GetObject("button8.Image"),System.Drawing.Image)
Me.button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.button8.Location = New System.Drawing.Point(180, 66)
Me.button8.Name = "button8"
Me.button8.Size = New System.Drawing.Size(76, 33)
Me.button8.TabIndex = 11
Me.button8.Text = "Options"
Me.button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.button8.UseVisualStyleBackColor = false
'
'button6
'
Me.button6.BackColor = System.Drawing.Color.Transparent
Me.button6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.button6.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(128,Byte),Integer), CType(CType(128,Byte),Integer), CType(CType(255,Byte),Integer))
Me.button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.button6.ForeColor = System.Drawing.Color.White
Me.button6.Image = CType(resources.GetObject("button6.Image"),System.Drawing.Image)
Me.button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.button6.Location = New System.Drawing.Point(85, 66)
Me.button6.Name = "button6"
Me.button6.Size = New System.Drawing.Size(89, 33)
Me.button6.TabIndex = 11
Me.button6.Text = "Historique"
Me.button6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.button6.UseVisualStyleBackColor = false
'
'button5
'
Me.button5.BackColor = System.Drawing.Color.Transparent
Me.button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.button5.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(128,Byte),Integer), CType(CType(128,Byte),Integer), CType(CType(255,Byte),Integer))
Me.button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.button5.ForeColor = System.Drawing.Color.White
Me.button5.Image = CType(resources.GetObject("button5.Image"),System.Drawing.Image)
Me.button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.button5.Location = New System.Drawing.Point(3, 66)
Me.button5.Name = "button5"
Me.button5.Size = New System.Drawing.Size(76, 33)
Me.button5.TabIndex = 11
Me.button5.Text = "Favories"
Me.button5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.button5.UseVisualStyleBackColor = false
'
'webBrowser1
'
Me.webBrowser1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.webBrowser1.IsWebBrowserContextMenuEnabled = false
Me.webBrowser1.Location = New System.Drawing.Point(3, 136)
Me.webBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
Me.webBrowser1.Name = "webBrowser1"
Me.webBrowser1.Size = New System.Drawing.Size(1029, 680)
Me.webBrowser1.TabIndex = 14
Me.webBrowser1.Url = New System.Uri("http://www.google.fr/", System.UriKind.Absolute)
'
'timer1
'
Me.timer1.Interval = 1000
'
'WindowsForm1
'
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64,Byte),Integer), CType(CType(64,Byte),Integer), CType(CType(64,Byte),Integer))
Me.ClientSize = New System.Drawing.Size(1035, 817)
Me.Controls.Add(Me.webBrowser1)
Me.Controls.Add(Me.panel1)
Me.Controls.Add(Me.panelBarreDeLegende)
Me.ForeColor = System.Drawing.Color.Black
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.Name = "WindowsForm1"
Me.Text = "NavigatorForumSZ"
CType(Me.pictureBoxIcone,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.pictureBoxReduire,System.ComponentModel.ISupportInitialize).EndInit
Me.panelBarreDeLegende.ResumeLayout(false)
CType(Me.pictureBoxFermer,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.pictureBoxAgrandir,System.ComponentModel.ISupportInitialize).EndInit
Me.panel1.ResumeLayout(false)
Me.panel1.PerformLayout
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. Naligator can't start without it. Please install the .Net Framework 3.5 and try again.", "DemonstrationForm", 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 VariableTableaupourHeure() As Object = New Object(-1){} '
Public URLEnCour As Object '
Public HeureSeconde As Object '
Public HeureMinutes As Object '
Public HeureActuel As Object '
Public AgrandirOuPas As Object '
Public PourForumBoutonFermerTuto As System.Drawing.Image = My.Resources.PourForumBoutonFermerTuto ' Ressource PourForumBoutonFermerTuto
Public PourForumBoutonrAgrandirTuto As System.Drawing.Image = My.Resources.PourForumBoutonrAgrandirTuto ' Ressource PourForumBoutonrAgrandirTuto
Public PourForumBoutonreduireTuto As System.Drawing.Image = My.Resources.PourForumBoutonreduireTuto ' Ressource PourForumBoutonreduireTuto
Public PourForumTuto1BarreDeLegende As System.Drawing.Image = My.Resources.PourForumTuto1BarreDeLegende ' Ressource PourForumTuto1BarreDeLegende
Public PourForumBoutonrReduireDeuxTuto As System.Drawing.Image = My.Resources.PourForumBoutonrReduireDeuxTuto ' Ressource PourForumBoutonrReduireDeuxTuto
Public PourForumBoutonrAgrandirDeuxTuto As System.Drawing.Image = My.Resources.PourForumBoutonrAgrandirDeuxTuto ' Ressource PourForumBoutonrAgrandirDeuxTuto
Public PourForumBoutonrFermerDeuxTuto As System.Drawing.Image = My.Resources.PourForumBoutonrFermerDeuxTuto ' Ressource PourForumBoutonrFermerDeuxTuto
Public Aide As System.Drawing.Image = My.Resources.Aide ' Ressource Aide
Public TDC As System.Drawing.Image = My.Resources.TDC ' Ressource TDC
Public Actualiser As System.Drawing.Image = My.Resources.Actualiser ' Ressource Actualiser
Public Avancer As System.Drawing.Image = My.Resources.Avancer ' Ressource Avancer
Public Retour_portail As System.Drawing.Image = My.Resources.Retour_portail ' Ressource Retour_portail
Public Retour As System.Drawing.Image = My.Resources.Retour ' Ressource Retour
Public Chrono1 As System.Drawing.Image = My.Resources.Chrono1 ' Ressource Chrono1
Public Fond_GrisVert As System.Drawing.Image = My.Resources.Fond_GrisVert ' Ressource Fond_GrisVert
Public croco As System.Drawing.Image = My.Resources.croco ' Ressource croco
Public Favorie2 As System.Drawing.Image = My.Resources.Favorie2 ' Ressource Favorie2
Public Favorie1 As System.Drawing.Image = My.Resources.Favorie1 ' Ressource Favorie1
Public Historique As System.Drawing.Image = My.Resources.Historique ' Ressource Historique
Public Option As System.Drawing.Image = My.Resources.Option ' Ressource Option
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
Private IsFormBeingDragged As Boolean = False 'Used for custom move code, scroll down to see the actual code.
Private MouseDownX As Integer
Private MouseDownY As Integer
Public Sub panelBarreDeLegende_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles panelBarreDeLegende.MouseMove
Try
If IsFormBeingDragged Then
Dim temp As Drawing.Point = New Drawing.Point()
temp.X = Me.Location.X + (e.X - MouseDownX)
temp.Y = Me.Location.Y + (e.Y - MouseDownY)
Me.Location = temp
temp = Nothing
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub panelBarreDeLegende_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles panelBarreDeLegende.MouseUp
Try
If e.Button = System.Windows.Forms.MouseButtons.Left Then
IsFormBeingDragged = False
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub pictureBoxReduire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBoxReduire.Click
Try
Me.WindowState = 1
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub pictureBoxReduire_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles pictureBoxReduire.MouseMove
Try
Me.pictureBoxReduire.Image = PourForumBoutonrReduireDeuxTuto
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub pictureBoxReduire_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBoxReduire.MouseLeave
Try
Me.pictureBoxReduire.Image = PourForumBoutonreduireTuto
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub pictureBoxFermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBoxFermer.Click
Try
Application.Exit()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub pictureBoxFermer_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles pictureBoxFermer.MouseMove
Try
Me.pictureBoxFermer.Image = PourForumBoutonrFermerDeuxTuto
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub pictureBoxFermer_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBoxFermer.MouseLeave
Try
Me.pictureBoxFermer.Image = PourForumBoutonFermerTuto
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub pictureBoxAgrandir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBoxAgrandir.Click
Try
AgrandirOuPas = Me.WindowState
If AgrandirOuPas = 0 Then
Me.WindowState = 2
End If
If AgrandirOuPas = 2 Then
Me.WindowState = 0
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub pictureBoxAgrandir_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles pictureBoxAgrandir.MouseMove
Try
Me.pictureBoxAgrandir.Image = PourForumBoutonrAgrandirDeuxTuto
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub pictureBoxAgrandir_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBoxAgrandir.MouseLeave
Try
Me.pictureBoxAgrandir.Image = PourForumBoutonrAgrandirTuto
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub panelBarreDeLegende_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles panelBarreDeLegende.MouseDown
Try
If e.Button = System.Windows.Forms.MouseButtons.Left Then
IsFormBeingDragged = True
MouseDownX = e.X
MouseDownY = e.Y
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", 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
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", 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, "Naligator", 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, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button3.Click
Try
Me.webBrowser1.Refresh()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub webBrowser1_NewWindow(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)Handles webBrowser1.NewWindow
Try
e.Cancel = True
URLEnCour = webBrowser1.Document.ActiveElement.GetAttribute("href")
Me.webBrowser1.Navigate("" & URLEnCour & "")
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub WindowsForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
Try
Me.timer1.Start()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles timer1.Tick
Try
HeureActuel = Me.label2.Text
HeureMinutes = (HeureActuel).SubString(0,2)
HeureSeconde = (HeureActuel).SubString(5,2)
HeureSeconde = HeureSeconde + 1
If HeureSeconde < 10 Then
HeureSeconde = "0" & HeureSeconde & ""
End If
If HeureSeconde < 60 Then
Me.label2.Text = "" & HeureMinutes & " : " & HeureSeconde & ""
Else
HeureMinutes = HeureMinutes + 1
If HeureMinutes < 10 Then
HeureMinutes = "0" & HeureMinutes & ""
End If
Me.label2.Text = "" & HeureMinutes & " : 00"
If HeureMinutes = 99 Then
Me.label2.Text = "00 : 00 1h"
End If
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button4.Click
Try
URLEnCour = My.Computer.FileSystem.ReadAllText("" & Application.StartupPath & "\Dem.urdem", System.Text.Encoding.Default)
Me.webBrowser1.Navigate("" & URLEnCour & "")
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Naligator", 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("Naligator.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
Public ReadOnly Property PourForumBoutonFermerTuto() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("PourForumBoutonFermerTuto", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property PourForumBoutonrAgrandirTuto() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("PourForumBoutonrAgrandirTuto", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property PourForumBoutonreduireTuto() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("PourForumBoutonreduireTuto", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property PourForumTuto1BarreDeLegende() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("PourForumTuto1BarreDeLegende", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property PourForumBoutonrReduireDeuxTuto() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("PourForumBoutonrReduireDeuxTuto", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property PourForumBoutonrAgrandirDeuxTuto() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("PourForumBoutonrAgrandirDeuxTuto", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property PourForumBoutonrFermerDeuxTuto() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("PourForumBoutonrFermerDeuxTuto", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Aide() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Aide", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property TDC() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("TDC", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Actualiser() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Actualiser", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Avancer() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Avancer", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Retour_portail() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Retour_portail", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Retour() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Retour", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Chrono1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Chrono1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Fond_GrisVert() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Fond_GrisVert", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property croco() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("croco", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Favorie2() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Favorie2", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Favorie1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Favorie1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Historique() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Historique", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Public ReadOnly Property Option() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Option", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace
Dernière édition par gipse le Sam 21 Mai 2011 - 13:14, édité 1 fois