Accueil > Forum > > > > Marquise de sélection
 Marquise de sélection
jeudi 12 juin 2003 à 12:15:22 |
Marquise de sélection
MrDogbert
|
Comment faire pour dessiner une marquise de sélection? (pas de bidouille avec un objet shape en pointillé SVP, une vraie marquise) merci d avance MrDogbert |
|
jeudi 12 juin 2003 à 14:05:06 |
Re : Marquise de sélection
Delbeke
|
Désolé je ne sais pas ce qu'est une marquise de sélection
Jean-Luc
-------------------------------
Réponse au message :
-------------------------------
> Comment faire pour dessiner une marquise de sélection?
> (pas de bidouille avec un objet shape en pointillé SVP, une vraie marquise)
>
> merci d avance
>
> MrDogbert
|
|
jeudi 12 juin 2003 à 17:42:54 |
Re : Marquise de sélection
MrDogbert
|
l espece de rectangle en pointillés qui te permet de sélectionner tes icones sur le bureau par exemple.
MrDogbert
-------------------------------
Réponse au message :
-------------------------------
> Désolé je ne sais pas ce qu'est une marquise de sélection
>
> Jean-Luc
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Comment faire pour dessiner une marquise de sélection?
> > (pas de bidouille avec un objet shape en pointillé SVP, une vraie marquise)
> >
> > merci d avance
> >
> > MrDogbert
>
|
|
jeudi 12 juin 2003 à 18:56:45 |
Re : Marquise de sélection
Delbeke
|
On utilise l'api DrawFocusRect
Pace un picturebox sur une feuille
puis colle le source suivant
Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function DrawFocusRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
Dim DrawRct As RECT
Dim Drawing As Boolean
Private Sub Form_Load()
Picture1.AutoRedraw = False
Picture1.ScaleMode = vbPixels
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lRet As Long
If (Button And 1) = 1 Then
DrawRct.Left = X
DrawRct.Top = Y
DrawRct.Right = X
DrawRct.Bottom = Y
lRet = DrawFocusRect(Picture1.hdc, DrawRct)
Drawing = True
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lRet As Long
If Drawing Then
lRet = DrawFocusRect(Picture1.hdc, DrawRct)
DrawRct.Right = X
DrawRct.Bottom = Y
lRet = DrawFocusRect(Picture1.hdc, DrawRct)
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lRet As Long
If Drawing Then
lRet = DrawFocusRect(Picture1.hdc, DrawRct)
Drawing = False
End If
End Sub
Jean-Luc
-------------------------------
Réponse au message :
-------------------------------
> l espece de rectangle en pointillés qui te permet de sélectionner tes icones sur le bureau par exemple.
>
> MrDogbert
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Désolé je ne sais pas ce qu'est une marquise de sélection
> >
> > Jean-Luc
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Comment faire pour dessiner une marquise de sélection?
> > > (pas de bidouille avec un objet shape en pointillé SVP, une vraie marquise)
> > >
> > > merci d avance
> > >
> > > MrDogbert
> >
>
|
|
jeudi 12 juin 2003 à 19:21:18 |
Re : Marquise de sélection
MrDogbert
|
Merci bien
MrDogbert
-------------------------------
Réponse au message :
-------------------------------
> On utilise l'api DrawFocusRect
>
> Pace un picturebox sur une feuille
> puis colle le source suivant
>
> Option Explicit
> Private Type RECT
> Left As Long
> Top As Long
> Right As Long
> Bottom As Long
> End Type
> Private Declare Function DrawFocusRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
>
> Dim DrawRct As RECT
> Dim Drawing As Boolean
>
> Private Sub Form_Load()
> Picture1.AutoRedraw = False
> Picture1.ScaleMode = vbPixels
> End Sub
>
> Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
> Dim lRet As Long
> If (Button And 1) = 1 Then
> DrawRct.Left = X
> DrawRct.Top = Y
> DrawRct.Right = X
> DrawRct.Bottom = Y
> lRet = DrawFocusRect(Picture1.hdc, DrawRct)
> Drawing = True
> End If
> End Sub
>
> Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
> Dim lRet As Long
> If Drawing Then
> lRet = DrawFocusRect(Picture1.hdc, DrawRct)
> DrawRct.Right = X
> DrawRct.Bottom = Y
> lRet = DrawFocusRect(Picture1.hdc, DrawRct)
> End If
> End Sub
>
> Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
> Dim lRet As Long
> If Drawing Then
> lRet = DrawFocusRect(Picture1.hdc, DrawRct)
> Drawing = False
> End If
> End Sub
>
> Jean-Luc
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > l espece de rectangle en pointillés qui te permet de sélectionner tes icones sur le bureau par exemple.
> >
> > MrDogbert
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Désolé je ne sais pas ce qu'est une marquise de sélection
> > >
> > > Jean-Luc
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > Comment faire pour dessiner une marquise de sélection?
> > > > (pas de bidouille avec un objet shape en pointillé SVP, une vraie marquise)
> > > >
> > > > merci d avance
> > > >
> > > > MrDogbert
> > >
> >
>
|
|
mercredi 5 avril 2006 à 15:04:22 |
Re : Marquise de sélection
Silmon
|
Je cherche le moyen de dessiner un focus (avec ou sans DrawFocusRect) dans un control, par exemple un bouton, une FlexGrid.
QQ a une idée SVP?
|
|
Cette discussion est classée dans : sélection, red, size, marquise
 Répondre à ce message
 Sujets en rapport avec ce message
