Accueil
Accueil Le Club Delphi Kylix C C++ Java J2EE DotNET & C# Visual Basic Access Pascal Dev Web PHP ASP XML UML SQLSGBD Windows Linux Autres
logo
Sommaire > VBA > Interface et graphisme
        Comment cacher une barre d'outils ?
        Comment enlever toutes les barres de menu ?
        Comment faire apparaître ou disparaître la barre des menus par le code ?
        Comment cacher les barres system et d'outils de mon application ?
        Comment insérer un saut de ligne dans une boîte de dialogue ?
        Comment créer un formulaire automatique lié à une table ?
        Comment désactiver le rafraîchissement de l'écran (figer l'écran) ?
        Comment connaître la résolution de l'écran ?
        Comment déterminer un code couleur quelconque dans Access ?
        Mes textes d'info-bulle qui ne s'affichent pas ?
        Afficher l'heure dynamique dans un formulaire
        Comment redimmensionner la fenêtre active (par ex le formulaire en cours) en vba ?
        Comment retrouver les composantes rouge, verte, bleue d'un code couleur de type Long ?
        Comment retrouver la couleur d'un pixel à l'écran ?
        Comment afficher ou masquer la fenêtre de base de données ?
        Comment forcer le rafraîchissement de l'écran ?
        Comment utiliser les événements claviers ? (exemple, détecter lorsque l'utilisateur fait : ctrl+c)
        Activer l'affichage des fenêtres dans la barre des tâches depuis VBA
        Comment réorganiser les Fenêtres Horizontalement ou Verticamelent en VBA ?
        11.5.1. Trucs et Astuces (7)
                Afficher / masquer les barres de menu d'environnement Access sans utiliser le code
                Comment afficher une image au démarrage de mon application ?
                Utiliser un assistant pour afficher une info à l'utilisateur
                Changez l'apparence du curseur
                Changer un curseur en pointeur
                Comment changer le gris (couleur de fond) dans Access ?
                Comment afficher le sablier pendant un traitement

precedent    sommaire    suivant   


Comment cacher une barre d'outils ?
auteur : Bidou
DoCmd.ShowToolbar "NomBarreOutil", acToolbarNo 

Comment enlever toutes les barres de menu ?
auteur : Gaël Donat
Dim i As Integer 
For i = 1 To Application.CommandBars.Count 
    DoCmd.ShowToolbar Application.CommandBars.item(i).name, acToolbarNo 
Next 
Et pour les réactiver :
Dim i As Integer 

For i = 1 To Application.CommandBars.Count 
    DoCmd.ShowToolbar Application.CommandBars.item(i).name, acToolbarWhereApprop 
Next 

Comment faire apparaître ou disparaître la barre des menus par le code ?
auteur : ZEUSGR
Pour la faire disparaître :
DoCmd.ShowToolbar "barre menu", acToolbarNo 
Pour la faire apparaître :
DoCmd.ShowToolbar "barre menu", acToolbarYes 

Faire un clic droit sur la barre de menu puis sélectionnez Personnaliser
et dans l'onglet Barre d'outils regardez l'orthographe de la barre de menu.


Comment cacher les barres system et d'outils de mon application ?
auteur : Demco
Allez dans :

Menu outil/démarrage

Décochez les cases suivant les menus que vous voulez voir disparaître.


Comment créer un formulaire automatique lié à une table ?
auteur : Cafeine
Function CreateInstantForm(ByVal Tbl As String)
DoCmd.SelectObject acTable, Tbl, True
DoCmd.RunCommand acCmdNewObjectAutoForm
End Function

Comment désactiver le rafraîchissement de l'écran (figer l'écran) ?
auteurs : Drosera, FRED.G
Application.Echo False 
Attention à réactiver le rafraîchissement grâce à :
Application.Echo True
Il faudra également prévoir une gestion des erreurs pour éviter une sortie non désirée de la procédure.

lien : Comment forcer le rafraîchissement de l'écran ?

