Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


[RESOLU] Charger une image , problème de compilation

Partagez
avatar
Saracax
On s'intègre
On s'intègre

Masculin Nombre de messages : 246
Emploi/loisirs : Informatique
Date d'inscription : 30/08/2010

[RESOLU] Charger une image , problème de compilation

Message par Saracax le Jeu 19 Avr 2012 - 18:37

Bonjour,

J'ai testé la fonction " Charger une image " pour changer un BackGroundImage.
Or , la génération échoue.

Quelques screens :





Voilà.
Merci d'avance pour vos réponses. Smile

Cordialement,
Saracax.


Dernière édition par Saracax le Sam 21 Avr 2012 - 9:55, édité 1 fois



Saracax Production
avatar
JHPC-Software
Connaisseur
Connaisseur

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

Re: [RESOLU] Charger une image , problème de compilation

Message par JHPC-Software le Jeu 19 Avr 2012 - 19:01

Bonsoir,
Qu'est-ce qu'il y a dans le panel des erreurs de génération ???
Si il y a rien, va dans le panel, et clique droit dans la zone des erreurs et clique sur "Ouvrir le dernier rapport de génération" et mettez le rapport pour qu'on analyse le problème Smile

Cordialement,
JHPC



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



--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
avatar
Saracax
On s'intègre
On s'intègre

Masculin Nombre de messages : 246
Emploi/loisirs : Informatique
Date d'inscription : 30/08/2010

Re: [RESOLU] Charger une image , problème de compilation

Message par Saracax le Jeu 19 Avr 2012 - 20:04

Rapport :

Spoiler:
Public Class WindowsForm5_f
Inherits System.Windows.Forms.Form

Public WithEvents groupBox1 As System.Windows.Forms.GroupBox

Public WithEvents button1 As System.Windows.Forms.Button

Public WithEvents groupBox2 As System.Windows.Forms.GroupBox

Public WithEvents label8 As System.Windows.Forms.Label

Public WithEvents comboBox1 As System.Windows.Forms.ComboBox

Public WithEvents label5 As System.Windows.Forms.Label

Public WithEvents groupBox3 As System.Windows.Forms.GroupBox

Public WithEvents button2 As System.Windows.Forms.Button

Public WithEvents textBox2 As System.Windows.Forms.TextBox

Public WithEvents textBox1 As System.Windows.Forms.TextBox

Public WithEvents label7 As System.Windows.Forms.Label

Public WithEvents label6 As System.Windows.Forms.Label

Public WithEvents groupBox4 As System.Windows.Forms.GroupBox

Public WithEvents button3 As System.Windows.Forms.Button

Public WithEvents label3 As System.Windows.Forms.Label

Public WithEvents button4 As System.Windows.Forms.Button

Public WithEvents button5 As System.Windows.Forms.Button

Public WithEvents textBox3 As System.Windows.Forms.TextBox

Public WithEvents label4 As System.Windows.Forms.Label

Public WithEvents button6 As System.Windows.Forms.Button

