ACTIVEX DESSINATEUR DANS WWW activx, dessiner, Source N°1148

Information sur la source

Catégorie :Control Classé sous : activx, dessiner Niveau : Débutant Date de création : 18/05/2001 Vu : 3 432

Auteur : touil

Site perso

Ecrire un message privé

Note :

5,67 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

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

Source

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

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