VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

ㄧ筆資料2個欄位,在grid上下排列..請教先進
前往頁面 上一頁  1, 2
 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
perry



註冊時間: 2014-07-20
文章: 203


第 16 樓
發表發表於: 星期日 十一月 22, 2015 9:44 pm    文章主題: 引言回覆
AfterRowColChange 是 Grid 的一個 Event
Init 也是 Grid 的一個 Event
代碼:

Define Class Grid1 As Grid
    Proc Init
        With This
            ...
        EndWith
        With This.Column1
            ...
        EndWith
    EndProc

    Proc AfterRowColChange
        nRecno=Recno()
        ....
    EndProc
EndDefine
回頂端
檢視會員個人資料 發送私人訊息
jtcom01



註冊時間: 2005-07-29
文章: 413


第 17 樓
發表發表於: 星期日 十一月 22, 2015 10:07 pm    文章主題: 引言回覆
謝謝可以了.真是感謝再三.
底色可以一次兩個Field移動嗎?
回頂端
檢視會員個人資料 發送私人訊息
perry



註冊時間: 2014-07-20
文章: 203


第 18 樓
發表發表於: 星期日 十一月 22, 2015 10:48 pm    文章主題: 引言回覆
請在 Container1 中設定
代碼:

    Proc Text1.GotFocus
        This.BackColor=rgb(192,192,0)
    EndProc
    Proc Text1.LostFocus
        This.BackColor=rgb(255,255,255)
    EndProc
    Proc Text2.GotFocus
        This.BackColor=rgb(192,192,0)
    EndProc
    Proc Text2.LostFocus
        This.BackColor=rgb(255,255,255)
    EndProc
回頂端
檢視會員個人資料 發送私人訊息
jtcom01



註冊時間: 2005-07-29
文章: 413


第 19 樓
發表發表於: 星期一 十一月 23, 2015 11:44 am    文章主題: 引言回覆
非常感謝先進的指導..努力中..
回頂端
檢視會員個人資料 發送私人訊息
perry



註冊時間: 2014-07-20
文章: 203


第 20 樓
發表發表於: 星期一 十一月 23, 2015 3:00 pm    文章主題: 引言回覆
代碼:

