7,763
社区成员
发帖
与我相关
我的任务
分享
GetChunk 方法、StateChanged 事件示例
该示例在 StateChanged 事件中用 GetChunk 方法来检索一块数据。该示例使用 Select Case 语句来决定如何处理每种可能的状态。该示例假定窗体中有一个名为 txtData 的 TextBox 控件。
Private Sub Inet1_StateChanged(ByVal State As Integer)
'State = 12 时,使用 GetChunk 方法检索服务器的响应。
'该示例假定数据为文本类型。
Select Case State
'...没有列举其它情况。
Case icResponseReceived '12
Dim vtData As Variant '数据变量。
Dim strData As String: strData = ""
Dim bDone As Boolean: bDone = False
'取得第一块。
vtData = Inet1.GetChunk(1024, icString)
DoEvents
Do While Not bDone
strData = strData & vtData
DoEvents
'取得下一块。
vtData = Inet1.GetChunk(1024, icString)
If Len(vtData) = 0 Then
bDone = True
End If
Loop
txtData.Text = strData
End Select
End Sub