FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
Sub Main 
  Dim oFichier As Object 
  
  'Définit le contrôle "Sélection de fichier" dans la boîte de dialogue BASIC. 
  oFichier = oDialog1.getControl("FileControl1") 
  
  'Affiche le texte contenu dans le contrôle (le chemin du fichier sélectionné). 
  MsgBox oFichier.Text 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Global oDialog1 As Object 
  
Sub AfficherBoiteDialogue 
  
  DialogLibraries.LoadLibrary( "Standard" ) 
  oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 ) 
  
  'Définit le contrôle "Sélection de fichier" dans la boîte de dialogue. 
  oFichier = oDialog1.getControl("FileControl1") 
  'Définit le chemin par défaut. 
  'Si le chemin indiqué n'existe pas c'est le répertoire courant qui est affiché.  
  oFichier.Text = "C:\Documents and Settings\mimi" 
  
  'Affiche la boîte de dialogue 
  oDialog1.Execute() 
  
End Sub