تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عرض النص حرف بحرف مثل الباور بوينت
#1
السلام عليكم
لو سمحتم عايز كود يظهر النص الموجود في label1 بطريقة حرف بحرف مثلما يحدث في برنامج الباور بوينت power point
وشكرا لكم
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم
هذا الكود من صنع العضو Osama_Ghareeb
أضف هذا الكود في Class
كود :
Public Class Animate
    Dim _Control As Control
    Public Finished As Boolean = True
    Public Property Control As Control
        Get
            Return _Control
        End Get
        Set(ByVal value As Control)
            _Control = value
        End Set
    End Property
    Public Event AnimateComplate(ByVal sender As System.Object, ByVal e As AnimateComplateEvantArgs)
    Private ControlPicture As Bitmap
    Private HelperPicture1 As New PictureBox
    Private HelperPicture2 As New PictureBox
    Private HelperControl1 As Control
    Private HelperControl2 As Control
    Private m_Animate As Animates
    Private Is1st As Boolean = True
    Private WithEvents AnimateTimer As New Timer
    Private Properties As New Hashtable
    Dim img As Image

    Public Structure AnimateComplateEvantArgs
        Dim Animate As Animates
        Dim Control As Control
        Public Sub New(ByVal Animate As Animates, ByVal Control As Control)
            Me.Animate = Animate
            Me.Control = Control
        End Sub
    End Structure

    Public Sub New(ByVal Control As Control)
        Me.Control = Control
    End Sub

    Public Sub Animate(ByVal Animate As Animates, Optional ByVal Speed As Integer = 20)
        Finished = False
        Dim Bit As New Bitmap(Control.Width, Control.Height)
        Is1st = True
        m_Animate = Animate
        Control.DrawToBitmap(Bit, New Rectangle(0, 0, Control.Width, Control.Height))
        ControlPicture = Bit
        AnimateTimer = New Timer
        AnimateTimer.Interval = Speed
        AnimateTimer.Enabled = True
    End Sub

    Public Sub Animate(ByVal X As Integer, Optional ByVal Speed As Integer = 50)
        Finished = False
        Is1st = True
        m_Animate = 51
        Properties("X") = X
        AnimateTimer = New Timer
        AnimateTimer.Interval = Speed
        AnimateTimer.Enabled = True
    End Sub

    Public Sub Animate(ByVal Width As Integer, ByVal ToLeft As Boolean, Optional ByVal Speed As Integer = 20)
        Finished = False
        Is1st = True
        m_Animate = 50
        Properties("Width") = Width
        Properties("ToLeft") = ToLeft
        AnimateTimer = New Timer
        AnimateTimer.Interval = Speed
        AnimateTimer.Enabled = True
    End Sub

    Private Sub AnimateTimer_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles AnimateTimer.Disposed
        If ControlPicture IsNot Nothing Then ControlPicture.Dispose()
    End Sub

    Private Sub AnimateTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles AnimateTimer.Tick

        Try

            Select Case m_Animate
                Case Animates.TopToDown
                    If Is1st Then
                        Is1st = False
                        Control.Top = 0
                        Control.Visible = True
                    Else
                        If Control.Top + 10 >= Control.Parent.Height Then
                            AnimateTimer.Dispose()
                            Control.Top = Control.Parent.Height + 1
                            Control.Visible = False
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            Control.Top += 10
                        End If
                    End If
                Case Animates.DownToTop
                    If Is1st Then
                        Is1st = False
                        Control.Top = Control.Parent.Height
                        Control.Visible = True
                    Else
                        If Control.Top - 10 <= -Control.Height Then
                            AnimateTimer.Dispose()
                            Control.Top = -Control.Height
                            Control.Visible = False
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            Control.Top -= 10
                        End If
                    End If
                Case Animates.RightToLeft
                    If Is1st Then
                        Is1st = False
                        Control.Left = Control.Parent.Width
                        Control.Visible = True
                    Else
                        If Control.Left - 10 <= -Control.Width Then
                            AnimateTimer.Dispose()
                            Control.Left = -Control.Width
                            Control.Visible = False
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            Control.Left -= 10
                        End If
                    End If
                Case Animates.LeftToRight
                    If Is1st Then
                        Is1st = False
                        Control.Left = 0
                        Control.Visible = True
                    Else
                        If Control.Left + 10 >= Control.Parent.Width Then
                            AnimateTimer.Dispose()
                            Control.Left = Control.Parent.Width
                            Control.Visible = False
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            Control.Left += 10
                        End If
                    End If
                Case Animates.FromTop
                    If Is1st Then
                        Is1st = False
                        Properties("ControlTop") = Control.Top
                        Control.Top = -Control.Height
                        Control.Visible = True
                    Else
                        If Control.Top + 10 >= Properties("ControlTop") Then
                            AnimateTimer.Dispose()
                            Control.Top = Properties("ControlTop")
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            Control.Top += 10
                        End If
                    End If
                Case Animates.FromDown
                    If Is1st Then
                        Is1st = False
                        Properties("ControlTop") = Control.Top
                        Control.Top = Control.Parent.Height
                        Control.Visible = True
                    Else
                        If Control.Top - 10 <= Properties("ControlTop") Then
                            AnimateTimer.Dispose()
                            Control.Top = Properties("ControlTop")
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            Control.Top -= 10
                        End If
                    End If
                Case Animates.FromRight
                    If Is1st Then
                        Is1st = False
                        Properties("ControlLeft") = Control.Left
                        Control.Left = Control.Parent.Width
                        Control.Visible = True
                    Else
                        If Control.Left - 10 <= Properties("ControlLeft") Then
                            AnimateTimer.Dispose()
                            Control.Left = Properties("ControlLeft")
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            Control.Left -= 10
                        End If
                    End If
                Case Animates.FromLeft
                    If Is1st Then
                        Is1st = False
                        Properties("ControlLeft") = Control.Left
                        Control.Left = -Control.Width
                        Control.Visible = True
                    Else
                        If Control.Left + 10 >= Properties("ControlLeft") Then
                            AnimateTimer.Dispose()
                            Control.Left = Properties("ControlLeft")
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            Control.Left += 10
                        End If
                    End If

                Case Animates.ToTop
                    If Is1st Then
                        Is1st = False
                        Properties("ControlTop") = Control.Top
                    Else
                        If Control.Top - 10 <= -Control.Height Then
                            AnimateTimer.Dispose()
                            Control.Top = -Control.Height - 5
                            Control.Visible = False
                            Control.Top = Properties("ControlTop")
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            Control.Top -= 10
                        End If
                    End If
                Case Animates.ToDown
                    If Is1st Then
                        Is1st = False
                        Properties("ControlTop") = Control.Top
                    Else
                        If Control.Top + 10 >= Control.Parent.Height Then
                            AnimateTimer.Dispose()
                            Control.Top = Control.Parent.Height + 5
                            Control.Visible = False
                            Control.Top = Properties("ControlTop")
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            Control.Top += 10
                        End If
                    End If
                Case Animates.ToRight
                    If Is1st Then
                        Is1st = False
                        Properties("ControlLeft") = Control.Left
                    Else
                        If Control.Left + 10 >= Control.Parent.Width + Control.Width Then
                            AnimateTimer.Dispose()
                            Control.Left = Control.Parent.Width + Control.Width + 5
                            Control.Visible = False
                            Control.Left = Properties("ControlLeft")
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            Control.Left += 10
                        End If
                    End If
                Case Animates.ToLeft
                    If Is1st Then
                        Is1st = False
                        Properties("ControlLeft") = Control.Left
                    Else
                        If Control.Left - 10 <= -Control.Width Then
                            AnimateTimer.Dispose()
                            Control.Left = -Control.Width - 5
                            Control.Visible = False
                            Control.Left = Properties("ControlLeft")
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            Control.Left -= 10
                        End If
                    End If
                Case Animates.HideFromRight
                    If Is1st Then
                        Is1st = False
                        HelperControl1 = New PictureBox
                        Control.Parent.Controls.Add(HelperControl1)
                        HelperControl1.Bounds = Control.Bounds
                        HelperControl1.Left += HelperControl1.Width
                        HelperControl1.Width = 0
                        HelperControl1.Visible = True
                        HelperControl1.BringToFront()
                    Else
                        If HelperControl1.Width + 5 >= Control.Width Then
                            AnimateTimer.Dispose()
                            HelperControl1.Dispose()
                            Control.Visible = False
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            HelperControl1.Left -= 5
                            HelperControl1.Width += 5
                        End If
                    End If
                Case Animates.HideFromLeft
                    If Is1st Then
                        Is1st = False
                        HelperControl1 = New PictureBox
                        Control.Parent.Controls.Add(HelperControl1)
                        HelperControl1.Bounds = Control.Bounds
                        HelperControl1.Width = 0
                        HelperControl1.Visible = True
                        HelperControl1.BringToFront()
                    Else
                        If HelperControl1.Width + 5 >= Control.Width Then
                            AnimateTimer.Dispose()
                            HelperControl1.Dispose()
                            Control.Visible = False
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            HelperControl1.Width += 5
                        End If
                    End If
                Case Animates.TranseveRight
                    If Is1st Then
                        Is1st = False
                        HelperControl1 = New PictureBox
                        Control.Parent.Controls.Add(HelperControl1)
                        HelperControl1.Bounds = Control.Bounds
                        HelperControl1.Visible = True
                        HelperControl1.BringToFront()
                        Control.Visible = True
                    Else
                        If HelperControl1.Width - 5 <= 0 Then
                            AnimateTimer.Dispose()
                            HelperControl1.Dispose()
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            HelperControl1.Width -= 5
                        End If
                    End If
                Case Animates.TranseveLeft
                    If Is1st Then
                        Is1st = False
                        HelperControl1 = New PictureBox
                        Control.Parent.Controls.Add(HelperControl1)
                        HelperControl1.Bounds = Control.Bounds
                        HelperControl1.Visible = True
                        HelperControl1.BringToFront()
                        Control.Visible = True
                    Else
                        If HelperControl1.Width - 5 <= 0 Then
                            AnimateTimer.Dispose()
                            HelperControl1.Dispose()
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            HelperControl1.Left += 5
                            HelperControl1.Width -= 5
                        End If
                    End If
                Case Animates.TranseveTop
                    If Is1st Then
                        Is1st = False
                        HelperControl1 = New PictureBox
                        Control.Parent.Controls.Add(HelperControl1)
                        HelperControl1.Bounds = Control.Bounds
                        HelperControl1.Visible = True
                        HelperControl1.BringToFront()
                        Control.Visible = True
                    Else
                        If HelperControl1.Height - 5 <= 0 Then
                            AnimateTimer.Dispose()
                            HelperControl1.Dispose()
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            HelperControl1.Top += 5
                            HelperControl1.Height -= 5
                        End If
                    End If
                Case Animates.TranseveDown
                    If Is1st Then
                        Is1st = False
                        HelperControl1 = New PictureBox
                        Control.Parent.Controls.Add(HelperControl1)
                        HelperControl1.Bounds = Control.Bounds
                        HelperControl1.Visible = True
                        HelperControl1.BringToFront()
                        Control.Visible = True
                    Else
                        If HelperControl1.Height - 5 <= 0 Then
                            AnimateTimer.Dispose()
                            HelperControl1.Dispose()
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            HelperControl1.Height -= 5
                        End If
                    End If
                Case Animates.TranseveCenter
                    If Is1st Then
                        Is1st = False
                        HelperControl1 = New PictureBox
                        HelperControl2 = New PictureBox
                        Control.Parent.Controls.Add(HelperControl1)
                        Control.Parent.Controls.Add(HelperControl2)
                        HelperControl1.Bounds = Control.Bounds
                        HelperControl2.Bounds = Control.Bounds
                        HelperControl1.Width = Control.Width / 2
                        HelperControl2.Width = Control.Width / 2
                        HelperControl2.Left += Control.Width / 2
                        HelperControl1.Visible = True
                        HelperControl2.Visible = True
                        HelperControl1.BringToFront()
                        HelperControl2.BringToFront()
                        Control.Visible = True
                    Else
                        If HelperControl1.Width - 4 <= 0 Then
                            AnimateTimer.Dispose()
                            HelperControl1.Dispose()
                            HelperControl2.Dispose()
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            HelperControl2.Left += 4
                            HelperControl2.Width -= 4
                            HelperControl1.Width -= 4
                        End If
                    End If
                Case Animates.HideFromCenter
                    If Is1st Then
                        Is1st = False
                        HelperControl1 = New PictureBox
                        Control.Parent.Controls.Add(HelperControl1)
                        HelperControl1.Bounds = Control.Bounds
                        HelperControl1.Left += Control.Width / 2
                        HelperControl1.Width = 0
                        HelperControl1.Visible = True
                        HelperControl1.BringToFront()
                    Else
                        If HelperControl1.Width + 8 >= Control.Width Then
                            AnimateTimer.Dispose()
                            Control.Visible = False
                            HelperControl1.Dispose()
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            HelperControl1.Left -= 4
                            HelperControl1.Width += 8
                        End If
                    End If

                Case Animates.Underline
                    If Is1st Then
                        Is1st = False
                        HelperPicture1 = New PictureBox
                        HelperPicture2 = New PictureBox
                        Control.Parent.Controls.Add(HelperPicture1)
                        Control.Parent.Controls.Add(HelperPicture2)
                        HelperPicture1.Bounds = Control.Bounds
                        HelperPicture2.Bounds = Control.Bounds
                        HelperPicture1.Visible = True
                        HelperPicture2.Visible = True
                        HelperPicture1.Image = ControlPicture.Clone
                        Control.Font = New Font(Control.Font, Control.Font.Style Or FontStyle.Underline)
                        Control.DrawToBitmap(ControlPicture, New Rectangle(0, 0, Control.Width, Control.Height))
                        HelperPicture2.Image = ControlPicture
                        HelperPicture1.BringToFront()
                        HelperPicture2.BringToFront()
                        HelperPicture2.Width = 0
                    Else
                        If HelperPicture2.Width + 5 >= HelperPicture1.Width Then
                            AnimateTimer.Dispose()
                            HelperPicture1.Dispose()
                            HelperPicture2.Dispose()
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            HelperPicture2.Width += 5
                        End If
                    End If
                Case Animates.LetterLetter
                    If Is1st Then
                        Is1st = False
                        Properties("Text") = Control.Text
                        Properties("Index") = 1
                        Control.Text = Control.Text.Substring(0, 1)
                        Control.Visible = True
                    Else
                        If Properties("Index") = Properties("Text").ToString.Length Then
                            AnimateTimer.Dispose()
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                        Else
                            Properties("Index") += 1
                            Control.Text = Properties("Text").Substring(0, Properties("Index"))
                        End If
                    End If
                Case Animates.DeleteLetterLetter
                    If Is1st Then
                        Is1st = False
                        Control.Visible = True
                        Control.Text = Control.Text.Substring(0, Control.Text.Length - 1)
                    Else
                        Control.Text = Control.Text.Substring(0, Control.Text.Length - 1)
                        If Control.Text = "" Then
                            AnimateTimer.Dispose()
                            Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                            Finished = True
                            RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                            Control.Visible = False
                        End If
                    End If
                Case 50
                    If (Control.Width + 10 >= Properties("Width")) AndAlso (Control.Width - 10 <= Properties("Width")) Then
                        If Properties("ToLeft") = True Then Control.Left -= Properties("Width") - Control.Width
                        Control.Width = Properties("Width")

                        AnimateTimer.Dispose()
                        Dim AnimateComplateEvantArgs As New AnimateComplateEvantArgs(m_Animate, Control)
                        Finished = True
                        RaiseEvent AnimateComplate(Me, AnimateComplateEvantArgs)
                    Else
                        If Control.Width > Properties("Width") Then
                            If Properties("ToLeft") = True Then Control.Left += 10 : Control.Width -= 10 Else Control.Width -= 10
                        Else
                            If Properties("ToLeft") = True Then Control.Left -= 10 : Control.Width += 10 Else Control.Width += 10
                            '     Control.Width += 10
                        End If
                    End If
                Case 51
                    If Is1st Then
                        Properties("ControlFont ") = Control.Font
                        Control.Left -= Properties("X")
                        Control.Width += Properties("X") * 2
                        Control.Top -= Properties("X")
                        Control.Height += Properties("X") * 2
                        Control.Font = New Font(Control.Font.FontFamily.Name, Control.Font.Size + Properties("X"), Control.Font.Style Or FontStyle.Bold)
                        Is1st = False
                    Else
                        Control.Left += Properties("X")
                        Control.Width -= Properties("X") * 2
                        Control.Top += Properties("X")
                        Control.Height -= Properties("X") * 2
                        Control.Font = Properties("ControlFont ")
                        AnimateTimer.Dispose()
                    End If
            End Select
        Catch ex As Exception
            Finished = True
            AnimateTimer.Dispose()
            Exit Sub
        End Try
    End Sub

