جمع و ضرب و تقسیم گزارش

[Marius]

سلام مهندس های عزیز

دو تا سئوال دارم

1- من توی فرم ام 2تا تکست باکس دارم میخوام وقتی کلید F5 رو میزنم با توجه به تکست باکسی که فعال هست (یعنی چشمک زن موس توش هست) صفحه فرم مشخصی رو نشون بده سورس کدش چجوریه؟

یعنی وقتی نشانگر موس توی تکست باکس یک هست و من کلید F5 رو میزنم فرم شماره دو رو نشون بده و وقتی تکست باکس 2 فعال هست اگر کلید F5 رو زدم فرم 3 نشون بده

.................................................. ............................................

2- دوم اینکه چجوری اعمال ضرب و تقسیم رو اعمال کنم که عدد داخل تکست باکس رو گرد نکنه. یعنی وقتی من کد زیر رو مینویسم:

Text1=(Val(text2)*Val(text3))/val(Text4)


توی تکست باکس یک مثلا اگر قراره جواب باشه 3.012 عدد 3 رو نشون میده یا به عبارتی گردد میکنه که برام ایجاد مشکل میکنه....

ممنون میشم اگه منه تازه کاررو کمک کنید.

[rezankh]

در مورد اول : براي مثال


Private Sub Combo35_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Combo36.SetFocus
End If
If KeyCode = 115 Then
End
End If
If KeyCode = 27 Then
Call EscExit
End If
If KeyCode = 116 Then
Form1.Show
End If
End Sub


بايد از تابع abs استفاده كني .


Text2.Text = Abs(Text1.Text)

[rezankh]

عنوان تاپيك رو كه نگاه مي‌كنم اين كارهاي رو براي گزارش مي‌خواهيد ولي سوالتون در خود وي بي هست كه مي‌بايست در مكان ديگري سوال رو مطرح مي‌كرديد. حال اگه در گزارش مي خواهيد درستش كنيد بگيد گزارشگرتون چيه؟