begin process at 2010 03 21 15:06:38
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Control

 > SUITE DU CONTRÔLE ACTIVEX " DESSIN"

SUITE DU CONTRÔLE ACTIVEX " DESSIN"


 Information sur la source

Note :
7 / 10 - par 2 personnes
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Control Classé sous :controle, activex, dessin Niveau :Expert Date de création :02/09/2000 Vu :4 295

Auteur : touil

Ecrire un message privé
Site perso
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 Description

- 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-C 87DBE4FA958"
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.


Source

  • ' Contrôle active x
  • '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.
' Contrôle active x


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

 



 Sources du même auteur

Source avec Zip MÉMOIRE DISPONIBLE
Source avec Zip ENREGISTRER LE SON
ACTIVEX DESSINATEUR DANS WWW
Source avec Zip RUNDLL32
Source avec Zip CRÉER VOTRE ACTIVEX DLL

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) OUVRIR UNE BASE DE DONNÉES DANS PLUSIEURS DATAGRIDVIEW DANS ... par PHILOUVB
Source .NET (Dotnet) CONTROLS PERSONALISÉ TEXTBOX par rodcobalt22
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

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture BOUTON UP_DOWN par epson1
Source avec Zip Source .NET (Dotnet) CRÉER UN VRAI OCX EN DOTNET par Patrice99
Source avec Zip Source avec une capture PROGRAMME DE DESSIN À LA SOURIS AVEC OUVERTURE ET ENREGISTRE... par SnkVrt
Source avec Zip Source avec une capture HORLOGE ANALOGIQUE / OPTIONS AVANCÉES (CONTROLE ACTIVEX) SIM... par MadM@tt
Source avec Zip SUPEROPTION par crenaud76

Commentaires et avis

Commentaire de touilamed le 17/09/2004 14:36:05

voir le site :
http://vbmaroc.site.voila.fr/dlac3.htm

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Appeler un Controle Activex dans une page ASP? [ par ziad ] j'ai un activex "A1" que j'appele dans une page ASP "P1", alors je veux utiliser un controle activex "C1" dans la page ASP, ce qui fait il faut que je Question spéciale pour les profess en controle ! Activex???????? [ par CLAY ] j'ai un activex "A1" que j'appele dans une page ASP "P1", alors je veux utiliser un controle activex "C1" dans la page ASP, ce qui fait il faut que je changer l'icone d'un activex [ par cameleon ] quelqu'un sait il comment mettre une icône autre que celle du fichier ctl quand on fait un controle activex, àfin de personnaliser ce controle. Merci Tutorial de création de controle ActiveX ... [ par Warning ] Je cherche à créer un control, mais il ne marche qu'a moitié dans les propriétés, en fait elle vire pendant l'execution, je cherche donc un tutorial d HELP REFERENCE ACCESS [ par seb ] Bonjour,J ai 2 pbs ActiveX.J ai une appli multi utilisateurs sur un serveur.Pour les tests sur mon poste, aucun souci. Par contre, sur d autres postes appel de fonction par l activex [ par smoron ] comment fait on pour qu un controle active x appelle une fonction de la feuille qui se sert du controle? AVOIR LE CONTROLE ACTIVEX ... [ par HARBAT ] j'ai besoin d'avoir un contrôle activeX composé d'une ligne de saisie et d'une liste (exemple:listeview)qui sont les deux attachés. autrement dit une Fenetre A popos de d'un controle ActiveX. [ par Appil ] Bonjour tt le monde.J'ai créé un controle ActiveX avec un About Form .. mais je sais pas quand l'afficher (Quel evenemetnt ..)Merci pour m'en donner u Apelé une fonction ^à partir d'1 ActiveX [ par leptidev ] Bonjour, g un controle Active X sur une feuille, et je voudrais savoir comment je peux appeler une fonction de cette feuille à partir de ce controle.M Impression controle ActiveX [ par Christian ] Bonjour à tous,Je suis en train de construire un contrôle ActiveX, qui ressemble à un graphique linéaire, composé essentiellement de contrôle Line.Je


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
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,655 sec (3)

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