كيفية القيام بما يلي: تعريف تحويل عامل التشغيل
إذا قمت بتعريف فئة أو بنية ، يمكنك تعريف عامل تشغيل نوع تحويل بين نوع الفصل الدراسي أو بنية نوع بيانات آخر (مثل Integer, Double، أو String).
تعريف نوع التحويل دالة CType إجراء داخل فئة أو بنية. يجب أن تكون الكل الإجراءات التحويل Public Shared، يجب تحديد كل منها إما التوسيع في (Visual Basic) أو تضييقي (Visual Basic).
تعريف عامل تشغيل على فئة أو بنية يدعى أيضاً زيادة تحميل عامل التشغيل.
مثال
يحدد المثال التالي عوامل تشغيل التحويل بين بنية تسمى digit و Byte.
Public Structure digit
Private dig As Byte
Public Sub New(ByVal b As Byte)
If (b < 0 OrElse b > 9) Then Throw New System.ArgumentException(
"Argument outside range for Byte")
Me.dig = b
End Sub
Public Shared Widening Operator CType(ByVal d As digit) As Byte
Return d.dig
End Operator
Public Shared Narrowing Operator CType(ByVal b As Byte) As digit
Return New digit(b)
End Operator
End Structure
يمكنك اختبار البنية digit مع التعليمات البرمجية التالية.
Public Sub consumeDigit()
Dim d1 As New digit(4)
Dim d2 As New digit(7)
Dim d3 As digit = CType(CByte(3), digit)
Dim s As String = "Initial 4 generates " & CStr(CType(d1, Byte)) &
vbCrLf & "Initial 7 generates " & CStr(CType(d2, Byte)) &
vbCrLf & "Converted 3 generates " & CStr(CType(d3, Byte))
Try
Dim d4 As digit
d4 = CType(CType(d1, Byte) + CType(d2, Byte), digit)
Catch e4 As System.Exception
s &= vbCrLf & "4 + 7 generates " & """" & e4.Message & """"
End Try
Try
Dim d5 As digit = CType(CByte(10), digit)
Catch e5 As System.Exception
s &= vbCrLf & "Initial 10 generates " & """" & e5.Message & """"
End Try
MsgBox(s)
End Sub
راجع أيضًا:
المهام
كيفية القيام بما يلي: تعريف عامل تشغيل
كيفية القيام بما يلي: استدعاء إجراء عامل التشغيل
كيفية القيام بما يلي: استخدم فئة التي تعرّفُ عوامل تشغيل
كيفية القيام بما يلي: تعريف بنية