BLOG : จะหา TextBox หรือ อะไรซักอย่าง ใน Form หรือ Control นี้ ๆ ออกมาทั้งหมด ทำไงดี ??

เนื่องจาก สืบเนื่องจากหลาย ๆ กระทู้ ถามกันมาจน ๆ  หลาย ๆ กระทู้รวมกัน นับได้หลายสิบเลยทีเดียว

 

จะหา textbox บน form ทำไง?

จะหา control นู๊นน นี้ ทำไง?

 

พี่น้องท่านทั้งหลายก็ บอกกันไป for มั้ง for each มั้ง ล่าสุดผมตอบไป

C# >>  this.Controls.Find("textbox1", true) ;

VB >> Me.Controls.Find("textbox1", true)

 

แต่มันออกมา อันเดียว แถมต้องกำหนดชื่ออีก อืม แบบนี้คงเฉพาะเจาะจงที่อยากจะหาจริง ๆ

บังเอิญอยากได้แต่ TextBox หรือcontrol อะไรซักอย่างนึงทำยังไงดี

อยากได้ method ที่ return ค่ากลับออกเป็น Control ตัวนั้น ๆ และเป็น collection ทำไงดี

จะได้ไม่ต้อง cast ให้เสียเวลา อ้าง property ทำงานต่อได้เลย

 

ก็เลยทำ Class Util ตัวนี้มาให้ใช้กันดู แต่ใช้ได้เฉพาะ .NET 2.0

เป็นการใช้ Generic Programming มา implement ใน method

และท่องไปใน child control ด้วย Recursive method ซึ่งก็เป็นส่วนประกอบของ class นี้

 

 

Code : UIHelper Class

 

/// <summary> /// version 1.0 /// </summary> public static class UIHelper {     /// <summary>     /// This method for find a control in control’s collection with Strong Type(Generic).     /// </summary>     /// <typeparam name="T">Find Type</typeparam>     /// <param name="ctrl">ControlCollection</param>     /// <returns>List of the Generic Type’s Method</returns>     public static List<T> FindControls<T>(Control.ControlCollection ctrl)     {         List<T> list = new List<T>();         foreach (Control c in ctrl)         {             if (c.GetType() == typeof(T))             {                 T cc = (T) Convert.ChangeType(c, typeof(T));                 list.Add(cc);             }             else                 FindCtrlRecrs(c, ref list);         }         return list;     }       /// <summary>     /// The Recursive Method for find all a child of controls with Strong Type(Generic).     /// </summary>     /// <typeparam name="T">Find Type</typeparam>     /// <param name="nextControl">root of next control</param>     /// <param name="list">bag(generic) of found a control</param>     private static void FindCtrlRecrs<T>(Control nextControl, ref List<T> list)     {         if (nextControl.Controls.Count != 0)         {             foreach (Control c in nextControl.Controls)             {                 if (c.GetType() == typeof(T))                 {                     T cc = (T) Convert.ChangeType(c, typeof(T));                     list.Add(cc);                 }                 else if (c.HasChildren)                     FindCtrlRecrs(c, ref list);             }         }     } }

 

 

How to use :

 

อยากได้ TextBox จงออกมาก็เรียก

List<TextBox> txts = UIHelper.FindControls<TextBox>(this.Controls);

 

อยากได้ CheckBox ออกมาก็เรียก 

List<CheckBox> txts = UIHelper.FindControls<CheckBox>(this.Controls);

 

 

