如何在VB.NET web应用中创建支持图片上传的PictureBox控件？

该需求完全可以实现。
需要注意的是，Web场景下没有和WinForm完全一致的原生PictureBox服务器控件，我们可以通过组合基础控件+后端逻辑的方式实现完全等效的功能，也可以封装为自定义控件后续复用，具体实现逻辑如下：

• 前端页面组合核心控件
  直接在aspx页面中添加文件上传控件、触发按钮和图片展示控件，代码示例：

<%-- 上传控件限制仅可选图片文件 --%>
<asp:FileUpload ID="ImgUploader" runat="server" accept="image/*" />
<asp:Button ID="BtnUpload" runat="server" Text="确认上传" OnClick="BtnUpload_Click" />
<br />
<%-- 该Image控件等效你需要的PictureBox展示能力 --%>
<asp:Image ID="PicBox" runat="server" Width="400px" Height="300px" BorderStyle="Solid" BorderWidth="1px" />

• 后端VB.NET编写上传逻辑
  编写按钮点击事件处理上传、校验、保存和图片回显逻辑，代码示例：

Imports System.IO

Protected Sub BtnUpload_Click(sender As Object, e As EventArgs) Handles BtnUpload.Click
    ' 判断是否选中了文件
    If ImgUploader.HasFile Then
        ' 校验文件是否为图片格式
        Dim allowExtensions As String() = {".jpg", ".jpeg", ".png", ".gif", ".bmp"}
        Dim fileExtension As String = Path.GetExtension(ImgUploader.FileName).ToLower()
        
        If allowExtensions.Contains(fileExtension) Then
            ' 定义服务器保存路径，需提前给Upload目录配置IIS写入权限
            Dim saveFolder As String = Server.MapPath("~/Upload/Images/")
            If Not Directory.Exists(saveFolder) Then
                Directory.CreateDirectory(saveFolder)
            End If
            ' 用GUID重命名避免文件名重复
            Dim saveFileName As String = Guid.NewGuid().ToString() & fileExtension
            Dim fullSavePath As String = Path.Combine(saveFolder, saveFileName)
            
            ' 保存文件到服务器
            ImgUploader.SaveAs(fullSavePath)
            ' 给图片控件赋值访问地址实现回显
            PicBox.ImageUrl = $"~/Upload/Images/{saveFileName}"
        Else
            ClientScript.RegisterStartupScript(Me.GetType(), "formatErr", "alert('仅支持上传jpg/png/gif等图片格式文件');", True)
        End If
    End If
End Sub

如果你需要封装为可复用的自定义控件，只需要把上面的控件和逻辑封装为ASP.NET用户控件（.ascx文件），后续就可以像原生服务器控件一样直接拖拽到任意页面使用，完全满足你自定义支持上传的PictureBox控件的需求。

如果是基于ASP.NET Core的VB.NET Web应用，实现思路一致，仅需将Web Forms控件替换为对应Razor标签/Tag Helper即可。

内容的提问来源于stack exchange，提问作者PHUPHA