Imports System.ComponentModel
'''
<
efaultPropertyAttribute("Добавить подпись"
> _
<Serializable()> _
Public Class main_Configuration
'''
Private _Sign_Add
As Boolean
Private _Signature
As String
'''
<CategoryAttribute("Подпись к сообщению"
, _
Browsable(
True), _
[
ReadOnly]
False), _
BindableAttribute(
False), _
 
efaultValueAttribute("
False"
, _
 
esignOnly(
False), _
 
isplayName("Добавить подпись"
, _
 
escriptionAttribute("Добавлять подпись к сообщению?"
> _
Public Property Sign_Add()
As Boolean
Get
Return _Sign_Add
End Get
Set(
ByVal Value
As Boolean)
_Sign_Add = Value
End Set
End Property
'''
<CategoryAttribute("Подпись к сообщению"
, _
Browsable(
True), _
[
ReadOnly]
False), _
BindableAttribute(
False), _
 
efaultValueAttribute(""
, _
 
esignOnly(
False), _
 
isplayName("Подпись"
, _
 
escriptionAttribute("Введите подпись (Максимум 8 символов)"
> _
Public Property Signature()
As String
Get
Return _Signature
End Get
Set(
ByVal Value
As String)
_Signature = Value
End Set
End Property
End Class
<
efaultPropertyAttribute("Включить"
> _
<Serializable()> _
Public Class connection_Configuration
'''
Private _Proxy_on
As Boolean
Private _Address
As String
Private _Port
As Integer = 3128
'''
<CategoryAttribute("Соединение через прокси-сервер"
, _
Browsable(
True), _
[
ReadOnly]
False), _
BindableAttribute(
False), _
 
efaultValueAttribute("
False"
, _
 
esignOnly(
False), _
 
isplayName("Включить"
, _
 
escriptionAttribute("Включить соединение через прокси-сервер?"
> _
Public Property Proxy_on()
As Boolean
Get
Return _Proxy_on
End Get
Set(
ByVal Value
As Boolean)
_Proxy_on = Value
End Set
End Property
'''
<CategoryAttribute("Соединение через прокси-сервер"
, _
Browsable(
True), _
[
ReadOnly]
False), _
BindableAttribute(
False), _
 
efaultValueAttribute(""
, _
 
esignOnly(
False), _
 
isplayName("Адрес"
, _
 
escriptionAttribute("Введите адрес прокси-сервера"
> _
Public Property Address()
As String
Get
Return _Address
End Get
Set(
ByVal Value
As String)
_Address = Value
End Set
End Property
<CategoryAttribute("Соединение через прокси-сервер"
, _
Browsable(
True), _
[
ReadOnly]
False), _
BindableAttribute(
False), _
 
efaultValueAttribute(""
, _
 
esignOnly(
False), _
 
isplayName("Порт"
, _
 
escriptionAttribute("Введите порт прокси-сервера"
> _
Public Property Port()
As String
Get
Return _Port
End Get
Set(
ByVal Value
As String)
_Port = Value
End Set
End Property
End Class