Question

VB.net“尝试读取或写入受保护的内存。这通常指示其他内存已损坏。”

小白求教、本是VB的代码、改用VS2017、总是出错、不知道出里错了
Option Explicit On
Module Module1
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwmainssage As Int32, lpData As NOTIFYICONDATA) As Long
Public Const MAX_TOOLTIP As Integer = 64
Public Const NIF_ICON As Integer = &H2
Public Const NIF_mainSSAGE As Integer = &H1
Public Const NIF_TIP As Integer = &H4
Public Const NIM_ADD As Integer = &H0
Public Const NIM_DELETE As Integer = &H2
Public Const WM_MOUSEMOVE As Integer = &H200
Public Const WM_LBUTTONUP As Integer = &H202
Public Const WM_RBUTTONUP As Integer = &H205
Public Const MF_bitmap As Integer = &H4&
Public Const WM_LBUTTONDBLCLK As Long = &H203
Public Const MF_bitmap As Integer = &H4&

Public Structure NOTIFYICONDATA
Dim cbSize As Long
Dim hwnd As Long
Dim uID As Icon
Dim uFlags As Long
Dim uCallbackmainssage As Long
Dim hIcon As Long
Dim szTip As String '* MAX_TOOLTIP
End Structure
Public nfIconData As NOTIFYICONDATA
Public Sub Sys_Tray()
nfIconData.hwnd = Form1.Handle
nfIconData.uID = Form1.Icon
nfIconData.uFlags = NIF_ICON Or NIF_mainSSAGE Or NIF_TIP
nfIconData.uCallbackmainssage = WM_MOUSEMOVE
nfIconData.hIcon = Form1.Icon.Handle
nfIconData.szTip = "托盘提示" & vbNullChar
nfIconData.cbSize = Len(nfIconData)
Shell_NotifyIcon(NIM_ADD, nfIconData)
End Sub
End Module

Answer 1

vb.net 有专门的托盘图标控件 在工具箱里直接添加一个就可以了 两行代码即可

 NotifyIcon1.Icon = Me.Icon
NotifyIcon1.Visible = True

Answer 2

（14）铸雪斋本该文附于《马介甫》之后；（15）青柯亭刻本改题“花神”；