Activex dessinateur dans www

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 896 fois - Téléchargée 59 fois

Contenu du snippet

Activex dessinant de belles formes.
Voir l'activex en action dans www à l'adresse:
http://membres.tripod.fr/taouile/dessiner.htm

Source / Exemple :


'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. '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 indispensables 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.

Conclusion :


Voilà c'est tout.

A voir également

Ajouter un commentaire

Commentaire

cs_yoman64
Messages postés
593
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2008
-
Ouin commente un peu plus pour ke on comprenne

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.