18-07-17, 12:45 PM
18-07-17, 02:57 PM
شكرا يا اخواني عرفت الطريقه وهي كاتالي:
Private Sub Command1_Click()
Shell "" & App.Path & "\test.bat", vbMaximizedFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Command1_Click
Command3_Click
End Sub
Private Sub Command1_Click()
Shell "" & App.Path & "\test.bat", vbMaximizedFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Command1_Click
Command3_Click
End Sub
12-08-19, 10:41 PM
(18-07-17, 02:57 PM)scsi7000 كتب : [ -> ]شكرا يا اخواني عرفت الطريقه وهي كاتالي:
Private Sub Command1_Click()
Shell "" & App.Path & "\test.bat", vbMaximizedFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Command1_Click
Command3_Click
End Sub
ممكن تكتب الكود بتاعك عادى وقبل ماتقفل sub أكتبله أمر un load me