投稿者 ひでと  (社会人) 投稿日時 2010/6/11 15:03:00
すいません。分らないことが・・・。
作成した myDoubleを配列変数に使おうとして 

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dum(1) As myDouble
        dum(0) = 300
        dum(1) = 400
        MsgBox(dum(0) + dum(1))
 End Sub

とすると 「True」と表示されます。
デバッグで追いかけてみると

    Public Structure myDouble
        Private m_Value As Double
        Public Shared Widening Operator CType(ByVal value As Double) As myDouble
            Dim re As New myDouble
            re.m_Value =  value '小数以下丸め(value, 3)
            Return re
        End Operator
        Public Shared Operator +(ByVal value1 As myDouble, ByVal value2 As myDouble) As Boolean
            Return value1.m_Value + value2.m_Value
        End Operator
    End Structure
の2つの部分だけなのです。
答え「700」にするためにはどうしたらよいのでしょうか?