none
“null”的值对于“stream”无效。 这个错误该如何解决? RRS feed

  • 问题

  • 我把一些图片放在了资源文件里,生成方式已经改成“嵌入的资源”了,但是出错,不知道是哪里的问题。

    目前写的代码如下:

    Public Class Form1
        Dim clk As Boolean = False
        Dim drp As Boolean = False
        Dim picname As String
    
        Private Sub ToolStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
            clk = Not clk
            If clk = True Then
                Me.Cursor = Cursors.Cross
                picname = Replace(Replace(e.ClickedItem.Text & ".png", "(", "_"), ")", "")
            Else
                Me.Cursor = Cursors.Default
                picname = ""
            End If
        End Sub
    
        Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
            If clk = True Then
                drp = True
                Dim pic As New PictureBox
                pic.SizeMode = PictureBoxSizeMode.StretchImage
                pic.Image = New Bitmap(System.Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStream(picname)) '这里出错
                pic.Location = New Point(e.X, e.Y)
                Me.Controls.Add(pic)
            End If
        End Sub End Class


    2012年4月30日 3:11

答案

  • 唉,忙乎了一天 没人回答,最后还是靠我自己弄出来了。

    pic.Image = New Bitmap(System.Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStream(picname))

    其中picname的值为工程名.图片名,我忘记加工程名了。

    2012年5月1日 0:50

全部回复