VB.NET 为自定义类的属性和方法添加说明和描述

''' <summary>
''' 获取QS的全部数据，
''' </summary>
''' <param name="ItemNo">货号</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetQSByItemNo(ByVal ItemNo As String) As QSDataModel
Dim Qs As New QSDataModel
...
End Function

''' <summary>
''' 是否显示文件发送提示窗体
''' </summary>
''' <remarks> </remarks>
Private isshowFrmFilesend As Boolean

''' <summary> ''' 是否<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>发送<a href="https://www.jb51.cc/tag/tishi/" target="_blank" class="keywords">提示</a>窗体 ''' </summary> ''' <remarks> </remarks> Private isshowFrmFilesend As Boolean <Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.ComponentModel.<a href="https://www.jb51.cc/tag/bro/" target="_blank" class="keywords">bro</a>wsable(True),Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.ComponentModel.Description("这是<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>在面板上的说明<a href="https://www.jb51.cc/tag/wenzi/" target="_blank" class="keywords">文字</a>")> Public Property sss() As String Get Return False End Get Set(ByVal value As String) Dim a As Int16 = value End Set End Property

或者 Imports System.ComponentModel

<Description("这是<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>在面板上的说明<a href="https://www.jb51.cc/tag/wenzi/" target="_blank" class="keywords">文字</a>")> Public Property sss() As String Get Return False End Get Set(ByVal value As String) Dim a As Int16 = value End Set End Property