VFP 愛用者社區

老人 · 註冊時間: 2007-11-11 文章: 14 第 1 樓

再打擾了!!

各位先進, thisform.list.multiselect=.t. && 可複選
執行後如何取得複選的值

還望賜教!
感恩!!

garfield · 發表於: 星期三六月 18, 2008 7:49 pm 文章主題:

vfp6 HELP 的範例
CLEAR

DIMENSION gaMyListArray(10)
FOR gnCount = 1 to 10 && Fill the array with letters
STORE REPLICATE(CHR(gnCount+64),6) TO gaMyListArray(gnCount)
ENDFOR

frmMyForm = CREATEOBJECT('Form') && Create a Form
frmMyForm.Closable = .f. && Disable the Control menu box

frmMyForm.Move(150,10) && Move the form

frmMyForm.AddObject('cmbCommand1','cmdMyCmdBtn') && Add "Quit" Command button
frmMyForm.AddObject('lstListBox1','lstMyListBox') && Add ListBox control

frmMyForm.lstListBox1.RowSourceType = 5 && Specifies an array
frmMyForm.lstListBox1.RowSource = 'gaMyListArray' && Array containing listbox items

frmMyForm.cmbCommand1.Visible =.T. && "Quit" Command button visible
frmMyForm.lstListBox1.Visible =.T. && "List Box visible

frmMyForm.SHOW && Display the form
READ EVENTS && Start event processing

DEFINE CLASS cmdMyCmdBtn AS CommandButton && Create Command button
Caption = '\<Quit' && Caption on the Command button
Cancel = .T. && Default Cancel Command button (Esc)
Left = 125 && Command button column
Top = 210 && Command button row
Height = 25 && Command button height

PROCEDURE Click
CLEAR EVENTS && Stop event processing, close Form
CLEAR && Clear main Visual FoxPro window
ENDDEFINE

DEFINE CLASS lstMyListBox AS ListBox && Create ListBox control
Left = 10 && List Box column
Top = 10 && List Box row
MultiSelect = .T. && Allow selecting more than 1 item

PROCEDURE Click
ACTIVATE SCREEN
CLEAR
? "Selected items:"
? "---------------"
FOR nCnt = 1 TO ThisForm.lstListBox1.ListCount
IF ThisForm.lstListBox1.Selected(nCnt) && Is item selected?
? SPACE(5) + ThisForm.lstListBox1.List(nCnt) && Show item
ENDIF
ENDFOR

ENDDEFINE

老人 · 註冊時間: 2007-11-11 文章: 14 第 3 樓

謝謝!! garfield

在 Lostfocus Event 裡

FOR n = 1 TO ThisForm.List1.ListCount
IF ThisForm.List1.Selected(n) && Is item selected
? ThisForm.List1.List(n) && Show item
ENDIF
ENDFOR

能提供好方法使其產生 Lostfocus 事件嗎??

感恩 !!!

garfield · 發表於: 星期五六月 20, 2008 11:59 am 文章主題:

看嘸這句
"能提供好方法使其產生 Lostfocus 事件嗎?? "

老人 · 註冊時間: 2007-11-11 文章: 14 第 5 樓

謝謝!! garfield

我的意思是除了按 Tab;Enteer 等鍵或利用滑鼠指向其他物件外
還有更好的或更人性化的???????????????

感恩你繼續的關心 !!!

nelsonchuang · 發表於: 星期五六月 20, 2008 10:24 pm 文章主題:

念力,但是仍在研發中...

syntech · 發表於: 星期六六月 21, 2008 7:30 am 文章主題:

聲控也不錯.
或是利用眼球移動定位等等.

garfield · 發表於: 星期一六月 23, 2008 9:56 am 文章主題:

念力,聲控,眼球定位是殘障人士最佳解決方案,
一般人用.click 即可,
只要有按滑鼠點選就會執行.click

小賴 · 註冊時間: 2004-12-27 文章: 477 第 9 樓

可是老人兄想把它放入Lostfocus 事件中
老人家手腳慢一點希望Click可略過是可以體會的 ...
至於"能提供好方法使其產生 Lostfocus 事件嗎?? "
這問題就問的我......
我也 ....看嘸這句

TO 老人兄：既知Lostfocus 為事件，只需將Code置入其中，何須產生 ??????

nelsonchuang · 發表於: 星期一六月 23, 2008 11:33 am 文章主題:

請個菲傭，然後要她操作電腦，說：滑鼠向左．．向右．．．，太多啦，你這個笨蛋．．
菲傭說：豬人，偶聽不怠懂中文，呢可以說慢一點馬?

ps:請注意，本方案僅適合有錢沒地方花，和錢很多的電腦白痴使用，其餘的人請跳過．

syntech · 發表於: 星期一六月 23, 2008 11:48 am 文章主題:

其實我根本就是覺得老人兄,
誤解那個範例的意思.

是教你把 LOSTFOCUS 裡面的CODE 抄出來用,
不是叫你去執行LOSTFOCUS事件.

就算是叫你去執行LOSTFOCUS事件,
老人兄也搞錯什麼叫"執行LOSTFOCUS事件".

andywilliams · 註冊時間: 2004-10-23 文章: 111 第 12 樓

MouseUp Event

CREAT CURSOR SELECTEDITEM ( ITEM C (80) )
FOR N = 1 TO THISFORM.List1.LISTCOUNT
IF THISFORM.List1.SELECTED(N) && Is item selected
SELE SELECTEDITEM
APPEND BLANK
REPLACE ITEM with THISFORM.List1.LIST(N)
ENDIF
ENDFOR
SELE SELECTEDITEM
browse