Fonction Move VB.NET Résolu/Fermé

Question

Bonjour, 
récemment j'ai trouvé un bout du code écrit en vb6 contenant les 2 fonctions
 Move et ExistProperty
sauf qu'elles marchent pas sous vb.net .Svp Pouvez vous m'indiquer l'équivalent des 2 fonctions en vb.net

voila mon code

 Dim ctl As Control
        If (Me.WindowState = 1) Then Exit Sub
        For Each ctl In Me.Controls
            If TypeOf ctl Is ComboBox Then
    'Les comboboxes ont leur propriété Height en lecture seule
                ctl.Left = ctl.Left * Me.Width / lng
                ctl.Top = ctl.Top * Me.Height / lar

                Move(ctl.Left * Me.Width / lng, ctl.Top * Me.Height / lar, ctl.Width * Me.Width / lng)
            Else
                If ExistProperty(ctl, "Width") And ExistProperty(ctl, "Height") Then
                    ctl.Move(ctl.Left * Me.Width / lng, ctl.Top * Me.Height / lar, _
                    ctl.Width * Me.Width / lng, ctl.Height * Me.Height / lar)
                End If
            End If
        Next
        lng = Me.Width
        lar = Me.Height

Lng et lar est déclarer est initialiser au chargement de la form elle prend
 lng = Me.Width
 lar = Me.Height

Configuration: Windows 7 / Firefox 3.6.13

Tung · Answer

up1

lermite222 · Answer

Bonjour,    
Bon, j'ai un peu plus de temps pour te répondre...    
1°) Je ne vois pas ce que tu essaye de faire.    
2°) Doublons de commandes dans...    
'Les comboboxes ont leur propriété Height en lecture seule     
'Ici tu positionne un combobox   Gauche et Haut....    
ctl.Left = ctl.Left * Me.Width / lng     
ctl.Top = ctl.Top * Me.Height / lar     

'Et bien que Move n'existe plus en .Net, tu veux faire exactement la même chose, donc tu supprime cette ligne.    
Move(ctl.Left * Me.Width / lng, ctl.Top * Me.Height / lar, ctl.Width * Me.Width / lng) 
3°) En .Net il faut deux fonctions pour remplacer le Move, ce qui n'est pas plus mal en fait.    
       Ctl.Location = New System.Drawing.Point (ctl.Left * Me.Width / lng , ctl.Top *   Me.Height / lar )    
            
    Ctl.Size = New System.Drawing.Size(ctl.Left * Me.Width / lng, ctl.Top * Me.Height / lar, ctl.Width * Me.Width / lng) 
Note que je n'ai pas contrôlé tes formules.    
4°) ExistProperty ?? existe pas en VB6 et VB.Net probablement une fonction perso d'une classe ou d'un contrôle.    
Tu peu y remédier en appliquant les dimentions précéder d'un On Error Resume Next   
Pour mieux comprendre, explique le nombre de contrôles que tu a sur ta forme et leurs types. 
Et  ce que tu veux faire.
A+    

L'expérience instruit plus sûrement que le conseil. (André Gide)      
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Fonction Move VB.NET

2 réponses

Discussions similaires