Define Class Grid1 As Grid
    Proc Init
        With This
            ...
        EndWith
        With This.Column1
            ...
        EndWith
    EndProc

    Proc AfterRowColChange
        nRecno=Recno()
        ....
        This.SetFocus  &&增�[這行點擊欄位時,底色才會正常
    EndProc
EndDefine

Text GotFocus Event 中 BackColor 要和 Grid AfterRowColChange 相同
回頂端
檢視會員個人資料 發送私人訊息
jtcom01



註冊時間: 2005-07-29
文章: 413


第 21 樓
發表發表於: 星期二 十一月 24, 2015 5:19 pm    文章主題: 引言回覆
AfterRowColChange內keyin
this.nrecno=recno()
This.Column1.DynamicBackColor='iif(This.nRecno=recn(),rgb(255,128,192),rgb(255,255,255))'
this.setfocus
還是不行
回頂端
檢視會員個人資料 發送私人訊息
perry



註冊時間: 2014-07-20
文章: 203


第 22 樓
發表發表於: 星期二 十一月 24, 2015 7:14 pm    文章主題: 引言回覆
真不知您問題出在那???
個人測試可以,重新整理您試看看!!
代碼:

* Container 部份
define class Container1 As Container
    add object Text1 As TextBox With Visible=.f.
    add object Text2 As TextBox With Visible=.f.
    Proc Init
        With This
            .Visible=.F.
            .BackStyle=0
            .Text1.BackStyle=0
            .Text2.BackStyle=0
        EndWith
    EndProc

    Proc Text1.KeyPress
        Lpar nKeyCode, nShiftAltCtrl
        If nKeyCode=5
            Skip -1
            IF Bof()
                Go Top
            ENDI
            This.Parent.Parent.Parent.Refresh
            This.Parent.Parent.Parent.SetFocus
            This.Parent.Text2.SetFocus
        EndIf
    Endproc

    Proc Text2.KeyPress
        Lpar nKeyCode, nShiftAltCtrl
        If nKeyCode=24
            Skip
            IF Eof()
                 Go Bottom
            ENDI
            This.Parent.Parent.Parent.Refresh
            This.Parent.Parent.Parent.SetFocus
            Keyb '{BackTab}'  &&可有可無
        EndIf
    Endproc

    Proc Text1.GotFocus
        This.BackColor=rgb(255,128,192)
    EndProc

    Proc Text1.LostFocus
        This.BackColor=rgb(255,255,255)
    EndProc

    Proc Text2.GotFocus
        This.BackColor=rgb(255,128,192)
    EndProc

    Proc Text2.LostFocus
        This.BackColor=rgb(255,255,255)
    EndProc

EndDefine


代碼:

* Grid 部份
    Proc AfterRowColChange
        Lpar nColIndex
        this.nRecno = RECNO()
        This.Column1.DynamicBackColor="IIF(This.nRecno==Recno(),Rgb(255,128,192),Rgb(255,255,255))"
        *this.SetFocus
        This.Refresh
    EndProc

    Proc Init
        With This
            .ColumnCount=1
            .RecordSource='dd'  &&資料庫別名
            .RecordSourceType=1
            .RowHeight=50
            .Width=200
            .Height=300
            .AddProperty('nRecno',1)
            *.HighLightRow=.f.  &&無輸入特效邊框,才不會有偏移感覺!!
        EndWith
        With This.Column1
            IF Vartype(This.Column1.Text1)='O'
                  .RemoveObject('Text1')
            Endi
            If Vartype(This.Column1.Cont1)#'O'
                .Addobject('Cont1','Container1')
            Endi
            .Cont1.Height=This.RowHeight
            .Header1.Caption='測試'
            .Bound=.t.
            .Sparse=.f.
            .Cont1.Text1.top=0
            .Cont1.Text1.Height=This.RowHeight/2
            .Cont1.Text1.ControlSource='Field1'
            .Cont1.Text2.Top= .Cont1.Text1.Height+1
            .Cont1.Text2.Height= .Cont1.Text1.Height
            .Cont1.Text2.ControlSource='Field2'
            .Cont1.Visible=.t.
            .Cont1.Text1.Visible=.t.
            .Cont1.Text2.Visible=.t.
            .CurrentControl='Cont1'
        EndWith
    EndProc


代碼:

* Form 部份
    Proc Init
        This.Grid1.Refresh
        This.Grid1.SetFocus
        Keyb '{RightArrow}'
        Keyb '{LeftArrow}'  &&第1次會被內定的 Text1 空白蓋到底色,按一次觸發�]定
    EndProc

Grid 個人僅當瀏覽選取用,另建各輸入物件@@,非直接用 Grid 修改!!
回頂端
檢視會員個人資料 發送私人訊息
jtcom01



註冊時間: 2005-07-29
文章: 413


第 23 樓
發表發表於: 星期二 十一月 24, 2015 8:33 pm    文章主題: 引言回覆
不好意思..讓你傷神了..很感謝你..我將更加努力..
回頂端
檢視會員個人資料 發送私人訊息
jtcom01



註冊時間: 2005-07-29
文章: 413


第 24 樓
發表發表於: 星期二 十一月 24, 2015 10:15 pm    文章主題: 引言回覆
發現..當[下ㄧ筆]按鍵down下壓不放時.text1 text2皆為紅色底色,up放開時,
指標在text1,此時.text1底色為白色 text2底色為紅色
回頂端
檢視會員個人資料 發送私人訊息
perry



註冊時間: 2014-07-20
文章: 203


第 25 樓
發表發表於: 星期二 十一月 24, 2015 10:33 pm    文章主題: 引言回覆
從別的物件跳到 Grid 會產生空白@@,找不到 Event 控制...
若您是用 CommandButton 設上下筆,
請在 Click Event 中
代碼:

    Proc Click
        skip
        if eof()
             go bott
        endi
        thisform.grid1.setfocus
        thisform.grid1.refresh
        this.setfocus
        thisform.refresh
    Endproc

