begin process at 2012 02 11 23:39:15
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Control

 > RICHTEXBOX TRANSPARENTE EN VB.NET

RICHTEXBOX TRANSPARENTE EN VB.NET


 Information sur la source

Note :
8 / 10 - par 7 personnes
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Control Source .NET ( DotNet ) Classé sous :richtextbox, tranparent, transparence, transparentrichtextbox Niveau :Expert Date de création :12/07/2005 Date de mise à jour :17/07/2005 17:45:10 Vu :11 346

Auteur : yohan49

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

 Description

Cliquez pour voir la capture en taille normale
Classe pour transparence d'une richtextbox  (source introuvable ailleur)

mettez une image en fond dans une form !

ajouter un richtextbox

puis dans le code remplacer :

Me.Rich1 = New System.Windows.Forms.RichTextBox

par

Me.Rich1 = New TransparentRichTextBox


et ca :

Friend WithEvents Rich1 As System.Windows.Forms.RichTextBox

par

Friend WithEvents Rich1 As TransparentRichTextBox


mais avant creer une nouvelle class et coller le code :)

amusez vous bien et bonne prog


Source

  • Class TransparentControl
  • Inherits Control
  • Public Sub New()
  • MyBase.SetStyle(ControlStyles.UserPaint, True)
  • MyBase.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
  • MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
  • MyBase.UpdateStyles()
  • MyBase.Visible = True
  • End Sub
  • End Class
  • Class TransparentRichTextBox
  • Inherits RichTextBox
  • Public Sub New()
  • MyBase.ScrollBars = RichTextBoxScrollBars.None
  • End Sub
  • Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
  • Get
  • Dim cp As CreateParams = MyBase.CreateParams
  • cp.ExStyle = cp.ExStyle Or 32
  • Return cp
  • End Get
  • End Property
  • Protected Overloads Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)
  • End Sub
  • End Class
Class TransparentControl
    Inherits Control

    Public Sub New()
        MyBase.SetStyle(ControlStyles.UserPaint, True)
        MyBase.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
        MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        MyBase.UpdateStyles()
        MyBase.Visible = True
    End Sub

End Class

Class TransparentRichTextBox
    Inherits RichTextBox

    Public Sub New()
        MyBase.ScrollBars = RichTextBoxScrollBars.None
    End Sub

    Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or 32
            Return cp
        End Get
    End Property

    Protected Overloads Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)
    End Sub
End Class

 Conclusion

Code realisé avec la colaboration bienvenue nhervagault qui m'a enlevé une grosse epine du pied

merci a lui


 Historique

12 juillet 2005 15:41:22 :
correction
13 juillet 2005 08:04:21 :
ajout d'une capture sur demande
17 juillet 2005 17:45:10 :
aucune

 Sources du même auteur

Source avec une capture Source .NET (Dotnet) COULEUR MIRC ET SMILEY POUR RICHTEXTBOX VB.NET 2005
Source .NET (Dotnet) CONVERTION DE L'HEURE DU TOPIC MIRC EN DATE ET HEURE
Source .NET (Dotnet) FAIRE DESCENDRE LA SCROOLBAR AUTOMATIQUEMENT EN FIN DE TEXT ...
Source .NET (Dotnet) COMMANDER UN CONTROLE SITUER UNE FORME DEPUIS UNE AUTRE FORM
CREER PROGRAMME AUTONOME EXEMPLE

 Sources de la même categorie

Source avec Zip COMMUNICATION MODBUS MASTER par sergelapointe
Source avec Zip Source avec une capture DÉPLACEMENT AVEC FLÈCHES DANS UN PAVÉ DE TEXTBOX 9X9 DYNAMIQ... par EhJoe
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLSTARS EN RÉPONSE À JAKNIGHT007 par bigboss9
Source avec Zip Source avec une capture Source .NET (Dotnet) CALENDRIER ANNUEL NORME ISO par Prog1001
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLE STARS par jaknight007

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) APERÇU AVANT IMPRESSION D'UN RICHTEXTBOX par Gabilach
Source avec Zip MESSAGE AUTO (MSG_AUTO) par omega8
Source .NET (Dotnet) [VB.NET] CLASS DE COLORATION SYNTAXIQUE "ON THE FLY" par huzima
Source avec Zip Source avec une capture ALARMA! - TRANSPARENCE, ZONE DE NOTIFICATION par killerkurgan
Source avec Zip Source avec une capture RICHTEXTBOX + IMAGE DE FOND + IMPRESSION FORMAT A4 par jack

Commentaires et avis

Commentaire de sebmafate le 13/07/2005 06:55:33 administrateur CS

une capture ?

Commentaire de Benouille le 18/07/2005 18:31:50

Une tite explication de ce qui se passe, un petit commentaire eu été bien utile pour moi

3 trucs que je comprends pas:

1
    Public Sub New()
        MyBase.ScrollBars = RichTextBoxScrollBars.None
    End Sub

