saalek
مدیر بازنشسته
چي شد پس؟
ادامه بديد.
.
ادامه بديد.
.
به نقل از saalek :چي شد پس؟
ادامه بديد.
.
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyW Then
MsgBox "You pressed the W key!"
End If
End Sub
Private Sub CMDCOMPUTING_Click()
GRADE = "500"
If TXTENTERNUM >= 500 Then
LBL = "PASSED"
Else: LBL = "FAILED"
End If
End Sub
Private Sub CMDENTERNUM_Click()
InputBox (Text)
End Sub
Private Sub CMDEXIT_Click()
End
End Sub
Private Sub CMDPRINT_Click()
A = "HH"
LBL = "IN THE NAME OF GOD"
End Sub
Private Sub CMDSTOP_Click()
LBL = " "
TXTENTERNUM = " "
End Sub
Private Sub CMDTEST_Click()
MsgBox " IN THE NAME OF GOD "
End Sub
Private Sub Command1_Click()
TXTENTERNUM = "9"
End Sub
Private Sub Command10_Click()
TXTENTERNUM = "4"
End Sub
Private Sub Command11_Click()
TXTENTERNUM = "1"
End Sub
Private Sub Command12_Click()
TXTENTERNUM = " "
End Sub
Private Sub Command2_Click()
TXTENTERNUM = "6"
End Sub
Private Sub Command3_Click()
TXTENTERNUM = "3"
End Sub
Private Sub Command5_Click()
TXTENTERNUM = "8"
End Sub
Private Sub Command6_Click()
TXTENTERNUM = "5"
End Sub
Private Sub Command7_Click()
TXTENTERNUM = "2"
End Sub
Private Sub Command8_Click()
TXTENTERNUM = "0"
End Sub
Private Sub Command9_Click()
TXTENTERNUM = "7"
End Sub
Private Sub Form_Load()
End Sub
secerror="error"
msgbox seceror
Private Sub CMDPRINT_Click()
A = "HH"
LBL = "IN THE NAME OF GOD"
End Sub
2- برای توقف یک برنامه اجرا شده بوسیله دکمه استپ ( CMD STOP ) چه راههایی وجود دارد؟
Private Sub CMDPRINT_Click()
A = "HH"
LBL = "IN THE NAME OF GOD"
End Sub
Private Sub CMDSTOP_Click()
LBL = " "
End Sub
Private Sub CMDPRINT_Click()
A = "HH"
LBL = "IN THE NAME OF GOD"
End Sub