ROSTAM2
سه شنبه 29 آذر 1401, 21:49 عصر
سلام.
من یک Component سفارشی دارم که با استفاده از کلاس ResourceManger رشته رو از ریسورس تعیین شده در خصوصیت Resource از Component برای یک StatusLabel با رفتن ماوس روی اشیاء فراهم می کنه:
154378
154377
154381
154379
این هم سورسش توی پروژه اصلی:
Imports System.ComponentModel
Imports System.Resources
Imports System.Reflection
Imports System.Threading
Imports System.Globalization
<ProvideProperty("Status", GetType(Control))> _
Public Class StatusProvider
Implements IExtenderProvider
Private WithEvents StatusLabelValue As ToolStripLabel
Public Property StatusLabel() As ToolStripLabel
Get
Return StatusLabelValue
End Get
Set(ByVal value As ToolStripLabel)
StatusLabelValue = value
End Set
End Property
Private Shared resourceMan As Global.System.Resources.ResourceManager
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttrib ute(Global.System.ComponentModel.EditorBrowsableSt ate.Advanced)> _
Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim ResourceName As String = String.Format("{0}.{1}", My.Application.Info.AssemblyName, ResourceValue)
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager(ResourceNa me, GetType(StatusProvider).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
Private Shared ResourceValue As String = "Resources"
<Description("Resources"), DefaultValue("Resources")> _
Public Property Resource() As String
Get
Return ResourceValue
End Get
Set(ByVal value As String)
ResourceValue = value
End Set
End Property
Protected StatusControls As New Dictionary(Of Control, String)
Public Sub SetStatus(Ctl As Control, Value As String)
If Me.StatusControls.ContainsKey(Ctl) = False Then
Me.StatusControls.Add(Ctl, Value)
AddHandler Ctl.MouseEnter, AddressOf _MouseEnter
AddHandler Ctl.MouseLeave, AddressOf _MouseLeave
Else
If Value = String.Empty Then
Me.StatusControls.Remove(Ctl)
RemoveHandler Ctl.MouseEnter, AddressOf _MouseEnter
RemoveHandler Ctl.MouseLeave, AddressOf _MouseLeave
Exit Sub
End If
Me.StatusControls(Ctl) = Value
End If
End Sub
<Description("String Name in Resource. (@<ResName>)")> _
Public Function GetStatus(Ctl As Control) As String
If Me.StatusControls.ContainsKey(Ctl) = True Then
Return Me.StatusControls(Ctl)
Else
Return ""
End If
End Function
Public Function CanExtend(extendee As Object) As Boolean Implements System.ComponentModel.IExtenderProvider.CanExtend
Return TypeOf extendee Is Control
End Function
Private Sub _MouseEnter(sender As Object, e As System.EventArgs)
If Me.StatusLabel Is Nothing Then Exit Sub
Dim Expr As String = Me.StatusControls(sender)
If Expr.StartsWith("@") Then
Me.StatusLabel.Text = ResourceManager.GetString(Expr.Remove(0, 1))
Else
Me.StatusLabel.Text = Expr
End If
End Sub
Private Sub _MouseHover(sender As Object, e As System.EventArgs)
End Sub
Private Sub _MouseLeave(sender As Object, e As System.EventArgs)
If Me.StatusLabel Is Nothing Then Exit Sub
Me.StatusLabel.Text = String.Empty
End Sub
Private Sub StatusProvider_Disposed(sender As Object, e As System.EventArgs) Handles Me.Disposed
For Each ctl As Control In Me.StatusControls.Keys
RemoveHandler ctl.MouseEnter, AddressOf _MouseEnter
RemoveHandler ctl.MouseLeave, AddressOf _MouseLeave
Next
End Sub
End Class
154380
سوال: من اگر بخوام این کامپوننت رو در یک پروژه Class Library ایجاد کنم برای استفاده در پروژه های دیگر چطور می تونم به ریسورس موجود در پروژه هدف دسترسی داشته باشم؟!
من یک Component سفارشی دارم که با استفاده از کلاس ResourceManger رشته رو از ریسورس تعیین شده در خصوصیت Resource از Component برای یک StatusLabel با رفتن ماوس روی اشیاء فراهم می کنه:
154378
154377
154381
154379
این هم سورسش توی پروژه اصلی:
Imports System.ComponentModel
Imports System.Resources
Imports System.Reflection
Imports System.Threading
Imports System.Globalization
<ProvideProperty("Status", GetType(Control))> _
Public Class StatusProvider
Implements IExtenderProvider
Private WithEvents StatusLabelValue As ToolStripLabel
Public Property StatusLabel() As ToolStripLabel
Get
Return StatusLabelValue
End Get
Set(ByVal value As ToolStripLabel)
StatusLabelValue = value
End Set
End Property
Private Shared resourceMan As Global.System.Resources.ResourceManager
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttrib ute(Global.System.ComponentModel.EditorBrowsableSt ate.Advanced)> _
Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim ResourceName As String = String.Format("{0}.{1}", My.Application.Info.AssemblyName, ResourceValue)
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager(ResourceNa me, GetType(StatusProvider).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
Private Shared ResourceValue As String = "Resources"
<Description("Resources"), DefaultValue("Resources")> _
Public Property Resource() As String
Get
Return ResourceValue
End Get
Set(ByVal value As String)
ResourceValue = value
End Set
End Property
Protected StatusControls As New Dictionary(Of Control, String)
Public Sub SetStatus(Ctl As Control, Value As String)
If Me.StatusControls.ContainsKey(Ctl) = False Then
Me.StatusControls.Add(Ctl, Value)
AddHandler Ctl.MouseEnter, AddressOf _MouseEnter
AddHandler Ctl.MouseLeave, AddressOf _MouseLeave
Else
If Value = String.Empty Then
Me.StatusControls.Remove(Ctl)
RemoveHandler Ctl.MouseEnter, AddressOf _MouseEnter
RemoveHandler Ctl.MouseLeave, AddressOf _MouseLeave
Exit Sub
End If
Me.StatusControls(Ctl) = Value
End If
End Sub
<Description("String Name in Resource. (@<ResName>)")> _
Public Function GetStatus(Ctl As Control) As String
If Me.StatusControls.ContainsKey(Ctl) = True Then
Return Me.StatusControls(Ctl)
Else
Return ""
End If
End Function
Public Function CanExtend(extendee As Object) As Boolean Implements System.ComponentModel.IExtenderProvider.CanExtend
Return TypeOf extendee Is Control
End Function
Private Sub _MouseEnter(sender As Object, e As System.EventArgs)
If Me.StatusLabel Is Nothing Then Exit Sub
Dim Expr As String = Me.StatusControls(sender)
If Expr.StartsWith("@") Then
Me.StatusLabel.Text = ResourceManager.GetString(Expr.Remove(0, 1))
Else
Me.StatusLabel.Text = Expr
End If
End Sub
Private Sub _MouseHover(sender As Object, e As System.EventArgs)
End Sub
Private Sub _MouseLeave(sender As Object, e As System.EventArgs)
If Me.StatusLabel Is Nothing Then Exit Sub
Me.StatusLabel.Text = String.Empty
End Sub
Private Sub StatusProvider_Disposed(sender As Object, e As System.EventArgs) Handles Me.Disposed
For Each ctl As Control In Me.StatusControls.Keys
RemoveHandler ctl.MouseEnter, AddressOf _MouseEnter
RemoveHandler ctl.MouseLeave, AddressOf _MouseLeave
Next
End Sub
End Class
154380
سوال: من اگر بخوام این کامپوننت رو در یک پروژه Class Library ایجاد کنم برای استفاده در پروژه های دیگر چطور می تونم به ریسورس موجود در پروژه هدف دسترسی داشته باشم؟!