Insérer des images dans l'accès depuis Internet. Comment insérer une image dans une base de données. Changer la couleur de fond du formulaire et de ses éléments

02. Cette méthode vous permet de dessiner certains objets sous la forme, bien que le programme du tourisme international ait utilisé un algorithme différent pour dessiner la carte. Cette méthode peut vous être utile dans certains cas. Des lignes, des points, des ellipses, des polygones sont dessinés, c'est-à-dire ces objets de base qui sont utilisés dans l'interface API.

"La fonction permet de rechercher une fenêtre
Fonction de déclaration privée FindWindowEx Lib "user32" Alias ​​​​"FindWindowExA" _
(ByVal hWndParent As Long , _
ByVal hWndChildAfter As Long , _
ByVal lpClassname As String , _
ByVal lpWindowName As String ) As Long

" La fonction renvoie le contexte du périphérique de dessin
Fonction de déclaration privée apiGetDC Lib "user32" Alias ​​​​"GetDC" _
(ParVal hwnd As Long)_
Aussi long

"La fonction libère le contexte de l'appareil pour d'autres applications
Fonction de déclaration privée apiReleaseDC Lib "user32" Alias ​​​​"ReleaseDC" _
(ByVal hwnd As Long , _
ByVal hDc Tant que ) _
Aussi long


"Vient ensuite les fonctions qui contrôlent le dessin

"La fonction dessine un point sur l'écran
Fonction de déclaration privée apiSetPixel Lib "gdi32" Alias ​​​​"SetPixel" _
(ParVal hDc Tant que , _
ParVal x Tant que , _
ByVal Y Tant que , _
ByVal crColor Tant que ) Tant que

" La fonction trace une ligne depuis la position actuelle du "stylo" jusqu'au point avec les coordonnées
" x,y, mais sans lui-même. La ligne est tracée à l'aide du "stylo" sélectionné. Si
"il n'y a pas d'erreur, alors la position actuelle du stylo est définie sur le point avec les coordonnées
"(x,y)
Fonction de déclaration privée apiLineTo Lib "gdi32" Alias ​​​​"LineTo" _
(ParVal hDc Tant que , _
ByVal x Comme entier , _
ByVal Y comme entier) _
Aussi long

"La fonction dessine un arc d'ellipse à l'aide du "stylo" sélectionné.
"L'arc est tracé dans le sens inverse des aiguilles d'une montre.
" (x1,y1 - x2,y2) cadre de délimitation de l'arc.


Fonction de déclaration privée apiArc Lib "gdi32" Alias ​​​​"Arc" _
(ParVal hDc Tant que , _
ByVal X1 Comme entier, _
ByVal Y1 Comme entier, _
ByVal X2 Comme entier , _
ByVal Y2 Comme entier , _
ByVal X3 Comme entier , _
ByVal Y3 Comme entier, _
ByVal X4 Comme entier , _
ByVal Y4 Comme entier) _
Aussi long
"La fonction dessine un rectangle à l'aide du "stylo" sélectionné.
" (x1,y1) - premier coin

Fonction de déclaration privée apiRectangle Lib "gdi32" Alias ​​​​"Rectangle" _
(ParVal hDc Tant que , _
ByVal X1 Tant que , _
ByVal Y1 Tant que , _
ByVal X2 Tant que , _
ByVal Y2 Tant que ) Tant que

"La fonction déplace la position de dessin
" (x,y) - nouveau point
" (lpPoint) - point précédent
Fonction de déclaration privée apiMoveTo Lib "gdi32" Alias ​​​​"MoveToEx" _
(ParVal hDc Tant que , _
ParVal x Tant que , _
ByVal Y Tant que , _
lpPoint As POINTAPI) Aussi longtemps
" Structure de coordonnées de points
POINTAPI de type privé
x Aussi longtemps
Y aussi longtemps
Type de fin

"La fonction dessine une ellipse à l'aide du "stylo" sélectionné.
" (x1,y1) - premier coin
" (x2,y2) - angle opposé
Fonction de déclaration privée apiEllipse Lib "gdi32" Alias ​​​​"Ellipse" _
(ParVal hDc Tant que , _

ByVal X2 Tant que , ByVal Y2 Tant ) Tant


