次のコードを入れると:
Response.ContentType = "image/jpeg"
Response.AppendHeader("Content-Disposition", "attachment; filename=capitol.jpg")
Response.WriteFile(MapPath("capitol.jpg"))
Page_Load に入ると、画像をダウンロードするためのダイアログ ボックスが表示されます。しかし、同じコードをサブルーチンに入れると:
Private Sub downloadPic()
MsgBox("Hello!")
Response.ContentType = "image/jpeg"
Response.AppendHeader("Content-Disposition", "attachment; filename=capitol.jpg")
Response.WriteFile(Server.MapPath("capitol.jpg"))
Response.End()
End Sub
MsgBox (テスト用) を取得しましたが、イメージをダウンロードする機能がありません。何か案は?