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