FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

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

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

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