traduction de code

Question

est ce que quelqu'un pourrait me traduire ce code en vb.net svp !

class TransparentControl : Control
{
   public TransparentControl()
   {
      base.SetStyle( ControlStyles.UserPaint, true );
      base.SetStyle( ControlStyles.DoubleBuffer, true );
      base.SetStyle( ControlStyles.SupportsTransparentBackColor, true );
   }
}


class TransparentRichTextBox : RichTextBox
{
   public TransparentRichTextBox()
   {
      base.ScrollBars = RichTextBoxScrollBars.None;
   }


   override protected CreateParams CreateParams
   {
      get
      {
         CreateParams cp = base.CreateParams;
         cp.ExStyle |= 0x20;
         return cp;
      }
   }


   override protected void OnPaintBackground( PaintEventArgs e )
   {
   }
}

merci d'avance :)

nhervagault · Answer

Code transform&#233; avec #devvelop.



Bonne continuation

C'est non test&#233; mais ca doit donn&#233; une indication.

0x20 --> 32 en decimal je pense car #develop la convertit comme ca.







Class TransparentControl

Inherits Control



    Public Sub New()

        MyBase.SetStyle(ControlStyles.UserPaint, True)

        MyBase.SetStyle(ControlStyles.DoubleBuffer, True)

        MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, 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

yohan49 · Answer

Non pfff fonctionne pas

il mon richtextbox n'accepte toujours pas la couleur de fond transparent 

merci nhervagault pour la traduction mais y'a quelque chose qui cliche encore

nhervagault · Answer

SetStyle(ControlStyles.DoubleBuffer | ControlStyles.UserPaint | ControlStyles.AllPaintingInWmPaint, true);
UpdateStyles();



il manquerait pas Updztes styles par hasard (sur certain site la methode est presente ??

yohan49 · Answer

j'ai trouve nul part la methode en vb.net

j'ai juste trouve ce code en c#

l'appel des setstyle , je dois la faire ou exactement ??

nhervagault · Answer

Salut



Les setstyles tu les laisses ou ils sont dans le new

Il faut peut &#234;tre mettre le updateStyles apres.



il faut peut etre ajout&#233; le style 

 MyBase.SetStyle(ControlStyles.AllPaintingInWmPaint, true)



Il faut peut etre supprimer le style  ne pas le mettre

ControlStyles.UserPaint



Ne pas uyilis&#233; la couleur transparent tout marqu&#233; sur le site cidessous

sauf le updatestyle



Mais apparament la methode ne fonctionne pas avec VS 2003

http://www.thecodeproject.com/cs/miscctrl/TransparentTextBox.asp



Desol&#233; mais j'ai rien en VB.net

yohan49 · Answer

y'a du mieu lol enfin elle n'est plus blanche mais noir

Traduction de code

6 réponses

Discussions similaires