Question

VB按钮与LISTBOX问题！

有按钮1和按钮2
又LISTBOX1和2
单击按钮1后，选择文件（限定JPG格式只能选一个）确定后添加到LISTBOX1中（只显示文件名和扩展名不显示路径）
如果再次单击按钮1选择一个JPG的文件，择替换这个LISTBOX1的内容

单击按钮2后，选择文件（任何文件，可以多选），确定后添加到LISTBOX2中（只显示文件名和扩展名不显示路径）
如果再次单击按钮2选择一个文件，保留原来的文件并添加新文件到LISTBOX2中

这要如何写？

Answer 1

虽然我也蛮像谨此要分、看不惯那些没分不帮的人。。。我帮你做吧
rem 需吵衫要升晌腔添加一个通用控件、两个按钮、两个列表
Private Sub Command1_Click()
Cd1.Filter = "图片(*.jpg)|*.jpg"
Cd1.ShowOpen
List1.AddItem Cd1.FileName
End Sub

Private Sub Command2_Click()
Cd1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
Cd1.FileName = ""
Cd1.ShowOpen
If InStr(1, Cd1.FileName, Chr(0)) = 0 Then
List2.AddItem CD.FileName
Else
temp = Split(Cd1.FileName, Chr(0))
For i = 1 To UBound(temp)
List2.AddItem temp(i)
Next
End If
End Sub

Answer 2

大概看了一下，难度的圆绝没有只是啰嗦的很，纯体改腔返力活
我先吃饭，等一下看你的米有多少
无米无诚信嘛！
-----------不要回复我，给核饥我留点空地，你补充问题就行

Answer 3

就这么复杂的问题没分啊？

追问

就因为复杂，所以先问了，如果有完美解答的了追分，免得没有解答的分还浪费了！

追答

主动权在自己手里，总不吃亏，是吧？

追问

分放出去没人答或者没有正确的，分是拿不回来的，我就300多分，给100分出去没正确的如何拿回来那100分