Public WithEvents label1 As System.Windows.Forms.Label

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.groupBox1 = New System.Windows.Forms.GroupBox
Me.textBox3 = New System.Windows.Forms.TextBox
Me.label4 = New System.Windows.Forms.Label
Me.button1 = New System.Windows.Forms.Button
Me.groupBox2 = New System.Windows.Forms.GroupBox
Me.label8 = New System.Windows.Forms.Label
Me.comboBox1 = New System.Windows.Forms.ComboBox
Me.label5 = New System.Windows.Forms.Label
Me.groupBox3 = New System.Windows.Forms.GroupBox
Me.button2 = New System.Windows.Forms.Button
Me.textBox2 = New System.Windows.Forms.TextBox
Me.textBox1 = New System.Windows.Forms.TextBox
Me.label7 = New System.Windows.Forms.Label
Me.label6 = New System.Windows.Forms.Label
Me.groupBox4 = New System.Windows.Forms.GroupBox
Me.button3 = New System.Windows.Forms.Button
Me.label3 = New System.Windows.Forms.Label
Me.button4 = New System.Windows.Forms.Button
Me.button5 = New System.Windows.Forms.Button
Me.button6 = New System.Windows.Forms.Button
Me.label1 = New System.Windows.Forms.Label
Me.groupBox1.SuspendLayout
Me.groupBox2.SuspendLayout
Me.groupBox3.SuspendLayout
Me.groupBox4.SuspendLayout
Me.SuspendLayout
'
'groupBox1
'
Me.groupBox1.Controls.Add(Me.label1)
Me.groupBox1.Controls.Add(Me.button6)
Me.groupBox1.Controls.Add(Me.textBox3)
Me.groupBox1.Controls.Add(Me.label4)
Me.groupBox1.Controls.Add(Me.button1)
Me.groupBox1.Location = New System.Drawing.Point(13, 13)
Me.groupBox1.Name = "groupBox1"
Me.groupBox1.Size = New System.Drawing.Size(574, 150)
Me.groupBox1.TabIndex = 0
Me.groupBox1.TabStop = false
Me.groupBox1.Text = "Connectivité"
'
'textBox3
'
Me.textBox3.Location = New System.Drawing.Point(358, 48)
Me.textBox3.Name = "textBox3"
Me.textBox3.Size = New System.Drawing.Size(210, 26)
Me.textBox3.TabIndex = 5
Me.textBox3.Text = "SPace 2.0"
'
'label4
'
Me.label4.Location = New System.Drawing.Point(407, 22)
Me.label4.Name = "label4"
Me.label4.Size = New System.Drawing.Size(113, 23)
Me.label4.TabIndex = 4
Me.label4.Text = "Message Perso :"
'
'button1
'
Me.button1.Location = New System.Drawing.Point(7, 26)
Me.button1.Name = "button1"
Me.button1.Size = New System.Drawing.Size(235, 26)
Me.button1.TabIndex = 0
Me.button1.Text = "Tester la connexion à Internet"
Me.button1.UseVisualStyleBackColor = true
'
'groupBox2
'
Me.groupBox2.Controls.Add(Me.label8)
Me.groupBox2.Controls.Add(Me.comboBox1)
Me.groupBox2.Controls.Add(Me.label5)
Me.groupBox2.Location = New System.Drawing.Point(13, 169)
Me.groupBox2.Name = "groupBox2"
Me.groupBox2.Size = New System.Drawing.Size(574, 74)
Me.groupBox2.TabIndex = 1
Me.groupBox2.TabStop = false
Me.groupBox2.Text = "Général"
'
'label8
'
Me.label8.Location = New System.Drawing.Point(420, 35)
Me.label8.Name = "label8"
Me.label8.Size = New System.Drawing.Size(148, 23)
Me.label8.TabIndex = 2
Me.label8.Text = "Version SPace : 2.1.0"
'
'comboBox1
'
Me.comboBox1.FormattingEnabled = true
Me.comboBox1.Location = New System.Drawing.Point(84, 35)
Me.comboBox1.Name = "comboBox1"
Me.comboBox1.Size = New System.Drawing.Size(121, 27)
Me.comboBox1.TabIndex = 1
Me.comboBox1.Text = "Français"
'
'label5
'
Me.label5.Location = New System.Drawing.Point(16, 38)
Me.label5.Name = "label5"
Me.label5.Size = New System.Drawing.Size(62, 23)
Me.label5.TabIndex = 0
Me.label5.Text = "Langue : "
'
'groupBox3
'
Me.groupBox3.Controls.Add(Me.button2)
Me.groupBox3.Controls.Add(Me.textBox2)
Me.groupBox3.Controls.Add(Me.textBox1)
Me.groupBox3.Controls.Add(Me.label7)
Me.groupBox3.Controls.Add(Me.label6)
Me.groupBox3.Location = New System.Drawing.Point(13, 250)
Me.groupBox3.Name = "groupBox3"
Me.groupBox3.Size = New System.Drawing.Size(574, 99)
Me.groupBox3.TabIndex = 2
Me.groupBox3.TabStop = false
Me.groupBox3.Text = "Sécurité - Changer de Mot de Passe"
'
'button2
'
Me.button2.Location = New System.Drawing.Point(432, 35)
Me.button2.Name = "button2"
Me.button2.Size = New System.Drawing.Size(136, 38)
Me.button2.TabIndex = 4
Me.button2.Text = "Changer"
Me.button2.UseVisualStyleBackColor = true
'
'textBox2
'
Me.textBox2.Location = New System.Drawing.Point(173, 67)
Me.textBox2.Name = "textBox2"
Me.textBox2.Size = New System.Drawing.Size(220, 26)
Me.textBox2.TabIndex = 3
'
'textBox1
'
Me.textBox1.Location = New System.Drawing.Point(173, 35)
Me.textBox1.Name = "textBox1"
Me.textBox1.Size = New System.Drawing.Size(220, 26)
Me.textBox1.TabIndex = 2
'
'label7
'
Me.label7.Location = New System.Drawing.Point(7, 67)
Me.label7.Name = "label7"
Me.label7.Size = New System.Drawing.Size(161, 23)
Me.label7.TabIndex = 1
Me.label7.Text = "Nouveau Mot de Passe :"
'
'label6
'
Me.label6.Location = New System.Drawing.Point(25, 35)
Me.label6.Name = "label6"
Me.label6.Size = New System.Drawing.Size(143, 23)
Me.label6.TabIndex = 0
Me.label6.Text = "Mot de Passe actuel :"
'
'groupBox4
'
Me.groupBox4.Controls.Add(Me.button3)
Me.groupBox4.Controls.Add(Me.label3)
Me.groupBox4.Location = New System.Drawing.Point(13, 355)
Me.groupBox4.Name = "groupBox4"
Me.groupBox4.Size = New System.Drawing.Size(574, 105)
Me.groupBox4.TabIndex = 3
Me.groupBox4.TabStop = false
Me.groupBox4.Text = "Réinitialisation"
'
'button3
'
Me.button3.Location = New System.Drawing.Point(186, 64)
Me.button3.Name = "button3"
Me.button3.Size = New System.Drawing.Size(186, 34)
Me.button3.TabIndex = 1
Me.button3.Text = "Réinitialiser SPace"
Me.button3.UseVisualStyleBackColor = true
'
'label3
'
Me.label3.Font = New System.Drawing.Font("Segoe UI", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.label3.ForeColor = System.Drawing.Color.Red
Me.label3.Location = New System.Drawing.Point(7, 26)
Me.label3.Name = "label3"
Me.label3.Size = New System.Drawing.Size(529, 35)
Me.label3.TabIndex = 0
Me.label3.Text = "Attention ! Une réinitialisation entraine la suppression de TOUTES vos informatio"& _
"ns SPace. Vous devrez repartir totalement de zéro ! "
'
'button4
'
Me.button4.Location = New System.Drawing.Point(12, 476)
Me.button4.Name = "button4"
Me.button4.Size = New System.Drawing.Size(169, 43)
Me.button4.TabIndex = 4
Me.button4.Text = "Annuler"
Me.button4.UseVisualStyleBackColor = true
'
'button5
'
Me.button5.Location = New System.Drawing.Point(420, 476)
Me.button5.Name = "button5"
Me.button5.Size = New System.Drawing.Size(169, 43)
Me.button5.TabIndex = 5
Me.button5.Text = "Enregistrer"
Me.button5.UseVisualStyleBackColor = true
'
'button6
'
Me.button6.Location = New System.Drawing.Point(173, 96)
Me.button6.Name = "button6"
Me.button6.Size = New System.Drawing.Size(191, 36)
Me.button6.TabIndex = 7
Me.button6.Text = "Charger une image"
Me.button6.UseVisualStyleBackColor = true
'
'label1
'
Me.label1.Location = New System.Drawing.Point(7, 96)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(162, 23)
Me.label1.TabIndex = 8
Me.label1.Text = "Changer le fond d'écran :"
'
'WindowsForm5
'
Me.ClientSize = New System.Drawing.Size(601, 531)
Me.ControlBox = false
Me.Controls.Add(Me.button4)
Me.Controls.Add(Me.groupBox4)
Me.Controls.Add(Me.groupBox3)
Me.Controls.Add(Me.groupBox2)
Me.Controls.Add(Me.groupBox1)
Me.Controls.Add(Me.button5)
Me.Font = New System.Drawing.Font("Segoe UI", 10.25!)
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.MaximumSize = New System.Drawing.Size(617, 569)
Me.MinimumSize = New System.Drawing.Size(617, 569)
Me.Name = "WindowsForm5"
Me.Text = "Paramétrage - SPace 2"
Me.groupBox1.ResumeLayout(false)
Me.groupBox1.PerformLayout
Me.groupBox2.ResumeLayout(false)
Me.groupBox3.ResumeLayout(false)
Me.groupBox3.PerformLayout
Me.groupBox4.ResumeLayout(false)
Me.ResumeLayout(false)
End Sub
End Class



Saracax Production
avatar
JHPC-Software
Connaisseur
Connaisseur

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

Re: [RESOLU] Charger une image , problème de compilation

Message par JHPC-Software le Jeu 19 Avr 2012 - 20:36

Bonsoir,
Tu as bien cliquer sur ce bouton (Celui encadré en rouge):


Si oui tu va tombé sur un rapport qui ressemble a ceci :
Spoiler:
Project : WindowsApplication1
Last build the jeudi 19 avril 2012 at 22:25

Building failed : errors number: 4
File code : C:\Program Files\Veler Software\SoftwareZator 2011\Temp\Code.vb

Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : WindowsForm1.szw
SplashScreen :
Optimize : True
----------------------------------------------------------------
2 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"C:\Documents and Settings\Admin\Mes documents\Mes Projets SoftwareZator\WindowsApplication1\Bin\WindowsApplication1.manifest"'; non reconnue ignorée
3 - Line 168, Column 0, Error BC30451 : Le nom 'Magic' n'est pas déclaré.
4 - Line 168, Column 0, Error BC30201 : Expression attendue.
5 - Line 168, Column 0, Error BC30800 : Les arguments de méthode doivent être mis entre parenthèses.

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

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

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

'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System

Imports System.ComponentModel

Imports System.Windows.Forms












'Ce Namespace a été généré par SoftwareZator 2011 Edition Professionnel (2.0.0.1)
Namespace WindowsApplication1

Public Class WindowsForm1_f
Inherits System.Windows.Forms.Form

Public WithEvents webBrowser1 As System.Windows.Forms.WebBrowser

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(WindowsForm1_f))
Me.webBrowser1 = New System.Windows.Forms.WebBrowser
Me.label1 = New System.Windows.Forms.Label
Me.timer1 = New System.Windows.Forms.Timer(Me.components)
Me.SuspendLayout
'
'webBrowser1
'
Me.webBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
Me.webBrowser1.Location = New System.Drawing.Point(0, 0)
Me.webBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
Me.webBrowser1.Name = "webBrowser1"
Me.webBrowser1.Size = New System.Drawing.Size(482, 262)
Me.webBrowser1.TabIndex = 0
'
'label1
'
Me.label1.Location = New System.Drawing.Point(280, 52)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(66, 35)
Me.label1.TabIndex = 1
Me.label1.Text = "label1"
'
'timer1
'
Me.timer1.Enabled = true
Me.timer1.Interval = 1
'
'WindowsForm1
'
Me.ClientSize = New System.Drawing.Size(482, 262)
Me.Controls.Add(Me.label1)
Me.Controls.Add(Me.webBrowser1)
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.Name = "WindowsForm1"
Me.Text = "WindowsForm1"
Me.ResumeLayout(false)
End Sub

