[ASTUCES] Dessiner en 2D

lereparateurdepc a écrit:re,

Comme tu ne peut pas ajouter les Imports, as-tu pensé à réécrire sur chaque ligne qui les utilise, le "chemin" complet ?

Cordialement,
Le réparateur de PC

Bonjour,Blackorion35 a écrit:( Oui MEGA.CO est bien l'ancetre de Megaupload )

Blackorion35 a écrit:Et GG pour la transformation sous SZ 2012  !!

Blackorion35 a écrit:( Oui MEGA.CO est bienl'ancetre de Megaupload )
Et GG pour la transformation sous SZ 2012  !!
C'est quoi la liste d'erreur ?

liste d'erreur a écrit:
Error === Line 121, Column 0, Error BC30002
Description : Type 'System.Drawing.Drawing2D.SmoothingMode.AntiAlias' non défini.


Error === Line 130, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 142, Column 0, Error BC30519
Description : La résolution de surcharge a échoué, car aucun 'New' accessible ne peut être appelé sans conversion restrictive :
   'Public Sub New(brush As System.Drawing.Brush)': L'argument qui correspond au paramètre 'brush' passe de 'Object' à 'System.Drawing.Brush'.
   'Public Sub New(color As System.Drawing.Color)': L'argument qui correspond au paramètre 'color' passe de 'Object' à 'System.Drawing.Color'.


Error === Line 156, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 158, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 158, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 160, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 160, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 162, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 162, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 166, Column 0, Error BC30002
Description : Type 'System.Drawing.StringAlignment.Center' non défini.


Error === Line 168, Column 0, Error BC30002
Description : Type 'System.Drawing.StringAlignment.Center' non défini.

Code généré par SZ a écrit:'------------------------------------------------------------------------------
'
'     Ce code a été généré par un outil.
'     Version du runtime :4.0.30319.18051
'
'     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 Microsoft.VisualBasic
Imports System
Imports System.Drawing
Imports System.Windows.Forms
"Dessin"),  _
 Assembly: System.Reflection.AssemblyVersionAttribute("1.0.0.0"),  _
 Assembly: System.Reflection.AssemblyCopyrightAttribute("Copyright   2013"),  _
 Assembly: System.Reflection.AssemblyDescriptionAttribute(""),  _
 Assembly: System.Reflection.AssemblyFileVersionAttribute("1.0.0.0"),  _
 Assembly: System.Runtime.InteropServices.GuidAttribute("7b83dc3e-57da-440c-b701-b60c0b5565cc"),  _
 Assembly: System.Reflection.AssemblyTrademarkAttribute("Dessin"),  _
 Assembly: System.Reflection.AssemblyProductAttribute("Dessin"),  _
 Assembly: System.Reflection.AssemblyCompanyAttribute(""),  _
 Assembly: System.Runtime.InteropServices.ComVisibleAttribute(false)> 

'----------------------------------------------------------------------
'This code was generated by SoftwareZator 2012 Edition Professionnelle (3.0.0.3)
'The vendredi 15 novembre 2013 at 19:24:30
'----------------------------------------------------------------------
Namespace Dessin
    
      _
    Partial Public Class Fenêtre1
        Inherits System.Windows.Forms.Form
        
        Public button1 As System.Windows.Forms.Button
        
        Public Sub New()
            MyBase.New
            Me.InitializeComponent
        End Sub
        
        Public Sub InitializeComponent()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Fenêtre1))
            Me.button1 = New System.Windows.Forms.Button()
            Me.SuspendLayout
            '
            'button1
            '
            Me.button1.Cursor = System.Windows.Forms.Cursors.Default
            Me.button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
            Me.button1.ImeMode = System.Windows.Forms.ImeMode.Disable
            Me.button1.Location = New System.Drawing.Point(0, 0)
            Me.button1.Name = "button1"
            Me.button1.Size = New System.Drawing.Size(46, 23)
            Me.button1.TabIndex = 0
            Me.button1.Text = "Quitter"
            Me.button1.UseVisualStyleBackColor = true
            '
            'Fenêtre1
            '
            Me.AutoValidate = System.Windows.Forms.AutoValidate.EnableAllowFocusChange
            Me.ClientSize = New System.Drawing.Size(763, 388)
            Me.Controls.Add(Me.button1)
            Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
            Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
            Me.Name = "Fenêtre1"
            Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
            Me.Text = "Fenêtre1"
            Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
            Me.ResumeLayout(false)
            AddHandler Me.Load, AddressOf Me.Form_Load
            AddHandler button1.Click, AddressOf Me.button1_Click
            AddHandler Me.Paint, AddressOf Me.Fenêtre1_Paint
        End Sub
        
          _
        Public Shared Sub Main()
            _manager.Run(System.Environment.GetCommandLineArgs())
        End Sub
    End Class
    
    Public Class Fenêtre1
        
        'Fonction Form_Load
        Public Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs)
            'Cette fonction se déclenche à l'ouverture de la fenêtre.
            '
            'This function is launched during opening.
        End Sub
        
        'Fonction button1_Click
        Public Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
            Me.DialogResult = System.Windows.Forms.DialogResult.None : Me.Close()
        End Sub
        
        'Fonction Fenêtre1_Paint
        Public Sub Fenêtre1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
            ggg = e.Graphics
            Me.Dessiner(ggg)
        End Sub
        
        'Fonction Dessiner
        Public Sub Dessiner(ByVal g As Object)
