¡ÒÃà¤ÅÕÂÃì¢éÍÁÙŢͧ TextBox 㹿ÍÃìÁẺÍѵâ¹ÁÑµÔ ... ÁÕà»ç¹ 100 Piper àÍê TextBox ¡çà¤ÅÕÂÃìä´éʺÒÂæ

ËÅÒµèÍËÅÒ¤ÃÑ駷Õè¼Áµéͧà¢Õ¹â»Ãá¡ÃÁà¾×èͤǺ¤ØÁãËéÇѵ¶Ø ËÃ×Í Control ÁÕ¡ÒÃáÊ´§¼ÅẺ Dynamic (à¾ÔèÁ ËÃ×Í Å´ä´é) Íѹà»ç¹ÅѡɳТͧ Run Time ËÁÒ¤ÇÒÁÇèÒ¨ÐãªéÃٻẺ¢Í§ Design Time ¤×ͨѺ Control ÁÒÅÒ¡ãÊèæŧº¹¿ÍÃìÁäÁèä´éàÅ ´Ñ§ÀÒ¾´éÒ¹ÅèÒ§¹Õé

â»Ãá¡ÃÁ¹ÕéÍÒÈÑ¡Ò÷ӧҹẺ Run Time ¤×Í¡ÒÃÍèÒ¹¢éÍÁÙÅà¢éÒÁÒáÅéÇÊÑè§ãËéâ»Ãá¡ÃÁ·Ó¡ÒÃÊÃéÒ§ CheckBox ¢Öé¹ÁÒÍѵâ¹ÁѵÔ
«Öè§Áѹ¨Ð¤Ó¹Ç³µÒÁ¨Ó¹Ç¹¢éÍÁÙÅ ËÃ×Í ËÑÇ¢éÍ·Õèãªé㹡ÒûÃÐàÁÔ¹¼Å¾¹Ñ¡§Ò¹

áµèáÅéÇ ... àÁ×èͤ׹·Õè¼èÒ¹ÁÒ (5 ¡.¤.) ¤Ø³Ë¹ØèÁãË­èäÃéàÁÕ àÍê äÃé¾Ñ´ÅÁ ([email protected] ËÒ¡ÍèÒ¹ª×èÍàÁÅì¼Ô´¡ç¢ÍÍÀѹèФÃѺ ãËéàÁÅìäÇéàÅÂáÅéǡѹ à¼×èͨÐÁÕÊÒÇá¡è áÁèÁèÒ ʹ㨡çªèǨѴËҾѴÅÁãËé¾Õèá¡Ë¹èÍÂÊÑ¡µÑǹèФÃѺ 55555) MSN ÁÒ¶ÒÁàÃ×èͧ¡ÒÃà¤ÅÕÂÃì¢éÍÁÙŢͧ TextBox ËÅÒÂæµÑÇ㹿ÍÃìÁ ÇèÒ·ÓÂÑ§ä§ äÍéàÃҡ秧æ ÁÒ¶ÒÁÍÐä÷ÕèÁѹ§èÒ¨ѧ (ÇèÐ)

µÑÇÍÂèÒ§

Private Sub Form_Load()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
End Sub

áµè·Ò§¤Ø³ [email protected] ºÍ¡ÁÒÇèÒäÁèãªè äÁèÍÂÒ¡ä´éẺ¹Õé ... äÍéàÃÒÃÖ¡ç¤Ô´ ... àÍ ËÁ͹ÕèÁѹªÑ¡¡Ç¹àÃÒáÅéÇ«Ô áµèâ´ÂÊѹ´Ò¹¢Í§¼Áàͧà»ç¹ "¤¹«×èÍæàËÁ×͹¡Ãк×ÍäÁèÁÕà¨éҢͧ" ÍÂÙèáÅéÇ ¡çÁͧâÅ¡ã¹á§è´ÕÅèФÃѺ à¢Ò¤§¹èÒ¨ÐËÁÒ¶֧¡ÒÃàÃÕ¡ãªé Object ËÃ×Í Control à»ç¹á¹èá·é «Öè§àÃ×èͧ¹ÕéÁѹ¡çàÅ·ÓãËé¼Á©Ø¡¤Ô´¢Öé¹ÁÒä´é àÍÍ ... ¹éÒ¹¹èÐ«Ô §Ò¹µèÒ§æ¢Í§àÃÒ·Õèµéͧà¤ÅÕÂÃì¢éÍÁÙÅã¹ Control ·ÓäÁäÁèà¤ÂÊÑ觼èÒ¹Çѵ¶ØàÍÒ (ÇèÐ) àÎé ... à´ÔÁÁÕáµè¡çͺ仡çͺÁÒ·Ñé§ Control áÅÐ Code ÁÒãªé§Ò¹ 55555 ¤Ô´ä´éä§à¹Õè ... ÇèÒáÅéÇ¡çàÃÔèÁÅÐàŧâ¤é´Å§ä»

¿ÍÃìÁ¹ÕèÁѹ¡ç¤×Í Control ª¹Ô´Ë¹Öè§ áµèÁѹÁդسÊÁºÑµÔ·Õè¾ÔàÈÉÍÂèҧ˹Ö觡ç¤×ÍÇèÒ ÊÒÁÒö¹ÓàÍÒ Control µÑÇÍ×è¹æÁÒÇҧŧ仺¹µÑÇÁѹä´é ¨Ò¡µÑÇÍÂèÒ§¹Õé¡ç¤×Í¡ÒÃ¹Ó TextBox ËÅÒÂæµÑÇÁÒÇÒ§á»ÐäÇ麹¿ÍÃìÁ¹Ñè¹àͧ ¨Ò¡¨Ø´¹ÕéàÃÒ¡ç¾Í¨Ðà¢Õ¹¤ÓÊÑè§ä´éáÅéÇ ¹Ñ蹤×Í µéͧãªé For Each Control (TextBox) ·ÕèÇÒ§ÍÂÙ躹 Form

Private Sub cmdClearForm_Click()
Dim Ctl As Control
    ' ÊÓËÃѺ Control ·Ø¡æµÑÇ·ÕèÇÒ§á»Ðŧº¹ Form1
    For Each Ctl In Form1
        ' ¶éÒ Control µÑǹÑé¹Áѹà»ç¹ TextBox ¡ç·Ó¡ÒÃãÊè¤èÒÇèÒ§ãËéÁѹ«èÐ
        If TypeOf Ctl Is TextBox Then Ctl.Text = ""
    Next ' Control µÑǶѴä»
End Sub

¡è͹¡´»ØèÁà¤ÅÕÂÃì¢éÍÁÙÅ

ËÅѧ¡´»ØèÁà¤ÅÕÂÃì¢éÍÁÙÅ

âË ... µèÍãËéÁÕ TextBox ¹ÑºÃé͵ÑÇ¡çʺÒÂàÅ«Ôà¹Õè áµèẺ¹ÕéÁѹ¤§¨Ð§èÒÂä»Ë¹èÍÂÅèÐÁÑ駤ÃѺ ... ¾Õè¹éͧ ¶éÒËÒ¡ÇèÒ ...

' »ÃСÒÈäÇéã¹ Module (¹ÒÁÊ¡ØÅ .BAS)
Option Explicit
' â»Ãá¡ÃÁÂèÍ·ÕèÁÕ¡ÒÃÃѺ¤èÒ Control à¢éÒÁÒ ... ã¹·Õè¹Õé¤×ͪ×èÍ¿ÍÃìÁ
Public Sub ClearForm(frm As Form)
Dim Ctl As Control
    For Each Ctl In frm
        If TypeOf Ctl Is TextBox Then Ctl.Text = ""
    Next
End Sub

' 㹿ÍÃìÁ·ÑèÇä» (µÍ¹¹ÕéàÃÒÊÑè§ÁÒ¨Ò¡ Form1)
Private Sub cmdClearForm_Click()
    ' Ê觤èÒª×èÍ Form1 ä»ãËé¡Ñºâ»Ãá¡ÃÁÂèÍÂ
    Call ClearForm(Form1)
End Sub