_
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. WindowsApplication1 can't start without it. Please install the .Net Framework 3.5 and try again.", "WindowsApplication1", 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 scqf As Object '
Public ALL_ARGUMENTS_APPLICATIONS() As Object = New Object(-1){}
Public ALLUSERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("ALLUSERPROFILE"))
Public APPDATA As Object = CStr(Environment.GetEnvironmentVariable("APPDATA"))
Public CLASSPATH As Object = CStr(Environment.GetEnvironmentVariable("CLASSPATH"))
Public CommonProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("CommonProgramFiles"))
Public COMPUTERNAME As Object = CStr(Environment.GetEnvironmentVariable("COMPUTERNAME"))
Public ComSpec As Object = CStr(Environment.GetEnvironmentVariable("ComSpec"))
Public FP_NO_HOST_CHECK As Object = CStr(Environment.GetEnvironmentVariable("FP_NO_HOST_CHECK"))
Public HOMEDRIVE As Object = CStr(Environment.GetEnvironmentVariable("HOMEDRIVE"))
Public HOMEPATH As Object = CStr(Environment.GetEnvironmentVariable("HOMEPATH"))
Public LOCALAPPDATA As Object = CStr(Environment.GetEnvironmentVariable("LOCALAPPDATA"))
Public LOGONSERVER As Object = CStr(Environment.GetEnvironmentVariable("LOGONSERVER"))
Public NUMBER_OF_PROCESSORS As Object = CStr(Environment.GetEnvironmentVariable("NUMBER_OF_PROCESSORS"))
Public OS As Object = CStr(Environment.GetEnvironmentVariable("OS"))
Public PATH As Object = CStr(Environment.GetEnvironmentVariable("PATH"))
Public PATHEXT As Object = CStr(Environment.GetEnvironmentVariable("PATHEXT"))
Public PROCESSOR_ARCHITECTURE As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE"))
Public PROCESSOR_IDENTIFIER As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_IDENTIFIER"))
Public PROCESSOR_LEVEL As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_LEVEL"))
Public PROCESSOR_REVISION As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_REVISION"))
Public ProgramData As Object = CStr(Environment.GetEnvironmentVariable("ProgramData"))
Public ProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("ProgramFiles"))
Public [PUBLIC] As Object = CStr(Environment.GetEnvironmentVariable("PUBLIC"))
Public SESSIONNAME As Object = CStr(Environment.GetEnvironmentVariable("SESSIONNAME"))
Public SystemDrive As Object = CStr(Environment.GetEnvironmentVariable("SystemDrive"))
Public SystemRoot As Object = CStr(Environment.GetEnvironmentVariable("SystemRoot"))
Public TEMP As Object = CStr(Environment.GetEnvironmentVariable("TEMP"))
Public TMP As Object = CStr(Environment.GetEnvironmentVariable("TMP"))
Public USERDOMAIN As Object = CStr(Environment.GetEnvironmentVariable("USERDOMAIN"))
Public USERNAME As Object = CStr(Environment.GetEnvironmentVariable("USERNAME"))
Public USERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("USERPROFILES"))
Public windir As Object = CStr(Environment.GetEnvironmentVariable("windir"))
End Module

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