Faire une sélection [ par stéphane ]
Je désire effectuer une séléction sur des mots tapes dans une textbox.En fait, je dois faire une requete mais j'aimerai faire une recherche par mots c
SONDAGE IMPORTANT !!! [ par max12 ]
Bon voilà êtes vous POUR ou Contre que je mette des sources axé sur la décompilation, je vous le demande parce que je veux pas que après vous disiez A
Sélection d'une ligne dans un datagrid... [ par celine ]
Bonjour tous le monde,Lorsque l'on clique sur le "recordselector" d'une datagrid avec la souris,la ligne de celui-ci est sélectionnée en noir.J'aimera
programmer le whatsthisbutton de VB [ par Steves ]
la propriete Whatsthisbutton existe bel et bien sur toutes les feuille de VB; il suffit de mettre sa valeur a true; Le probleme c comment le programme
ZIIIIIP [ par math85 ]
SOS!!!!!!! je cherche desesperement qqchose qui permette de zipper un dossier complet avec des fichiers, des sous dossiers, des fichiers/dossiers syst
TextOut + Multiligne [ par MrDogbert ]
est ce que quelqu un connait un moyen d utiliser l API TextOut et de pouvoir le faire sur plusieurs lignes:textout me.hdc, x,y, "bonjour" & chr(13) &
GetValue [ par boris3950 ]
Je reviens à la charge car j'ai vraiment besoin de connaître le fonctionnement de cette instruction : GetValue = ExecuteExcel4Macro(Arg) et je ne trou
Partage de dossier [ par Max666 ]
Salut tout le monde ! Est-ce que quelqu'un sait comment partager des dossiers ???Ou envoyer des fichiers</font c
Extension de Classe [ par MrDogbert ]
Ya t il moyen en VB declarer une classe, ou un Controle Utilisateur comme une extension d'une autre classe ou d un autre CU?Merci d'avanceMrDogbert
utilisation de FindFirstFileA [ par MadHellRaiSer ]
Salut, Quelqu'un pourrait-il m'expliquer comment utiliser la fonction FindFirstFileA de la bibliotheque Kernel32.dll D'avance je vous remercie.MadHe
 Livres en rapport
|
Derniers Blogs
 PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc [HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Très bonne après-midi passée lors cette conférence avec le W3C, organisée par L' Inria sur les nouveaux standards, ce Mardi 14 Février, on sent vraiment que çà bosse au W3C, et l'avenir est très très prometteur pour le HTML5, notamment ...
Cliquez pour lire la suite de l'article par Gio
Forum
 RE : VITESSERE : VITESSE par ossama261988
Cliquez pour lire la suite par ossama261988
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|