Présentation d'une Multipage

Version imprimable

26/06/2007, 09h31
Zimzimut

Présentation d'une Multipage

Bonjour, j'ai une tite question concernant le look d'une multipage :

Voilà, je voudrais savoir s'il y a un moyen de faire "ressortir" l'onglet sélectionné, car là, on voit pas vraiment sur lequel on est au moment de la sélection. Sachant que j'ai 2 rangées d'onglets, ca devient assez problématique, surtout quand les utilisateurs ont une vue "moyenne" ^^

Merci )
26/06/2007, 10h40
Phifi

Vous pouvez répéter la question ?

C'est quoi une multipages ? Et ces onglets - un contrôle Tab ? A partir de quelle correction cela ne pose plus de problème ? les myopes ont le même problème ?
:mouarf:
26/06/2007, 11h14
Zimzimut

1 pièce(s) jointe(s)

je joins la capture d'écran. Ce sont des tabs oui, et la corerction nécessaire pour voir kkchose est assez forte :p
26/06/2007, 11h20
Phifi

Bigre ! Malgré mes 11/10 à chaque oeil, je vois que dalle !

Tu peux jouer sur la police du contrôle Tab sinon, mais tu risques de passer à 3 rangées. Sinon, modifier la résolution du poste client, je vois que ça :/
26/06/2007, 13h14
ProgElecT

8O , j'ouvre de grand yeux car moi aussi je suis myope :mouarf:

Si s'est un SSTab, mettre dans chaque onglet un Shape1, width 225, height 225, Shape Circle, selectionner chaque onglet a la suite est placer ce cercle dans la partie titre de l'onglet, au cour du choix fait par l'utilisateur, l'onglet active est signalé par le cercle, qui peut être de couleur différente pour personnaliser chacun.
26/06/2007, 14h46
Zimzimut

Ca a l'air pas mal ca, j'essaye tout de suite :)
26/06/2007, 14h58
Zimzimut

Mon contrôle est bien un multipage, et pas un contrôle onglets...

Par contre, pour ton idée de Shape, c'est ce genre de truc qu'il me faut (mettre en surbrillance l'onglet sélectionné), le prob c'est que je sais pas comment faire (oui oui je suis une bille :p)
26/06/2007, 17h45
ProgElecT

Ta Miniatures attachées laisse penser à des onglets, puique ce n'est pas un contrôle Tab, c'est quoi, des CommandButtons, des Frames, un Menu ?
de toutes façons, si ce qui resembles à des onglets ou boutons, tu dois pouvoir les localiser (Left,Top).
J'imagine que ce menu est sur le même conteneur.
En mettant un Shape sur ce conteneur, Zorder(0) (premier plan), il suffit de le deplacer sur l'onglet bouton au moment du Click, en fait lui donner les coordonées de l'onglet bouton +- quelque chose (pour le justifié à droite ou à gauche).
27/06/2007, 08h17
Zimzimut

Citation:

Envoyé par ProgElecT

En mettant un Shape sur ce conteneur

Comment qu'on fait ? :P

Une Form est un conteneur, sur cette Form, les contrôles, Picture et Frame par exemple sont des contrôles dans lequel on peut mettre un/des autres Contrôles.
Un contrôle image lui n'est pas conteneur, si tu pose un contrôle dessus, il est dessus, pas dedans.
Autrement dit, quand on place un contrôle sur une Frame, on le place DANS la Frame,
quand on place un controle sur une Image, on le place bien DESSUS et non dedans.
Exemple par code:
Demo, sur une Form, 2 CommandButton (Command1 et Command2), 1 Picture (Picture1), placements, dimensions sont fait par le code.

Code:

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
46
47
48
49
50
51
Option Explicit
Dim XX As Integer, YY As Integer
Private Sub Form_Load()
Command1.Caption = "Mettre Command2 dans Picture1"
Command1.Move 60, 480, 3435, 345
 
Command2.Caption = "Déplacé moi avec la souris"
Command2.Move 60, 60, 2535, 345
Command2.ToolTipText = "Je suis Sur Form1 et Picture1"
 
Picture1.Move 60, 900, 4425, 4425
 
Me.Height = 5880: Me.Width = 7230
End Sub
 
'gestion déplacement ********************************************
Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
XX = X: YY = Y
Command2.Drag (1)
End Sub
Private Sub Command2_DragDrop(Source As Control, X As Single, Y As Single)
Source.Drag (0)
Source.Move Source.Left + (X - XX), Source.Top + (Y - YY)
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Drag (0)
If Source.Container.Name = "Picture1" Then Exit Sub
Source.Move X - XX, Y - YY
End Sub
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Source.Drag (0)
If Source.Container.Name = "Picture1" Then
 Source.Move X - XX, Y - YY
 Else
 Source.Move (X - XX) + Picture1.Left + 30, (Y - YY) + Picture1.Top + 30
End If
End Sub
 
'passage d'un conteneur à un autre ********************************************
Private Sub Command1_Click()
If Command1.Caption = "Mettre Command2 dans Picture1" Then
 Set Command2.Container = Picture1
 Command2.ToolTipText = "Je suis dans Picture1"
 Command1.Caption = "Mettre Command2 sur la Form1"
 Else
 Set Command2.Container = Form1
 Command2.ToolTipText = "Je suis Sur Form1 et Picture1"
 Command1.Caption = "Mettre Command2 dans Picture1"
End If
Command2.Top = 60: Command2.Left = 60
End Sub