End Class

Public Enum Animates
    TopToDown
    DownToTop
    RightToLeft
    LeftToRight
    FromTop
    FromDown
    FromRight
    FromLeft
    ToTop
    ToDown
    ToRight
    ToLeft
    TranseveRight
    TranseveLeft
    TranseveDown
    TranseveTop
    TranseveCenter
    HideFromCenter
    HideFromLeft
    HideFromRight
    LetterLetter
    DeleteLetterLetter
    Underline
End Enum

وهذه طريقة الاستفادة من الكود

كود :
Dim N As New Animate(Label1)
        N.Animate(Animates.LetterLetter, 90)

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#3
شكرا يا غالي sooriaty03 كود قمة الروعة بس عندي ملاحظة صغيرة جداً جداً



الكود الان يبدأ من اليسار العرض وهو كويس جدا للكتابة باللغة الانجليزية


ممكن نحول الكود لبدأ العرض من اليمين حتى ينفع للكتابة باللغة العربية
الرد }}}
تم الشكر بواسطة:
#4
سامي نت كتب :شكرا يا غالي sooriaty03 كود قمة الروعة بس عندي ملاحظة صغيرة جداً جداً



الكود الان يبدأ من اليسار العرض وهو كويس جدا للكتابة باللغة الانجليزية