" lpPoint - tableau de points
" nCount - nombre de points
Fonction de déclaration privée apiPolyline Lib "gdi32" Alias ​​​​"Polyline" _
(ParVal hDc Tant que , _
lpPoint Comme POINTAPI, _

"La fonction dessine une polyligne à l'aide du "stylo" sélectionné
" lpPoint - tableau de points
" nCount - nombre de points
Fonction de déclaration privée apiPolygon Lib "gdi32" Alias ​​​​"Polygon" _
(ParVal hDc Tant que , _
lpPoint Comme POINTAPI, _
ByVal nCount Tant que ) Tant que



" (x3,y3) - point de départ pour dessiner avec un stylo"
" (x4,y4) - le point final du dessin de l'arc
Fonction de déclaration privée apiChord Lib "gdi32" Alias ​​​​"Chord" _
(ParVal hDc Tant que , _
ByVal X1 Tant que , ByVal Y1 Tant , _


"La fonction remplit un cercle à l'aide du "stylo" sélectionné
" (x1,y1 - x2,y2) cadre de délimitation de l'arc
" (x3,y3) - point de départ pour dessiner avec un stylo"
" (x4,y4) - le point final du dessin de l'arc
Fonction de déclaration privée apiPie Lib "gdi32" Alias ​​​​"Pie" _
(ParVal hDc Tant que , _
ByVal X1 Tant que , ByVal Y1 Tant , _
ByVal X2 Tant que , ByVal Y2 Tant , _
ByVal X3 Tant que , ByVal Y3 Tant , _
ByVal X4 Aussi longtemps , ByVal Y4 Aussi longtemps ) Aussi longtemps

"==============================================================
" But
" Dessiner des objets
"
Sous-privé butExecute_Click()
Dim hwnd aussi longtemps, hDc aussi longtemps "Contexte de fenêtre et de dessin
Dim X1 aussi longtemps, Y1 aussi longtemps, X2 aussi longtemps, Y2 aussi longtemps
Dim xy(3) Comme POINTAPI "Points de dessin
En cas d'erreur, GoTo 999

"Zone de dessin claire
Moi.Actualiser
Faire des événements

"Recherche d'une fenêtre de dessin. Cette solution est proposée
« Nikolai Malyutin, Iakoutsk : [email protégé]
hwnd = FindWindowEx(Me.hwnd, FindWindowEx(Me.hwnd, 0, "OFormSub" , "" ), "OFormSub" , "") )

"Sélectionner le contexte de l'appareil
hDc = apiGetDC(hwnd)

"Coordonnées de la zone de dessin
X1 = 15
Y1 = 90
X2 = 180
Y2 = 250

"Dessiner des objets
Sélectionnez Case Me.Objects
Cas 1 : « Le point est rouge
Appelez apiSetPixel(hDc, X2/2, Y2/2, RGB(255, 0, 0))
Cas 2 : « Ligne
Appelez apiMoveTo(hDc, X1, Y1, xy(0)) "Déplacez le pointeur
Appelez apiLineTo(hDc, X2, Y2) "Tracer une ligne
Cas 3 : « Ellipse »
Appeler apiEllipse(hDc, X1, Y1, X2, Y2/2)
Cas 4 : "Rectangle - ombré
Appelez apiRectangle(hDc, X1, Y1, X2, Y2)
Cas 5 : « Arc
Appeler apiArc(hDc, X1, Y1, X2, Y2, 50, 100, 150, 150)
Cas 6, 7 : "Cassé, remplis
"Chargement des coordonnées
xy(0).x = X1
xy(0).Y = Y1
xy(1).x = X1 + 20
xy(1).Y = Y2
xy(2).x = X2
xy(2).Y = Y2 - 20
Si Me.Objects = 6 Alors "Polyligne
Appeler apiPolyline(hDc, xy(0), UBound(xy))
Sinon "Remplir"
Appeler apiPolygon(hDc, xy(0), UBound(xy))
Fin si
Cas 8 : "Remplir un cercle selon une corde
Appeler apiChord(hDc, X1, Y1, X2, Y2, 50, 100, 150, 150)
Cas 9 : "Remplir un cercle à partir du centre
Appelez apiPie (hDc, X1, Y1, X2, Y2, 50, 100, 150, 150)
Fin de la sélection

"Libérer le contexte de l'appareil
Appeler apiReleaseDC (hwnd, hdc)
Quitter le sous-marin
999:
MsgBox Err.Description "Erreur
Err.Effacer
Fin du sous-marin

Tous les exemples Microsoft Access

Pour les arrière-plans de formulaires, Access 2002 vous permet de spécifier non seulement des couleurs douces, mais également des images bitmap stockées dans divers formats graphiques, tels que WMF et BMP. Access 2002 est livré avec plusieurs graphiques bitmap stockés dans le dossier Microsoft OfficeOfficelOBitmapsStyles.

Pour définir une image d'arrière-plan pour un formulaire :

  1. En mode Conception, sélectionnez l’intégralité du formulaire. Pour ce faire, cliquez avec le bouton gauche sur le carré dans le coin supérieur gauche de la fenêtre du Concepteur de formulaires où les règles verticales et horizontales se croisent. Après avoir sélectionné la forme, un carré noir apparaîtra à l'intersection des règles.
  2. Sur la barre d'outils Générateur de formulaires(Conception de formulaire) cliquez sur le bouton Propriétés(Propriétés). La fenêtre des propriétés du formulaire apparaîtra (Fig. 5.24).

    Riz. 5.24. Fenêtre des propriétés du formulaire

  3. Développez l'onglet Mise en page(Format) dans la fenêtre des propriétés du formulaire et utilisez la barre de défilement pour vous déplacer jusqu'à la fin de la liste des propriétés où se trouve la propriété Dessin(Image).

    Riz. 5.25. Fenêtre de dialogue Sélectionnez un motif

  4. Dans le champ Propriétés Dessin saisissez le chemin et le nom du fichier du dessin ou utilisez le Builder : placez le point d'insertion dans le champ Dessin, puis cliquez sur le bouton Construire(Construire), qui apparaîtra à droite du champ sous la forme d'un petit carré avec des points de suspension dessus, après quoi une boîte de dialogue s'ouvrira Sélectionnez un motif(Insérer une image) (Fig. 5.25), avec lequel vous pouvez rechercher et spécifier le fichier image requis. Cette boîte de dialogue est la boîte de dialogue standard d'ouverture de fichier Windows. Une fois le fichier de dessin trouvé, mettez son nom en surbrillance, puis cliquez sur le bouton D'ACCORD. Access affichera le chemin et le nom du fichier dans le champ des propriétés Dessin.
  5. Pour fermer la fenêtre des propriétés du formulaire, cliquez sur Fermer(Fermer) en haut de la fenêtre.

Contrairement aux couleurs d’arrière-plan, le motif d’arrière-plan s’applique à toutes les sections du formulaire. Pour supprimer une image d'arrière-plan, supprimez simplement le contenu de la zone de texte de propriété Dessin.

De plus, en utilisant les propriétés regroupées sur l'onglet Mise en page Dans la fenêtre des propriétés du formulaire, vous pouvez configurer l'affichage de l'image de fond. Propriété Type de motif(Type d'image) définit la méthode utilisée par Access pour joindre une image à un formulaire. Sélectionnez un élément dans la liste déroulante de cette propriété Mis en œuvre(Intégré) si l'application est destinée à être distribuée entre utilisateurs et que le formulaire ne doit pas utiliser de fichiers externes pouvant être déplacés ou supprimés. Si plusieurs formulaires utilisent la même image d'arrière-plan, sélectionnez l'élément dans la liste déroulante. Connecté(Lié), ce qui réduira l'utilisation de l'espace disque en incluant une image d'arrière-plan sur le formulaire en créant un lien vers le fichier image.

