begin process at 2010 02 10 15:56:47
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Control

 > ACTIVEX DESSINATEUR DANS WWW

ACTIVEX DESSINATEUR DANS WWW


 Information sur la source

Note :
5,67 / 10 - par 3 personnes
5,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Control Classé sous :activx, dessiner Niveau :Débutant Date de création :18/05/2001 Vu :4 613

Auteur : touil

Ecrire un message privé
Site perso
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/dessin er.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.


 Sources du même auteur

Source avec Zip MÉMOIRE DISPONIBLE
Source avec Zip ENREGISTRER LE SON
Source avec Zip RUNDLL32
Source avec Zip CRÉER VOTRE ACTIVEX DLL
SUITE DU CONTRÔLE ACTIVEX " DESSIN"

 Sources de la même categorie

Source avec une capture Source .NET (Dotnet) CREATION DE CONTROLS DYNAMIQUE + DEPLACEMENT ET REDIMENTION ... par tresorsdevie
Source avec Zip Source avec une capture USERCONTROL AVEC PROPERTIES PERSONALISABLE par Polack77
Source avec Zip Source avec une capture BOUTON UP_DOWN par epson1
Source avec Zip Source avec une capture CONTROLS ++(CONTROLS GRAPHIQUES EN CONSTRUCTION) par Flocreate
Source avec Zip Source .NET (Dotnet) CRÉER UN VRAI OCX EN DOTNET par Patrice99

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture CONTROLS ++(CONTROLS GRAPHIQUES EN CONSTRUCTION) par Flocreate
Source avec Zip Source avec une capture BOUTON STYLÉ par Flocreate
Source .NET (Dotnet) DESSINER AVEC LA METHODE "DRAWIMAGE" par insosama
Source avec Zip Source avec une capture BASE POUR TRACER DES COURBES 2D par remy_113
Source avec Zip TRACEUR DE COURBE par vbnino

Commentaires et avis

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

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,624 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales