Discussion :

[HASSNAA66]

Bonjour,
j'ai un problème a propos de l'affichage de mon application .
je vs explique plus : quand j’exécute l'application ds mon poste les formulaires est bien mais quand je change mon poste vers un autre (pc portable ) j'arrive pas a voir tous les bouton ........ juste la moitié de la page; merci de me donner une solution

[Shadam]

Je ne suis pas un pro (loin de là ^^) mais ça m'a tout l'air d'être un bête problème de compatibilité ton truc...

[HASSNAA66]

Bonjour,
comment je peux réaliser la barre qui défile avec page

[sihammaster]

Bonjour,
c'est plutôt un problème de résolution, tester ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Class Form1
     Public Sub New()
         ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
         ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Me.AutoScaleMode = Windows.Forms.AutoScaleMode.Dpi
    End Sub
 End Class

[gilles_906]

Bonjour
J'ai le même soucis j'ai essayé de définir la propriétés du form directement sur AutoScaleMode =dpi cela ne marche pas.

Tu mets ce code ou sihammaster?
Merci

[sihammaster]

Bonjour,
c'est un constructeur, tu le met au corps de ta classe.

[gilles_906]

merci de ta reponse

Je suis débutant tu pourrais m'expliquer un peu plus, stp.
Quelle class?
merci

[sihammaster]

Rebonjour,
Peux-tu nous ecrire ton code?

[gilles_906]

Oui, mais lequel

Voila j'ai un formulaire avec des controls dedans VS 2010 me donne 3 acces differents:
une page de code
FBaux.vb

Une page de design
FBaux.vb[design]

Une page de construction de l'interface (je pense)
FBaux.Designer.vb

Moi j'ai juste du code dans la page FBaux.vb et j'ai dessiné mon interface visuel avec mes controls, lorsque je change la résolution d'écran pour mettre du 800*600 ben il manque la moitié des controls.
J'ai rajouté les barres de défilements mais c'est pas vraiment terrible a l'utilisation.

Je n'ai fait aucun module de class, car j'arrive a faire ce que je veux sans (faut dire que j'ai l'habitude de VBA qui ne s'en sert pas).

S'il faut en créer un je veux bien essayer, dit moi.
merci

[sihammaster]

Non, en fait.., le code tu dois le positionner au corps de ta FORM, c'est-à-dire comme etant une fonction que t'a crée.
mais la on fait pas appelle a la FONCTION puisque c'est un constructeur de ta form.
positionne ce code n'import ou dans ta form

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub New()
         ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
         ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Me.AutoScaleMode = Windows.Forms.AutoScaleMode.Dpi
    End Sub

Sinon fais moi une Ctrl+A de tout le contenu de ta form.

[gilles_906]

Voila le debut du code, j'y ai ajouté tes instructions mais cela ne fonctionne pas

EDIT : j'ai rajouté system sinon cela ne passe pas il me dit que cela ne fait pas partie de Microsoft.Office.Interop.Word

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Imports System.Data.OleDb
Imports Microsoft.Office.Interop.Word
Imports System.Windows.Forms




Public Class FBaux
    Dim reponse As Byte 'pour recuperer la valeur du bouton appuyé dans les boites de dialogues
    Dim SStructureJuriSoc As String  'structure juridique de la société
    Dim CiviliteGerant As String    'civilité du gérant  Mlle Mme Mr
    Dim StrVilleSignature As String 'ville de signature pour le "fait à    le" de la fin

    Public Sub New()
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
    End Sub

    Private Sub FBaux_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized

        'efface tout pour faire propre à l'ouverture label, textbox, button,combobox,listbox
        Dim myLabel As Control
        DateTimePicker_DateSignature.Value = DateTime.Now
        For Each myLabel In Me.Controls
            If TypeOf myLabel Is Label Or TypeOf myLabel Is TextBox Or TypeOf myLabel Is DateTimePicker Or TypeOf myLabel Is Button Or TypeOf myLabel Is ComboBox Then
                myLabel.Visible = False
            End If
        Next
        'efface les cadres dessin
        RectangleShapeFacturation.Visible = False
        RectangleShapeDate.Visible = False
        RectangleShapeBail.Visible = False
        RectangleShapeSociete.Visible = False
        RectangleShapeClient.Visible = False
        'initialise la date de signature de bail a aujourd'hui
        DateTimePicker_DateSignature.Value = DateTime.Now

        'rempli la listbox avec le nom de tous les clients
        rempliList()

    End Sub

[sihammaster]

Oui le code est bien écrit, cela n'a pas résoudre ton souci??

[gilles_906]

ben non, j'ai fais l'interface avec une resolution de 1280*1024, quand je passe en resolution 1024*768, j'ouvre mon programme et lorsque j'affiche les controls la moitié n'est pas dans l'ecran.

Tu as vu l'edit que je viens de faire? avec le system que j'ai rajouté il ne manquerait pas un import de quelque chose?

[sihammaster]

Non t'a pas besoin d'import, mmmm ok, passons à Anchor, essayer de donner à tes controles Anchor-->None (dans la boite propriété)

[gilles_906]

la boite propriété de chaque éléments du form?
ils sont tous a top,left.
j'essaie, j'ai ai 40 environ

[gilles_906]

ca marche a peine mieux j'en voit un peu plus sur la droite, mais le cadre sharpe n'est qu'a moitié toujours. Quand a la listbox qui est sur la gauche je n'en voie que la moitié (donc la fin des lignes).

edit: Est ce que cela ne viendrait pas du fait que si le system ne redimensionne pas les controls cela ne rentre pas dans l'ecran.
Apparemment le system ne fait que les déplacer mais pas les diminuer de taille.

[sihammaster]

j'aurais peur de te dire de diminuer tes controles toi meme -manuellement- si tu es toujours bloqué

[gilles_906]

ouais...
Disons qu'avec une résolution de 1280*1024 ca passe super bien. Si je diminue les controls il va falloir une loupe pour voir les labels et les champs.

ou alors il faudrait obliger la résolution de l'écran a changer.

Pour l'instant tant pis, il faudra ce servir de l'ascenseur horizontal
Merci quand même d'avoir essayé de m'aider.

[HASSNAA66]

j'ai crée dans le formulaire " Me.AutoScaleMode = Windows.Forms.AutoScaleMode.Dpi " mais ça marche pas