g = New System.Drawing.Drawing2D.SmoothingMode.AntiAlias

            rect = Me.ClientRectangle
            cx = rect.Width
            cy = rect.Height
            scale = CSng(cy) / CSng(cx)
            _brush = New System.Drawing.Drawing2D.LinearGradientBrush(Me.ClientRectangle, Color.Empty, Color.Empty, 45)
            blend = New System.Drawing.Drawing2D.ColorBlend()
            CType(blend,System.Drawing.Drawing2D.ColorBlend).Colors = {Color.Red, Color.Green, Color.Blue}
            CType(blend,System.Drawing.Drawing2D.ColorBlend).Positions = {0.0, 0.5, 1.0}
            CType(_brush,System.Drawing.Drawing2D.LinearGradientBrush).InterpolationColors = blend
            _pen = New System.Drawing.Pen(_brush)
            format = New StringFormat()
            s = "Blackorion Test 2D Mantrix Project - Traduit pour SZ par Polien"
            ggg = g
            'ci dessus, on initialise toutes les
            'variables qui vont nous servir.
            x = 0
            Do While (x < cx)
                ggg.DrawLine(_pen,0,x * scale,cx - x,0)
                ggg.DrawLine(_pen,0,(cx - x) * scale,cx - x,cx * scale)
                ggg.DrawLine(_pen,cx - x,0 * scale,cx,(cx - x) * scale)
                ggg.DrawLine(_pen,cx - x,cx * scale,cx,x * scale)
                x = (x + 7)
            Loop
            CType(format,System.Drawing.StringFormat).Alignment = New System.Drawing.StringAlignment.Center
            CType(format,System.Drawing.StringFormat).LineAlignment = New System.Drawing.StringAlignment.Center
            ggg.DrawString(s,Me.Font,_brush,rect.X,rect.Y,Format)
        End Sub
    End Class
End Namespace

Namespace Dessin.My
    
    Partial Friend Class MyApplication
        Inherits Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase
        
          _
        Public Sub New()
            MyBase.New(Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
            Me.IsSingleInstance = false
            Me.EnableVisualStyles = true
            Me.SaveMySettingsOnExit = true
            Me.ShutdownStyle = Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
        End Sub
        
          _
        Protected Overrides Sub OnCreateMainForm()
            Me.MainForm = Variables.Fenêtre1
        End Sub
    End Class
End Namespace



NameSpace Dessin
  Module Variables
      Public _manager As My.MyApplication = New My.MyApplication
      Public _computer As Microsoft.VisualBasic.Devices.Computer = New Microsoft.VisualBasic.Devices.Computer
      Public _brush As New System.Object ' 
      Public _pen As New System.Object ' 
      Public blend As New System.Object ' 
      Public cx As New System.Object ' 
      Public cy As New System.Object ' 
      Public format As New System.Object ' 
      Public ggg As New System.Object ' 
      Public rect As New System.Object ' 
      Public s As New System.Object ' 
      Public scale As New System.Object ' 
      Public x As New System.Object ' 
      Private _Fenêtre1 As New Global.Dessin.Fenêtre1()
      Public Property Fenêtre1 As Global.Dessin.Fenêtre1 ' Window Fenêtre1
           Get
               If _Fenêtre1.IsDisposed Then _Fenêtre1 = New Global.Dessin.Fenêtre1()
               Return _Fenêtre1
           End Get
           Set(ByVal value As Global.Dessin.Fenêtre1)
               _Fenêtre1 = value
           End Set
      End Property
  End Module
End NameSpace

fandeonepiece2 a écrit:

Bonjour,Blackorion35 a écrit:( Oui MEGA.CO est bien l'ancetre de Megaupload )

heu c'est pas l'inverse ?

Blackorion35 a écrit:Et GG pour la transformation sous SZ 2012  !!

cela veut dire quoi GG ?

lereparateurdepc a écrit:re,

Erreur 130, 156 à 162 : Il y a un argument en trop ou l'inverse dans l'appel à la fonction...
Erreur 121, 168 et 168 : SZ ne connait pas. As-tu ajouté les références ?
Erreur 142 : Jamais eu mais la description est totalement explicite

Cordialement,
Le réparateur de PC