عبد الله فتحي

جزاك الله خير، وألف شكر.(f)

ما شاء الله(f) لا تحرمنا أخوي مختار من إبداعاتك.

جزاك الله كل خير:D

شكرا جزيلاً(gift)(f)

آخر طريقة،،،،،،، وآسف جداً للإزعاج:rolleyes: Private Sub Form_Load() Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Label1.Move 2000, Label1.Top - 100 If Label1.Top < 0 Then Label1.Top = Form1.Height End If End Sub

طريقة كمان Private Sub Form_Load() Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Label1.Move 2000, Label1.Top + 100 If Label1.Top > form1.Height Then Label1.Top = -Label1.Height End If End Sub

طريقة أحلى Private Sub Form_Load() Me.Label1.Top = 0 End Sub Private Sub Timer1_Timer() a = Me.Height b = 200 If Me.Label1.Top < a Then 'Me.Height Then Me.Label1.Top = Me.Label1.Top + b Exit Sub End If For m = 1 To (Int(a / b) + 1) Me.Label1.Top = Me.Label1.To…

طريقة ثانية Private Sub Form_Load() Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Label1.Top = Label1.Top - 50 If Label1.Top <= 0 Then Label1.Top = Me.Height End Sub

وطريقة كمان Private Sub Form_Load() Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Label1.Move Label1.Left + 100 If Label1.Left > Form1.Width Then Label1.Left = -Label1.Width End If End Sub

طريقة أخرى Private Sub Timer1_Timer() Label1.Top = IIf(Label1.Top <= -Label1.Height, Height, Label1.Top - 50) If Label1.Top <= 0 Then Timer1.Enabled = False Else Label1.Top = Label1.Top - 50 End If End Sub

لتحريك (2) Label 'Enabled = True 'Command1 'Caption = Enter 'Visible = False Private Sub Timer1_Timer() Label1.Move Label1.Left - 0, Label1.Top - 100 Label2.Move Label2.Left - 0, Label2.Top - 100 If Label2.Top > 0 Then Else Label2.Visible = False Timer1.Enable…

أختي شجون2003 هذه بعض الطرق لتحريك النص لتحريك Text عند مرور الماوس عليه Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.Top = 600 Then ' Move it to the bottom For i = 600 To Form1.Height - 2 * Text1.Height S…

(f)الكود الخامس والأربعون(f) لتحريك Label بطريقة مسلية;) Private Sub Form_Load() Me.Label1.Top = 0 End Sub Private Sub Timer1_Timer() a = Me.Height b = 200 If Me.Label1.Top < a Then 'Me.Height Then Me.Label1.Top = Me.Label1.Top + b Exit Sub End If For m = 1 To…

الكود الرابع والأربعون (f)لجعل الفورم في المقدمة(f) 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 Priva…

(f)الكود الثالث والأربعون(f) لنقل ملف من مكان إلى مكان Private Sub Command1_Click() Name "c:Autoexec.bat" As "D:Autoexec.bat" End Sub

(f)الكود الثاني والأربعون(f) لإيقاف الماوس ولوحة المفاتيح عن العمل لمدة معينة Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Activate() Do…

(f)الكود الحادي والأربعون(f) لتشغيل شاشة افتتاحية لفترة معينة، ثم تختفي ويشتغل البرنامج يتطلب البرنامج Form وليكن اسمها frmshow ويتطلب أيضا Form ثانية وليكن اسمها frmstart ضع الكود التالي في حدث الـ Form_Load للفورم frmshow: Dim Start,Finsh FrmShow.Show Start=…

أخي Nop يبدو أن عاشق الفيجول قد أجاب على سؤالك بالنيابة عني، فجزاه الله خيرا. يبدو أنك لم تنشئ كلاس موديول أو ربما أنشأتها ولم تسمها بالاسم المطلوب. على كل حال جرب ورد علي تحياتي إليك وإلى عاشق الفيجول

مشكور أخوي hamohd فعلاً الكود اشتغل

في الحقيقة حاولت أن أبحث عن مثل هذا الكود ولكني لم أستطع إيجاده، لأن البرنامج مغلق من الأساس فأين يمكن أن تضع الكود الذي يفتحه، ولكن يمكنك وضع البرنامج بحيث يشتغل في بدء التشغيل ويضع نفسه في شريط المهام بجوار الساعة، ثم في الوقت المحدد يقوم بتشغيل نفسه. أرجو م…