ممكن نحول الكود لبدأ العرض من اليمين حتى ينفع للكتابة باللغة العربية

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

تفضل أخي الكريم هذا المثال يوضح لك كيفية الاستفادة من جميع الحركات المتاحة وللغتين العربية والانجليزية

بالتوفيق


الملفات المرفقة
.zip   AnimateExample.zip (الحجم : 92.98 ك ب / التحميلات : 85)
الرد }}}
تم الشكر بواسطة:
#5
sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم هذا المثال يوضح لك كيفية الاستفادة من جميع الحركات المتاحة وللغتين العربية والانجليزية

بالتوفيق


اخوي العزيز sooriaty03 اشكرك
المثال الذي وضعت جدا رائع بس جميع الحركات يكون الاختيار عن طريق
أداة ListBox1 ولن اتمكن انا من الاستفادة من كل كود مستقل لوحده


يعني لو ممكن تضع كل كود بمثال مستقل حتى استطيع انا ومن مثلي
يستفيد من كل مثال لوحده


عشان ما نقدر نستخلص مثال واحد من هذه المجموعة ونستفيد منه بمثال مستقل
الرد }}}
تم الشكر بواسطة:
#6
سامي نت كتب :اخوي العزيز sooriaty03 اشكرك
المثال الذي وضعت جدا رائع بس جميع الحركات يكون الاختيار عن طريق
أداة ListBox1 ولن اتمكن انا من الاستفادة من كل كود مستقل لوحده