Utiliser la propriété Échelles de dessin(Mode Taille de l'image), vous pouvez déterminer la taille de l'image d'arrière-plan. Pour afficher l'image dans ses dimensions d'origine, sélectionnez l'élément dans la liste déroulante de cette propriété Fragment(Agrafe). Lors de la sélection d'une valeur S'insère dans le cadre(Stretch) le motif est étiré ou compressé horizontalement et verticalement à la taille de la forme ; Dans ce cas, il est possible de modifier les proportions de l'image. Sélection d'une valeur Selon la taille du cadre(Zoom) étirera ou compressera l'image tout en conservant les proportions à la taille maximale possible sans recadrer l'image.

Pour déterminer la position du papier peint, sélectionnez l'un des éléments suivants de la liste déroulante des propriétés Aligner une image(Alignement de l'image) : En haut à gauche(En haut à gauche) En haut à droite(En haut à droite) Centré(Centre), En bas à gauche(En bas à gauche) En bas à droite(en bas à droite) ou Centré sous la forme(Centre du formulaire).

Commentaire

Pour centrer l'image d'arrière-plan par rapport au formulaire plutôt qu'à la fenêtre du formulaire, définissez la propriété Aligner une image signification Au centre du formulaire, pas au centre.

Si la propriété Remplissage de mosaïque(Picture Tiling) est défini sur Oui, puis dans la fenêtre du formulaire ou dans l'ensemble du formulaire (selon la valeur de la propriété Alignement de l'image) Une image répétitive du motif s'affiche.

