عمل حركة للفورم

الفورم يتحرك بتغيير الخاصية top و left ل activeform تستطيع اتسخدام حلقة مثلا لتحركها

طيب كيف اصنع حركة للصور مثل دوران او اختفاء تدريجي أو اي حركة موجودة في الفيجول .net .....ولك جزيل الشكر

أخي مسعود645، لقد أرسلت هذه المشاركة مرتين و قمت أنا بحذف الاخرى ثم قمت أنت بتكرار المشاركة للمرة الثانية.

أخي الفاضل، أرجو أن لا تقوم بتكرار المشاركات مرة أخرى، حيث أن هذا يضعف فرصتك للحصول على أجوبة شافية.

و ارجو أن تقرأ قواعد المشاراكات لكي تتجنب إغلاق مشاراكاتك او حذفها.

شكراً لك.

المعدرة يااستاد محمد لكن ابي الكود ضروري ...ادا تقدر تساعدني لك جزيل الشكر

اختفاء تدريجي استخدم Opacity

Dim d As Double
        For d = 2 To 0 + 0.1 Step -0.1
            System.Threading.Thread.Sleep(30)
            Application.DoEvents()
            Me.Opacity = d
            Me.Refresh()
        Next d
        Me.Close()

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

قم بوضع اداة PictureBox و Timer

بلسبة لى Timer اجعل خصية Enabled = True و Interval = 300

وقم بكتابة الكود التالى

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If PictureBox1.Top < Me.Height - Me.Height - PictureBox1.Height Then
            PictureBox1.Top = Me.Height - 1
            PictureBox1.Top = PictureBox1.Top - 5
        Else
            PictureBox1.Top = PictureBox1.Top - 10
        End If
    End Sub

جزاكم الله ألف خير وجعلها في موازين حسناتكم

السلام عليكم

هذا بروسيجر عملتة بالدلفي .. ان شاء الله يفيدك

وهو يعمل اهتزاز للفورم .. مثل الموجود في المسنجر 7

procedure hzaz (no:integer);
var
  i,ix:Integer;
  begin
  ix:=Form1.Left;
    i:=0;
    repeat
      if Form1.Left=ix-4 then begin
          i:=i+1;
          repeat
            Form1.Left:=Form1.Left+1;
            Form1.Top:=Form1.Top-1;
          until Form1.Left=ix
        end
      else
        repeat
          Form1.Left:=Form1.Left-1;
          Form1.Top:=Form1.Top+1;
        until Form1.Left=ix-4;
    until i=no;
  end;

السلام عليكم ...

أنا أضفت أمر صوت على زر وعند الرجوع للشاشة السابقة يبقى الصوت مستمر .. هل هناك كود يوقف الكود على نفس حدث الزر ..

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