字符串轉換爲在Vb.net自定義類類型

Question

大多數我發現已經變成了是什麼我正在尋找所以這裏的對面搜索結果的是我的問題：

我想將系統類型轉換爲我自己的自定義類型，但正如我所提到的那樣，我的搜索結果並沒有得到有效的發揮，並且與我所尋找的相反。

說我有「mystringgoeshere」的字符串，並像一個類：

Class MyStringType 

    Dim str As String 

End Class 
Dim s As MyStringType = "mystringgoeshere" 

，我得到這個錯誤{「字符串」類型的值不能轉換爲「Project1.MyStringType」}

我還沒有任何代碼，因爲我不知道如何實現這一點，但基本上我想要做的是使用像我在代碼塊中的方法設置「s」對象的「str」字符串以上。我試過使用「新（數據作爲字符串）」子程序，但它不適用於我想要的。

任何想法？ THX〜

Answer 1

在這個VBCity Article on creating Custom Types尋找它使用Widening操作。

從最後一個環節：

擴大轉換始終在運行時取得成功，從不導致數據丟失。例子有Single to Double，Char to String和派生類型到它的基類型。

所以嘗試這樣

Public Class Form1 

    Public Sub New() 

     ' This call is required by the designer. 
     InitializeComponent() 

     ' Add any initialization after the InitializeComponent() call. 
     Dim s As MyStringType = "mystringgoeshere" 
     Dim s1 As MyStringType = "Hello" 
     Dim s2 As MyStringType = s1 + s 
    End Sub 
End Class 

Class MyStringType 
    Private _string As String 
    Private Sub New(ByVal value As String) 
     Me._string = value 
    End Sub 
    Public Shared Widening Operator CType(ByVal value As String) As MyStringType 
     Return New MyStringType(value) 
    End Operator 
    Public Overrides Function ToString() As String 
     Return _string 
    End Function 
    Public Shared Operator +(ByVal s1 As MyStringType, s2 As MyStringType) As MyStringType 
     Dim temp As String = s1._string + s2._string 
     Return New MyStringType(temp) 
    End Operator 
End Class 

Answer 2

你應該做的是

Class MyStringType 

    Dim str As String 

End Class 
Dim s As MyStringType 
s.str = "mystringgoeshere" 

Answer 3

這聽起來像你想繼承System.String東西。這是OOP編程的基礎。繼承是非常重要的。

http://en.m.wikipedia.org/wiki/Inheritance_(object-oriented_programming）

Answer 4

 
just change ur code little bit like this : 

Class MyStringType 
    Dim str As String 
    Sub New(ByVal str1 As String) 
     str = str 
    End Sub 
End Class 

Dim s As New MyStringType("abhi")