Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


Image et touche [RESOLUT]

Partagez
avatar
gipse
Habitué
Habitué

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

Image et touche [RESOLUT]

Message par gipse le Sam 12 Mar 2011 - 17:10

Salut tout le monde !! cheers cheers
Alors j'ai deux questions:
1er: j'aimerai pouvoir changé une image de mon logiciel par une autre choisi avec un openfiledialog.
2ème: Que l'utilisateur appui sur une touche et ça fait une action.
Merci de répondre ,
Gipse confused


Dernière édition par gipse le Dim 13 Mar 2011 - 12:13, édité 1 fois



"Mes logiciel - clic ici":

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

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:
Tuto VB.NET : http://forumvelersoftware.bbactif.com/t788-tuto-apprendre-le-vbnet-pour-sz
Ce tuto a été verrouillé donc les réponses se font sur mon site : http://lesitedegipse.frblogs.com/Le-Site-De-Gipse-b1/Apprendre-le-VBNET-b1-p4.htm


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


Masculin Nombre de messages : 5517
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: Image et touche [RESOLUT]

Message par lereparateurdepc le Sam 12 Mar 2011 - 17:26

re ,

Pour l'image , je vois comment mais je ne suis pas sûre , ça fait un moment que je l'ai fait :

Une fois que tu as le chimin complet vers ton image ,
rensaigne l'action Charger une image depuis un fichier dans la rubrique multimédias .
Une fois fait , modifie la propriété .Image du PictureBox et met comme valeure cette variable :
!!!!!! je ne pense PAS que tu puisse la mettre sous la forme %(variable)% mais simplement variable -> NON textuelle .

Pour la touche , il existe une API mais , elle est assez compliquée à utiliser :
Regarde , il y a déjà un sujet là dessus .
-> SI tu souhaite éxécuter une acvtion en appuyant sur n'importe quelle touche ,
c'est impossible SAUF SI tu crée une API par touches ...... Smile je te laisse le faire !! Smile affraid

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
gipse
Habitué
Habitué

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

Re: Image et touche [RESOLUT]

Message par gipse le Sam 12 Mar 2011 - 17:29

OK merci c'est déjà ca je teste pour les images et je regarde pour les touches.
Gipse



"Mes logiciel - clic ici":

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

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:
Tuto VB.NET : http://forumvelersoftware.bbactif.com/t788-tuto-apprendre-le-vbnet-pour-sz
Ce tuto a été verrouillé donc les réponses se font sur mon site : http://lesitedegipse.frblogs.com/Le-Site-De-Gipse-b1/Apprendre-le-VBNET-b1-p4.htm


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

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

Re: Image et touche [RESOLUT]

Message par gipse le Sam 12 Mar 2011 - 17:38

Pour l'image erreur de génération indéterminé :

Code:
Last build the samedi 12 mars 2011 at 18:33

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

Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : WindowsForm1.szw
SplashScreen :
Optimize : True
----------------------------------------------------------------
    4 - Line 0, Column 0, Error BC2007 : unrecognized option 'win32manifest:"D:\Documents and Settings\maxou\Mes documents\Mes Projets SoftwareZator\veille\Bin\veille.manifest"'; ignored
    5 - Line 553, Column 0, Error BC30311 : Value of type '1-dimensional array of Object' cannot be converted to 'System.Drawing.Image'.
----------------------------------------------------------------

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

'------------------------------------------------------------------------------
' <auto-generated>
'    This code was generated by a tool.
'    Runtime Version:2.0.50727.3615
'
'    Changes to this file may cause incorrect behavior and will be lost if
'    the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System

Imports System.ComponentModel

Imports System.Windows.Forms

