发表于 2009-1-5 19:48
| 
PB涓嬩娇鐢═reeView鎺т欢瀹炵幇澶氱骇鍒嗙被妫绱
鍙戝竷: 2008-6-26 20:40 | 浣滆: admin | 鏌ョ湅: 30娆
PB涓嬩娇鐢═reeView鎺т欢瀹炵幇澶氱骇鍒嗙被妫绱owerBuilder涓殑TreeView鎺т欢涓烘爲鐘跺垪琛,鍏剁壒鐐规槸淇℃伅椤瑰憟鏍戠姸灞傛缁撴瀯,涓斿舰寮忕伒娲,鍙睍寮涔熷彲鍥炵缉,浣跨敤榧犳爣杩涜鎺у埗,鎿嶄綔绠渚裤傚洜姝ゅ湪搴旂敤涓,鍙皢鍏朵笌DataWindow閰嶅悎,涓涓彁渚涗俊鎭殑鍒嗙被浣撶郴,涓涓彁渚涘叿浣撲俊鎭,瀹炵幇淇℃伅鐨勫绾у垎绫绘绱,杩欐牱鍙ぇ澶у湴鏂逛究鏌ヨ,鎻愰珮绯荤粺鐨勫疄鐢ㄦс
鍦≒owerBuilder涓,TreeView鎺т欢鐨勫紑鍙戞妧鏈竴鑸緝涓哄鏉,浣嗗鏋滃皢瀹冪殑鏋勬垚鏈哄埗鍙婁富瑕佷簨浠躲佸嚱鏁伴浼氭竻妤,鎺屾彙瀹冨苟涓嶅洶闅俱備笅闈㈠氨鏄娇鐢═reeView鎺т欢瀹炵幇澶氱骇鍒嗙被妫绱㈡秹鍙婄殑涓昏寮鍙戞妧鏈
涓銆乀reeView鎺т欢鐨勪俊鎭瀯鎴愬強鍒涘缓
TreeView鎺т欢鐨勫熀鏈俊鎭崟浣嶆槸TreeViewItem椤,瀹冧滑鎸夋爲鐘跺眰娆＄粨鏋勮繘琛岀粍缁,姣忎釜TreeViewItem椤逛竴鑸叿鏈変笅鍒椾富瑕佸睘鎬:
Data:Any绫诲瀷鏁版嵁,璇ラ」瀵瑰簲鐨勫唴閮ㄥ笺
Label:String鍨嬫暟鎹,璇ラ」瀵瑰簲鐨勬樉绀烘枃瀛椼
Children:Boolean鍨嬫暟鎹,涓篢ure鏃惰〃绀鸿椤硅繕鏈変笅涓灞(濡傚浘1涓」item1),涓篎alse鏃惰〃绀鸿椤规病鏈変笅灞,涓嶈兘琚睍寮(濡傞」 item111)銆
PictureIndex:Integer鍨嬫暟鍊,璇ラ」瀵瑰簲鐨勬甯稿浘鏍囧湪鍥炬爣闃熷垪涓殑缂栧彿銆
SelectedPictureIndex:Integer鍨嬫暟鍊,璇ラ」瀵瑰簲鐨勯変腑鍥炬爣鍦ㄥ浘鏍囬槦鍒椾腑鐨勭紪鍙枫
閫氳繃TreeView鎺т欢鏌ラ槄淇℃伅,棣栧厛瑕佸皢淇℃伅杞寲鎴愮浉搴旂殑TreeViewItem椤,鎻掑叆鍒癟reeView鎺т欢涓傝繖涓伐浣滃彲鍊熷姪PB鎻愪緵鐨勫嚱鏁版潵瀹屾垚銆
浜屻乀reeView鎺т欢瀹炵幇澶氱骇鍒嗙被妫绱㈡秹鍙婄殑涓昏浜嬩欢
璁㏕reeView鎺т欢鍜孌ataWindow閰嶅悎,瀹屾垚淇℃伅鐨勫绾у垎绫绘绱,寮鍙戣繃绋嬩富瑕佹秹鍙婁笅鍒椾笁涓猅reeView浜嬩欢:
Constructor浜嬩欢:璇ヤ簨浠跺湪鎺т欢鍒涘缓鏃惰Е鍙
閫変腑璇ヤ簨浠朵富瑕佺敤鏉ユ彃鍏ョ涓灞俆reeViewItem椤,杩欐牱鐢ㄦ埛涓杩涘叆妫绱㈢晫闈,绗竴灞備俊鎭」灏变細鍑虹幇鍦ㄦ帶浠朵腑銆
ItemPopulate浜嬩欢:璇ヤ簨浠跺湪鏌怲reeViewItem椤圭涓娆″睍寮鏃惰Е鍙,瑙﹀彂鐨勫悓鏃剁郴缁熶細灏嗚TreeViewItem椤圭殑鍙ユ焺閫氳繃鍙傛暟handle浼犻掕繃鏉ャ
閫変腑璇ヤ簨浠朵富瑕佺敤鏉ユ彃鍏ュ綋鍓峊reeViewItem椤瑰搴旂殑涓嬪眰淇℃伅椤广傞夋嫨杩欎釜浜嬩欢鎻掑叆涓嬪眰淇℃伅椤,寮鍙戞椂鍙渶鑰冭檻鎻掑叆鏈」鐨勭洿 灞炰笅灞,涓嶅繀鍘荤涓嬪眰鐨勪笅灞,鍙ぇ澶х畝鍖栧紑鍙戝伐浣;鍙﹀,鐢变簬鐢ㄦ埛鍦ㄦ墽琛屾煡璇㈡椂涓鑸彧娑夊強涓浜涗釜鍒被,閭ｄ簺娌℃湁娑夊強鐨勪俊鎭被娌℃湁灞 寮,鍥犺屾病鏈夊繀瑕佸缓绔嬩笅灞備俊鎭」,鍦ㄨ繖閲屽仛鍒颁簡,鍥犳鏀瑰杽浜嗗簲鐢ㄧ殑鎵ц鏁堢巼銆
SelectionChanged浜嬩欢:璇ヤ簨浠跺湪姣忔鍙樻洿閫夋嫨椤瑰悗瑙﹀彂,瑙﹀彂鐨勫悓鏃剁郴缁熶細灏嗗彉鏇村墠鍚庨夋嫨椤圭殑鍙ユ焺閫氳繃鍙傛暟oldhandle銆乶ewhandle浼犻掕繃鏉ャ
閫変腑璇ヤ簨浠朵富瑕佺敤鏉ユ帶鍒禗ataWindow鏄剧ず褰撳墠淇℃伅绫荤殑鍐呭銆傝繖鏍锋瘡娆″湪TreeView鎺т欢涓変腑涓涓俊鎭」,DataWindow鍗冲埢灏嗗叾璇︾粏淇℃伅鏄剧ず鍑烘潵銆
涓夈佸叿浣撳簲鐢ㄥ疄渚
绗旇呮浘鍙備笌寮鍙戜簡涓濂楀尰闄俊鎭鐞嗙郴缁,鍏朵腑褰撳墠鏈夋晥鍖诲槺鍒嗙被妫绱㈠氨鏄噰鐢═reeView鎺т欢鍜孌ataWindow閰嶅悎瀹屾垚鐨,鐣岄潰涓婄殑TreeView鎺т欢鎸夊绾у垎绫讳綋绯荤粰鍑轰簡褰撳墠鎵鏈夋湁鏁堝尰鍢遍」鐩,姣忓湪鍏朵腑閫変腑涓涓尰鍢遍」鐩,鏃佽竟鐨凞ataWindow鍗充細鍒楀嚭瀹炴柦璇ラ」鍖诲槺鐨勭梾浜烘竻鍗,骞剁粰鍑轰汉鏁扮粺璁＄粨鏋溿
鍏朵腑鍖诲槺椤圭洰鐨勫垎绫绘槸杩欐牱杩涜鐨:棣栧厛鏍规嵁鍖诲槺鐨勬ц川杩涜浜嗕竴绾у垎绫,鍒嗕负闀挎湡銆佷复鏃朵袱澶х被;鍦ㄤ竴绾у垎绫荤殑鍩虹涓婂張鏍规嵁鍖诲槺鐨勭绫昏繘琛屼簡浜岀骇鍒嗙被,闀挎湡鍖诲槺鍒嗕负鑽墿绫汇佹姢鐞嗙被,涓存椂鍖诲槺鍒嗕负鑽墿绫汇佹姢鐞嗙被銆佹鏌ョ被;鍦ㄤ簩绾у垎绫荤殑鍩虹涓婂張鏍规嵁鍖诲槺鐨勫叿浣撶被鍨嬭繘琛屼簡涓夌骇鍒嗙被,鑽墿绫诲垎涓哄彛鏈嶃佽倢鑲夋敞灏勩侀潤鑴夌偣婊寸瓑绫,鎶ょ悊绫诲垎涓虹壒鎶ゃ佷竴绾ф姢鐞嗐佷簩绾ф姢鐞嗙瓑,妫鏌ョ被鍒嗕负鍚勭被鍏蜂綋妫鏌,鐢辨褰㈡垚浜嗕笁绾у垎绫讳綋绯汇
涓轰簡绠鍖栫紪绋,绐楀彛涓婂張澧炶涓や釜DataStore瀵硅薄--ds_yzzl鍜宒s_yzjtzl,鍏朵腑ds_yzlx鐨勪綔鐢ㄦ槸鏍规嵁鍖诲槺鎬ц川鍒板簱涓彁鍙栧綋鍓嶅尰鍢辩绫,鑰宒s_yzjtlx鍒欐槸鏍规嵁鍖诲槺鎬ц川銆佺绫诲埌搴撲腑鎻愬彇褰撳墠鏈夋晥鍖诲槺鐨勫叿浣撶被鍨嬨
涓嬮潰鍗虫槸3涓簨浠剁殑瀵瑰簲鑴氭湰:
TreeView鎺т欢Constructor浜嬩欢
TreeViewItem tv_new
//寤虹珛涓涓浘鏍囬槦鍒,渚涘叾涓殑TreeViewItem椤瑰紩鐢,鍦ㄨ繖閲屽缓绔嬩富瑕佹槸涓轰簡鑳藉鎺у埗鍥炬爣澶у皬
//棣栧厛璁惧畾鍥炬爣鏄剧ず灏哄
This.PictureHeight=15
This.PictureWidth=16
//鍥炬爣闃熷垪鐢4涓浘鏍囨瀯鎴,鍓3涓敤浜庢爣璇嗗尰鍢辩被椤圭洰鐨勭骇鍒,绗4涓敤浜庢爣璇嗛」鐩殑閫変腑鐘舵
This.AddPicture("DosEdit5! ")
This.AddPicture("custom023!")
This.AddPicture("custom036!")
This.AddPicture("Custom050!")
//寤虹珛绗竴绾у尰鍢辩被椤圭洰,鏈骇椤圭洰鍏变袱涓,涓涓槸闀挎湡鍖诲槺椤圭洰,涓涓槸涓存椂鍖诲槺椤圭洰
tv_New.Label='闀挎湡鍖诲槺'
tv_New.Data='0'
tv_New.PictureIndex=1
tv_New.SelectedPictureIndex=4
tv_New.Children=True
This.InsertItemLast(0, tv_New)
tv_New.Label='涓存椂鍖诲槺'
tv_New.Data='1
