عضوى جديد لديكم عندى طلب

ME_DHAT كتب:

السلام عليكم ورحمة الله وبركاته

بدون مقدمات عندى مشكلة مع برنامجى وهى ان البرنامج فيه كود لتشغيل بعض الملفات من على القرص C

المشكلة انا حاطط كود تشغيل هذا المفات فى تايمر علشان كدا اول مشغل البرنامج بيكرر تشغيل الملفات

عاوز الملفات تشتغل بدون تكرار

هذا الكود

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal CX As Long, ByVal CY As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

Public Sub SetOnTop(ByVal hwnd As Long, ByVal bSetOnTop As Boolean)
Dim lR As Long
If bSetOnTop Then
lR = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
Else
lR = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End If
End Sub


Private Sub Form_Load()

SetOnTop Form1.hwnd, True

End Sub

Private Sub Timer1_Timer()

Shell "C:\؟؟؟؟؟؟؟؟؟؟؟؟", vbNormalFocus


Shell "؟؟؟؟؟؟؟؟؟؟؟؟؟", vbNormalFocus

End Sub

Private Sub Timer2_Timer()
End

السلام عليكم

تستطيع وضع شرط مثلا تضيف checkbox على الفورم وبعد اشتغال التايمر لاول مرة

تكتب داخل التايمر

If Check1.Value = 1 Then GoTo k1:

Timer

Me.Check1.Value = 1

k1:

اجعل قيمة Enabled تساوي False بعد تنفيذ الاكواد التي تسبقه

Private Sub Timer1_Timer() 

Shell "C:\؟؟؟؟؟؟؟؟؟؟؟؟", vbNormalFocus 


Shell "؟؟؟؟؟؟؟؟؟؟؟؟؟", vbNormalFocus 

timer1.enabled = false 

End Sub

بالتوفيق