<Assembly: Reflection.AssemblyTitle("veille")>
<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 veille
   
    Public Class KryptonForm1_f
        Inherits ComponentFactory.Krypton.Toolkit.KryptonForm
       
        Public WithEvents buttonfermerapplicer As System.Windows.Forms.Button
       
        Public WithEvents buttonfermerannuler As System.Windows.Forms.Button
       
        Public WithEvents label1 As System.Windows.Forms.Label
       
        Public WithEvents groupBox1 As System.Windows.Forms.GroupBox
       
        Public WithEvents buttonsupprimer As System.Windows.Forms.Button
       
        Public WithEvents buttonajouter As System.Windows.Forms.Button
       
        Public WithEvents listBox1 As System.Windows.Forms.ListBox
       
        Public WithEvents label3 As System.Windows.Forms.Label
       
        Public WithEvents label2 As System.Windows.Forms.Label
       
        Public WithEvents groupBox2 As System.Windows.Forms.GroupBox
       
        Public WithEvents numericUpDown1 As System.Windows.Forms.NumericUpDown
       
        Public WithEvents buttontester As System.Windows.Forms.Button
       
        Public WithEvents openFileDialog1 As System.Windows.Forms.OpenFileDialog
       
        Public WithEvents imageList1 As System.Windows.Forms.ImageList
       
        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(KryptonForm1_f))
            Me.buttonfermerapplicer = New System.Windows.Forms.Button
            Me.buttonfermerannuler = New System.Windows.Forms.Button
            Me.label1 = New System.Windows.Forms.Label
            Me.groupBox1 = New System.Windows.Forms.GroupBox
            Me.buttonsupprimer = New System.Windows.Forms.Button
            Me.buttonajouter = New System.Windows.Forms.Button
            Me.listBox1 = New System.Windows.Forms.ListBox
            Me.label3 = New System.Windows.Forms.Label
            Me.label2 = New System.Windows.Forms.Label
            Me.groupBox2 = New System.Windows.Forms.GroupBox
            Me.numericUpDown1 = New System.Windows.Forms.NumericUpDown
            Me.buttontester = New System.Windows.Forms.Button
            Me.openFileDialog1 = New System.Windows.Forms.OpenFileDialog
            Me.imageList1 = New System.Windows.Forms.ImageList(Me.components)
            Me.groupBox1.SuspendLayout
            Me.groupBox2.SuspendLayout
            CType(Me.numericUpDown1,System.ComponentModel.ISupportInitialize).BeginInit
            Me.SuspendLayout
            '
            'buttonfermerapplicer
            '
            Me.buttonfermerapplicer.ForeColor = System.Drawing.Color.Black
            Me.buttonfermerapplicer.Location = New System.Drawing.Point(346, 162)
            Me.buttonfermerapplicer.Name = "buttonfermerapplicer"
            Me.buttonfermerapplicer.Size = New System.Drawing.Size(131, 23)
            Me.buttonfermerapplicer.TabIndex = 0
            Me.buttonfermerapplicer.Text = "Fermer et appliquer"
            Me.buttonfermerapplicer.UseVisualStyleBackColor = true
            '
            'buttonfermerannuler
            '
            Me.buttonfermerannuler.ForeColor = System.Drawing.Color.Black
            Me.buttonfermerannuler.Location = New System.Drawing.Point(209, 162)
            Me.buttonfermerannuler.Name = "buttonfermerannuler"
            Me.buttonfermerannuler.Size = New System.Drawing.Size(131, 23)
            Me.buttonfermerannuler.TabIndex = 0
            Me.buttonfermerannuler.Text = "Fermer et annuler"
            Me.buttonfermerannuler.UseVisualStyleBackColor = true
            '
            'label1
            '
            Me.label1.Font = New System.Drawing.Font("Comic Sans MS", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
            Me.label1.ForeColor = System.Drawing.Color.White
            Me.label1.Location = New System.Drawing.Point(1, 0)
            Me.label1.Name = "label1"
            Me.label1.Size = New System.Drawing.Size(488, 25)
            Me.label1.TabIndex = 1
            Me.label1.Text = "Configuration de MaxVeille.                                ©MaxProduction,2011"
            '
            'groupBox1
            '
            Me.groupBox1.Controls.Add(Me.buttonsupprimer)
            Me.groupBox1.Controls.Add(Me.buttonajouter)
            Me.groupBox1.Controls.Add(Me.listBox1)
            Me.groupBox1.Controls.Add(Me.label3)
            Me.groupBox1.ForeColor = System.Drawing.Color.White
            Me.groupBox1.Location = New System.Drawing.Point(12, 28)
            Me.groupBox1.Name = "groupBox1"
            Me.groupBox1.Size = New System.Drawing.Size(303, 127)
            Me.groupBox1.TabIndex = 2
            Me.groupBox1.TabStop = false
            Me.groupBox1.Text = "Image"
            '
            'buttonsupprimer
            '
            Me.buttonsupprimer.Enabled = false
            Me.buttonsupprimer.ForeColor = System.Drawing.Color.Black
            Me.buttonsupprimer.Location = New System.Drawing.Point(12, 87)
            Me.buttonsupprimer.Name = "buttonsupprimer"
            Me.buttonsupprimer.Size = New System.Drawing.Size(87, 25)
            Me.buttonsupprimer.TabIndex = 3
            Me.buttonsupprimer.Text = "Supprimer"
            Me.buttonsupprimer.UseVisualStyleBackColor = true
            '
            'buttonajouter
            '
            Me.buttonajouter.ForeColor = System.Drawing.Color.Black
            Me.buttonajouter.Location = New System.Drawing.Point(12, 42)
            Me.buttonajouter.Name = "buttonajouter"
            Me.buttonajouter.Size = New System.Drawing.Size(87, 29)
            Me.buttonajouter.TabIndex = 2
            Me.buttonajouter.Text = "Ajouter"
            Me.buttonajouter.UseVisualStyleBackColor = true
            '
            'listBox1
            '
            Me.listBox1.BackColor = System.Drawing.Color.White
            Me.listBox1.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
            Me.listBox1.ForeColor = System.Drawing.Color.Black
            Me.listBox1.FormattingEnabled = true
            Me.listBox1.ItemHeight = 15
            Me.listBox1.Location = New System.Drawing.Point(100, 18)
            Me.listBox1.Name = "listBox1"
            Me.listBox1.Size = New System.Drawing.Size(195, 94)
            Me.listBox1.TabIndex = 1
            '
            'label3
            '
            Me.label3.Location = New System.Drawing.Point(6, 18)
            Me.label3.Name = "label3"
            Me.label3.Size = New System.Drawing.Size(93, 21)
            Me.label3.TabIndex = 0
            Me.label3.Text = "Image a afficher:"
            '
            'label2
            '
            Me.label2.ForeColor = System.Drawing.Color.White
            Me.label2.Location = New System.Drawing.Point(6, 18)
            Me.label2.Name = "label2"
            Me.label2.Size = New System.Drawing.Size(161, 94)
            Me.label2.TabIndex = 0
            Me.label2.Text = " Temps entre chaque image :"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"(En miliseconde: 1000ms= 1s)"
            '
            'groupBox2
            '
            Me.groupBox2.Controls.Add(Me.numericUpDown1)
            Me.groupBox2.Controls.Add(Me.label2)
            Me.groupBox2.ForeColor = System.Drawing.Color.White
            Me.groupBox2.Location = New System.Drawing.Point(313, 28)
            Me.groupBox2.Name = "groupBox2"
            Me.groupBox2.Size = New System.Drawing.Size(167, 127)
            Me.groupBox2.TabIndex = 3
            Me.groupBox2.TabStop = false
            Me.groupBox2.Text = "Temps"
            '
            'numericUpDown1
            '
            Me.numericUpDown1.BackColor = System.Drawing.Color.White
            Me.numericUpDown1.ForeColor = System.Drawing.Color.Black
            Me.numericUpDown1.Location = New System.Drawing.Point(6, 49)
            Me.numericUpDown1.Maximum = New Decimal(New Integer() {60000, 0, 0, 0})
            Me.numericUpDown1.Minimum = New Decimal(New Integer() {100, 0, 0, 0})
            Me.numericUpDown1.Name = "numericUpDown1"
            Me.numericUpDown1.Size = New System.Drawing.Size(155, 22)
            Me.numericUpDown1.TabIndex = 1
            Me.numericUpDown1.Value = New Decimal(New Integer() {100, 0, 0, 0})
            '
            'buttontester
            '
            Me.buttontester.ForeColor = System.Drawing.Color.Black
            Me.buttontester.Location = New System.Drawing.Point(151, 162)
            Me.buttontester.Name = "buttontester"
            Me.buttontester.Size = New System.Drawing.Size(52, 23)
            Me.buttontester.TabIndex = 0
            Me.buttontester.Text = "Tester"
            Me.buttontester.UseVisualStyleBackColor = true
            '
            'openFileDialog1
            '
            Me.openFileDialog1.FileName = "openFileDialog1"
            Me.openFileDialog1.Title = "Ajouter image a MaxVeille"
            '
            'imageList1
            '
            Me.imageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
            Me.imageList1.ImageSize = New System.Drawing.Size(16, 16)
            Me.imageList1.TransparentColor = System.Drawing.Color.Transparent
            '
            'KryptonForm1
            '
            Me.BackColor = System.Drawing.Color.Black
            Me.ClientSize = New System.Drawing.Size(489, 191)
            Me.ControlBox = false
            Me.Controls.Add(Me.groupBox2)
            Me.Controls.Add(Me.groupBox1)
            Me.Controls.Add(Me.label1)
            Me.Controls.Add(Me.buttontester)
            Me.Controls.Add(Me.buttonfermerannuler)
            Me.Controls.Add(Me.buttonfermerapplicer)
            Me.Cursor = System.Windows.Forms.Cursors.Hand
            Me.ForeColor = System.Drawing.Color.White
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
            Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
            Me.MaximizeBox = false
            Me.MinimizeBox = false
            Me.Name = "KryptonForm1"
            Me.ShowIcon = false
            Me.ShowInTaskbar = false
            Me.Text = "KryptonForm1"
            Me.groupBox1.ResumeLayout(false)
            Me.groupBox2.ResumeLayout(false)
            CType(Me.numericUpDown1,System.ComponentModel.ISupportInitialize).EndInit
            Me.ResumeLayout(false)
        End Sub
    End Class
   
    Public Class WindowsForm1_f
        Inherits System.Windows.Forms.Form
       
        Public WithEvents pictureBox1 As System.Windows.Forms.PictureBox
       
        Public WithEvents button1 As System.Windows.Forms.Button
       
        Public WithEvents imageList1 As System.Windows.Forms.ImageList
       
        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()
            Me.components = New System.ComponentModel.Container
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(WindowsForm1_f))
            Me.pictureBox1 = New System.Windows.Forms.PictureBox
            Me.button1 = New System.Windows.Forms.Button
            Me.imageList1 = New System.Windows.Forms.ImageList(Me.components)
            Me.button2 = New System.Windows.Forms.Button
            CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).BeginInit
            Me.SuspendLayout
            '
            'pictureBox1
            '
            Me.pictureBox1.BackColor = System.Drawing.Color.Black
            Me.pictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
            Me.pictureBox1.ErrorImage = CType(resources.GetObject("pictureBox1.ErrorImage"),System.Drawing.Image)
            Me.pictureBox1.InitialImage = CType(resources.GetObject("pictureBox1.InitialImage"),System.Drawing.Image)
            Me.pictureBox1.Location = New System.Drawing.Point(0, 0)
            Me.pictureBox1.Name = "pictureBox1"
            Me.pictureBox1.Size = New System.Drawing.Size(667, 479)
            Me.pictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage
            Me.pictureBox1.TabIndex = 0
            Me.pictureBox1.TabStop = false
            '
            'button1
            '
            Me.button1.BackColor = System.Drawing.Color.Black
            Me.button1.FlatStyle = System.Windows.Forms.FlatStyle.System
            Me.button1.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
            Me.button1.ForeColor = System.Drawing.Color.White
            Me.button1.Location = New System.Drawing.Point(0, 0)
            Me.button1.Name = "button1"
            Me.button1.Size = New System.Drawing.Size(54, 22)
            Me.button1.TabIndex = 2
            Me.button1.Text = "Config"
            Me.button1.UseVisualStyleBackColor = false
            '
            'imageList1
            '
            Me.imageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
            Me.imageList1.ImageSize = New System.Drawing.Size(16, 16)
            Me.imageList1.TransparentColor = System.Drawing.Color.Transparent
            '
            'button2
            '
            Me.button2.Location = New System.Drawing.Point(140, 12)
            Me.button2.Name = "button2"
            Me.button2.Size = New System.Drawing.Size(61, 32)
            Me.button2.TabIndex = 3
            Me.button2.Text = "button2"
            Me.button2.UseVisualStyleBackColor = true
            '
            'WindowsForm1
            '
            Me.AutoScroll = true
            Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
            Me.ClientSize = New System.Drawing.Size(667, 479)
            Me.Controls.Add(Me.button2)
            Me.Controls.Add(Me.button1)
            Me.Controls.Add(Me.pictureBox1)
            Me.Cursor = System.Windows.Forms.Cursors.Default
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
            Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
            Me.MaximizeBox = false
            Me.MinimizeBox = false
            Me.Name = "WindowsForm1"
            Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
            CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).EndInit
            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. veille can't start without it. Please install the .Net Framework 3.5 and try again.", "veille", 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 pictureBox1 As System.Windows.Forms.PictureBox
       
        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.pictureBox1 = New System.Windows.Forms.PictureBox
            CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).BeginInit
            Me.SuspendLayout
            '
            'pictureBox1
            '
            Me.pictureBox1.Location = New System.Drawing.Point(12, 12)
            Me.pictureBox1.Name = "pictureBox1"
            Me.pictureBox1.Size = New System.Drawing.Size(206, 192)
            Me.pictureBox1.TabIndex = 0
            Me.pictureBox1.TabStop = false
            '
            'WindowsForm2
            '
            Me.ClientSize = New System.Drawing.Size(506, 430)
            Me.Controls.Add(Me.pictureBox1)
            Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
            Me.Name = "WindowsForm2"
            Me.Text = "WindowsForm2"
            CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).EndInit
            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 XXX As Object '
        Public XX As Object '
        Public plvs As Object '
        Public nouveau As Object '
        Public nombredefichier() As Object = New Object(-1){} '
        Public nombre As Object '
        Public image() As Object = New Object(-1){} '
        Public fichieraouvrir() As Object = New Object(-1){} '
        Public cpoier 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 _KryptonForm1 As KryptonForm1_f = New KryptonForm1_f