pkoi appeler la propriété de la classe de base?
pkoi pas me.scrollbars = RichTextBoxScrollBars.None?
  

2
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or 32
            Return cp
        End Get

en gros tu fixes le richttextbox.createparrams a 32 pour avoir la transparence?
ce serait pas mal d'expliquer un peu que les moins malins comme moi ne joue pas aux devinettes


3
    Protected Overloads Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)
    End Sub

ça sert a quelque chose?

vb nouille, plein de questions sans prendre une douille

Commentaire de Pym Corp le 30/07/2005 12:09:51

Moi ma question concerne le :
MyBase.UpdateStyles()

Est-ce indispensable dans un Public Sub New ?

Commentaire de saucekorn69 le 26/08/2005 17:48:46

Salut !!
J'ai quelques problèmes en implantant ta classe, la propriété "OptimizedDoubleBuffer" ne parait pas être membre de ControlStyles.

as tu une idée de ce que cela pourrait être ?

merci d'avance !

Commentaire de Pym Corp le 26/08/2005 18:23:16

Au fait, j'ai un sal bug.
Le texte laisse de sale trainées, c'est totalement illisible.

Merci de mettre un zip t'as du oublié quelque chose.

Commentaire de dvdstory le 03/09/2005 20:49:03

ouais moi aussi g des bleme.
il me souligne quelque mot dand je créé la classe.
Et quand je fait les modi dans  application il me marcua qu il a des erreur.
enfin c'est peut erte moi car je suis un debutant

Commentaire de floran le 04/09/2005 07:34:47

Euh meme probléme pleins de trainées noirs.

DVDSTORY donne les messages d' erreur qu' on puisse t' aider.

Commentaire de dvdstory le 04/09/2005 16:08:06

bas qand j ecris la classe il me souligne quelque mot.
et quand je compile iil me dit qu y a des erreur
dsl g pa envi de le refere pour te dire quelle mot sont souligné

Commentaire de Defaite le 03/10/2005 12:03:59

Ouai, ils ont tous raison.
Le rafraichissment est très mauvais...

Commentaire de deathagen le 19/11/2005 07:43:15

Thanks

Commentaire de mexong le 09/11/2006 17:19:04

Nikel :-)

Comme certains, j'avais des problèmes de rafraichissement. En fait, le trait de la barre qui clignote restait affiché.

Pour corriger le pb, j'ai mis dans l'événement previewKeyDown de rich1 la commande
Me.Rich1.refresh()

Et la no pb :-)


Commentaire de mexong le 10/11/2006 10:47:56

Finalement j'ai parlé trop vite...

Je n'ai plus les traits horizontaux, cependant si je tente de supprimer ce qui a été tapé, ca ne me supprime pas le texte... enfin pas avant que je double click ou autres sur ma RTB1

Quelqu'un a eu le pb?

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Form transparence [ par sam469 ] bonjour je voulait savoir comment rendre mon oprogramme tranparent automatiquement?avec un timer exemple:des que je lance mon programme je ve que mon Transparence des programmes [ par steph_lechimiste ] Bonjour à tous, j'aimerais savoir comment rendre un programme VB transparent BONNE ANNEE Merci d'avance Steph, le chimiste Control richtextbox transparent attaché a sa form [ par adess00 ] Bonjour Je voudrai savoir comment faire pour rendre ma richtextbox transparente.J ai trouvé des sources mais le probleme est que la richtextbox d Variable dans une RichTextBox [ par TS1 ] Bonjour à tous, notre problème est le suivant,Il me faudrait les lignes de codes permettant de declarer des variables ainsi que celui pour p Variable... [ par TS1 ] Bonjours, Imaginons nous cochons ( no comment ^^ ) une checkbox qui ouvre un fichier txt dans une richtextbox : avec tout un questionnaire Ex : Votr Transparence [ par Ballistic ] Salut tout le monde,j'ai un piti problème au niveau de mes images gifs avec un fond transparent,  ELLE CLIGNOTE QUAND ELLE SE DEPLACE !!!&nb RichTextBox [ par jjmiller ] J'utilise un RichTextBox pour afficher le flot de données dans une appli Tcp Client. La propiété MacLenght est à 0 pour ne pas lim Mise en for RichTextBox [ par manshivas ] Bonjours, Petite question, il y a t'il une fonction permettant de garder la mise en forme d'une richTextBox (couleur, gras, italique) lors de l'ajout Transparence Proc 100% [ par yvesyves ] Slt, Est ce normal que des que j'active la transparence sur une form mon processeur est utilisé à 100%. Si vous voulez le code pour comprendre dite le récuperer tous les mots en italiques dans un RichTextBox [ par dracoula ] Bonjour,J'aimerais savoir comment faire pour récuperer tous les mots en italiques dans un RichTextBox.Merci d'avanceJack


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
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 : 1,326 sec (3)

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