Partial Public Class WindowsForm1_f

Public Sub WindowsForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
Try
Magic Sub héritage ()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "WindowsApplication1", 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
Me.label1.Text = MousePosition.X & ";" & MousePosition.Y
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "WindowsApplication1", 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.
'''
''' Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
'''

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

'''
''' Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
'''

_
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("WindowsApplication1.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property

'''
''' Remplace la propriété CurrentUICulture du thread actuel pour toutes
''' les recherches de ressources à l'aide de cette classe de ressource fortement typée.
'''

_
Public Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property


End Module
End Namespace
Ce qui m’intéresse c'est ce qui est en rouge
Moi j'ai provoqué une erreur(en marquant n'importe quoi) pour montré a quoi sa ressemble.

Cordialement,
JHPC



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



--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
avatar
Saracax
On s'intègre
On s'intègre

Masculin Nombre de messages : 246
Emploi/loisirs : Informatique
Date d'inscription : 30/08/2010

Re: [RESOLU] Charger une image , problème de compilation

Message par Saracax le Ven 20 Avr 2012 - 15:48

Re,

Désolé , j'avais mal compris. Neutral

Spoiler:
Project : SPace
Last build the vendredi 20 avril 2012 at 17:47

Building failed : errors number: 2
File code : C:\Program Files (x86)\Veler Software\SoftwareZator 2011\Temp\Code.vb

Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : WindowsForm1.szw
SplashScreen :
Optimize : True
----------------------------------------------------------------
24 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"C:\Users\Leonard\Documents\Mes Projets SoftwareZator\SPace\Bin\SPace.manifest"'; non reconnue ignorée
25 - Line 4913, Column 0, Error BC30311 : Une valeur de type 'String' ne peut pas être convertie en 'System.Drawing.Image'.
----------------------------------------------------------------

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

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

