1
1
銆佹墦寮�宸ョ▼鏂囦欢
st1.vbp,
鍦ㄧ獥浣撲笂浠庝笂鍒颁笅娣诲姞涓や釜鏂囨湰妗嗭紝鍚嶇О鍒嗗埆涓?/p>
Text1
銆?/p>
Text2
锛?/p>
鍐嶆坊鍔?/p>
1
涓懡浠ゆ寜閽紝鍚嶇О涓?/p>
Command1
锛屾爣棰樹负
"
閫変腑瀛楃鏁版槸
"
銆傜▼搴忚繍琛屾椂锛屽湪
Text1
涓?/p>
杈撳叆鑻ュ共瀛楃锛?/p>
閫変腑閮ㄥ垎鍐呭鍚庯紝
鍗曞嚮
"
閫変腑瀛楃鏁版槸
"
鎸夐挳锛?/p>
鍒欓�変腑鐨勫瓧绗︿釜鏁版樉绀哄湪
Text2
涓?/p>
(
濡傚浘鎵�绀?/p>
)
銆傝缂栧啓鎸夐挳鐨?/p>
Click
浜嬩欢杩囩▼銆?/p>
瑕佹眰锛氱▼搴忎腑涓嶅緱浣跨敤鍙橀噺锛屼簨浠惰繃绋嬩腑鍙?/p>
鑳藉啓涓�鏉¤鍙ャ�傛寜鐓у師鍚嶄繚瀛樻枃浠讹紝涓嶅緱閲嶆柊鍛藉悕銆?/p>
Private Sub Command 1_Click ()
Text 2=Text1.sellew
End Sub
2
銆佹墦寮�宸ョ▼鏂囦欢
st2.vbp,
鍦ㄧ獥浣撲笂娣诲姞涓�涓悕绉颁负
List1
鐨勫垪琛ㄦ锛岄�氳繃灞炴�х獥鍙ｅ垎鍒緭鍏?/p>
4
涓垪琛ㄩ」锛?/p>
"
鏁板
"
銆?/p>
"
鐗╃悊
"
銆?/p>
"
鍖栧
"
銆?/p>
"
璇枃
"
锛屽鍥炬墍绀恒�傝缂栧啓閫傚綋鐨勪簨浠惰繃绋嬩娇寰楀湪绋?/p>
搴忚繍琛屾椂锛?/p>
灏嗘渶鍚庝竴涓垪琛ㄩ」鑷姩鏀逛负
"
鑻辫
"
锛?/p>
鍗曞嚮绐椾綋鏃讹紝
鍒欏垹闄ゆ渶鍚庝竴涓垪琛ㄩ」銆?/p>
娉ㄦ剰锛?/p>
瑕佹眰绋嬪簭涓笉寰椾娇鐢ㄥ彉閲忥紝
姣忎釜浜嬩欢杩囩▼涓彧鑳藉啓涓�鏉¤鍙ャ�?/p>
鎸夌収鍘熷悕淇濆瓨鏂囦欢锛?/p>
涓嶅緱閲嶆柊
鍛藉悕銆?/p>
Private Sub Form_Form()
List1.Remove Item List Count-1
Private Sub Form_Load()
List1.Add Item
鈥?/p>
鑻辫
鈥?/p>
,4
3
銆?/p>
鎵撳紑宸ョ▼鏂囦欢
st3.vbp,
鍦ㄧ獥浣撲笂娣诲姞涓�涓懡浠ゆ寜閽紝
鍚嶇О涓?/p>
Command1
锛?/p>
鏍囬涓?/p>
"
鍛戒护鎸夐挳
"
銆傜劧鍚庡缓绔嬩竴涓彍鍗曪紝鏍囬涓?/p>
"
鎺т欢
"
锛屽悕绉颁负
menu0
锛屽寘鍚袱涓瓙鑿滃崟椤讹紝涓�涓槸
"
鏄剧ず鍛?/p>
浠ゆ寜閽?/p>
"
锛屽悕绉颁负
menu1
锛涘彟涓�涓槸
"
闅愯棌鍛戒护鎸夐挳
"
锛屽悕绉颁负
menu2
锛屽鍥炬墍绀恒�傜紪鍐欓�傚綋鐨?/p>
浜嬩欢杩囩▼锛?/p>
浣垮緱绋嬪簭杩愯鏃讹紝濡傛灉閫夋嫨
"
鏄剧ず鍛戒护鎸夐挳
"
鑿滃崟鍛戒护锛屽垯鏄剧ず鍛戒护鎸夐挳锛?/p>
鑰屽鏋?/p>
閫夋嫨
"
闅愯棌鍛戒护鎸夐挳
"
鑿滃崟鍛戒护锛屽垯闅愯棌鍛戒护鎸夐挳銆?/p>
娉ㄦ剰锛?/p>
绋嬪簭涓笉寰椾娇鐢ㄥ彉閲忥紝姣忎釜浜嬩欢杩囩▼涓彧鑳藉啓涓�鏉¤鍙ャ�傛寜鐓у師鍚嶄繚瀛樻枃浠讹紝涓嶅緱閲?/p>
鏂板懡鍚嶃�?/p>
Command 1.Visable=True/False