|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
guku1101
註冊時間: 2006-07-03 文章: 84 來自: 高雄
第 1 樓
|
發表於: 星期二 十二月 08, 2015 5:04 pm 文章主題: 請問LISTBOX |
|
|
各位前輩大家好~想請教LISTBOX可否滑鼠移到哪光棒就亮到哪~像COMBOBOX一樣~請各位前輩們不吝賜教一下~感恩 _________________ BB |
|
回頂端 |
|
|
perry
註冊時間: 2014-07-20 文章: 203
第 2 樓
|
發表於: 星期二 十二月 08, 2015 6:41 pm 文章主題: |
|
|
代碼: |
Proc MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
Priv j
j=Int((nYcoord-This.Top)/Font(1,This.FontName,This.FontSize))
if This.ListIndex-This.TopIndex#j
This.listindex=this.topindex+j
this.refresh
endi
EndProc
|
其他資料值請自行測試!! |
|
回頂端 |
|
|
guku1101
註冊時間: 2006-07-03 文章: 84 來自: 高雄
第 3 樓
|
發表於: 星期二 十二月 08, 2015 10:25 pm 文章主題: |
|
|
太讚了~謝謝前輩幫忙 _________________ BB |
|
回頂端 |
|
|
guku1101
註冊時間: 2006-07-03 文章: 84 來自: 高雄
第 4 樓
|
發表於: 星期二 十二月 08, 2015 11:22 pm 文章主題: |
|
|
以新細明體 SZIE=10 改為以下代碼住置會比較準哦
lparameters nbutton, nshift, nxcoord, nycoord
priv j
j=int((nycoord-this.top)/(font(1,this.fontname,this.fontsize)+5))
if this.listindex-this.topindex#j
this.listindex=this.topindex+j
this.refresh
endif _________________ BB |
|
回頂端 |
|
|
perry
註冊時間: 2014-07-20 文章: 203
第 5 樓
|
發表於: 星期三 十二月 09, 2015 1:31 am 文章主題: |
|
|
個人比較偏愛用 細明體及標楷體 每個半型(Byte)寬度一樣!!
ft_name='細明體'
ft_size=12
ft_h=Font(1,ft_name,ft_size)+4 &&解析度1900 +6
ft_w=Font(6,ft_name,ft_size)
物件只要算要在第幾列第幾個 Byte ,
寫只公用程式讀取參數,很容易自動設定,
不須用 4GL 方式. |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|