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

precedent    sommaire    suivant   


Afficher / masquer les barres de menu d'environnement Access sans utiliser le code
auteur : Team Access

Une fois votre application terminée, l'utilisateur doit voir ses possibilités d'actions retreintes.
Vous pouvez par exemple cacher les barres de menu Access. Pour cela, rendez-vous dans le menu Outils puis Démarrage.


Pour les réafficher, maintenez la touche MAJ enfoncée lors du chargement de la base de données et remodifiez les options ci-dessus.


Comment afficher une image au démarrage de mon application ?
auteur : Team Access
Pour qu'une image apparaisse pendant le chargement d'Access au démarrage de votre application, il suffit de mettre une image BMP dans le même dossier avec le même nom que le fichier de l'appli (mdb ou mde).


Utiliser un assistant pour afficher une info à l'utilisateur
auteur : vbavien
With Assistant.NewBalloon
    .BalloonType = msoBalloonTypeBullets
    .Icon = msoIconTip
    .Button = msoButtonSetOk
    .Heading = "faites un choix"
    .Labels(1).Text = "NAS"
    .Labels(2).Text = "ronde 150%/h"
    .Labels(3).Text = "vélage 90pts +2 h"
    .Show
End With

Changez l'apparence du curseur
auteur : shwin
private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal _
 lpCursorName As Long) As Long

private Sub change_curseur()
Call SetSystemCursor(LoadCursor(0, 32514), 32512)
Call SetSystemCursor(LoadCursor(0, 32515), 32513)
End Sub

private Sub restaure()
Call SetSystemCursor(LoadCursor(0, 32512), 32512)
Call SetSystemCursor(LoadCursor(0, 32513), 32513)
End Sub
Liste d'apparences disponibles :
32512 flèche
32513 curseur en I
32514 sablier
32515 croix
32516 flèche vers le haut
32640, 32642, 32643, 32644, 32645, 32646 doubles flèches de redimensionnement
32648 stationnement interdit
32650 flèche + sablier
Curseur personnalisé:
private Sub change_curseur()
Call SetSystemCursor(LoadCursorFromFile("D:\curseur.ani"), 32513)
End Sub

Changer un curseur en pointeur
auteur : Bidou

  'dans l'évènement mousemove de ta zone de texte tu mets
Screen.MousePointer= 1
 'n'oublie pas de mettre dans le mousemove du formulaire
Screen.MousePointer=0
 'sans quoi le pointeur restera toujours la flèche 

Comment changer le gris (couleur de fond) dans Access ?
auteur : Arkham46
Dans un premier temps, créez un nouveau module, collez-y le code suivant et enregistrez-le avec le nom que vous souhaitez :

' Constante pour modif du fond
Private Const GCL_HBRBACKGROUND = -10
' Crée une brosse unie
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
' Crée une brosse à partir d'une image (pour utilisation en mosaïque uniquement)
Private Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long
' Modifier une fenêtre selon sa classe
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
' Trouver l'identifiant d'une fenêtre
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
' Rafraîchir l'affichage
Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, ByVal lpRect As Any, ByVal bErase As Long) As Long

' wpv_arg est soit un nombre représentant une couleur(=RGB(xxx,xxx,xxx)), soit un chemin vers un fichier
Public Sub SetBackGround(wpv_Arg As Variant)
' Object Image temporaire
Dim wlo_Image As Object
' Identifiant de la brosse
Dim wlv_Brush As Long
' Identifiant de la fenêtre
Dim wlv_Hwnd As Long

' Si argument = nom de fichier
If Not IsNumeric(wpv_Arg) Then
    ' Charge l'image dans un objet temporaire
    Set wlo_Image = LoadPicture(wpv_Arg)
    ' Crée une brosse mosaïque à partir de l'image chargée
    wlv_Brush = CreatePatternBrush(wlo_Image.handle)
    ' Libère la mémoire occupée par l'objet image temporaire
    Set wlo_Image = Nothing
' Si argument numérique
Else
    ' Crée une brosse unie
    wlv_Brush = CreateSolidBrush(wpv_Arg)
End If
    ' Recherche l'identifiant de la fenêtre de fond de la base (de classe "MDIClient")
    wlv_Hwnd = FindWindowEx(Application.hWndAccessApp, 0, "MDIClient", vbNullString)
    ' Modifie l'identifiant de la brosse servant à dessiner le fond de la fenêtre
    SetClassLong wlv_Hwnd, GCL_HBRBACKGROUND, wlv_Brush
    ' Rafraîchit l'affichage pour dessiner le fond d'écran avec la nouvelle bross
    InvalidateRect wlv_Hwnd, vbNullString, 1
End Sub
Puis, si vous souhaitez mettre une autre couleur exécuter par exemple la ligne :

SetBackGround 16570023
Et si vous souhaitez mettre une image :

SetBackGround "C:\MonImage.jpg"
Préferez l'utilisation d'images en mosaïque.


Comment afficher le sablier pendant un traitement
auteur : BBert

Lors d'un traitement prenant beaucoup de temps, il est parfois pratique d'afficher le sablier pendant ce traitement pour signaler à l'utilisateur.
Ce code est très simple :
'affichage du sablier pendant le traitement
DoCmd.Hourglass True
 
'taper ici le code de traitement
 
'repasse en mode affichage classique (flèche dans mon cas)
DoCmd.Hourglass False

Remarque :
Dans Microsoft Windows 2000 et Microsoft Windows XP, il s'agit de l'icône que vous définissez pour occupé dans la boîte de dialogue Propriétés de la souris
du panneau de configuration de Windows. Il s'agit par défaut d'une icône de sablier animée.


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