Après avoir modifié la valeur d'une propriété, le résultat de cette modification est immédiatement affiché sur le formulaire.

Imprimer le formulaire

Le formulaire, comme tout autre document, peut être imprimé. Vous devez d’abord préparer le formulaire pour l’impression.

1. Ouvrez la base de données de formation Département des ventes.

2. Dans la zone de navigation, double-cliquez sur le nom du formulaire Formulaire principal Clients pour l'ouvrir.

3. Cliquez avec le bouton droit sur l'en-tête du formulaire et sélectionnez dans le menu contextuel Constructeur.

4. Maintenant, faites un clic droit dans la zone de données et sélectionnez l'élément dans le menu contextuel Propriétés. La fenêtre des propriétés discutée dans les sections précédentes s'ouvrira.

5. Dans la fenêtre des propriétés, allez dans l'onglet Mise en page et pour les biens Couleur d'arrière-plan alternée spécifiez une couleur similaire à la couleur d'arrière-plan.

Les données du formulaire peuvent être imprimées en alternant la couleur de la zone de données afin que vous puissiez facilement voir où commence la zone de données d'un autre enregistrement. Une autre méthode qui peut être utilisée consiste à afficher les données de chaque enregistrement à partir d'une nouvelle page.

1. Cliquez avec le bouton droit dans la zone de note et sélectionnez Propriétés. La fenêtre des propriétés s'ouvrira.

2. Dans la fenêtre des propriétés, allez dans l'onglet Mise en page et pour les biens Mode de sortie indiquez s'il vous plait Uniquement à l'écran.

Il n’y a aucun commentaire sur notre formulaire, il n’est donc pas nécessaire d’imprimer la zone des notes.

3. Allez dans l'onglet Constructeur et du groupe Contrôles sélectionner un instrument Insérer un saut de page.

4. Spécifiez l'emplacement du saut de page en cliquant sur la bordure inférieure de la zone de données.

Le formulaire est maintenant prêt à être imprimé. Vous pouvez utiliser la fonction d'aperçu avant impression pour voir à quoi ressembleront vos données imprimées.

1. Ouvrez le menu principal du programme en appuyant sur le bouton Bureau dans le coin supérieur gauche de la fenêtre du programme Access.

2. Dans le menu, sélectionnez Joint.

4. En groupe Échelle sélectionnez la mise en page de deux pages sur une feuille (Figure 3.25) pour voir à quoi ressembleront la première et la deuxième pages.

Riz. 3.25. Aperçu

5. Cliquez sur le bouton Joint

sur l'onglet Aperçu. Une fenêtre s'ouvrira Joint(Fig. 3.26).

Riz. 3.26. Impression de fenêtre

6. Sur le terrain Nom sélectionnez une imprimante dans la liste des imprimantes installées sur le système. Sur le terrain État L'imprimante est prête à imprimer. Si la condition est différente de Prêt, sélectionnez une autre imprimante ou résolvez le problème.

7. Si vous devez imprimer dans un fichier, vérifiez le imprimer en tant que fichier groupes Imprimante.

8. En groupe Imprimer spécifier la plage de pages à imprimer.

9. En groupe Copies indiquer le nombre d'exemplaires.

10.Appuyez sur le bouton Paramètres, après quoi une fenêtre s'ouvrira Paramètres des pages(Fig. 3.27).

Riz. 3.27. Fenêtre Mise en page

11. En groupe Des champs spécifiez les tailles de marge. Les résultats des modifications que vous apportez sont affichés dans la fenêtre d'aperçu Échantillon.

Pour un formulaire fractionné, vous pouvez également spécifier quelle partie imprimer.

12. Appuyez sur le bouton D'ACCORD.

Si vous devez vérifier les propriétés de l'imprimante, cliquez sur Propriétés. La fenêtre qui s'ouvre et son contenu dépendent du type d'imprimante.

13. Lorsque vous êtes prêt à imprimer, appuyez sur le bouton D'ACCORD.

14. Si vous imprimez dans un fichier, une fenêtre apparaîtra Imprimer en tant que fichier(Fig. 3.28). Spécifiez le nom du fichier et cliquez sur le bouton D'ACCORD.

Riz. 3.28. Fenêtre Imprimer dans un fichier

15. Si vous avez sélectionné une imprimante existante pour l'impression, un message concernant le processus d'impression apparaîtra immédiatement. Vous pouvez désormais utiliser n'importe quel formulaire dans Microsoft Access 2007. La section suivante examinera l'utilisation d'un formulaire comme interface pour travailler avec des données.

Chapitre suivant >