VFP 愛用者社區

[Batman]

Treeview 加了checkbox後可否設定Readonly=.t.?但又不影響擴展及收縮, 謝謝

[ckp6250]

可

[LiuRambo]

GRID的欄位寬度調整為何會跟欄位內的屬性有關???
樓主想太多吧

[Batman]

ckp6250可否給一點提示如何能實作, 謝謝指點

LiuRambo: 不是Grid加checkbox,是Treeview加checkbox,Grid容易控制, treeview好像頗麻煩

[ckp6250]

和上回問的，node的 foreColor 雷同作法
『treeview好像頗麻煩』沒錯，大多數的動作，都要用到迴圈，如果節點很多，那更是迴圈套迴圈，圈圈相連到天邊，能閃就閃，
除非必要，或要練功，或閒閒沒事要秀一下，不然，小弟很少用它啦
『不管黑貓白貓，捉到老鼠就是好貓』

[Batman]

我用了之前的方法, 但是不成功, 請再指點一下
With treeview1.Nodes
For i = 1 To .Count
If .Item(i).Text = Strextract(.Item(i).Fullpath,"\","\",1)
.Item(i).readonly =.t. --->已試 .Item(i).checked.readonly =.t. 也是不成功
Endif
Endfor
Endwith

其實上次我是想改SelectedBackColor, 不知尚有沒有方法,foreColor及BackColor都是沒問題, 但好像沒有SelectedBackColor

[ckp6250]

.Item(i).enabled =.f.
這樣可以嗎?

SelectedBackColor , 若沒有，自己寫

[Batman]

ckp6250

Item(i).enabled =.f.
這樣可以嗎? --->還是不可以, 因Item下沒有Readonly及Enabled
我是想要checkbox readonly, 而不是 item , 不知尚有沒有方法?

SelectedBackColor , 若沒有，自己寫
-->嗯, 可以寫嗎? 請ckp6250 可否說明白一點

謝謝ckp6250 兄多次回覆

[ckp6250]

程式碼,寫在 nodeCheck 的事件中

[Batman]

謝謝回覆,由於treeview不是太熟,尚在研究中^^

[Batman]

ckp6250兄, 現在尚找不到方法如何設定treeview readonly, 可否再明示一下, 謝謝

[ckp6250]

在 NodeCheck 的事件中
大約像這樣
------------------------------
Lparameters Node
Nodefault
Local vText , vChecked , i , vFullpath
vFullpath = Node.Fullpath &&現行路徑
vChecked=Node.Checked
vColor=Iif(vChecked,Rgb(255,0,0),0)
Node.ForeColor=vColor
This.Allchecked=This.Allchecked+Iif(vChecked,1,-1)
vIsSelect = Iif(vChecked,1,0)
If Node.Children>0
vText=Node.Text
With This.Nodes
For i = 1 To .Count
If vFullpath $ .Item(i).Fullpath
If vText+"\" $ .Item(i).Fullpath
.Item(i).Checked = vChecked
This.Allchecked=This.Allchecked+Iif(vChecked,1,-1)
This.Nodes(i).ForeColor=vColor
If Empty(This.Nodes(i).Children)
vNo=Substr(This.Nodes(i).Text,4)
Endif
Endif
Endif
Endfor
Endwith
Else
vNo=Node.Text
Endif


如果，您要讓它永遠 readonly ,
那麼
.Item(i).Checked = .F.
即可

[Batman]

謝謝ckp6250多次幫助, 用了你的程式碼, 也試了幾天, 還是不能成功, 好像不論用什麼方法, 當Mouse Click 在treeview checkbox時, 還是照樣出現tick或消失Tick, 由於node及nodes.item都沒有Readonly及Enabled, 所以不明白設定treeview readonly的思路. 尚在努力中....唉