يعني لو ممكن تضع كل كود بمثال مستقل حتى استطيع انا ومن مثلي
يستفيد من كل مثال لوحده


عشان ما نقدر نستخلص مثال واحد من هذه المجموعة ونستفيد منه بمثال مستقل

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

تم تعديل المشروع كالآتي
  • كل زر يحتوي على الكود الخاص بالحركة فما عليك إلا نسخ الكود ووضعه في المكان المطلوب
  • الدالة Animate تحتاج إلى تمرير جزئين لها الأول نوع الحركة حيث أن جميع الحركات موجودة داخل التركيب Animate، والثاني الزمن المطلوب لتنفيذ الحركة وهي افتراضيا ستساوي 20 جزء من الثانية في حال لم تقم بتمرير أي قيمة
  • بالنسبة إلى اللغة العربية يجب عليك إلغاء خاصية التحجيم التلقائي Autosize لأداة التسمية Label1 وجعل محاذاة النص إلى اليمين لكي تظهر الأحرف من اليمين إلى اليسار



بالتوفيق


الملفات المرفقة
.zip   Animate2.zip (الحجم : 105.89 ك ب / التحميلات : 97)
الرد }}}
تم الشكر بواسطة:
#7
الاخ المحترم sooriaty03 انا الكلمة Animate فيجوال بيسك 2008 غير معترف بها .. هل هي مرتبطة ب 2010 بس
الرد }}}
تم الشكر بواسطة:
#8
cvcvcv كتب :الاخ المحترم sooriaty03 انا الكلمة Animate فيجوال بيسك 2008 غير معترف بها .. هل هي مرتبطة ب 2010 بس

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