Comment déterminer un code couleur quelconque dans Access ?
auteur : Papy Turbo
Rappel :

  1. 1- les constantes des couleurs Windows vous permettent de récupérer les couleurs choisies par chaque utilisateur, dans le panneau de contrôle de Windows. Si vous les utilisez, vos utilisateurs pourront recolorer eux même votre application (petit détail très apprécié :) ). Aide Access, chapitre Constantes Couleurs système. Ou bien, tapez " vbButtonFace " dans un module, appuyez sur F1.
  2. 2- les constantes vbWhite, vbBlack… sont disponibles pour les 16 couleurs de base : Aide Access, chapitre Constantes de couleurs. Ou bien, tapez " vbWhite " dans un module, appuyez sur F1.
  3. 3- la fonction (obsolète) QbColor() renvoie un des 16 codes couleurs ci-dessus, à partir d'un chiffre.
  4. 4- la fonction RGB() renvoie n'importe quelle couleur, à partir des 3 valeurs Red, Green, Blue.
  5. 5- pour choisir n'importe quelle couleur et coller son code dans votre module VBA :
  • créez un nouveau formulaire (vous ne le garderez pas, sauf pour des manips comme celle-ci),
  • sélectionnez une section quelconque, ouvrez ses Propriétés,
  • dans l'onglet Format, cliquez dans Couleur fond,
  • cliquez sur le bouton "..." pour ouvrir la boîte de dialogue des couleurs,
  • choisissez votre couleur, éventuellement en cliquant sur Définir les couleurs personnalisées...,
  • cliquez sur OK,
  • appuyez sur Entrée pour visualiser votre couleur dans le fond de la section choisie.
Le code de la couleur est affiché dans la propriété Couleur fond.

Vous pouvez le copier/coller dans votre code, créer une (série de) constante(s)...

Exemple :
Public Const vbJaunePale = 13434879 

Mes textes d'info-bulle qui ne s'affichent pas ?
auteur : Lucifer
Il suffit de supprimer les labels et de les recréer.


Afficher l'heure dynamique dans un formulaire
auteur : Tofalu
Il faut utiliser l'événement Timer du formulaire.
Dans un premier temps, allez dans les propriétés du formulaire, onglet événement et réglez l'Intervalle minuterie, par exemple à 1000 pour une seconde ou 60000 pour une minute, etc.

Puis insérez ce code dans le formulaire :
Private Sub Form_Timer()
  Me.Texte1 = Now
End Sub 

Comment redimmensionner la fenêtre active (par ex le formulaire en cours) en vba ?
auteur : Team Access
Il suffit d'utiliser la méthode MoveSize de l'objet Docmd.
Consutez l'aide access pour le détail des arguments.


Comment retrouver les composantes rouge, verte, bleue d'un code couleur de type Long ?
auteur : Jean-Marc Rabilloud
Rappelons que le code d'une couleur se calcule par les composantes RGB à l'aide de la formule :
Red + Green * 256 + Blue * 256 * 256.
Il nous suffit donc d'écrire la fonction inverse.
Public Sub ComposantesRGB(ByVal Couleur As Long, Red As Long, Green As Long, Blue As Long) 
    
Blue = Int(Couleur / 65536) 
Green = Int((Couleur - (65536 * Blue)) / 256) 
Red = Couleur - ((Blue * 65536) + (Green * 256)) 
    
End Sub 

Private Sub Command1_Click() 

Dim Rouge As Long, Vert As Long, Bleu As Long 

ComposantesRGB 9550940, Rouge, Vert, Bleu 
LblRed.Caption = "Red = " & Rouge 
LblGreen.Caption = "Green = " & Vert 
LblBlue.Caption = "Blue = " & Bleu 
    
End Sub
lien : FAQ VB

Comment retrouver la couleur d'un pixel à l'écran ?
auteurs : Alexandre Lokchine, Romain Puyfoulhoux
Si vous cherchez simplement à connaître la couleur d'un point dans un PictureBox, utilisez sa méthode Point(). Sinon, voici une méthode pour récupérer la couleur de n'importe quel pixel à l'écran.

Placez ce code dans un module standard :
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Public Type Couleur
    red As Integer
    green As Integer
    blue As Integer
End Type
   
Public Function CouleurPixel (ByVal x As Long, ByVal y As Long) As Couleur

    Dim pixel As Couleur, RGBPx As Long
   
    RGBPx = GetPixel(GetDC(0&), x, y)
    pixel.red = &HFF& And RGBPx
    pixel.green = (&HFF00& And RGBPx) \ 256
    pixel.blue = (&HFF0000 And RGBPx) \ 65536
    CouleurPixel = pixel

