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