上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
jtcom01
註冊時間: 2005-07-29 文章: 408
第 1 樓
|
發表於: 星期四 十一月 19, 2015 5:34 pm 文章主題: ㄧ筆資料2個欄位,在grid上下排列..請教先進 |
|
|
如..
abc
123 |
|
回頂端 |
|
|
perry
註冊時間: 2014-07-20 文章: 203
第 2 樓
|
發表於: 星期四 十一月 19, 2015 6:36 pm 文章主題: |
|
|
在 Grid Init Event 設定
寛,高,字體,字型...請自行測試搞定!!
代碼: |
WITH THIS.Column1
.controlsource='Field1+chr(13)+Field2'
*.Bound=.T.
.ReadOnly=.T.
.Sparse=.F.
.Header1.Caption='測試'
.Addobject('Edit1','EditBox')
.CurrentControl='Edit1'
.width=50
.Edit1.visible=.t.
.Edit1.readonly=.t.
.Edit1.ScrollBars=0
.Edit1.Value=Field1+chr(13)+Field2
ENDWITH
|
|
|
回頂端 |
|
|
jtcom01
註冊時間: 2005-07-29 文章: 408
第 3 樓
|
發表於: 星期四 十一月 19, 2015 10:12 pm 文章主題: |
|
|
感謝先進..測試去 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 4 樓
|
發表於: 星期五 十一月 20, 2015 10:31 am 文章主題: |
|
|
建一個 container 物件,
裡面包兩個縱列textbox,
在grid.addobject 這個自訂物件就好了.
這個方法複雜,但是可以裝各種奇奇怪怪的東西,也都可以各自控制 _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
jtcom01
註冊時間: 2005-07-29 文章: 408
第 5 樓
|
發表於: 星期五 十一月 20, 2015 4:22 pm 文章主題: |
|
|
謝謝兩位先進指導..
Syntech先進的方式是否有實例參考.
Perry先進經測試可行.但.屬性唯讀.readonly=.f.也無法改變.因此無法新增/修改
是否可以再指導..無限感謝 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 6 樓
|
|
回頂端 |
|
|
jtcom01
註冊時間: 2005-07-29 文章: 408
第 7 樓
|
發表於: 星期五 十一月 20, 2015 7:15 pm 文章主題: |
|
|
感謝Syntech先進..努力研究... |
|
回頂端 |
|
|
perry
註冊時間: 2014-07-20 文章: 203
第 8 樓
|
發表於: 星期五 十一月 20, 2015 7:23 pm 文章主題: |
|
|
如果您真的使用頻繁,不妨加在類別檔中!!
或在主程式最下方定義
代碼: |
Defind Class Container1 As Container
Add Object Text1 As TextBox With Visible=.f.
Add Object Text2 As TextBox With Visible=.f.
Add Object Text3 As TextBox With Visible=.f.
*依需求增�[物件,有用到再顯示 Visible=.t.
EndDefine
|
然後在 Grid Init Event 中,可依實際需求修改並設定之.
代碼: |
WITH THIS.Column1
.RemoveObject('Text1')
.Addobject('Cont1','Container1')
.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
.Cont1.Text2.Height=.cont1.Text1.Height
.Cont1.Text2.ControlSource='Field2'
.Cont1.Text1.Visible=.T.
.Cont1.Text2.Visible=.T.
.Cont1.Visible=.t.
.CurrentControl='Cont1'
ENDWITH
|
這應該是 Syntech 及 oldbb 大大說的通用做法!! |
|
回頂端 |
|
|
jtcom01
註冊時間: 2005-07-29 文章: 408
第 9 樓
|
發表於: 星期六 十一月 21, 2015 1:35 pm 文章主題: |
|
|
謝謝各位先進指導..努力研究中..再次感謝 |
|
回頂端 |
|
|
jtcom01
註冊時間: 2005-07-29 文章: 408
第 10 樓
|
發表於: 星期日 十一月 22, 2015 3:05 pm 文章主題: |
|
|
感謝Perry先進的範例指導.大底完成可用.尚有2個小細節.懇請先進在不吝指導..
1.如何利用up/down鍵移動指標(目前僅在2field移動)
2.指標呈現不同底色以便讓視覺上更清楚
再次感謝你.. |
|
回頂端 |
|
|
perry
註冊時間: 2014-07-20 文章: 203
第 11 樓
|
發表於: 星期日 十一月 22, 2015 8:06 pm 文章主題: |
|
|
個人測試偷吃步寫法
代碼: |
define class Container1 As Container
add object Text1 As TextBox With Visible=.f.
add object Text2 As TextBox With Visible=.f.
*add object Text3 As TextBox With Visible=.f.
Proc Init
With This
.BackStyle=0
.Text1.BackStyle=0
.Text2.BackStyle=0
EndWith
EndProc
Proc Text1.KeyPress &&第1個
Lpar nKeyCode, nShiftAltCtrl
If nKeyCode=5
Skip -1
IF Bof()
GO Top
ENDI
*第1個 Parent ->Container1
*第2個 Parent ->Column
*第3個 Parent ->Grid
This.Parent.Parent.Parent.Refresh
This.Parent.Parent.Parent.SetFocus
EndIf
Endproc
Proc Text2.KeyPress &&最後1個
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
enddefine
|
至於底色則需如 oldbb 方式(我顯示用Grid也是這樣寫的@@)
代碼: |
Grid1.AddProperty('nRecno',1)
Proc AfterRowColChange
this.nRecno = RECNO()
This.Column1.DynamicBackColor='iif(This.nRecno=recn(),rgb(192,192,0),rgb(255,255,255))'
EndProc
|
剩下的請自行 踹,踹,踹 ... |
|
回頂端 |
|
|
jtcom01
註冊時間: 2005-07-29 文章: 408
第 12 樓
|
發表於: 星期日 十一月 22, 2015 8:46 pm 文章主題: |
|
|
感謝..我努力踹中... |
|
回頂端 |
|
|
jtcom01
註冊時間: 2005-07-29 文章: 408
第 13 樓
|
發表於: 星期日 十一月 22, 2015 9:32 pm 文章主題: |
|
|
在請教perry先進..
up /down OK 謝謝..
但至於底色部份..不知該將其程式放在那裡.不解?
請再次指導..謝謝 |
|
回頂端 |
|
|
perry
註冊時間: 2014-07-20 文章: 203
第 14 樓
|
發表於: 星期日 十一月 22, 2015 9:34 pm 文章主題: |
|
|
jtcom01 寫到: | 在請教perry先進..
up /down OK 謝謝..
但至於底色部份..不知該將其程式放在那裡.不解?
請再次指導..謝謝 |
在Grid中...
Define Class Grid1 As Grid
Proc Init
With This
.AddProperty('nRecno',1)
EndWith
EndProc
Proc AfterRowColChange
EndProc
EndDefine |
|
回頂端 |
|
|
jtcom01
註冊時間: 2005-07-29 文章: 408
第 15 樓
|
發表於: 星期日 十一月 22, 2015 9:41 pm 文章主題: |
|
|
不好意思..請教..是放在GRID.INIT內嗎 |
|
回頂端 |
|
|
|