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

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

Note :
5,67 / 10 - par 3 personnes
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.

















 

Conclusion

Voilà c'est tout.
 

Commentaires et avis

signaler à un administrateur
Commentaire de yoman64 le 05/06/2002 19:42:50

Ouin commente un peu plus pour ke on comprenne

Ajouter un commentaire

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 !!!


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,936 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.