PLEIN ÉCRAN SIMPLEMENT
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
-
6 mai 2004 à 16:55
euclidien Messages postés 2 Date d'inscription mercredi 19 août 2009 Statut Membre Dernière intervention 31 août 2010 - 24 août 2010 à 17:56
euclidien Messages postés 2 Date d'inscription mercredi 19 août 2009 Statut Membre Dernière intervention 31 août 2010 - 24 août 2010 à 17:56
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/22570-plein-ecran-simplement
https://codes-sources.commentcamarche.net/source/22570-plein-ecran-simplement
24 août 2010 à 17:56
3 févr. 2009 à 15:38
Merci d'avance
24 août 2006 à 10:35
J'ai quelques soucis à intégrer ce code sur du Access 200 (en vba donc) car il ne reconnait pas certaines propriétés essentielles (comme Me.Height ou Screen.width).
Auriez-vous une solution de remplacement afin que je puisse dq même redimensionner mon formulaire Access?
Je vous remercie d'avance, a bientôt !
30 juin 2006 à 15:32
Arnor2000> super code qui m'a beaucoup aidé >> 10/10
8 févr. 2006 à 11:56
J'ai essayé de mettre cette boucle dans mon programme car je voulais qui s'adapte à toutes les configurations d'écrans. Ok, ca marche mais une erreur survient aussitôt. Il écrit "Run-time error 438" est en dessous "Object doesn't support this property or method". SVP help me.
Et bonne continuation à tous
7 mai 2005 à 10:37
comment je peut faire pour quils s'affichent?
pour trouver ce controle:
Composants>Microsoft tabbed dialog control 6.0 (SP4)
merci beaucoup pour votre aide!
22 sept. 2004 à 20:02
Bravo pour ce code simple et efficace
22 sept. 2004 à 15:45
sympa
1 juin 2004 à 10:54
Me.InsideHeight
18 mai 2004 à 16:26
le Me remplace le nom de ton formulaire
alors je ne connais pas bien VBA mais peut-etre qu'en remplacant Me par le nom de ta form ca pourrait marcher
Sinon je ne sais pas...
10 mai 2004 à 10:16
merci pour ce code
pour moi il bloke sur "HautStd = Me.Height" "menbre de méthode ou de donnée introuvable"
Ke faut il modifié sous Access pour ke sa marche??
mici
9 mai 2004 à 01:08
En effet j'avais oublié les déclaration dans mon copier/coller, c'est corrigé...
7 mai 2004 à 15:18
Bon morceau de code, c'est franchement excellent et bien utile.
Merci et bonne contiuation.
7 mai 2004 à 14:45
9
(9 c'est une note quelle est belle)
Dede
7 mai 2004 à 11:21
7 mai 2004 à 11:19
De plus, les variables n'étaient pas déclarées, mais tout un chacun aura rectifié de lui même :p
Voici le code que j'obtiens. J'ai mis en évidence les modifications que j'ai apporté.
' Rémi Fouilloux, 2004 05 07, Début modifications
Dim HautStd As Long
Dim LargStd As Long
Dim ctl As Control
' RF, Fin modifications
HautStd = Me.Height
LargStd = Me.Width
Me.Move 0, 0, Screen.Width, Screen.Height
For Each ctl In Me.Controls
If TypeOf ctl Is Timer Then
ElseIf TypeOf ctl Is Line Then
With ctl
.X1 = ctl.X1 * Me.Width / LargStd
.X2 = ctl.X2 * Me.Width / LargStd
.Y1 = ctl.Y1 * Me.Height / HautStd
.Y2 = ctl.Y2 * Me.Height / HautStd
End With
ElseIf TypeOf ctl Is Shape Then
ctl.Move ctl.Left * Me.Width / LargStd, ctl.Top * Me.Height / HautStd, ctl.Width * Me.Width / LargStd, ctl.Height * Me.Height / HautStd
ElseIf TypeOf ctl Is ComboBox Then
ctl.Move ctl.Left * Me.Width / LargStd, ctl.Top * Me.Height / HautStd, ctl.Width * Me.Width / LargStd
Else 'Le contrôle est standard
' RF, 2004 05 07
' Prise en compte des controls non redimensionnables (CommonDialog et Timer)
If Not TypeOf ctl Is CommonDialog And Not TypeOf ctl Is Timer Then
ctl.Move ctl.Left * Me.Width / LargStd, ctl.Top * Me.Height / HautStd, ctl.Width * Me.Width / LargStd, ctl.Height * Me.Height / HautStd
ctl.FontSize = ctl.FontSize * Me.Width / 12000 'Plus le chiffre est grand plus les polices sont petites
End If
' ctl.Move ctl.Left * Me.Width / LargStd, ctl.Top * Me.Height / HautStd, ctl.Width * Me.Width / LargStd, ctl.Height * Me.Height / HautStd
' ctl.FontSize = ctl.FontSize * Me.Width / 12000 'Plus le chiffre est grand plus les polices sont petites
' RF, Fin Modifications
End If
Next ctl
Et merci pour ce code.
___
badger
6 mai 2004 à 21:32
6 mai 2004 à 16:55