Commande de compilation...
Commande d'enregistrement des ActiveX...
Commande d'exécution...
Fichier source...
upsvtm Com=Charger
type.exe
Dim MUpsKrn As Object
Dim MUpsSys As Object
Private Sub EcrireEcran(ByVal Libelle As String)
' ==============================================
Ecran.AddItem Libelle
End Sub
Private Sub Form_Load()
' =====================
Dim A As Object
Dim L As Object
Dim Map As Object
On Error GoTo GestionErreur
Set MUpsKrn = CreateObject("UpsApp.UpsKrn")
Set MUpsSys = CreateObject("UpsApp.UpsSys")
MUpsSys.Ecran.Ecrire3 MUpsKrn.ComBStr2Caractere("Entrer une ligne :")
Set L = MUpsSys.Clavier.LireUneLigne(A, MUpsKrn.ComInt2Entier(50))
MUpsSys.Ecran.Ecrire3 MUpsKrn.ComBStr2Caractere("Ligne lue : ").Additionner(A).Additionner(MUpsKrn.ComBStr2Caractere("
de taille ")).Additionner(MUpsKrn.Caractere5(L))
MUpsSys.Journal.Ecrire3 MUpsKrn.ComBStr2Caractere("Ligne lue : ").Additionner(A).Additionner(MUpsKrn.ComBStr2Caractere("
de taille ")).Additionner(MUpsKrn.Caractere5(L))
Set Map = MUpsSys.MiseAuPoint
If Not MUpsKrn.EstNul(Map) Then
Map.Ecrire3 MUpsKrn.ComBStr2Caractere("Ligne lue : ").Additionner(A).Additionner(MUpsKrn.ComBStr2Caractere("
de taille ")).Additionner(MUpsKrn.Caractere5(L))
End If
MUpsSys.Imprimante.Ecrire3 MUpsKrn.ComBStr2Caractere("Ligne lue : ").Additionner(A).Additionner(MUpsKrn.ComBStr2Caractere("
de taille ")).Additionner(MUpsKrn.Caractere5(L))
MUpsSys.Imprimante.Vider
Set A = Nothing
Set L = Nothing
Set Map = Nothing
Set MUpsSys = Nothing
Set MUpsKrn = Nothing
Exit Sub
GestionErreur:
'=============
EcrireEcran "Erreur UpsKrn-0 : L'exception suivante a été envoyée dans le
source '" + Err.Source + "' :"
EcrireEcran Err.Description
End Sub