vb的dialogresult转image

### 回答1：
在 Visual Basic 中，可以使用下面的代码将 `DialogResult` 转换为图像：

If DialogResult.OK = MessageBox.Show("Do you want to continue?", "Confirmation", MessageBoxButtons.OKCancel) Then
    Dim bmp As New Bitmap(My.Resources.OK)
    PictureBox1.Image = bmp
Else
    Dim bmp As New Bitmap(My.Resources.Cancel)
    PictureBox1.Image = bmp
End If

在这个代码中，我们通过使用 `MessageBox.Show` 显示一个对话框，并检查其 `DialogResult` 的值。如果结果为 `DialogResult.OK`，我们将一个名为 "OK" 的图像赋给一个 `PictureBox`。否则，我们将一个名为 "Cancel" 的图像赋给 `PictureBox`。

注意：在这个代码中，我们假设图像 "OK" 和 "Cancel" 已经存在于项目的资源中。如果图像不存在，则需要使用其他方法来获取它们。

### 回答2：
在VB中，DialogResult是用于表示用户在对话框中点击的按钮的结果的枚举类型。它通常用于判断用户选择了哪个按钮，并根据选择的结果执行相应的操作。

然而，DialogResult并不能直接转换为Image类型。如果你想根据不同的DialogResult设置不同的Image，你可以使用条件语句来实现。

首先，你需要创建一个PictureBox控件来显示Image。然后，根据DialogResult的值，设置PictureBox的Image属性。例如：

Dim result As DialogResult
result = YourDialog.ShowDialog()

If result = DialogResult.OK Then
    PictureBox1.Image = Image.FromFile("okImage.png")
ElseIf result = DialogResult.Cancel Then
    PictureBox1.Image = Image.FromFile("cancelImage.png")
ElseIf result = DialogResult.Yes Then
    PictureBox1.Image = Image.FromFile("yesImage.png")
ElseIf result = DialogResult.No Then
    PictureBox1.Image = Image.FromFile("noImage.png")
End If

在上面的代码中，根据不同的DialogResult的值，将不同的图片文件加载到PictureBox中的Image属性中。你需要替换上面代码中的图片文件路径和控件名称以适应你的实际情况。

值得注意的是，如果你想使用资源文件中的图片，你可以使用My.Resources来加载图片。例如：

PictureBox1.Image = My.Resources.okImage

这样，你就可以根据不同的DialogResult来设置相应的图片。当然，你也可以根据自己的需要自定义更多的DialogResult和对应的图片。

### 回答3：
在VB中，DialogResult是用于确定用户按下对话框中的哪个按钮的枚举类型。而Image是在VB中表示图像的类型。所以，DialogResult与Image之间并没有直接的转换方法或属性。

要将DialogResult转换为Image，你需要明确你想要的是什么样的转换方式。下面是两种可能的转换方式：

1. 根据DialogResult的不同结果显示不同的图像：
首先，你需要先定义和加载所需的图像。然后，根据DialogResult的结果，在适当的条件下显示相应的图像。例如：

    Dim result As DialogResult
    '' 假设 result 是从某个对话框中得到的结果

    If result = DialogResult.OK Then
        picImage.Image = My.Resources.OkayImage
    ElseIf result = DialogResult.Cancel Then
        picImage.Image = My.Resources.CancelImage
    End If

2. 将Image转换为DialogResult：
如果你想通过点击图像来表示用户做出的选择，你可以借助一些控件或者事件的帮助来实现这个转换。例如，使用PictureBox控件和Click事件来响应用户点击图像的动作，并根据不同的图像确定对应的DialogResult值。例如：

    Private Sub picImage_Click(sender As Object, e As EventArgs) Handles picImage.Click
        Dim clickedImage As Image
        '' 假设 clickedImage 是你想要的点击后的图像

        If clickedImage.Equals(My.Resources.OkayImage) Then
            Me.DialogResult = DialogResult.OK
        ElseIf clickedImage.Equals(My.Resources.CancelImage) Then
            Me.DialogResult = DialogResult.Cancel
        End If
    End Sub

希望上述两种方式可以帮助到你，具体要根据你的需求来决定如何转换DialogResult与Image之间的关系。