[مدمن البرمجة]

لدي متغيرات من نوع double

اريد ان انقل قيمة رقمية من textbox الى هذا المتغيرات

وبعد ذلك اعادة الناتج من المتغير الى ال textbox مرة اخرى

يعني تحويل من نص الى double ومن double الى نص

ارجو المساعدة )

[ناجي إبراهيم]

السلام عليكم...

كود :

Dim MyDouble As Double

MyDouble = CDbl(Text1.Text)    // From String to Double

Text2.Text = CStr(MyDouble)    // From Double to String

و دوال التحويل هي:

CStr للتحويل إلى String.
CInt للتحويل إلى Integer.
CLng للتحويل إلى Long.
CSng للتحويل إلى Single.
CDbl للتحويل إلى Double.
CByte للتحويل إلى Byte.
CBool للتحويل إلى Boolean.
CDate للتحويل إلى Date.
CCur للتحويل إلى Currency.
CVar للتحويل إلى Variant.

نرجو الاستفادة و السلام.