Public Property KryptonForm1 As KryptonForm1_f
Get
Return _KryptonForm1
End Get
Set(ByVal value As KryptonForm1_f)
_KryptonForm1 = value
End Set
End Property
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
    End Module



    Partial Public Class KryptonForm1_f

 Public Sub buttonajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles buttonajouter.Click
Try
If Me.openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then fichieraouvrir = Me.openFileDialog1.FileNames Else fichieraouvrir = New Object(-1) {}
XXX = Me.listBox1.Items.Count
For XX = 0 To fichieraouvrir.Length - 1
Me.imageList1.Images.Add(XX)
Me.listBox1.Items.Add("" & XX & "")
Next
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "veille", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub KryptonForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
Try
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "veille", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

    End Class

    Partial Public Class WindowsForm1_f

 Public Sub pictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox1.Click
Try
Application.Exit()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "veille", 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
If "" <> "Dialog" Then KryptonForm1 = New KryptonForm1_f
 KryptonForm1.Show()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "veille", 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
nouveau = My.Computer.FileSystem.FileExists("" & Application.StartupPath & "\exs.txt")
If nouveau = false Then
My.Computer.FileSystem.WriteAllText("" & Application.StartupPath & "\exs.txt", "exs" & System.Environment.NewLine & "/!\ Si vous ouvrez ce fichier, ne le supprimer pas , sa présence est essentiel pour le logiciel !" & System.Environment.NewLine & "merci de votre comprehension. ", False)
My.Computer.FileSystem.CreateDirectory("" & Application.StartupPath & "\image")
If "" <> "Dialog" Then KryptonForm1 = New KryptonForm1_f
 KryptonForm1.Show()
