VFP 愛用者社區

[syntech]

你也可以無聊到在物件的"KeyPress"事件,重新組合內容. XD

[ckp6250]

[syntech]

也可以把 EXCEL 鑲到FORM 上當作GRID,
然後用HOT-KEY 方式呼叫資料擷取視窗. XD

[yctsai]

昨天受到啟發,用此法可行,textbox物件

click event:(用滑數點入時)

if this.value=0
this.selstart=9 <---9是當格最後一位
keyb '{del}'
keyb '{home}'
endif

gotfocus event:(用tab鍵進入時)

if this.value=0
keyb '{CTRL+A}'
keyb '{DEL}'
this.selstart=0
endif


click event稍不完美,gotfocus event看來無瑕疵

總之,受到大家關照,thanks



接下來研究,數值打滿會跳下一格問題( user還要打,因為如果開始定位太後面,打幾個數字就跳格了,ps EXCEL不會......)

[小桑•無痕]

[小桑•無痕]

[foxy]

CLICK:
KEYBOARD '{CTRL+A}' && 還是從你的CODE 借來的, 呵

GOTFOCUS:
this.SelStart=0

目的在於強制選取所有數值, 只能輸入 inputmask 規定的數值長度 如 999.99, 就會自動跳到下一個 control

[JEFFWANG]

假設該輸入欄位長度為五位，只要不是在最右邊輸入數字，
輸入的數字會和0結合...等於加了10倍...

在論壇偷偷學的，你可以試試看..左邊輸入23，不會變成230....
是不是你要的..
GOTFOCUS:

This.SelStart = 0
This.sellength = this.width

LOSTFOCUS:
This.SelStart = 0
This.sellength = 0

[oldbb]

PUBLIC oForm
oForm = NEWOBJECT("Form1")
oForm.Show
RETURN

DEFINE CLASS Form1 As Form
Height = 300
Width = 400

ADD OBJECT Grid1 AS MyGrid

PROCEDURE Load
CREATE CURSOR TB (F1 N(10,2), F2 C(10), F3 I)
INSERT INTO TB VALUES (0, "ABCD", 11)
INSERT INTO TB VALUES (1, "EFGH", 0)
INSERT INTO TB VALUES (0, "IJKL", 11)
INSERT INTO TB VALUES (1, "NMOP", 0)
GO TOP
ENDPROC
ENDDEFINE

DEFINE CLASS MyGrid As Grid
PROCEDURE Init
FOR EACH oColumn IN this.Columns
IF TYPE(oColumn.ControlSource) == "N"
oColumn.RemoveObject("Text1")
oColumn.AddObject("Text1", "GridText")
oColumn.Format = "Z"
ENDIF
ENDFOR
ENDPROC

PROCEDURE AfterRowColChange
LPARAMETERS nColIndex
LOCAL oColumn
oColumn = this.Columns[this.ActiveColumn]
IF (oColumn.Format == "Z") AND (oColumn.Text1.Value == 0)
oColumn.Text1.ForeColor = oColumn.Text1.BackColor
oColumn.Text1.SelectedForeColor = oColumn.Text1.SelectedBackColor
ENDIF
ENDPROC

PROCEDURE BeforeRowColChange
LPARAMETERS nColIndex
LOCAL oColumn
oColumn = this.Columns[this.ActiveColumn]
IF (oColumn.Format == "Z") AND (oColumn.Text1.ForeColor != oColumn.Text1._ForeColor)
oColumn.Text1.ForeColor = oColumn.Text1._ForeColor
oColumn.Text1.SelectedForeColor = oColumn.Text1._SelectedForeColor
ENDIF
ENDPROC
ENDDEFINE

DEFINE CLASS GridText AS TextBox
BorderStyle = 0
Margin = 0
Visible = .T.
_ForeColor = 0
_SelectedForeColor = 0

PROCEDURE Init
this._ForeColor = this.ForeColor
this._SelectedForeColor = this.SelectedForeColor
ENDPROC

PROCEDURE InteractiveChange
IF (this.Format == "Z") AND (this.Value != 0) AND (this.ForeColor != this._ForeColor)
this.ForeColor = this._ForeColor
this.SelectedForeColor = this._SelectedForeColor
ENDIF
ENDPROC
ENDDEFINE