begin process at 2013 05 24 04:44:00
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Divers

 > 

General

 > 

Scroll et Richtextbox


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Scroll et Richtextbox

jeudi 18 octobre 2012 à 23:13:31 | Scroll et Richtextbox

Sinsitrus

Salut !

J'ai un richtextbox et je voudrais que lorsque le scroll est à la fin de la lecture, cad tout en bas là où le texte finit, m'envoie un message.

Avez-vous une idée svp ?

Merci

----------
OS : Windows 7 Pro 64 Bit
Platforme : Visual Studio 2012
vendredi 19 octobre 2012 à 16:50:51 | Re : Scroll et Richtextbox

Le Pivert

Bonjour,
Je ne sais pas dans quel langage tu programmes. En haut VB6 et en bas VB2012

Voici en net ce que tu peux faire. Je l'ai mis dans un button:

Code Visual Basic :
   RichTextBox1.SelectionStart = RichTextBox1.Text.Length
        RichTextBox1.ScrollToCaret()
        MsgBox("fin du texte")


A toi de voir dans quel evenement l'attribuer!
@+Le Pivert
vendredi 19 octobre 2012 à 16:54:43 | Re : Scroll et Richtextbox

Sinsitrus

Non désolé, c'est en vb6 :(
vendredi 19 octobre 2012 à 16:56:58 | Re : Scroll et Richtextbox

ucfoutu

Membre Club
Bonjour, Le Pivert,
Le "Scroll", pour moi, n'a rien à voir avec le caret. Il s'exerce à l'aide des flèches de l'ascenseur dont le contrôle est doté.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
vendredi 19 octobre 2012 à 17:29:05 | Re : Scroll et Richtextbox

ucfoutu

Membre Club
Bonjour, Sinsitrus,
Je veux bien t'aider à mettre en place cette nouvelle "bébelle", mais ce sera la dernière fois, car je constate que tu passes beaucoup de temps à t'amuser avec du superflu et peu aux choses fondamentales.
Tu veux donc de l'"étonnant" ? Cela t'amuse ?
D'ac, mais sans la moindre explication.
Regarde, essaye d'analyser et comprendre cet exemple bâclé, donc, qui fait nécessairement appel à une fonction de l'API de Windows et utilise forcément un timer. :
Code Visual Basic :
Option Explicit
Private Declare Function GetScrollPos Lib "user32" (ByVal hwnd As Long, ByVal nBar As Long) As Long
Dim posfin As Long, deja As Boolean

Private Sub Form_Initialize()
  toto
End Sub
Private Sub Text1_Change()
 toto
End Sub

Private Sub Text1_GotFocus()
  toto
End Sub

Private Sub toto()
    Dim titi As Long
    titi = Text1.SelStart
    Text1.SelStart = Len(Text1.Text)
    posfin = GetScrollPos(Text1.hwnd, 1)
    Text1.SelStart = titi
    Timer1.Enabled = True
    Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
 If GetScrollPos(Text1.hwnd, 1) = posfin And Not deja Then MsgBox "stop": Timer1.Enabled = False
End Sub


Attention : tu as dit en VB6, hein. (Ce code est donc UNIQUEMENT pour du VB6).

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
vendredi 19 octobre 2012 à 17:37:39 | Re : Scroll et Richtextbox

ucfoutu

Membre Club
Ah oui : précisons :
Je t'ai mis là la manière de traiter le scroll vertical d'une textbox multiligne
Une valeur (et une seule) serait à modifier pour le scroll horizontal.
PS : j'ai dit "bébelle" et "superflu" pour une raison simple : nul utilisateur n'a besoin d'un message pour savoir qu'il est arrivé à la fin d'un scroll, hein ! Il le constate forcément seul (le scroll n'avançant plus, de lui-même, hein !!!)

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
vendredi 19 octobre 2012 à 17:42:39 | Re : Scroll et Richtextbox

ucfoutu

Membre Club
Et à propos : quid de cette autre discussion, laissée sans suite :
Tapez le texte de l'url ici.
Ce n'est pas sérieux !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
vendredi 19 octobre 2012 à 19:06:21 | Re : Scroll et Richtextbox

ucfoutu