'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System

Imports System.ComponentModel

Imports System.Windows.Forms












'Ce Namespace a été généré par SoftwareZator 2011 Edition Standard (2.0.0.0)
Namespace SPace

Public Class AboutBox1_f
Inherits System.Windows.Forms.Form

Public WithEvents LabelVersion As System.Windows.Forms.Label

Public WithEvents LabelCopyright As System.Windows.Forms.Label

Public WithEvents LabelCompanyName As System.Windows.Forms.Label

Public WithEvents TableLayoutPanel As System.Windows.Forms.TableLayoutPanel

Public WithEvents LogoPictureBox As System.Windows.Forms.PictureBox

Public WithEvents LabelProductName As System.Windows.Forms.Label

Public WithEvents TextBoxDescription As System.Windows.Forms.TextBox

Public WithEvents OKButton As System.Windows.Forms.Button

Public WithEvents linkLabel1 As System.Windows.Forms.LinkLabel

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(AboutBox1_f))
Me.LabelVersion = New System.Windows.Forms.Label
Me.LabelCopyright = New System.Windows.Forms.Label
Me.LabelCompanyName = New System.Windows.Forms.Label
Me.TableLayoutPanel = New System.Windows.Forms.TableLayoutPanel
Me.LabelProductName = New System.Windows.Forms.Label
Me.TextBoxDescription = New System.Windows.Forms.TextBox
Me.OKButton = New System.Windows.Forms.Button
Me.linkLabel1 = New System.Windows.Forms.LinkLabel
Me.LogoPictureBox = New System.Windows.Forms.PictureBox
Me.TableLayoutPanel.SuspendLayout
CType(Me.LogoPictureBox,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
'
'LabelVersion
'
Me.LabelVersion.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelVersion.Location = New System.Drawing.Point(133, 26)
Me.LabelVersion.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
Me.LabelVersion.MaximumSize = New System.Drawing.Size(0, 17)
Me.LabelVersion.Name = "LabelVersion"
Me.LabelVersion.Size = New System.Drawing.Size(250, 17)
Me.LabelVersion.TabIndex = 0
Me.LabelVersion.Text = "2.0.0"
Me.LabelVersion.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelCopyright
'
Me.LabelCopyright.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelCopyright.Location = New System.Drawing.Point(133, 52)
Me.LabelCopyright.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
Me.LabelCopyright.MaximumSize = New System.Drawing.Size(0, 17)
Me.LabelCopyright.Name = "LabelCopyright"
Me.LabelCopyright.Size = New System.Drawing.Size(250, 17)
Me.LabelCopyright.TabIndex = 0
Me.LabelCopyright.Text = "Copyright 2011-2012"
Me.LabelCopyright.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelCompanyName
'
Me.LabelCompanyName.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelCompanyName.Location = New System.Drawing.Point(133, 78)
Me.LabelCompanyName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
Me.LabelCompanyName.MaximumSize = New System.Drawing.Size(0, 17)
Me.LabelCompanyName.Name = "LabelCompanyName"
Me.LabelCompanyName.Size = New System.Drawing.Size(250, 17)
Me.LabelCompanyName.TabIndex = 0
Me.LabelCompanyName.Text = "Saracax Production"
Me.LabelCompanyName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'TableLayoutPanel
'
Me.TableLayoutPanel.ColumnCount = 2
Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33!))
Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 67!))
Me.TableLayoutPanel.Controls.Add(Me.LabelProductName, 1, 0)
Me.TableLayoutPanel.Controls.Add(Me.LabelVersion, 1, 1)
Me.TableLayoutPanel.Controls.Add(Me.LabelCopyright, 1, 2)
Me.TableLayoutPanel.Controls.Add(Me.LabelCompanyName, 1, 3)
Me.TableLayoutPanel.Controls.Add(Me.TextBoxDescription, 1, 4)
Me.TableLayoutPanel.Controls.Add(Me.OKButton, 1, 6)
Me.TableLayoutPanel.Controls.Add(Me.linkLabel1, 1, 5)
Me.TableLayoutPanel.Controls.Add(Me.LogoPictureBox, 0, 0)
Me.TableLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill
Me.TableLayoutPanel.Location = New System.Drawing.Point(9, 9)
Me.TableLayoutPanel.Name = "TableLayoutPanel"
Me.TableLayoutPanel.RowCount = 7
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 37.5!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 40!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel.Size = New System.Drawing.Size(386, 248)
Me.TableLayoutPanel.TabIndex = 1
'
'LabelProductName
'
Me.LabelProductName.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelProductName.Location = New System.Drawing.Point(133, 0)
Me.LabelProductName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
Me.LabelProductName.MaximumSize = New System.Drawing.Size(0, 17)
Me.LabelProductName.Name = "LabelProductName"
Me.LabelProductName.Size = New System.Drawing.Size(250, 17)
Me.LabelProductName.TabIndex = 0
Me.LabelProductName.Text = "SPace"
Me.LabelProductName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'TextBoxDescription
'
Me.TextBoxDescription.Dock = System.Windows.Forms.DockStyle.Fill
Me.TextBoxDescription.Location = New System.Drawing.Point(133, 107)
Me.TextBoxDescription.Margin = New System.Windows.Forms.Padding(6, 3, 3, 3)
Me.TextBoxDescription.Multiline = true
Me.TextBoxDescription.Name = "TextBoxDescription"
Me.TextBoxDescription.ReadOnly = true
Me.TextBoxDescription.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.TextBoxDescription.Size = New System.Drawing.Size(250, 72)
Me.TextBoxDescription.TabIndex = 0
Me.TextBoxDescription.TabStop = false
Me.TextBoxDescription.Text = "Description :"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SPace est une application utilitaire regroupant plusieurs service"& _
"s dotés des dernières technologies de Saracax Production."
'
'OKButton
'
Me.OKButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.OKButton.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.OKButton.Location = New System.Drawing.Point(308, 225)
Me.OKButton.Name = "OKButton"
Me.OKButton.Size = New System.Drawing.Size(75, 20)
Me.OKButton.TabIndex = 0
Me.OKButton.Text = "&OK"
'
'linkLabel1
'
Me.linkLabel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.linkLabel1.Location = New System.Drawing.Point(130, 182)
Me.linkLabel1.Name = "linkLabel1"
Me.linkLabel1.Size = New System.Drawing.Size(253, 40)
Me.linkLabel1.TabIndex = 1
Me.linkLabel1.TabStop = true
Me.linkLabel1.Text = "Site Officiel de Saracax >"
'
'LogoPictureBox
'
Me.LogoPictureBox.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.LogoPictureBox.ErrorImage = CType(resources.GetObject("LogoPictureBox.ErrorImage"),System.Drawing.Image)
Me.LogoPictureBox.Image = CType(resources.GetObject("LogoPictureBox.Image"),System.Drawing.Image)
Me.LogoPictureBox.InitialImage = CType(resources.GetObject("LogoPictureBox.InitialImage"),System.Drawing.Image)
Me.LogoPictureBox.Location = New System.Drawing.Point(3, 3)
Me.LogoPictureBox.Name = "LogoPictureBox"
Me.TableLayoutPanel.SetRowSpan(Me.LogoPictureBox, 7)
Me.LogoPictureBox.Size = New System.Drawing.Size(121, 242)
Me.LogoPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.LogoPictureBox.TabIndex = 0
Me.LogoPictureBox.TabStop = false
'
'AboutBox1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.OKButton
Me.ClientSize = New System.Drawing.Size(404, 266)
Me.Controls.Add(Me.TableLayoutPanel)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.MaximizeBox = false
Me.MinimizeBox = false
Me.Name = "AboutBox1"
Me.Padding = New System.Windows.Forms.Padding(9)
Me.ShowIcon = false
Me.ShowInTaskbar = false
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "A Propos de SPace"
Me.TableLayoutPanel.ResumeLayout(false)
Me.TableLayoutPanel.PerformLayout
CType(Me.LogoPictureBox,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
End Sub
End Class

Public Class WindowsForm1_f
Inherits System.Windows.Forms.Form

Public WithEvents label1 As System.Windows.Forms.Label

Public WithEvents button1 As System.Windows.Forms.Button

Public WithEvents button2 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(WindowsForm1_f))
Me.label1 = New System.Windows.Forms.Label
Me.button1 = New System.Windows.Forms.Button
Me.button2 = New System.Windows.Forms.Button
Me.SuspendLayout
'
'label1
'
Me.label1.Font = New System.Drawing.Font("Segoe UI", 24!, System.Drawing.FontStyle.Italic)
Me.label1.ForeColor = System.Drawing.Color.DarkTurquoise
Me.label1.Location = New System.Drawing.Point(12, 28)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(392, 50)
Me.label1.TabIndex = 0
Me.label1.Text = "Bienvenue sur SPace 2.0"
'
'button1
'
Me.button1.Font = New System.Drawing.Font("Segoe UI", 12.25!)
Me.button1.Location = New System.Drawing.Point(208, 115)
Me.button1.Name = "button1"
Me.button1.Size = New System.Drawing.Size(235, 60)
Me.button1.TabIndex = 1
Me.button1.Text = "Entrer dans l'interface"
Me.button1.UseVisualStyleBackColor = true
'
'button2
'
Me.button2.Font = New System.Drawing.Font("Segoe UI", 10.25!)
Me.button2.Location = New System.Drawing.Point(12, 122)
Me.button2.Name = "button2"
Me.button2.Size = New System.Drawing.Size(103, 49)
Me.button2.TabIndex = 2
Me.button2.Text = "Quitter"
Me.button2.UseVisualStyleBackColor = true
'
'WindowsForm1
'
Me.ClientSize = New System.Drawing.Size(455, 184)
Me.ControlBox = false
Me.Controls.Add(Me.button2)
Me.Controls.Add(Me.button1)
Me.Controls.Add(Me.label1)
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.MaximumSize = New System.Drawing.Size(471, 222)
Me.MinimumSize = New System.Drawing.Size(471, 222)
Me.Name = "WindowsForm1"
Me.Text = "SPace 2"
Me.ResumeLayout(false)
End Sub