أخي الكريم
المفصود بالكلمة Animate هي الموجودة داخل Class Animate الموجود في المشاركة رقم#2

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#9
V.Good[b][b][b] sooriaty03[/b] [/b][/b]
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد }}}
تم الشكر بواسطة:
#10
هلا يا غالي sooriaty03 تحية

احاول اطبق شرحك بعمل كل مثال لوحده ولم استطع ياريت تعمل لنا كل مثال لوحده حسب الشرح بالصورة التالية


الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  [VB.NET] استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ AmeenRashed 2 213 02-01-24, 10:06 AM
آخر رد: AmeenRashed
  دالة ادخال ارقام فقط في مربع النص atefkhalf2004 7 809 20-08-23, 09:04 AM
آخر رد: atefkhalf2004
  طريقة حذف حرف زيادة من مربع النص علاء الكبابي 2 553 19-06-23, 05:08 PM
آخر رد: Taha Okla
  اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة رهف العريفي 21 11,884 03-06-23, 04:56 AM
آخر رد: سعود
Rainbow [كود] النص المكتوب يكون على شكل وميض او تغير في الالوان محمد مسافر 1 460 13-05-23, 01:30 AM
آخر رد: عبدالله الدوسري
  [VB.NET] كود نسخ النص MOHAMMED ALZWI 2 496 13-03-23, 11:24 AM
آخر رد: MOHAMMED ALZWI
  اريد مساعدة في ازالة جزء من النص لان لا يوجد لدي خبرة كافية للتعامل مع دوال النصوص Meroo1809 2 521 05-01-23, 07:38 PM
آخر رد: Meroo1809
  [VB.NET] كيف يمكن تنفيذ امر داخل الباور شل zooz313 2 775 17-12-22, 02:25 PM
آخر رد: kebboud
  مسح جميع أدوات النص دفعة واحدة sads 8 3,661 29-10-22, 04:04 PM
آخر رد: خالد العصاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم