喔.....媽媽咪ㄚ
新手小弟我在此向各位VB前輩們求救
原因:
1.當我執行並下載時出現,沒有物件,字樣
2.如何使ProgressBar再下載檔案十顯示進度
謝謝
--------------------------------------
form1:
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "請輸入網址(URL),並以 [http:\\] 開頭"
End If
If Len(Text2.Text) = 0 Then
MsgBox "請輸入檔名"
End If
If ((Len(Text1.Text) ＞ 0) And (Len(Text2.Text) ＞ 0)) Then
Ipic1.AsyncRead Text1.Text, vbAsyncTypeFile, Text1.Text
ProgressBar1.Value = AsncProp.Value
End If
End Sub
-------------------------------
UserControl
name: Ipic1
'事件宣告:
Event AsyncReadComplete(AsyncProp As AsyncProperty) 'MappingInfo=UserControl,UserControl,-1,AsyncReadComplete
'MappingInfo=UserControl,UserControl,-1,CancelAsyncRead
Public Sub CancelAsyncRead(Optional Property As Variant)
UserControl.CancelAsyncRead Property
End Sub
Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)
RaiseEvent AsyncReadComplete(AsyncProp)
End Sub
'MappingInfo=UserControl,UserControl,-1,AsyncRead
Public Sub AsyncRead(Target As String, AsyncType As Long, Optional PropertyName As Variant)
UserControl.AsyncRead Target, AsyncType, PropertyName
End Sub