|
 Trouver une ressource
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 !
 Sujet : Marquise de sélection [ Archives Visual Basic / API ] (MrDogbert)
 Informations & options pour cette discussion
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é 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
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
HTC Magic
Entre 429€ et 429€
|