VFP 愛用者社區

[lester8888]

請問如何下指令改變browse 指令的設定,如視窗大小,欄位寬..

[bx1166]

define wind xxx at 3,3 size 30,40
activate window xxx
**move wind to center
browse

[oldbb]

USE ?
BROWSE NAME ob
ob.Top = 100
ob.left = 100
ob.Width = 800
ob.Height = 400

[lester8888]

謝謝先進的提示,如果在browse裡的各別欄位寬度是否可設定寬度.tks

[oldbb]

欄位寬度
CREATE CURSOR td (f1 c(100), f2 c(100))
BROWSE FIELDS f1:10, f2:20

[lester8888]

再請教,可否於browse指令下,在欄位上開下拉視窗以選擇別的檔案欄位資料.如表單精靈有下拉畫面tks

[oldbb]

CREATE CURSOR dt (f1 C(10), f2 I)
INSERT INTO dt VALUES ("A1", 1)
INSERT INTO dt VALUES ("A2", 2)
INSERT INTO dt VALUES ("A3", 3)
GO TOP
BROWSE NAME ob NOWAIT
ob.Column1.RemoveObject("Text1")
ob.Column1.AddObject("Combo1", "ColComboBox")
ob.Column1.Sparse = .F.
RETURN

DEFINE CLASS ColComboBox AS ComboBox
RowSourceType = 1
RowSource = "A1,A2,A3,A4,A5,A6,A7,A8,A9"
Visible = .T.
ENDDEFINE

[lester8888]

你好,如果是dbf檔案於browse下其中幾個欄位要作下拉資料.
是否 dt改檔名 xxx 即可 ? tks

[oldbb]

是

[lester8888]

你好我改後測試好像有點問題 ,檔案資料不是原本檔案,只是開個別暫存畫面 brow 無法顯示其它欄位 ,我貼上麻煩你幫忙看 ..

use listscr
CREATE CURSOR listscr (科目 C(10), f2 I)
INSERT INTO listscr VALUES ("A1", 1)

GO TOP
BROWSE name ob NOWAIT
ob.Column1.RemoveObject("Text1")
ob.Column1.AddObject("Combo1", "ColComboBox")
ob.Column1.Sparse = .F.
RETURN

DEFINE CLASS ColComboBox AS ComboBox
RowSourceType = 1
RowSource = "A1,A2,A3,A4,A5,A6,A7,A8,A9"
Visible = .T.
ENDDEFINE

[oldbb]

use listscr
GO TOP
BROWSE name ob NOWAIT
ob.Column1.RemoveObject("Text1")
ob.Column1.AddObject("Combo1", "ColComboBox")
ob.Column1.Sparse = .F.
RETURN

DEFINE CLASS ColComboBox AS ComboBox
RowSourceType = 1
RowSource = "A1,A2,A3,A4,A5,A6,A7,A8,A9"
Visible = .T.
ENDDEFINE

[lester8888]

謝謝指導,我測試結果發現下拉欄位只要讀到下一筆時,下拉欄位就會跳個不停,是否是bug 或是要加什麼內容tks

[lester8888]

你好原本是在winxp測試,我又重新在win7跑一遍,發現沒有產生這個狀況.請前輩指教看tks..