1
0
mirror of https://e.coding.net/circlecloud/LoadFirstPic.git synced 2024-12-29 08:18:50 +00:00

新增首图下载完毕以后自动打开文件夹...

Signed-off-by: j502647092 <jtb1@163.com>
This commit is contained in:
j502647092 2015-07-01 15:32:18 +08:00
parent 73f013a62b
commit be04b284a3
2 changed files with 5 additions and 4 deletions

View File

@ -128,6 +128,7 @@ red:
Next
UseTime = Format((timeGetTime - UseTime) / 1000, "0.00")
pb.Change pb.BarMax, "下载完成 共下载" & pb.BarMax & "件产品首图 耗时" & UseTime & "秒!", &H80FF80
Shell "explorer.exe /n,/select," & App.Path & "\" & folder & "\", vbNormalFocus
End Sub
Private Sub fl_Click()

View File

@ -1,9 +1,9 @@
Frm_Main = 1, 6, 1342, 663, , 44, 44, 1143, 418, C
TzDownload = 0, 0, 0, 0, C, 0, 0, 984, 374, C
TzListBox = 0, 0, 0, 0, C, 22, 22, 1006, 396, C
Frm_Download = 511, 160, 1924, 817, , 72, 94, 1056, 468, C
TzProgressBar = 0, 0, 0, 0, C, 44, 44, 1028, 418, C
Frm_Download = 362, 160, 1924, 817, , 72, 94, 1056, 468, C
TzProgressBar = 66, 66, 1518, 635, , 44, 44, 1028, 418, C
MainBas = 22, 22, 1363, 679,
Frm_Tols = 0, 0, 1341, 657, I, 132, 132, 1116, 506, C
Frm_Index = 572, 229, 1913, 886, , 106, 189, 1447, 846, C
XmlHttp = 0, 0, 0, 0, C, 0, 0, 0, 0, C
Frm_Index = 303, 221, 1644, 878, , 106, 189, 1447, 846, C
XmlHttp = 0, 0, 0, 0, C, 286, 286, 1627, 943, C