cs_got
Messages postés139Date d'inscriptionlundi 7 janvier 2002StatutMembreDernière intervention15 mars 2016
-
15 mai 2009 à 08:30
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
15 mai 2009 à 09:17
Bonjour,
j'ai sur une form un richtextbox qui fait une hauteur X. Le texte à l'intérieur est bcp plus grand que la hauteur du richtextbox.
dans cette richtextbox je sélectionne des mot clefs. via le code. J'aimerai que cette sélection soit positionner en haut de la richtexbox. Pas en haut absolu mais en relatif par rapport à la partie visible. En fait faire un scroling automatique pour positionner la sélection en haut de la partie visible.
cs_got
Messages postés139Date d'inscriptionlundi 7 janvier 2002StatutMembreDernière intervention15 mars 2016 15 mai 2009 à 08:59
le numéro de la ligne je peux aussi le récupérer via getlinefromchar. Ca c'est bon mais apres comment placer cette ligne .....
en Écrivant ça je m'aperçois que justement ça devrait le faire. si j'ai le numéro de la premiere ligne visible et le numéro de la ligne que je veux placer en 1er il me suffit de "déplacer" ma ligne jusqu'a ce que les 2 colles... Apres pour l'instant ma seule solutiuon pour faire se déplacement est de faire un selstart .. y a surezment plus propre???
pour info et pour le scroll j'ai trouvé ça...
ça peut servir...
'In a module
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Function GetVerticalScrollPos(rtb As RichTextBox) As Long
GetVerticalScrollPos = SendMessage(rtb.hwnd, EM_GETTHUMB, 0&, 0&)
End Function
Public Sub SetVerticalScrollPos(rtb As RichTextBox, Position As Long)
SendMessage rtb.hwnd, WM_VSCROLL, SB_THUMBPOSITION + &H10000 * Position, Nothing
End Sub