End If
If nouveau = true Then
nombredefichier = System.IO.Directory.GetFiles("" & Application.StartupPath & "\image\", "*", System.IO.SearchOption.TopDirectoryOnly)
For XX = 0 To nombredefichier.Length - 1
KryptonForm1.listBox1.Items.Add("" & XX & "")
Next
End If
System.Diagnostics.Process.Start("" & SystemDrive & "")
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "veille", 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
If KryptonForm1.openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then image = KryptonForm1.openFileDialog1.FileNames Else image = New Object(-1) {}
Me.pictureBox1.Image = image
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "veille", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

    End Class

    Partial Public Class WindowsForm2_f

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

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


End Module
End Namespace
Voila je teste pour les touches...



"Mes logiciel - clic ici":

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

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:
Tuto VB.NET : http://forumvelersoftware.bbactif.com/t788-tuto-apprendre-le-vbnet-pour-sz
Ce tuto a été verrouillé donc les réponses se font sur mon site : http://lesitedegipse.frblogs.com/Le-Site-De-Gipse-b1/Apprendre-le-VBNET-b1-p4.htm


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


Masculin Nombre de messages : 5517
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: Image et touche [RESOLUT]

Message par lereparateurdepc le Sam 12 Mar 2011 - 17:41

re ,

NOTE : SEUL ce qui est AVENT le 'NOTE est utile ! Smile

Je ne comprend PAS pourquoi ton log est en Anglais mais bon ......

Tu as du te tromper pour l'OpenFileDialog ..... regarde la vidéo sur les variables tableau ! Smile
Il faut que tu fasse une boucle limitée ....

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
gipse
Habitué
Habitué

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

Re: Image et touche [RESOLUT]

Message par gipse le Sam 12 Mar 2011 - 18:20

AAAAAAH ok merci
Gipse



"Mes logiciel - clic ici":

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

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:
Tuto VB.NET : http://forumvelersoftware.bbactif.com/t788-tuto-apprendre-le-vbnet-pour-sz
Ce tuto a été verrouillé donc les réponses se font sur mon site : http://lesitedegipse.frblogs.com/Le-Site-De-Gipse-b1/Apprendre-le-VBNET-b1-p4.htm


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

Contenu sponsorisé

Re: Image et touche [RESOLUT]

Message par Contenu sponsorisé


    La date/heure actuelle est Dim 24 Sep 2017 - 8:32