|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 ACTIVEX DESSINATEUR DANS WWW
 Information sur la source
 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.
 Conclusion
 Sources du même auteur
 Sources de la même categorie
Sources en rapport avec celle ci
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Après "Comment saver une picturebox", "Commend Dessiner dans une PictureBox!" [ par WebMagique ]
Voilà, comment dessiner dans une pictureBox (comme Paint)Pour tout vous dire, je cherche à créer un créateur d'icônes & curseurs...Merci!
Recherche "graphiste" [ par boleann ]
enfin, je cherche qqu qui sait dessiner sur un ordinateur!!je fais déjas quelques programmes, et je me suis lancé sur un jeu vidéo! alors rien de bien
dessiner des icone [ par yasmina ]
Comment construire des icones pour applications personalisees avec le visual studio, et y'a t'ils d'autres avec les quels je peux contruire une iconem
Faire dessiner dans Excel depuis VB6 [ par bcip ]
Je crée une application cliente Excel et j'ai besoin de dessiner un cercle ou une Ellipse dans ma feuille avant de faire afficher Excel.Je fais commen
Comment dessiner un polygone plein [ par >BLAFARD< ]
Comment faire un algorithme du genre:Public Sub DrawPoly(nbr,x1,y1,x2,x2,...,rgb)nbr : le nombre de sommetsx1,y1,x2,y2... : les coord
Comment dessiner un cercle en VB [ par koubihack ]
G bien essayer de faire un cercle avec une ligne mais évidament ca ne marche pas, par exemple je met For i=0 to 360 line.X1 = cos(i)Next iUn cercle
dessiner grâce a VB [ par Dragon ]
nan, c`est pas dessiner avec un crayon comme paint, mais faire des cercle, rectangle, autre forme plus complexe, en utilisant seulement du code pour d
dessiner et déplacer des formes en surimpression [ par Gilles ]
Je m'explique : je tente de réaliser avec mes gros doigts gourds une appli sous Visual Basic 6 équipé de la librairie Mil-Lite qui permettrait à l'uti
Comment dessiner des lignes vertical ou horizontal en mode exécution [ par Philippou22 ]
comment dessiner des ligne pour ensuite aller receuillir leur coordonnéeJe veux cela pour pouvoir dessiner des plan de maison... Et ensuite obtenir le
comment dessiner CUBE 3D ! [ par ATH|500| ]
Je voudrais savoir comment déssiner un cube 3d dans n'importe qouoi sous visual basic... !!!!!! PLease help !!!
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|