End Function
La fonction CouleurPixel renvoie la couleur du pixel, dont les coordonnées lui ont été passées en paramètres, dans une structure Couleur. Si vous voulez connaître la position du pointeur de souris, ajoutez ces déclarations dans le module standard :
Public Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long

Public Type PointAPI
    X As Long
    Y As Long
End Type
Voici maintenant un exemple où l'on utilise un timer pour mettre dans un PictureBox la couleur du pixel survolé par la souris :
Private Sub Timer1_Timer()

    Dim pixel As Couleur, CursPos As PointAPI
    
    GetCursorPos CursPos
    pixel = CouleurPixel(CursPos.X, CursPos.Y)
    Picture1.BackColor = RGB(pixel.red, pixel.green, pixel.blue)
   
End Sub
lien : FAQ VB

Comment afficher ou masquer la fenêtre de base de données ?
auteur : Team Access
Exemple pour afficher :
Docmd.SelectObject acTable, , True
Exemple pour masquer :
Docmd.SelectObject acTable, , True
Docmd.RunCommand acCmdWindowHide

Comment forcer le rafraîchissement de l'écran ?
auteur : Tofalu
Il arrive que vous changiez par le code la couleur d'un texte, mais celle-ci ne sera prise en compte que plusieurs secondes plus tard.

Il vous suffit d'ordonner par le code le refraîchissement de l'écran lorsque bon vous semble grâce à :
Me.Repaint
lien : Comment désactiver le rafraîchissement de l'écran (figer l'écran) ?

Comment utiliser les événements claviers ? (exemple, détecter lorsque l'utilisateur fait : ctrl+c)
auteur : DMboup
Tout d'abord, dans les propriétés du formulaire, onglet événements mettez l'attribut KeyPreview/Aperçu des touches à Oui.

Ensuite, dans ce même formulaire utilisez par exemple :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyC And Shift = acCtrlMask Then
    MsgBox ("Ctrl+C presses")
End If
End Sub 
Ouvrez maintenant ce formulaire, appuyez sur les touches ctrl+c comme pour faire un "copier" et constatez :).


Activer l'affichage des fenêtres dans la barre des tâches depuis VBA
auteur : argyronet

Public Function AfficherFenetreBDT(Afficher As Boolean)
On Error GoTo Err_AfficherFenetreBDT
Application.SetOption "ShowWindowsInTaskbar", Afficher
Exit_AfficherFenetreBDT:
    Exit Function
Err_AfficherFenetreBDT:
    If Err.Number = 2091 Then 'Pas dans 97 & 95 sinon Erreur
        Exit Function
    Else
        MsgBox "Erreur " & Err.Number & vbCrLf & Err.Description, 16
        Resume Exit_AfficherFenetreBDT
    End If
End Function

Sub Afficher()
 AfficherFenetreBDT True
End Sub

'Appel de la fonction
Sub Masquer()
 AfficherFenetreBDT False
End Sub
Rappel : Vous aurez le même résultat sans passer par VBA en allant dans : Menu Outils/Options onglet Affichage, cochez Fenêtres dans la barre des tâches.


Comment réorganiser les Fenêtres Horizontalement ou Verticamelent en VBA ?
auteurs : Starec, Lou Pitchoun
À chaque commande de menu et de barre d'outils de Microsoft Access est associée une constante que vous pouvez utiliser avec la méthode RunCommand pour exécuter cette commande à partir de Visual Basic.

Ci-dessous les commandes pour réorganiser les fenêtres ouvertes, horizontalement ou verticalement :

Horizontale :
DoCmd.RunCommand (acCmdTileHorizontally)
Verticale :
DoCmd.RunCommand (acCmdTileVertically)

precedent    sommaire    suivant   

Consultez les autres F.A.Q's


Les sources présentés sur cette pages sont libre de droits, et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright ©2004  Developpez LLC. Tout droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérets. Cette page est déposée à la SACD.

Vos questions techniques : forum d'entraide Accueil - Publiez vos articles, tutoriels, cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter - Copyright 2000..2005 www.developpez.com