2022年用户自定义控件-透明文本框收集 .pdf

《2022年用户自定义控件-透明文本框收集 .pdf》由会员分享，可在线阅读，更多相关《2022年用户自定义控件-透明文本框收集 .pdf（19页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、透明文本框来源：http:/ 只能下载*.dll 的文件，没有代码，所以特意发出源代码。using System;using System.Collections;using System.ComponentModel;using System.Drawing;using System.Data;using System.Windows.Forms;using System.Drawing.Imaging;namespace ZBobb /AlphaBlendTextBox:A.Net textbox that can be translucent to the background./(C)

2、2003 Bob Bradley/ZB AlphaBlendTextBox:System.Windows.Forms.TextBox#region private variablesprivate uPictureBox myPictureBox;privatebool myUpToDate=false;privatebool myCaretUpToDate=false;名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 19 页 -private Bitmap myBitmap;private Bitmap myAlphaBitmap;privateint myFontHeight

3、=10;private System.Windows.Forms.Timer myTimer1;privatebool myCaretState=true;privatebool myPaintedFirstTime=false;private Color myBackColor=Color.White;privateint myBackAlpha=10;/Required designer variable./private System.ComponentModel.Container components=null;#endregion/end private variables#reg

4、ion public methods and overridespublicAlphaBlendTextBox()/This call is required by the Windows.Forms Form Designer.InitializeComponent();/TODO:Add any initialization after the InitializeComponent callthis.BackColor=myBackColor;this.SetStyle(ControlStyles.UserPaint,false);this.SetStyle(ControlStyles.

5、AllPaintingInWmPa名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 19 页 -int,true);this.SetStyle(ControlStyles.DoubleBuffer,true);myPictureBox=new uPictureBox();this.Controls.Add(myPictureBox);myPictureBox.Dock=DockStyle.Fill;protectedoverridevoid OnResize(EventArgs e)base.OnResize(e);this.myBitmap=new Bitmap(this.Cli

6、entRectangle.Width,this.ClientRectangle.Height);/(this.Width,this.Height);this.myAlphaBitmap=new Bitmap(this.ClientRectangle.Width,this.ClientRectangle.Height);/(this.Width,this.Height);myUpToDate=false;this.Invalidate();/Some of these should be moved to the WndProc laterprotectedoverridevoid OnKeyD

7、own(KeyEventArgs e)base.OnKeyDown(e);myUpToDate=false;this.Invalidate();protectedoverridevoid OnKeyUp(KeyEventArgs e)名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 19 页 -base.OnKeyUp(e);myUpToDate=false;this.Invalidate();protectedoverridevoid OnKeyPress(KeyPressEventArgs e)base.OnKeyPress(e);myUpToDate=false;this.I

8、nvalidate();protectedoverridevoid OnMouseUp(MouseEventArgs e)base.OnMouseUp(e);this.Invalidate();protectedoverridevoid OnGiveFeedback(GiveFeedbackEventArgs gfbevent)base.OnGiveFeedback(gfbevent);myUpToDate=false;this.Invalidate();protectedoverridevoid OnMouseLeave(EventArgs e)/found this code to fin

