| 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).
|
| 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
|
|
| 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
|
|
| auteur : Bidou |
Screen. MousePointer = 1
Screen. MousePointer = 0
|
|
| 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 :
Private Const GCL_HBRBACKGROUND = - 10
Private Declare Function CreateSolidBrush Lib " gdi32 " (ByVal crColor As Long) As Long
Private Declare Function CreatePatternBrush Lib " gdi32 " (ByVal hBitmap As Long) As Long
Private Declare Function SetClassLong Lib " user32 " Alias " SetClassLongA " (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
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
Private Declare Function InvalidateRect Lib " user32 " (ByVal hwnd As Long, ByVal lpRect As Any, ByVal bErase As Long) As Long
Public Sub SetBackGround (wpv_Arg As Variant)
Dim wlo_Image As Object
Dim wlv_Brush As Long
Dim wlv_Hwnd As Long
If Not IsNumeric (wpv_Arg) Then
Set wlo_Image = LoadPicture (wpv_Arg)
wlv_Brush = CreatePatternBrush (wlo_Image. handle )
Set wlo_Image = Nothing
Else
wlv_Brush = CreateSolidBrush (wpv_Arg)
End If
wlv_Hwnd = FindWindowEx (Application. hWndAccessApp , 0 , " MDIClient " , vbNullString )
SetClassLong wlv_Hwnd, GCL_HBRBACKGROUND, wlv_Brush
InvalidateRect wlv_Hwnd, vbNullString , 1
End Sub
|
Puis, si vous souhaitez mettre une autre couleur exécuter par exemple la ligne :
Et si vous souhaitez mettre une image :
SetBackGround " C:\MonImage.jpg "
|
Préferez l'utilisation d'images en mosaïque.
|
| 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 :
DoCmd. Hourglass True
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.
|
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.
|