مواردی که در #C انجام دادم ولی در VB نتونستم؟

[حسین شهریاری]

معادل کدهای زیر در vb چیست؟


this.button7.Click += new System.EventHandler(this.button7_Click);





public string ObjectResult(object Sender)
{
string Result = "";
switch (Sender.GetType().Name)
{
case "TextBox":
{
Result = (Sender as TextBox).Text;
break;
}
case "MaskedTextBox":
{
Result = (Sender as MaskedTextBox).Text;
break;
}
case "ComboBox":
{
Result = (Sender as ComboBox).Text;
break;
}

[محسن شامحمدی]

معادل کدهای زیر در vb چیست؟
1
2
this.button7.Click += new System.EventHandler(this.button7_Click);





AddHandler Button7.Click, AddressOf button7_Click

مشابه کد دومی:
Public Function ObjectResult(ByVal sender As Object) As String
Dim Result As String = ""
Select Case sender.GetType().Name
Case "TextBox"
Result = sender.text
Case "MaskedTextBox"
Result = sender.text
Case "ComboBox"
Result = sender.text
End Select
End Function


ولی پیشنهاد شخصی بنده.روش شما اصلا جالب نیست.از این روش استفاده کنید:
Public Function ObjectResult(ByVal sender As Object) As String
If (TypeOf sender Is TextBox) Or (TypeOf sender Is MaskedTextBox) Or (TypeOf sender Is ComboBox) Then
Return sender.text
End If
End Function