(1)在視窗中建立例項變數
boolean ib_change = false(2)建立乙個事件:ue_changing() event id 為 pbm_enchange
**如下
if not ib_change then
ib_change = true
int i
int li_pos
string lsdata
li_pos = selectedstart( )
for i=1 to len(text)
if not match( mid(text,i,1) , "[0-9]") then
li_pos --
continue
end if
lsdata+=mid(text,i,1)
next
text = lsdata
this.selecttext(li_pos,0)
ib_change = false
end if
(3)試試效果吧
如何讓編輯框響應滑鼠單擊
滑鼠單擊會產生wm lbuttondown訊息，此訊息屬於標準視窗訊息。標準視窗訊息的路由是從子類向父類傳遞，因此我們可以利用標準訊息的路由來實現。預設情況下編輯框是不響應滑鼠單擊的，因為當你單擊編輯框時產生的wm lbuttondown訊息都流向了編輯框的基類cedit。所以我們要想編輯框響應滑鼠...
讓編輯框動態顯示系統時間
這是乙個很簡單的程式設計。在你的對話方塊上放置乙個edit控制項，要有一定的長度便於顯示。在oninitdialog中新增如下 cstring strtime ctime tm tm ctime getcurrenttime 獲得系統時間 strtime tm.format y年 m月 d日 x 格...
單行編輯框文字垂直居中（包含計算字型高度）
單行編輯框文字垂直居中 包含計算字型高度 1.屬性設為多行，不接收換行，然後計算中間位置，使用setrect設定到文字位置 注意onsize還要處理 可在create oncreate presubclass裡處理 2.響應wm nccalcsize修改客戶區居中，通過獲取字型高度計算 cpp vi...