Blog: มาทำ Auto Hide Window แบบ TaskBar กันเถอะ (C#)

 

จะปีใหม่แล้ว งานต่าง ๆ ก็น้อยลง คนทำงานก็เบามือ ๆ ลง เลยว่างนิดหน่อย แวะมาทำโปรแกรมเล่น ๆ ให้เสร็จฝากเพื่อน ๆ

 

เป็น window application ครับ เป็นตัวอย่างที่เขียนโดยใช้ C#

สมัย .NET 1.1 จะทำหน้าจอแบบนี้คงต้องใช้ Win32 API กัน

แต่หลัง .NET 2.0 ออกมาก็ลด code ได้ได้เยอะครับ สั่งแค่นิดหน่อยก็ได้งานแล้ว

และ code อีกส่วนนึงจะเป็นการทำงานแบบ multi thread โดยใช้ threadpool class เข้ามาช่วยในการทำ autohide ของ window ครับ

code ส่วนสำคัญ ๆ ผมจะ Comment ไว้ให้หมดแล้วนะครับ

 

ก็ลองเอาไปประยุกต์ต่อกันเองนะครับ คิดว่าน่าจะมีประโยชน์บ้าง 

 

อืมลองดูตามรูปข้างล่างนะครับ แถบสีฟ้า ๆ  จะเป็น window form นั้นเอง จะหุบ ๆ โผล่ ๆ หุหุ

 

 

 

 

 

 

 

Download Source Code Here!!

http://nine.greatfriends.us/AutoHideForm.rar

 

 

ใครไม่เข้าใจ code บรรทัดไหนก็ ถามมาได้นะครับ

หรือใครอยากได้ feature อะไรเพิ่ม ถ้ามีเวลาจะเพิ่มให้ครับ

 

ปล. ตอนนี้ทำ align window ได้ 2 แบบ คือ Top และ Left ครับ

[Asp.net] HtmlEncode กับ UrlEncode

ปุจฉา:
อยากให้ช่วยอธิบายคร่าวๆ เกี่ยวกับ Server.HtmlEncode กับ Server.UrlEncode ต่างกันยังงัย เอามาใช้ตอนไหน ตัวอย่าง จะดีมากครับ

---

วิสัชชนา:

Server.HtmlEncode

เอาไว้แปลงค่า String ที่ต้องการให้เป็น HTML Code ครับ

แต่ใน ASP.NET ผมมอง code ที่เป็น HTML encode ตัวหนังสือไม่ออกเลย นอกจากเป็น พวกสัญลักษณ์จะเห็นได้

TextBox1.Text = Server.HtmlEncode("http://www.myweb.com?search=TT&T")

จะได้ http://www.myweb.com?search=TT&amp;T < เห็นได้ว่า & ถูก encode เป็น &amp;

และใช้ Server.HtmlDecode เพื่อแปลงชุดสตริงกลับมา

การใช้งาน

ตัวนี้ยังไม่แน่ใจเท่าไหร่ ว่าเพื่ออะไรนะ รอผู้ใช้งานเชี่ยว ๆ มาตอบ

---

ส่วน Server.UrlEncode

เอาไว้ Encode String ที่ต้องการให้เป็น URL ที่ระบบเข้าใจได้ เช่น

TextBox2.Text = "http://www.myweb.com?search=" & Server.UrlEncode("TT&T")

จะได้ http://www.myweb.com?search=TT%26T < เห็นได้ว่า & ถูก Encode เป็น %26

และใช้ Server.UrlEncode เพื่อแปลงชุดสตริงกลับมา

การใช้งาน

หากมีสัญลักษณ์จำเพาะใน QueryString อาจจะมีปัญหาในการรับข้อมูลพลาดได้

ดังตัวอย่างที่ยกมาให้ดู

ที่เกี่ยวกับ & หากส่งไปเป็น http://www.myweb.com?search=TT&T จะพบว่าเรารับค่าได้เพียง TT แต่ &T จะหายไป

เนื่องจาก & เป็นตัว spilter ของ QueryString แต่ละตัว

เช่น http://www.myweb.com?ID=5&Name=suichai เราจึงแก้ด้วยการ Encode

เปลี่ยน DateFormat ของ Regional Setting แบบ programmatically

ตอบ คุณ aora ไม่ทราบว่าใช่่ VBA ของ Access รึปล่าว หรือว่าเป็น VB6 หรือ VB.NET กรุณาระบุด้วยนะ
แต่ผมเอา VB.NET มาตอบก่อนละกันขอประทานโทษ IE7 ผมเดี้ยงตอนนี้ฝืนใช้ Firefox อยู่  format เลยดูแย่หน่อย
ก็ให้็ copy code ไปวางเลยนะ

---

‘อันนี้เป็น code ส่วน Win32 API    Declare Function GetLocaleInfo Lib “kernel32″ Alias “GetLocaleInfoA” (ByVal Locale As IntPtr, ByVal LCType As IntPtr, ByVal lpLCData As String, ByVal cchData As IntPtr) As IntPtr

Declare Function SetLocaleInfo Lib “kernel32″ Alias “SetLocaleInfoA” (ByVal Locale As IntPtr, ByVal LCType As IntPtr, ByVal lpLCData As String) As Boolean

Declare Function GetUserDefaultLCID% Lib “kernel32″ ()

‘ค่าคงที่ต่าง ๆ ที่ใช้อ้างอิงใน API Function
Public Const LOCALE_ICENTURY = &H24
Public Const LOCALE_ICOUNTRY = &H5
Public Const LOCALE_ICURRDIGITS = &H19
Public Const LOCALE_ICURRENCY = &H1B
Public Const LOCALE_IDATE = &H21
Public Const LOCALE_IDAYLZERO = &H26
Public Const LOCALE_IDEFAULTCODEPAGE = &HB
Public Const LOCALE_IDEFAULTCOUNTRY = &HA
Public Const LOCALE_IDEFAULTLANGUAGE = &H9
Public Const LOCALE_IDIGITS = &H11
Public Const LOCALE_IINTLCURRDIGITS = &H1A
Public Const LOCALE_ILANGUAGE = &H1
Public Const LOCALE_ILDATE = &H22
Public Const LOCALE_ILZERO = &H12
Public Const LOCALE_IMEASURE = &HD
Public Const LOCALE_IMONLZERO = &H27
Public Const LOCALE_INEGCURR = &H1C
Public Const LOCALE_INEGSEPBYSPACE = &H57
Public Const LOCALE_INEGSIGNPOSN = &H53
Public Const LOCALE_INEGSYMPRECEDES = &H56
Public Const LOCALE_IPOSSEPBYSPACE = &H55
Public Const LOCALE_IPOSSIGNPOSN = &H52
Public Const LOCALE_IPOSSYMPRECEDES = &H54
Public Const LOCALE_ITIME = &H23
Public Const LOCALE_ITLZERO = &H25
Public Const LOCALE_NOUSEROVERRIDE = &H80000000
Public Const LOCALE_S1159 = &H28
Public Const LOCALE_S2359 = &H29
Public Const LOCALE_SABBREVCTRYNAME = &H7
Public Const LOCALE_SABBREVDAYNAME1 = &H31
Public Const LOCALE_SABBREVDAYNAME2 = &H32
Public Const LOCALE_SABBREVDAYNAME3 = &H33
Public Const LOCALE_SABBREVDAYNAME4 = &H34
Public Const LOCALE_SABBREVDAYNAME5 = &H35
Public Const LOCALE_SABBREVDAYNAME6 = &H36
Public Const LOCALE_SABBREVDAYNAME7 = &H37
Public Const LOCALE_SABBREVLANGNAME = &H3
Public Const LOCALE_SABBREVMONTHNAME1 = &H44
Public Const LOCALE_SCOUNTRY = &H6
Public Const LOCALE_SCURRENCY = &H14
Public Const LOCALE_SDATE = &H1D
Public Const LOCALE_SDAYNAME1 = &H2A
Public Const LOCALE_SDAYNAME2 = &H2B
Public Const LOCALE_SDAYNAME3 = &H2C
Public Const LOCALE_SDAYNAME4 = &H2D
Public Const LOCALE_SDAYNAME5 = &H2E
Public Const LOCALE_SDAYNAME6 = &H2F
Public Const LOCALE_SDAYNAME7 = &H30
Public Const LOCALE_SDECIMAL = &HE
Public Const LOCALE_SENGCOUNTRY = &H1002
Public Const LOCALE_SENGLANGUAGE = &H1001
Public Const LOCALE_SGROUPING = &H10
Public Const LOCALE_SINTLSYMBOL = &H15
Public Const LOCALE_SLANGUAGE = &H2
Public Const LOCALE_SLIST = &HC
Public Const LOCALE_SLONGDATE = &H20
Public Const LOCALE_SMONDECIMALSEP = &H16
Public Const LOCALE_SMONGROUPING = &H18
Public Const LOCALE_SMONTHNAME1 = &H38
Public Const LOCALE_SMONTHNAME10 = &H41
Public Const LOCALE_SMONTHNAME11 = &H42
Public Const LOCALE_SMONTHNAME12 = &H43
Public Const LOCALE_SMONTHNAME2 = &H39
Public Const LOCALE_SMONTHNAME3 = &H3A
Public Const LOCALE_SMONTHNAME4 = &H3B
Public Const LOCALE_SMONTHNAME5 = &H3C
Public Const LOCALE_SMONTHNAME6 = &H3D
Public Const LOCALE_SMONTHNAME7 = &H3E
Public Const LOCALE_SMONTHNAME8 = &H3F
Public Const LOCALE_SMONTHNAME9 = &H40
Public Const LOCALE_SMONTHOUSANDSEP = &H17
Public Const LOCALE_SNATIVECTRYNAME = &H8
Public Const LOCALE_SNATIVEDIGITS = &H13
Public Const LOCALE_SNATIVELANGNAME = &H4
Public Const LOCALE_SNEGATIVESIGN = &H51
Public Const LOCALE_SPOSITIVESIGN = &H50
Public Const LOCALE_SSHORTDATE = &H1F
Public Const LOCALE_STHOUSAND = &HF
Public Const LOCALE_STIME = &H1E
Public Const LOCALE_STIMEFORMAT = &H1003

‘ รับค่า Locale จาก regional setting
Public Sub Get_locale(ByVal InString As String)
Dim Symbol As String
Dim iRet1 As IntPtr
Dim iRet2 As IntPtr
Dim lpLCDataVar As String
Dim Pos As Integer
Dim Locale As IntPtr

Locale = GetUserDefaultLCID()

iRet1 = GetLocaleInfo(Locale, InString, lpLCDataVar, 0)
Symbol = iRet1.ToString ‘String$(iRet1, 0)

iRet2 = GetLocaleInfo(Locale, InString, Symbol, iRet1)
Pos = InStr(Symbol, Chr(0))
If Pos > 0 Then
Symbol = Symbol.Substring(Pos – 1)
MsgBox(“Regional Setting = ” + Symbol)
End If

End Sub

‘เปลี่ยน DateTime Format ใน Regional Setting
Public Sub Set_locale(ByVal InString As IntPtr, ByVal InSymbol As String)

Dim iRet As IntPtr
Dim Locale As IntPtr

Locale = GetUserDefaultLCID() ‘Get user Locale ID
iRet = SetLocaleInfo(Locale, InString, InSymbol)

End Sub

---

‘ อันนี้ตอนจะเรียกใช้ Code ข้างบน ไปวาง ใน Sub อะไรก็ได้

MsgBox(“ค่าเดิมของ date format = ” & Now.ToShortDateString)

Dim InString As String
Dim InSymbol As String
‘กำหนดค่าคงที่ ของ shortdate
InString = LOCALE_SSHORTDATE
‘กำหนด format จาก  MM/dd/yyyy ไปเป็น dd/MM/yyyy
InSymbol = “dd/MM/yyyy”
‘ทำการเปลี่ยน format
Set_locale(InString, InSymbol)

MsgBox(“โปรแกรมจะมองเห็น new date format ก็ต่อเมื่อมีการปิดโปรแกรมแล้วเปิดใหม่”)