OVH Cloud OVH Cloud

Me.InsideWidth, Me.InsideHeight

3 réponses
Avatar
J-Pierre
Bonsoir tout le monde,

J'ouvre un nouveau fil parce qu'un crétin a écrit des cochonneries dans mon autre fil.

Je rappelle le problème: Dimensionner un contrôle sous-formulaire aux dimensions de l'écran.

Après reboot, et suivant la méthode utilisée pour ouvrir le formulaire principal, j'obtiens deux valeurs différentes:

Passer du mode Création au mode formulaire: chiffres fantaisistes
Dans tous les autres cas (ce qui m'intéresse finalement pour l'utilisation pratique) : chiffres corrects

Voilà donc le code, les + 30 sont là pour que le contrôle sous-formulaire soit légèrement plus grand que l'écran et que la bordure
n'apparaisse pas. En effet, pour une raison qui m'échappe, le sous-formulaire contient un graphique et la bordure apparaît même si
elle est définie comme transparente.

Merci à tous de m'avoir aidé, vraiment merci......

J-Pierre

Public Function redimGraphique(FRM As Form, SF As SubForm)

SF.Left = 0
SF.Top = 0
SF.Width = FRM.InsideWidth + 30
SF.Height = FRM.InsideHeight - FRM.Section(acHeader).Height - SF.Top + 30
FRM.Section(acDetail).Height = SF.Height + 15

End Function

3 réponses

Avatar
Anor
Bonjour,

Je ne voudrais pas écrire des cochonneries,
mais as tu essayé la base suivante ?
http://memoaccess.free.fr/fichiers/A2KAutoResize.zip

ça fait la même chose que celle de Jessy, mais dynamiquement
si ton OS le permet.

Dans le form, tu mets un contrôle sous-form et quand tu le "tires"
il s'agrandit ou pas ?

LOL

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------


J-Pierre :
| Bonsoir tout le monde,
|
| J'ouvre un nouveau fil parce qu'un crétin a écrit des cochonneries
| dans mon autre fil.
|
| Je rappelle le problème: Dimensionner un contrôle sous-formulaire aux
| dimensions de l'écran.
|
| Après reboot, et suivant la méthode utilisée pour ouvrir le
| formulaire principal, j'obtiens deux valeurs différentes:
|
| Passer du mode Création au mode formulaire: chiffres fantaisistes
| Dans tous les autres cas (ce qui m'intéresse finalement pour
| l'utilisation pratique) : chiffres corrects
|
| Voilà donc le code, les + 30 sont là pour que le contrôle
| sous-formulaire soit légèrement plus grand que l'écran et que la
| bordure n'apparaisse pas. En effet, pour une raison qui m'échappe, le
| sous-formulaire contient un graphique et la bordure apparaît même si
| elle est définie comme transparente.
|
| Merci à tous de m'avoir aidé, vraiment merci......
|
| J-Pierre
|
| Public Function redimGraphique(FRM As Form, SF As SubForm)
|
| SF.Left = 0
| SF.Top = 0
| SF.Width = FRM.InsideWidth + 30
| SF.Height = FRM.InsideHeight - FRM.Section(acHeader).Height -
| SF.Top + 30 FRM.Section(acDetail).Height = SF.Height + 15
|
| End Function
Avatar
j-Pierre
Bonsoir Arnaud,

Et bien non, je n'ai pas essayé ton exemple, je ne savais
pas qu'il existait, mais je vais regarder.
Je précise que mon code fonctionne, je l'appelle à
l'ouverture du formulaire principal avec:
Call redimGraphique(Forms(Me.Name),
Me.GRAPHIQUE_Achats_SF)

Et pourquoi je ne peux pas voir ce fil dans mon lecteur
de News Microsoft avec OE ? Obligé de passer par les NG
Microsoft......

J-Pierre
-----Message d'origine-----
Bonjour,

Je ne voudrais pas écrire des cochonneries,
mais as tu essayé la base suivante ?
http://memoaccess.free.fr/fichiers/A2KAutoResize.zip

ça fait la même chose que celle de Jessy, mais
dynamiquement

si ton OS le permet.

Dans le form, tu mets un contrôle sous-form et quand tu
le "tires"

il s'agrandit ou pas ?

LOL

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------


J-Pierre :
| Bonsoir tout le monde,
|
| J'ouvre un nouveau fil parce qu'un crétin a écrit des
cochonneries

| dans mon autre fil.
|
| Je rappelle le problème: Dimensionner un contrôle sous-
formulaire aux

| dimensions de l'écran.
|
| Après reboot, et suivant la méthode utilisée pour
ouvrir le

| formulaire principal, j'obtiens deux valeurs
différentes:

|
| Passer du mode Création au mode formulaire: chiffres
fantaisistes

| Dans tous les autres cas (ce qui m'intéresse
finalement pour

| l'utilisation pratique) : chiffres corrects
|
| Voilà donc le code, les + 30 sont là pour que le
contrôle

| sous-formulaire soit légèrement plus grand que l'écran
et que la

| bordure n'apparaisse pas. En effet, pour une raison
qui m'échappe, le

| sous-formulaire contient un graphique et la bordure
apparaît même si

| elle est définie comme transparente.
|
| Merci à tous de m'avoir aidé, vraiment merci......
|
| J-Pierre
|
| Public Function redimGraphique(FRM As Form, SF As
SubForm)

|
| SF.Left = 0
| SF.Top = 0
| SF.Width = FRM.InsideWidth + 30
| SF.Height = FRM.InsideHeight - FRM.Section
(acHeader).Height -

| SF.Top + 30 FRM.Section(acDetail).Height =
SF.Height + 15

|
| End Function


.



Avatar
J-Pierre
Arnaud,

J'ai retrouvé le message dans le fil, pas compris pourquoi, le NG en fait un nouveau fil, le lecteur de News d'OE l'intègre à la
suite du fil existant......De toutes façons,on s'en fout....

Voilà, j'ai regardé ta base exemple, je connaissais déjà ce code, je l'avais déjà téléchargé depuis ton site, je crois.

Dans mon cas particulier, il est beaucoup trop complexe, je veux juste redimensionner mon contrôle sous-formulaire, pas tous les
contrôles du formulaire.
Mon sous-formulaire ne contient qu'un graphique croisé dynamique qui s'ajuste automatiquement à la taille du contrôle qui le
contient.

Pour moi, c'est un problème réglé, si le code te paraît intéressant, n'hésite pas à le publier.

Encore une fois, merci à tous

J-Pierre