Suite du contrôle activex " dessin"

Commenter

Contenu du snippet

- ajouter un projet ( menu fichier) à ce contrôle activex
- fermer la form relative au contrôle activex
- inserer ce contrôle (disponible maintenant dans la boîte à outils) dans la form du projet
- enregistrer le groupe de projet (menu fichier)
- choisissez installation internet dans le gestionnaire d'installation avec génération du projet exe
- le gestionnaire d'insrtallation crée automatiquement les fichiers indisoensables au téléchargement internet du contrôle à savoir :
  • contrôle.cab
  • un fichier html qui contient tout ce qui est nécéssaire au téléchargement du contrôle :


<HTML>
<OBJECT ID="UserControl1" WIDTH=388 HEIGHT=61
CLASSID="CLSID:8AB805CF-F5B4-11D2-8B67-C87DBE4FA958"
CODEBASE="Projet1.CAB#version=1,0,0,0">
</OBJECT>
</HTML>

c'est le strict minimum que doit renfermer le fichier html téléchargeur.

- Copier par FTP les deux fichiers *.cab et *.htm dans votre serveur hénérgeur.
- quand vous appelez la page *.htm le fichier *.cab installe automatiquement votre contrôle das le pc client et l'éxecution du projet activex
est automatique.

Source / Exemple : 


' Contrôle active x

'déclarations des variables
Dim a As Integer
Dim b As Integer
Dim j As Integer
Dim i As Integer

'effacement de le zone de dessin
Private Sub Command1_Click()
Cls
End Sub

' Marche-arrêt  
Private Sub Command2_Click()
Static c As Integer
If c Then
Timer1.Enabled = False
Command2.Caption = "Démarrer"
Else
Timer1.Enabled = True
Command2.Caption = "arrêter"
End If
c = Not c
End Sub

'Choix de  épaisseur du trait
Private Sub epaiss_Click()
DrawWidth = epaiss.List(epaiss.ListIndex)
End Sub

'Choix de la largeur de la zone de dessin
Private Sub VSc_Change()
b = VSc.Value * 200
Text2.Text = VSc.Value
End Sub

'Choix de la Longeur de la zone de dessin
Private Sub HSc_Change()
a = HSc.Value * 200
Text1.Text = HSc.Value
End Sub

'Dessin proprement dit, voir un peu de trigonométrie
Private Sub Timer1_Timer()
r = 2000
i = i + 1
Line (2000, 2000)-(2000 + a * Cos(6.28 * i / 360), 2000 + b * Sin(6.28 * i / 360)), QBColor(Int(15 * j / 36))
j = j + 1
If j = 36 Then j = 0
End Sub

'Initialisation du contrôle 
Private Sub UserControl_Initialize()
a = 2000
b = 2000
Text1.Text = 10
Text2.Text = 10
HSc.Value = 10
VSc.Value = 10
End Sub

- ajouter un projet ( menu fichier) à ce contrôle activex 
- fermer la form relative au contrôle activex
- inserer ce contrôle (disponible maintenant dans la boîte à outils) dans la form du projet
- enregistrer le groupe de projet (menu fichier)
- choisissez installation internet dans le gestionnaire d'installation avec génération du projet exe 
- le gestionnaire d'insrtallation crée automatiquement les fichiers indisoensables au téléchargement internet du contrôle à savoir :


  •  contrôle.cab 

  •  un fichier html qui contient tout ce qui est nécéssaire au téléchargement du contrôle :


<HTML>
<OBJECT ID="UserControl1" WIDTH=388 HEIGHT=61
CLASSID="CLSID:8AB805CF-F5B4-11D2-8B67-C87DBE4FA958"
CODEBASE="Projet1.CAB#version=1,0,0,0">
</OBJECT>
</HTML>

c'est le strict minimum que doit renfermer le fichier html téléchargeur.

- Copier par FTP les deux fichiers *.cab et *.htm dans votre serveur hénérgeur.
- quand vous appelez la page *.htm le fichier *.cab installe automatiquement votre contrôle das le pc client et l'éxecution du projet activex 
est automatique.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_touil)