begin process at 2012 02 11 07:59:20
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Graphique

 > CRÉER UNE FENÊTRE RONDE

CRÉER UNE FENÊTRE RONDE


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Graphique Classé sous :fenêtre, ronde Niveau :Initié Date de création :30/04/2001 Date de mise à jour :22/11/2001 00:00:00 Vu :11 028
Auteur : Keriam

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

 Description

Vous devez juste coller le code dans une feuille dont les dimensions sont indiquées danss le code

Source

  • Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
  • Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
  • Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  • Private Sub Form_Load()
  • 'déclaration des variables
  • Dim rectArr As Long, rgn1 As Long, ChargForm As Long
  • 'Création de la fenêtre ronde (avec une feuille de dimension : width=7605 et height 6570)
  • rectArr = CreateRoundRectRgn(0, 0, 500, 400, 450, 450)
  • rgn1 = CreateEllipticRgn(100, 100, 150, 150)
  • 'permet de charger la fenêtre ronde
  • ChargForm = SetWindowRgn(Me.hWnd, rectArr, True)
  • End Sub 
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Sub Form_Load()
'déclaration des variables
Dim rectArr As Long, rgn1 As Long, ChargForm As Long

'Création de la fenêtre ronde (avec une feuille de dimension : width=7605 et height 6570)
rectArr = CreateRoundRectRgn(0, 0, 500, 400, 450, 450)
rgn1 = CreateEllipticRgn(100, 100, 150, 150)

'permet de charger la fenêtre ronde
ChargForm = SetWindowRgn(Me.hWnd, rectArr, True)
End Sub



 Sources de la même categorie

Source avec une capture GRAPH PHP COURBE DE CHARGE par s.defaye
Source avec Zip Source avec une capture BOULE DE CRISTAL par BLUEBIBUBBLE
VB6 - DÉPLACEMENT D'UN CONTRÔLE SUR UN SEGMENT DE DROITE DÉL... par ucfoutu
Source avec Zip Source .NET (Dotnet) APPLICATION DE DESSIN par fsafsafsaf
Source avec Zip Source avec une capture Source .NET (Dotnet) MERGEIMAGES par Le Pivert
Toutes les sources de la catégorie Graphique

 Sources en rapport avec celle ci

Source avec Zip FERMER UN PROGRAMME, UNE APPLICATION, UNE FENÊTRE... D'APRÈS... par RENAUD34
Source avec Zip Source avec une capture CAPTEUR DE HANDLE, DE TITRE, DE CLASS, DE POSITION DE TAILLE... par Sechaud
Source avec Zip Source avec une capture Source .NET (Dotnet) IMITER LA TRANSPARENCE DE LA BARRE DES TITRE DE WINDOWS VIST... par FREMYCOMPANY
Source avec Zip Source avec une capture Source .NET (Dotnet) SÉCURISER FENÊTRE MDI par tinux
Source avec Zip Source avec une capture DIMENSION DE L'INTÉRIEUR D'UNE FENÊTRE - RÉGLER LA TAILLE D'... par _120_

Commentaires et avis

Commentaire de Foxix le 12/03/2002 11:51:30

Ouais sa l'air cool !

Commentaire de Gadot le 21/10/2002 20:15:19

C'est très bien. Ca marche super. BRAVO

Commentaire de SDan le 31/12/2002 14:29:35

Extra, pourrais-tu me dire si je veux créer une feuille ovale, triangulaire, si c'est à peu près le même code

Merci et @+

Commentaire de valy le 02/01/2003 22:54:17

class

Commentaire de quiaimeflash le 14/07/2004 23:34:32

C'est sympa,
Mais peut faire des angles oblique (comme pour un triangle par exemple)

Commentaire de quiaimeflash le 14/07/2004 23:35:48

G oublier l'essentiel : comment faire ?

C'est sympa,
Mais comment peut on faire des angles oblique (comme pour un triangle par exemple)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Fermer une fenêtre DOS active [ par Lolo ] Comment fermer une fenêtre DOS qui est active.shell( "command.com") centrer la fenêtre browseforfolder [ par Garou ] j'ai créer une fenêtre avec la fonction API SHBrowseForFolder et je cherche à centrer cette fenêtre. centrer une fenêtre [ par Garou ] j'ai créé une fenêtre avec SHBrowseForFolder et je cherche à la centrer:comment faire? fenêtre non recouvrable (visible au 1er plan) [ par flo ] bonjourexiste t'il un moyen de rendre un form toujoiurs visible au premier plan et non recouvrable par un autre form ( a part rappeller la methode .Sh URGENT : Ecrire aide sur fenêtre DOS [ par Adrien ] Après avoir créé un exécutable, je n'arrive pas à orienter le texte d'aide sur la fenêtre DOS sans utiliser le send key,cela me permettrait également empêcher le redimensionnement d'un fenêtre [ par drublic ] salut,j'aimerais, que lorsque la fenêtre de mon programme s'affiche, l'on ne puisse pas avec la sourie la redimenssionner.ou alors comment fait on pou empêcher le redimensionnement d'un fenêtre [ par drublic ] salut,j'aimerais, que lorsque la fenêtre de mon programme s'affiche, l'on ne puisse pas avec la sourie la redimenssionner.ou alors comment fait on pou Comment savoir si une fenêtre qu'on a ouverte s'est terminée [ par Adrien ] Je lance une fenêtre via un shell mais je ne sais pas détecter quand elle se fermeMerci de me donner un coup de main problème de fenêtre [ par delph ] Bonjourgrace à un programme en VB, je lance un exécutable, le seul problème que je rencontre est celui-ci : je n'arrive pas à mettre en premier plan c Titre de fenêtre [ par Analgesix ] Bonjour,je programme en VBA sous Excel et j'aimerai récupérer le nom du fichier Excel ouvert. Comment puis-je faire ???Merci


Nos sponsors


Sondage...

Comparez les prix


Archos 7 home tablet - 2 Go
Entre 149€ et 159€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

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,718 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)