redimensionnement formRésolu

Question

bonjour,

j'ai un code qui redimensionne ma form suivant un click de bouton, mais il ne fonctionne que dans 1 sens. au départ le tag du bouton est à 1

Private Sub bouton1_Click()
 If form1.Tag = 1 Then  form1.Height 100: form1.Width 100
  form1.Tag = 3
 Else  form1.Height 300: form1.Width 200
  form1.Tag = 1
 End If
End Sub

je pige pas
merci :)

cs_casy · Accepted Answer

Private Sub bouton1_Click()
 If form1.Tag =   " 1" Then  form1.Height  100: form1.Width  100
  form1.Tag =  " 3"
 Else  form1.Height  300: form1.Width  200
  form1.Tag =  " 1"
 End If
End Sub

---- Sevyc64  (alias Casy) ----<hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

mortalino · Answer

Re, c'est normal que ton code ne fonctionne pas, Tag attend un String, toi tu lui envoies un numérique : Coloration syntaxique automatique Private Sub bouton1_Click() With Form1 If .Tag = 1 Then .Height = 100: .Width = 100: .Tag = 3 Else _ .Height = 300: .Width = 200: .Tag = 1 End With End Sub Coloration syntaxique automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

mortalino · Answer

AAAAAAAAHhhhb j'ai réécris son code : Coloration syntaxique automatique Private Sub bouton1_Click() With Form1 If .Tag = "1" Then .Height = 100: .Width = 100: .Tag = "3" Else _ .Height = 300: .Width = 200: .Tag = "1" End With End Sub Coloration syntaxique automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

cs_casy · Answer

trop lent, petit scarabé 

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

vercomax · Answer

merci

mortalino · Answer

Je sais 

Comme quoi, le roue tourne  lol

Bonne soirée 

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

PCPT · Answer

salut
tag est un variant
++

<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

mortalino · Answer

Eh eh !

j'avais vérifier dans F2 : 

Property Tag As String
    Membre de VB.Form
    Stocke toutes les données supplémentaires nécessaires à votre programme.

J'ai peut-être loupé qque chose ?

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

PCPT · Answer

pas banal çà tien...
erreur de ma part, bien vu 

vérifié pour picturebox et image, idem...
étrange, j'eu cru... ^^

++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

Redimensionnement form

9 réponses

Votre réponse

Discussions similaires