| | auteur : Demco | Allez dans :
Menu outil/démarrage
Décochez les cases suivant les menus que vous voulez voir disparaître.
|
| | auteur : Bidou | MsgBox "ligne1" & vbCrLf & "ligne2"
|
|
| | auteur : Papy Turbo | Rappel :
- 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- 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- la fonction (obsolète) QbColor() renvoie un des 16 codes couleurs ci-dessus, à partir d'un chiffre.
- 4- la fonction RGB() renvoie n'importe quelle couleur, à partir des 3 valeurs Red, Green, Blue.
- 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
|
|
| | auteur : Lucifer | Il suffit de supprimer les labels et de les recréer.
|
| | 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
|
|
| | 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.
|
| | 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
|
| | 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
|
| | auteur : Team Access | Exemple pour afficher :
Docmd.SelectObject acTable, , True
|
Exemple pour masquer :
Docmd.SelectObject acTable, , True
Docmd.RunCommand acCmdWindowHide
|
|
| | 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 :).
|
| | 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
Exit Function
Else
MsgBox "Erreur N°" & Err.Number & vbCrLf & Err.Description, 16
Resume Exit_AfficherFenetreBDT
End If
End Function
Sub Afficher()
AfficherFenetreBDT True
End Sub
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.
|
| | 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)
|
|
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.
|
