Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 23:31:13

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

+ de logiciels à télécharger

1 464 926 membres
402 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 031 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

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 !

SUITE DU CONTRÔLE ACTIVEX " DESSIN"

Information sur la source

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

Auteur : touil

Site perso

Ecrire un message privé

Note :

7,00 / 10

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

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

MÉMOIRE DISPONIBLE

ENREGISTRER LE SON

ACTIVEX DESSINATEUR DANS WWW

RUNDLL32

CRÉER VOTRE ACTIVEX DLL

Toutes les sources de touil

Sources de la même categorie

LABEL ET IMAGE DANS TEXTBOX par gillardg

GRADIENTDIALOG - SÉLECTION DE DÉGRADÉS LINÉAIRES par Mayzz

EXLISTVIEW- LISTVIEW PERSONNALISÉ par Mayzz

VB6-INNO-WIZARD par cdbi

BOUTON SOUS PLUSIEURS FORME par noah56

Toutes les sources de la catégorie Control

Sources en rapport avec celle ci

EXTENDED COMMON DIALOG CONTROL- BOITE DE DE DIALOGUE COMMUNE... par medkarim

CREATION D'UN ACTIVEX OCX POUR FMOD.DLL par Luciol44

CONTROLE UTILISATEUR IPBOX POUR LA SAISIE D'ADRESSE IP par foliv57

HORLOGE ANALOGIQUE / OPTIONS AVANCÉES (CONTROLE ACTIVEX) SIM... par MadM@tt

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