IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
logo

FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

Nombre d'auteurs : 10, nombre de questions : 359, dernière mise à jour : 15 juillet 2017  Ajouter une question

 

Bienvenue sur la FAQ, elle a été réalisée pour répondre aux questions concernant les suites bureautiques Apache OpenOffice (AOO) et LibreOffice (LibO).

Si vous souhaitez participer pour l'améliorer, pour proposer vos contributions ou si vous constatez des erreurs dans cette page, n'hésitez-pas !!! Participez.

SommaireProgrammation OBasicLes boîtes de dialogue BASICLe contrôle picto: ImageControl (2)
précédent sommaire suivant
 

Cet exemple nécessite d'insérer un contrôle Picto dans la boîte de dialogue BASIC.

Code vb : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub AffichageImage 
  Dim oImage As Object  
  Dim Fichiers() As Variant 
  Dim oFilePicker As Object 
  
  'Définit le contrôle Picto 
  oImage = oDialog1.getControl( "ImageControl1" ) 
  
  'Définit la boîte de dialogue qui va permettre de sélectionner un fichier 
  oFilePicker = CreateUnoService( "com.sun.star.ui.dialogs.FilePicker" )  
  'Définit les types de fichiers à afficher dans la fenêtre de recherche 
  oFilePicker.appendFilter( "FichiersImage (bmp, gif, jpg)", "*.bmp;*.gif;*.jpg" )  
  'Définit un titre. 
  oFilePicker.setTitle( "Sélectionnez un fichier:" )  
  
  'Si un fichier a été sélectionné ...    
  If oFilePicker.Execute() Then     
    Fichiers = oFilePicker.getFiles()  
  
    'Pour récupérer le chemin du fichier sélectionné. 
    'MsgBox ConvertFromURL(Fichiers(0)) 
  
    '--- Affichage de l'image ----- 
    oImage.Model.ImageURL = ConvertToURL( Fichiers(0) ) 
    '------------------------------ 
  
  Else 
    MsgBox "Opération annulée" 
  End If 
  
End Sub

Mis à jour le 2 août 2013 SilkyRoad

Cet exemple montre comment donner l'effet de mouvement à un contrôle image placé dans la boîte de dialogue.

La boîte de dialogue est nommée « Dialog1 ».
Ajoutez un objet image nommé « ImageControl1 » et un CommandButton nommé « CommandButton1 ».
Placez l'image de votre choix dans l'objet image : clic-droit sur le contrôle / Propriétés / Onglet « général » / Image.
(Privilégiez une image simple et de petite taille pour améliorer l'effet visuel).
Associez la macro « DeplacementImage » à l'évènement « lors du déclenchement » du CommandButton : clic-droit sur le contrôle / Propriétés / Onglet « évènements » / cliquez sur le bouton « Assigner » / Sélectionnez la macro « DeplacementImage » / Cliquez sur le bouton OK dans toutes les fenêtres ouvertes.

Code vb : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Global oDialog1 As Object 
  
Sub AfficherBoiteDialogue 
  
  DialogLibraries.LoadLibrary( "Standard" ) 
  'Dialog1 est le nom de la Form (Clic droit sur l'objet / propriétés / onglet Général / Nom) 
  oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 ) 
  
  'Masque l'objet image nommé "ImageControl1" au démarrage 
  oDialog1.getControl("ImageControl1").Visible = False 
  
  'Modifie la couleur de fond de la boîte de dialogue 
  oDialog1.Model.BackgroundColor = RGB(200,235,225) 
  
  'Redéfinit les dimensions de la boîte de dialogue  
  oDialog1.Model.Height = 300 'Hauteur 
  oDialog1.Model.Width = 330 'Largeur 
  
  'Affiche la boîte de dialogue 
  oDialog1.Execute() 
  
End Sub
Code vb : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub DeplacementImage 
  Dim oImage As Object 
  Dim x As Integer 
  
  'Masque le bouton de lancement 
  oDialog1.getControl("CommandButton1").Visible = False 
  
  'Définit l'objet image     
  oImage = oDialog1.getControl("ImageControl1")  
  
  'définit la position initiale 
  With oImage 
    .Visible = True 
    .Model.PositionX = 30 
    .Model.PositionY = 25 
    .Model.Height = 40 
    .Model.Width = 50 
  End With 
  
  'Déplacement de l'image dans la boite de dialogue Basic 
  With oImage 
    For x = 1 To 30 
      .Model.PositionX = .Model.PositionX + x 
      .Model.PositionY = .Model.PositionY + x 
      .Model.Height = .Model.Height + (x * 2) 
      .Model.Width = .Model.Width + (x * 2) 
  
      Wait (40) 
    Next x 
  
    .Visible = False  
  End With 
  
  'Réaffiche le bouton de lancement 
  oDialog1.getControl("CommandButton1").Visible = True    
End Sub

Mis à jour le 26 août 2013 SilkyRoad

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous 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'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.