''' <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
或者 Imports System.ComponentModel
原文链接：https://www.f2er.com/vb/261567.html