کمک فوری.میخوام توی تکست باکس یه عددی روبدم وتوی تکست روبروش عددموردنظرموبهم بده

[hamid625]

سلام دوستان عزیز
من میخوام یه دفترچه وزن تیرآهن یامیلگردواسه خودم بسازم وهر تیرآهن یامیلگردی وزن مخصوص خودشو داره.مثلا وزن مخصوص میلگرد14 میشه1.21ووزن16میشه 1.58 وهمینطور20و22و..وهمینطورتیرآهنها.میخوام طوری توش تعریف کنم که یه موقع وزن هرکدوم روخواستم وزنش روبهم بده.مثلانوشتم14 روبروش توی تکست باکس بدون کلیک یاچیزی بنویسه1.21

مرسیییییییییییییییییییییییییییییییییییییییییییییییییییییی

 

[h4sh3m]

سلام دوستان عزیز
من میخوام یه دفترچه وزن تیرآهن یامیلگردواسه خودم بسازم وهر تیرآهن یامیلگردی وزن مخصوص خودشو داره.مثلا وزن مخصوص میلگرد14 میشه1.21ووزن16میشه 1.58 وهمینطور20و22و..وهمینطورتیرآهنها.میخوام طوری توش تعریف کنم که یه موقع وزن هرکدوم روخواستم وزنش روبهم بده.مثلانوشتم14 روبروش توی تکست باکس بدون کلیک یاچیزی بنویسه1.21

مرسیییییییییییییییییییییییییییییییییییییییییییییییییییییی

اينو كه خودت جواب دادي.

private sub text1_change()
if text1.text = "14" then
text2.text = "1.21"
elseif text1.text = "16" then
text2.text = "1.58"
else
text2.text = "Bikhial"
end if
​