Reference

Commande de compilation

Dans le menu Project - References de Visual Basic, il faut importer les déclarations du module Up ! Kernel en cochant la case correspondante.

Commande d'enregistrement des ActiveX

upsvtm Com=Charger

Commande d'exécution

reference.exe

Fichier source


Dim MUpsKrn As IUpsKrn



Private Sub EcrireEcran(ByVal Libelle As String)

' ==============================================

Ecran.AddItem Libelle

End Sub



Private Sub Form_Load()

' =====================

Dim A As IUpsKrnCaractere

Dim R1 As IUpsKrnReference

Dim R2 As IUpsKrnReference



On Error GoTo GestionErreur



Set MUpsKrn = CreateObject("UpsApp.UpsKrn")



Set A = MUpsKrn.ComBStr2Caractere("A")

Set R1 = MUpsKrn.Reference1(MUpsKrn.Caractere, A)

Set R2 = MUpsKrn.Reference1(MUpsKrn.Caractere, MUpsKrn.ComBStr2Caractere("B"))

EcrireEcran MUpsKrn.Caractere2ComBStr(R1.Valeur)

If MUpsKrn.Booleen2ComVariantBool(R1.Egal(R2)) Then

	EcrireEcran "R1==R2"

End If

If MUpsKrn.Booleen2ComVariantBool(R1.Different(R2)) Then

	EcrireEcran "R1!=R2"

End If

Set R2 = R1

If R1.Valeur.Identique(R2.Valeur) Then

	EcrireEcran "R1.Valeur==R2.Valeur"

End If

Set R1.Valeur = MUpsKrn.ComBStr2Caractere("C")

EcrireEcran MUpsKrn.Caractere2ComBStr(R2.Valeur)



Set A = Nothing

Set R1 = Nothing

Set R2 = 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