Grid 的 TabStop 設 .F.
讓 Grid 只能用滑鼠點選.
回頂端
檢視會員個人資料 發送私人訊息
jtcom01



註冊時間: 2005-07-29
文章: 413


第 26 樓
發表發表於: 星期三 十一月 25, 2015 1:03 pm    文章主題: 引言回覆
感謝先進一路相挺..
發現..
(1)
Proc Text1.LostFocus
This.BackColor=rgb(255,255,255)
EndProc

Proc Text2.GotFocus
This.BackColor=rgb(255,128,192)
EndProc

Proc Text2.LostFocus
This.BackColor=rgb(255,255,255)
EndProc
不加進去.功能也ㄧ樣可以..
(2)
Proc Text1.KeyPress
Lpar nKeyCode, nShiftAltCtrl
If nKeyCode=5
Skip -1
IF Bof()
Go Top
ENDI
This.Parent.Parent.Parent.Refresh
This.Parent.Parent.Parent.SetFocus
This.Parent.Text2.SetFocus
EndIf
Endproc

Proc Text2.KeyPress
Lpar nKeyCode, nShiftAltCtrl
If nKeyCode=24
Skip
IF Eof()
Go Bottom
ENDI
This.Parent.Parent.Parent.Refresh
This.Parent.Parent.Parent.SetFocus
Keyb '{BackTab}' &&可有可無
EndIf
Endproc
只有一個TEXT有底色
回頂端
檢視會員個人資料 發送私人訊息
perry



註冊時間: 2014-07-20
文章: 203


第 27 樓
發表發表於: 星期三 十一月 25, 2015 1:11 pm    文章主題: 引言回覆
...
Proc Text2.GotFocus
This.BackColor=rgb(255,128,192)
EndProc
這沒有,當然只有第1個有底色.
------
很多東西都可以這樣玩
代碼:

    proc Cmd1.Click
        skip -1
        if bof()
            go top
        endi
        do testA with ThisForm,This,This.Grid1
    Endproc
    proc Cmd2.Click
        skip
        if eof()
            go bott
        endi
        do testA with ThisForm,This,This.Grid1
    Endproc

代碼:

*testA.prg
    Lpar o_Form,o_This,o_Grid
    o_Grid.SetFocus
    o_Grid.Refresh
    o_This.SetFocus
    o_Form.Refresh


perry 在 星期三 十一月 25, 2015 1:21 pm 作了第 1 次修改
回頂端
檢視會員個人資料 發送私人訊息
jtcom01



註冊時間: 2005-07-29
文章: 413


第 28 樓
發表發表於: 星期三 十一月 25, 2015 1:19 pm    文章主題: 引言回覆
沒加Proc Text2.GotFocus
This.BackColor=rgb(255,128,192)
EndProc
在CommandButton 上下筆正常2個TEXT皆有底色,但..
Proc Text1.KeyPress
Lpar nKeyCode, nShiftAltCtrl
If nKeyCode=5
Skip -1
IF Bof()
Go Top
ENDI
This.Parent.Parent.Parent.Refresh
This.Parent.Parent.Parent.SetFocus
This.Parent.Text2.SetFocus
EndIf
Endproc
就 只有一個TEXT有底色
回頂端
檢視會員個人資料 發送私人訊息
perry



註冊時間: 2014-07-20
文章: 203


第 29 樓
發表發表於: 星期三 十一月 25, 2015 1:27 pm    文章主題: 引言回覆
grid 有自己的組合物件,原理不太了解= ='''
作用中的 TextBox 底色是白的
回頂端
檢視會員個人資料 發送私人訊息
jtcom01



註冊時間: 2005-07-29
文章: 413


第 30 樓
發表發表於: 星期三 十一月 25, 2015 2:16 pm    文章主題: 引言回覆
謝謝先進的答覆..你提供的資料已經很齊全了.很感謝妳.祝福你有個愉快下午..天天開心
回頂端
檢視會員個人資料 發送私人訊息
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
前往頁面 上一頁  1, 2
第2頁(共2頁)

 
前往:  
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作