Annonce
#1 Mon 21 March 2005 08:05
- ROBIN Thomas
- Invité
Code MapBasic
Bonsoir,
Je recherche le code MapBasic permettant de demander à l'utilisateur de
saisir une valeur, un beu comme dans VB où on utilise la fonction :
dim ma_valeur as string
ma_valeur = inputbox Saisir la valeur
Merci pour votre aide
THOMAS ROBIN
CNASEA GUYANE
#2 Tue 22 March 2005 11:16
- Christophe Barbier
- Invité
Re: Code MapBasic
Bonjour,
La fonction InputBox() n'existe pas en MapBasic.
Mais il vous suffirait de la creer vous meme:
' **************************************************************************
Sub Main
dim ma_valeur as string
ma_valeur = inputbox( Saisir la valeur )
End Sub
' **************************************************************************
Function InputBox(ByVal prompt As String) As String
Dim s_Reponse As String
Dialog
Title prompt
Control EditText
Width 100
Into s_Reponse
Control OKButton
Control CancelButton
If CommandInfo(CMD_INFO_DLG_OK) Then
InputBox = s_Reponse
End If
End Function
' **************************************************************************
Christophe Barbier, I²G
Division Systeme
christophe.barbier@i2g.fr
www.i2g.fr
#3 Tue 22 March 2005 16:00
- Sigeal
- Invité
Re: Code MapBasic
De: Christophe Damour
Il faut construire un dialogue personnalise.
Exemple :
Dialog
Title Valeur
Control StaticText
Title Valeur :
Control EditText
Value rep_searchfor 'valeur par defaut (rep est une variable globale)
Into rep_searchfor
Control OKButton
Control CancelButton
If CommandInfo(CMD_INFO_DLG_OK) Then
' l'utilisateur a clique OK
' la valeur entree se trouve dans la variable rep
End If
Voir plus de details dans l'aide de MapBasic :
- MapBasic language syntax
- User Interface
- Dialog Boxes
Cordialement.
Christophe Damour
