作者cses (5858)
看板Visual_Basic
标题Re: [VB2008] 并未将物件参考设定为物件的执行个体?
时间Mon Jul 30 00:10:36 2012
※ 引述《JlTsai (纸片人 )》之铭言：
: 会出现 Exception的程式码似乎在这一段
: 上篇推文中 P大建议我将 Dim a as xxx = new xx()
: 但是我修改完会出现错误 例如以下红色字
: Private Sub timer1_Tick(ByVal sender As System.Object, ByVal e As
: System.EventArgs) Handles timer1.Tick
: Dim port As Integer = 5000
: Try
: ' 复杂影像至剪贴簿(Clipboard)
: SendMessage(hwnd, WM_CAP_EDIT_COPY, 0, 0)
: ' 自剪贴簿(Clipboard)取得物件
: Dim data As IDataObject = Clipboard.GetDataObject()
: 将上行改成
: Dim data As IDataObject = New Clipboard.GetDataObject()
: 则会出现 型别'Clipboard.GetDataObject'未定义
: ' 建立记忆体的资料流
: Dim memStream As New System.IO.MemoryStream()
: If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
: Dim image As Image =
: CType((data.GetData(GetType(System.Drawing.Bitmap))), Image)
: ' 将影像依指定格式储存至指定的资料流
: image.Save(memStream, ImageFormat.Jpeg)
: End If
: ' 将影像依指定格式储存至指定的资料流
: picLocal.Image.Save(memStream, ImageFormat.Jpeg)
: ' 回传记忆体资料流之位元组阵列
: Dim buffer As Byte() = memStream.GetBuffer
: ' 建立用户端TcpClient
: Dim tcpClient As New TcpClient(txtHost.Text, port)
: ' 取得用户端的输出入串流
: clientStream = tcpClient.GetStream()
: ' 建立BinaryWriter
: Dim binarywriter As New BinaryWriter(clientStream)
: binarywriter.Write(buffer)
: binarywriter.Flush()
: binarywriter.Close()
: memStream.Flush()
: memStream.Close()
: clientStream.Flush()
: clientStream.Close()
: tcpClient.Close()
: Catch ex As Exception
: MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK,
: MessageBoxIcon.Error)
: End Try
: End Sub
: 请问该如何修改呢??
虽然有点久远的文章了...
不过这问题之後是如何解决的呢...?
买了一样的书遇到一样的问题了 Orz
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 1.170.3.13