Option Explicit

'ユーザーコントロールは、
'ActiveXコントロールにせずに
'そのままExeに組み込めます

'接続ボタンをクリックしました
Private Sub Command1_Click()
    Dim varByteArray    As Variant
    Dim strData         As String
        
    'http接続で
    'サーバーからページをダウンロードします
    varByteArray = Connection1.Connect(Text2.Text)
    
    'エラーがあるか調べます
    If Connection1.ErrStatus.Number = 0 Then
        'バイト配列なのでUnicodeに変換して
        'vbLfコードをvbCrLfに置換して
        'テキストボックスに表示します
        strData = StrConv(varByteArray, vbUnicode)
        strData = Replace(strData, vbCr, "")
        strData = Replace(strData, vbLf, vbCrLf)
        Text1.Text = strData
        
    Else
        'エラーをメッセージボックスで表示します
        MsgBox Connection1.ErrStatus.Description, vbExclamation
    End If
    
End Sub

'キャンセルボタンをクリックしました
Private Sub Command2_Click()
    'Connectionメソッドをキャンセルします
    Connection1.Cancel
    '出力用のテキストボックスを空にします
    Text1.Text = ""
End Sub

'フォームを閉じます
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = 0 Then
        '通信処理をキャンセルします
        Connection1.Cancel
    End If
End Sub

'フォームのサイズを変更しました
Private Sub Form_Resize()
    'テキストボックスをフォームいっぱいにします
    Text1.Move 0, 510, Me.ScaleWidth, Me.ScaleHeight - 510
End Sub