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