Membre Club
Dans mon bâclage/essai, j'ai oublié de supprimer la booléenne deja, devenue inutile.
Enlève sa déclaration et modifie ===>>

If GetScrollPos(Text1.hwnd, 1) >= posfin And Not deja Then MsgBox "stop": Timer1.Enabled = False




________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
vendredi 19 octobre 2012 à 22:26:54 | Re : Scroll et Richtextbox

Sinsitrus

Merci à tous les deux et surtout à toi ucfoutu.

Tu dis bâclage, bébelle, superflu... tu as raison !

D'abord, le lien précédent ne fait plus parti du projet. Je m'amusais à faire plaisir à ma belle soeur qui souhaitais une petite appli comme elle souhaitais. Si un client te demande de lui faire un scrollbar qui affiche 0 et chaque x seconde affiche 1% de plus tu diras non à ton client parce que c'est une bébelle ou du superflu ? Peut-être oui vu que le perfection ne s'obtient qu'après un dur labeur !
Mais moi je refuserai pas ce client :)

Ici, le msgbox sera remplacé par un autre code, (rien a voir avec le premier projet en fait) mais pour simplifier, j'ai dis msgbox puisque le reste du code, je l'ai.

En tant que programmeur professionnel, tu sais que l'on peux supprimer une ligne de code et la remplacer non ? Alors pourquoi venir contre moi lorsque tu vois du "simple" ?

Je vois souvent une trentaine de lignes pour un truc que je peux faire en 3 ou 6 lignes, chacun ses petits secrets tu trouves pas ?

Bref ucfoutu, merci pour ton bout de code et pour l'autre poste car chez moi on dis :
"celui qui t'enseigne un mot, appel le maître" :)
vendredi 19 octobre 2012 à 23:06:28 | Re : Scroll et Richtextbox

ucfoutu

Membre Club
Veux-tu alors bien libérer toutes tes discussions qui ont été résolues ?
C'est à cela, que sert le tag "Réponse acceptée"


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

1 2 3

Cette discussion est classée dans : richtextbox, scroll


Répondre à ce message

Sujets en rapport avec ce message

realisation d'un scroll dans un control richtextbox [ par kequo ] Je dois réaliser un scroll sur un RichTextBox sans pour cela utiliser les scrollbar.Si vous avez une solution... merci Richtextbox scroll [ par LagPhil ] Bonjour tout le monde, j'ai deux richtextbox dans une form et je voudrais que lorsques je déplace le scrollbar vertical d'une de mes richtextbox cela Richtextbox & scrollbar par onglet [ par cbu ] Bonjour, j'ai une strcture similaire pour chaque onglet, c'est à dire une Richtextbox qui se met a jour toute seule.. Toutes les 5 minutes lorsque les VscrollBar et sa propriété Scroll [ par katman ] Bonjour à tous,je pense que qq'un pourra me répondre. j'ai une frame pour simplifier, dans laquelle je crée dynamiquement des labels en fonction d'une LISTE COMPLETE DES BALISES D'UN RICHTEXTBOX [ par caux ] Salut, je voudrai savoir où je peux trouver la liste complete des balises que l'on peut utiliser dans un richtextbox  (avec explication en francais si Limiter un RichTextBox en nombre de lignes [ par pausezero ] VB6 > Salut. Soit un FileListBox et un RichTextBox. Dans mon FileListBox, quand je sélectionne un fichier (fichier texte) qui contient plus de 10 lign Ressource et fichier RTF [ par FatJoe ] Sous VB6 je souhaite charger dans un fichier ressource un fichier RTF  et biensur le faire afficher dans une RichTextBox pas de PB pour la premiere pa Scroll dans une Msflexgrid [ par FASH ] Bonjour à tous,Je suis en VB6 et j'utilise une MSflexgrid avec différentes données; J'effectue une recherche d'une ligne précise et ce que je voudrais richtextbox [ par planeur ] Peut-on placer un mot où on veut , et déssinner un cercle noir remplit de vert dans un richtextbox?PLANEUR!!! [.net] Recherche dans un richtextbox [ par floran ] salut voila mon logiciel charge un fichier txt dans un richtextbox. Je voudrais avoir un autre fichier txt contenant plusieur ligne. Et qu' il reche


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mai 2013
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Photothèque

A découvrir



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

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales