TextBox模擬拖曳選取文字
?我們知道Rich text或Word 或VB的程式撰寫環境，可以將Mouse移到Select起來的文字 按Mouse左鍵做拖曳移動的功能，後來想，TextBox能不能做呢？這可真的吃了不少苦頭
，這個程式模擬其做法，但主要的精神是在於對TextBox的了解。
?首先，TextBox中當選取一段文字之後，我們只要按Mosue，便使Select的區域失效，且 可能進入另外的一個Select域，故第一件事是如何在有Select的區域時，使這動作失效； 的作法是在MouseUp時Check一下有沒有選取文字，如果有，就使用SubClass的技術，攔截 Mouse的左鍵，所以當我們按左鍵時，不會再有選取文字又不見了的情況。
?第二，我們沒有按下Mouse，那如何得知Mouse所在的地方到底是TextBox的哪個字呢，所幸 有EM_CHARFROMPOS這個訊息可Send給textBox，其傳回值的HiWord 得該字元是在第幾行
?0為base，LowWord是該字元在TextBox中的位置(含換行與LineFeed)，因而我們可以單
由MouseMove便得知何時Mouse要是箭號，何時是內定I形的Mouse。當然想得知Mouse所在
可以透過Mouse Event的X, Y座標，但是它們是以Twips為單位，而另外也可以用GetCursorPos() 來得知Mouse的位置，但這是相對於螢幕者，EMCHARFROMPOS的訊息需要的是相對於TextBox 的座標，有許多種方法可以完成這轉換，但我選ScreenToClient()這個API，比較直接。
?第叁，Caret如何隱藏呢？使用HideCaret可完成，但這個Function只能呼叫一次以便 下回 ShowCaret()時可以將Caret Show出來，這是因為呼叫2次的HideCaret時，也要呼
?叫2次的ShowCaret才能使Caret出現。另設定Caret的SetCaretPos() API只是令Caret出現在什麼地，但如果您KeyIn任何字時，仍出現在原來之地方，而不是方才設定之處，而
要用EM_SETSEL的Message才能設定KeyIn的位置是Caret的位置。
This file is generated with EtextWizard v1.0 ---written by Fengguohua? of NorthStar? 2000-2-25