9、d the current cursor location/at http:/ 4 页，共 19 页 -Point ptCursor=Cursor.Position;Form f=this.FindForm();ptCursor=f.PointToClient(ptCursor);if(!this.Bounds.Contains(ptCursor)base.OnMouseLeave(e);protectedoverridevoid OnChangeUICues(UICuesEventArgs e)base.OnChangeUICues(e);myUpToDate=false;this.Inva

10、lidate();/-protectedoverridevoid OnGotFocus(EventArgs e)base.OnGotFocus(e);myCaretUpToDate=false;myUpToDate=false;this.Invalidate();myTimer1=new System.Windows.Forms.Timer(ponents);myTimer1.Interval=(int)win32.GetCaretBlinkTime();/usually around 500;myTimer1.Tick+=new EventHandler(myTimer1_Tick);myT

11、imer1.Enabled=true;名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 19 页 -protectedoverridevoid OnLostFocus(EventArgs e)base.OnLostFocus(e);myCaretUpToDate=false;myUpToDate=false;this.Invalidate();myTimer1.Dispose();/-protectedoverridevoid OnFontChanged(EventArgs e)if(this.myPaintedFirstTime)this.SetStyle(ControlStyl

12、es.UserPaint,false);base.OnFontChanged(e);if(this.myPaintedFirstTime)this.SetStyle(ControlStyles.UserPaint,true);myFontHeight=GetFontHeight();myUpToDate=false;this.Invalidate();protectedoverridevoid OnTextChanged(EventArgs e)base.OnTextChanged(e);名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 19 页 -myUpToDate=false

13、;this.Invalidate();protectedoverridevoid WndProc(refMessage m)base.WndProc(ref m);/need to rewrite as a big switchif(m.Msg=win32.WM_PAINT)myPaintedFirstTime=true;if (!myUpToDate|!myCaretUpToDate)GetBitmaps();myUpToDate=true;myCaretUpToDate=true;if (myPictureBox.Image!=null)myPictureBox.Image.Dispose

14、();myPictureBox.Image=(Image)myAlphaBitmap.Clone();elseif (m.Msg=win32.WM_HSCROLL|m.Msg=win32.WM_VSCROLL)myUpToDate=false;this.Invalidate();elseif (m.Msg=win32.WM_LBUTTONDOWN|m.Msg=win32.WM_RBUTTONDOWN 名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 19 页 -|m.Msg=win32.WM_LBUTTONDBLCLK/|m.Msg=win32.WM_MOUSELEAVE /*)m

15、yUpToDate=false;this.Invalidate();elseif (m.Msg=win32.WM_MOUSEMOVE)if (m.WParam.ToInt32()!=0)/shift key or other buttons myUpToDate=false;this.Invalidate();/System.Diagnostics.Debug.WriteLine(Pro:+m.Msg.ToString(X);/Clean up any resources being used./protectedoverridevoid Dispose(bool disposing)if(d

16、isposing)/this.BackColor=Color.Pink;if (components!=null)名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 19 页 -components.Dispose();base.Dispose(disposing);#endregion/end public method and overrides#region public property overridespublicnew BorderStyle BorderStyle get returnbase.BorderStyle;set if (this.myPaintedFir

17、stTime)this.SetStyle(ControlStyles.UserPaint,false);base.BorderStyle=value;if (this.myPaintedFirstTime)this.SetStyle(ControlStyles.UserPaint,true);this.myBitmap=null;this.myAlphaBitmap=null;myUpToDate=false;this.Invalidate();publicnew Color BackColor get 名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 19 页 -returnCo

18、lor.FromArgb(base.BackColor.R,base.BackColor.G,base.BackColor.B);set myBackColor=value;base.BackColor=value;myUpToDate=false;publicoverridebool Multiline get returnbase.Multiline;set if (this.myPaintedFirstTime)this.SetStyle(ControlStyles.UserPaint,false);base.Multiline=value;if (this.myPaintedFirst

19、Time)this.SetStyle(ControlStyles.UserPaint,true);this.myBitmap=null;this.myAlphaBitmap=null;myUpToDate=false;this.Invalidate();#endregion/end public property overrides#region private functions and classes名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 19 页 -privateint GetFontHeight()Graphics g=this.CreateGraphics()

20、;SizeF sf_font=g.MeasureString(X,this.Font);g.Dispose();return(int)sf_font.Height;privatevoid GetBitmaps()if(myBitmap=null|myAlphaBitmap=null|myBitmap.Width!=Width|myBitmap.Height!=Height|myAlphaBitmap.Width!=Width|myAlphaBitmap.Height!=Height)myBitmap=null;myAlphaBitmap=null;if(myBitmap=null)myBitm

21、ap=new Bitmap(this.ClientRectangle.Width,this.ClientRectangle.Height);/(Width,Height);myUpToDate=false;if(!myUpToDate)名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 19 页 -/Capture the TextBox control windowthis.SetStyle(ControlStyles.UserPaint,false);win32.CaptureWindow(this,ref myBitmap);this.SetStyle(ControlStyl

22、es.UserPaint,true);this.SetStyle(ControlStyles.SupportsTransparentBackColor,true);this.BackColor=Color.FromArgb(myBackAlpha,myBackColor);/-Rectangle r2=new Rectangle(0,0,this.ClientRectangle.Width,this.ClientRectangle.Height);ImageAttributes tempImageAttr=new ImageAttributes();/Found the color map c

23、ode in the MS HelpColorMap tempColorMap=new ColorMap1;tempColorMap0=new ColorMap();tempColorMap0.OldColor=Color.FromArgb(255,myBackColor);tempColorMap0.NewColor=Color.FromArgb(myBackAlpha,myBackColor);tempImageAttr.SetRemapTable(tempColorMap);if(myAlphaBitmap!=null)名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 19

24、 页 -myAlphaBitmap.Dispose();myAlphaBitmap=new Bitmap(this.ClientRectangle.Width,this.ClientRectangle.Height);/(Width,Height);Graphics tempGraphics1=Graphics.FromImage(myAlphaBitmap);tempGraphics1.DrawImage(myBitmap,r2,0,0,this.ClientRectangle.Width,this.ClientRectangle.Height,GraphicsUnit.Pixel,temp

25、ImageAttr);tempGraphics1.Dispose();/-if(this.Focused&(this.SelectionLength=0)Graphics tempGraphics2=Graphics.FromImage(myAlphaBitmap);if (myCaretState)/Draw the caretPoint caret=this.findCaret();Pen p=new Pen(this.ForeColor,3);tempGraphics2.DrawLine(p,caret.X,caret.Y+0,caret.X,caret.Y+myFontHeight);

26、tempGraphics2.Dispose();名师资料总结-精品资料欢迎下载-名师精心整理-第 13 页，共 19 页 -private Point findCaret()/*Find the caret translated from code at *http:/www.vb- *and *http:/www.microbion.co.uk/developers/csharp/textpos2.htm *Changed to EM_POSFROMCHAR *This code still needs to be cleaned up and debugged */Point pointC

27、aret=new Point(0);int i_char_loc=this.SelectionStart;IntPtr pi_char_loc=new IntPtr(i_char_loc);int i_point=win32.SendMessage(this.Handle,win32.EM_POSFROMCHAR,pi_char_loc,IntPtr.Zero);pointCaret=new Point(i_point);if(i_char_loc=0)pointCaret=new Point(0);elseif (i_char_loc=this.Text.Length)pi_char_loc

28、=new IntPtr(i_char_loc-1);i_point=win32.SendMessage(this.Handle,win32.EM_POSFROMCHAR,pi_char_loc,IntPtr.Zero);名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 19 页 -pointCaret=new Point(i_point);Graphics g=this.CreateGraphics();String t1=this.Text.Substring(this.Text.Length-1,1)+X;SizeF sizet1=g.MeasureString(t1,thi

29、s.Font);SizeF sizex=g.MeasureString(X,this.Font);g.Dispose();int xoffset=(int)(sizet1.Width-sizex.Width);pointCaret.X=pointCaret.X+xoffset;if (i_char_loc=this.Text.Length)String slast=this.Text.Substring(Text.Length-1,1);if(slast=n)pointCaret.X=1;pointCaret.Y=pointCaret.Y+myFontHeight;return pointCa

30、ret;privatevoid myTimer1_Tick(object sender,EventArgs e)名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共 19 页 -/Timer used to turn caret on and off for focused controlmyCaretState=!myCaretState;myCaretUpToDate=false;this.Invalidate();privateclassuPictureBox:PictureBox public uPictureBox()this.SetStyle(ControlStyles.

31、Selectable,false);this.SetStyle(ControlStyles.UserPaint,true);this.SetStyle(ControlStyles.AllPaintingInWmPaint,true);this.SetStyle(ControlStyles.DoubleBuffer,true);this.Cursor=null;this.Enabled=true;this.SizeMode=PictureBoxSizeMode.Normal;/uPictureBoxprotectedoverridevoid WndProc(ref Message m)if (m

32、.Msg=win32.WM_LBUTTONDOWN|m.Msg=win32.WM_RBUTTONDOWN|m.Msg=win32.WM_LBUTTONDBLCLK 名师资料总结-精品资料欢迎下载-名师精心整理-第 16 页，共 19 页 -|m.Msg=win32.WM_MOUSELEAVE|m.Msg=win32.WM_MOUSEMOVE)/Send the above messages back to the parent controlwin32.PostMessage(this.Parent.Handle,(uint)m.Msg,m.WParam,m.LParam);elseif(m.

33、Msg=win32.WM_LBUTTONUP)/?for selects and suchthis.Parent.Invalidate();base.WndProc(refm);/End uPictureBox Class#endregion/end private functions and classes#region Component Designer generated code/Required method for Designer support-do not modify/the contents of this method with the code editor./pr

34、ivatevoid InitializeComponent()components=new System.ComponentModel.Container();名师资料总结-精品资料欢迎下载-名师精心整理-第 17 页，共 19 页 -#endregion#region New Public Properties Category(Appearance),Description(The alpha value used to blend the controls background.Valid values are 0 through 255.),Browsable(true),Design

35、erSerializationVisibility(DesignerSerializationVisibility.Visible)publicintBackAlpha get returnmyBackAlpha;set int v=value;if (v 255)v=255;myBackAlpha=v;myUpToDate=false;Invalidate();#endregion /End AlphaTextBox Class /End namespace ZBobb 名师资料总结-精品资料欢迎下载-名师精心整理-第 18 页，共 19 页 -/-本文地址：【伊甸网】http:/ 19 页，共 19 页 -