鍦ㄥ垹闄ist椤圭殑鏃跺€欓敊璇?姹傝В

Private Sub List1_Click()
Text1.Text = List1
Text2.Text = List1
Text1.Text = MyLastReplace(Text1.Text, ".ogg", ".wav")
    Dim Ret As Long
    Form1.Refresh
    Ret = RSPOggPlay1.OGGVorbisToWav(Text2.Text, Text1.Text)
List1.RemoveItem List1.ListIndex
List1_Click
End Sub
-------------------------------
褰撹繍琛屽埌List1.RemoveItem List1.ListIndex鐨勬椂鍊欏氨鎻愮ず 锛?br /> ------------------------
瀹炴椂閿欒 鈥?鈥濓紱
鏃犳晥鐨勮繃绋嬭皟鐢ㄦ垨鍙傛暟
----------------------
褰撴垜鎶奓ist1_Click 杩欐嬁鎺夊悗灏辨病闂浜?.........
浜庢槸姹傝В鍐?nbsp; --------------------编程问答-------------------- 鏄剧劧銆備綘鐨勪唬鐮佽嚜宸辫皟鐢ㄨ嚜宸卞共浠€涔堛€? --------------------编程问答-------------------- 閲嶅鐨勬墽琛? --------------------编程问答-------------------- 瑙ｅ喅浜?br /> List1.Selected(0) = True
--------------------编程问答-------------------- ... --------------------编程问答-------------------- 鍘熸潵鐨勬寰幆浜?