_
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. SPace can't start without it. Please install the .Net Framework 3.5 and try again.", "SPace", 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 WindowsForm10_f
Inherits System.Windows.Forms.Form

Public WithEvents label1 As System.Windows.Forms.Label

Public WithEvents textBox1 As System.Windows.Forms.TextBox

Public WithEvents button1 As System.Windows.Forms.Button

Public WithEvents button2 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(WindowsForm10_f))
Me.label1 = New System.Windows.Forms.Label
Me.textBox1 = New System.Windows.Forms.TextBox
Me.button1 = New System.Windows.Forms.Button
Me.button2 = New System.Windows.Forms.Button
Me.SuspendLayout
'
'label1
'
Me.label1.Location = New System.Drawing.Point(13, 13)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(192, 23)
Me.label1.TabIndex = 0
Me.label1.Text = "Changer la page d'accueil :"
'
'textBox1
'
Me.textBox1.Location = New System.Drawing.Point(13, 49)
Me.textBox1.Name = "textBox1"
Me.textBox1.Size = New System.Drawing.Size(394, 26)
Me.textBox1.TabIndex = 1
'
'button1
'
Me.button1.Location = N



Saracax Production
avatar
lereparateurdepc


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

Re: [RESOLU] Charger une image , problème de compilation

Message par lereparateurdepc le Ven 20 Avr 2012 - 15:56

