محاسبه درون فرم vb

[saeedabs]

سلام ،
ضمن خسته نباشيد يك سوال داشتم

توي يه فرم وي بي كه در اديتور نوشته شده ميخوام يك text box حاصل جمع دو تا text box ديگه رو نشون بده

من با اين كدا امتحان كردم نشد

Private Sub TextBox3_ show ()
function add (textbox1,textbox2)
add=textbox1+textbox2
End Sub

و

Function TextBox2_show()

function add (textbox1,textbox2)
add=textbox1+textbox
end function



بنظر شما اساتيد ايراد از كجاست + اينكه آيا ميشه از كدي استفاده كرد كه موقع نمايش حاصلجمع اعداد رو سه رقم سه رقم با كاما جدا كنه ؟؟؟؟

من اين كد رو امتحان كردم نشد

Private Sub TextBox3_ show ()
textbox3= format( #,###,###, "currency" )
end sub
خيلي مهمه لطفن كمك كنيد + اينكه من تازه واردم +‌تازه كار

 

[GFX Master]

دوست عزیز به انجمن خوش اومدید.

قبل از هر چیزی لطف کنید برای مطرح کردم سوالات یا مشکلاتتون موضوع هر انجمن رو نگاه کنید و بعد اقدام به زدن تاپیک کنید.

اینطوری سریعتر به جواب خواهید رسید.

تاپیکتون رو به بخش درستش منتقل میکنم.

انتقال

 

[Mr.Steres]

Private Sub Timer1_Timer()
text3.Text = text1.Text + text2.Text
End Sub

اینتروال تایمر 1 باشه

 

[the_king]

عملگر + هم در مورد اعداد و هم در مورد رشته ها قابل استفاده است، اما نتیجه متفاوتی دارند. جمع کردن دو عدد
8 و 2 نتیجه اش عدد 10 خواهد بود، اما جمع کردن دو رشته "8" و "2" نتیجه اش عدد "82" خواهد بود.
مقدار Text1.Text به همان حالت طبیعی اش یک رشته String است و نه یک عدد. به همین جهت بایستی رشته را
قبل از جمع کردن به عدد تبدیل کنید. تابع ()Val برای تبدیل کردن یک رشته به معادل عددی بکار می رود :

    Text3.Text = Val(Text1.Text) + Val(Text2.Text)

برای جداکردن ارقام در قسمت های سه رقمی از تابع FormatNumber استفاده کنید :

    Text3.Text = FormatNumber(Val(Text1.Text) + Val(Text2.Text), 0, vbFalse, vbFalse, vbTrue)

و اگر اعداد اعشاری را نمایش می دهید، پارامتری که مقدار 0 برای آن تعیین شده را به تعداد ارقام بعد از اعشار
مورد نظرتان تغییر دهید، مثلا چهار رقم بعد از اعشار :

    Text3.Text = FormatNumber(Val(Text1.Text) + Val(Text2.Text), 4, vbFalse, vbFalse, vbTrue)

 

[saeedabs]

با تشكر از هر دو دوست گرامي

كار نكرد اما يك دنيا ممنون