re ,

A mon avis , tu as une variable text que tu veux utiliser comme image :
25 - Line 4913, Column 0, Error BC30311 : Une valeur de type 'String' ne peut pas être convertie en 'System.Drawing.Image'.

Il y as quoi sur le ligne 25 ? ( utilise le bouton voir les codes )

AHH , j'ai trouvé , c'est ta capture .....
enlève les %( de chaque côtés de la variable et ne coche PAS la case ceci est du text ...

Cordialement ,
Le réparateur de PC



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

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

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


avatar
JHPC-Software
Connaisseur
Connaisseur

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

Re: [RESOLU] Charger une image , problème de compilation

Message par JHPC-Software le Ven 20 Avr 2012 - 15:58

Bonjour,
Ce n'est pas grave on apprend tous les jours Smile
Je rejoins l'astuce de lereparateurdepc

Cordialement,
JHPC



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



--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
avatar
Saracax
On s'intègre
On s'intègre

Masculin Nombre de messages : 246
Emploi/loisirs : Informatique
Date d'inscription : 30/08/2010

Re: [RESOLU] Charger une image , problème de compilation

Message par Saracax le Ven 20 Avr 2012 - 16:24

Re,

En effet , ça fonctionne , Merci. Very Happy

Mais.. J'ai un autre problème. Neutral

Lorsque je clique sur mon bouton ,


Une fenetre d'erreur s'ouvre :




Voici les fonctions de mon bouton :



Voilà.
Merci d'avance. Smile

Cordialement,
Saracax



Saracax Production
avatar
Admin
Administrateur
Administrateur

Masculin Nombre de messages : 1875
Age : 24
Localisation : Boulogne Billancourt(92100)(France)
Emploi/loisirs : Etudiant à SUPINFO International University, stagiaire à Microsoft Corporation
Date d'inscription : 24/01/2008

Re: [RESOLU] Charger une image , problème de compilation

Message par Admin le Ven 20 Avr 2012 - 17:55

Bonjour,

La variable d'application MY_PICTURES retourne le chemin complet vers le dossier "Mes images". Un dossier n'est pas un fichier image, il ne peut pas être chargé. Il faut donner le chemin complet vers une image.

Exemple : %(MY_PICTURES)%\image.jpg

Voilà Smile



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

Etienne

Site internet : http://www.velersoftware.com
Twitter : http://twitter.com/VelerSoftware
avatar
Saracax
On s'intègre
On s'intègre

Masculin Nombre de messages : 246
Emploi/loisirs : Informatique
Date d'inscription : 30/08/2010

Re: [RESOLU] Charger une image , problème de compilation

Message par Saracax le Sam 21 Avr 2012 - 9:54


Re,

Merci beaucoup. Very Happy

Cordialement,
Saracax



Saracax Production

Contenu sponsorisé

Re: [RESOLU] Charger une image , problème de compilation

Message par Contenu sponsorisé


    La date/heure actuelle est Jeu 22 Juin 2017 - 22:13