motion detection

الرد الذي قمت بوضعه يحتوي فعلا على الشيفرة البرمجية الكاملة للنموذج باستخدام vb2003 و هذا هو

Public Class Form1
	Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

	Public Sub New()
		MyBase.New()

		'This call is required by the Windows Form Designer. 
		InitializeComponent()

		'Add any initialization after the InitializeComponent() call

	End Sub

	'Form overrides dispose to clean up the component list.
	Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
		If disposing Then
			If Not (components Is Nothing) Then
				components.Dispose()
			End If
		End If
		MyBase.Dispose(disposing)
	End Sub

	'Required by the Windows Form Designer
	Private components As System.ComponentModel.IContainer

	'NOTE: The following procedure is required by the Windows Form Designer 
	'It can be modified using the Windows Form Designer. 
	'Do not modify it using the code editor. 
	Friend WithEvents AxShockwaveFlash1 As AxShockwaveFlashObjects.AxShockwaveFlash
	<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
		Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
		Me.AxShockwaveFlash1 = New AxShockwaveFlashObjects.AxShockwaveFlash
		CType(Me.AxShockwaveFlash1, System.ComponentModel.ISupportInitialize).BeginInit()
		Me.SuspendLayout()
		'
		'AxShockwaveFlash1
		'
		Me.AxShockwaveFlash1.Enabled = True
		Me.AxShockwaveFlash1.Location = New System.Drawing.Point(48, 40)
		Me.AxShockwaveFlash1.Name = "AxShockwaveFlash1"
		Me.AxShockwaveFlash1.OcxState = CType(resources.GetObject("AxShockwaveFlash1.OcxState"), System.Windows.Forms.AxHost.State)
		Me.AxShockwaveFlash1.Size = New System.Drawing.Size(192, 192)
		Me.AxShockwaveFlash1.TabIndex = 0
		'
		'Form1
		'
		Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
		Me.ClientSize = New System.Drawing.Size(292, 266)
		Me.Controls.Add(Me.AxShockwaveFlash1)
		Me.Name = "Form1"
		Me.Text = "Form1"
		CType(Me.AxShockwaveFlash1, System.ComponentModel.ISupportInitialize).EndInit()
		Me.ResumeLayout(False)

	End Sub

#End Region

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

	End Sub

	Private Sub AxShockwaveFlash1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxShockwaveFlash1.Enter

	End Sub

	Private Sub axShockwaveFlash1_FSCommand(ByVal sender As Object, ByVal e As _
	AxShockwaveFlashObjects._IShockwaveFlashEvents_FSCommandEvent) _
	Handles AxShockwaveFlash1.FSCommand

		'ur fscommand goes here

	End Sub
End Class

ولكن ستحتاج للتحكم AxShockwaveFlash حتى يعمل البرنامج

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

جزاك الله خيراً أخي samerselo عل الرد

أرجوا منك أن توضح أكثر ماذا تعني بقولك " ولكن ستحتاج للتحكم AxShockwaveFlash حتى يعمل البرنامج "

وكيف أتحكم به

أرجوا منك ارفاق الـ project ( إن كان ذلك ممكناً )

أرجوا أن لا أكون قد أثقلت عليك

وجزاك الله خيراً

أرجوا الرد

mohammad12345 كتب:

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

جزاك الله خيراً أخي samerselo عل الرد

أرجوا منك أن توضح أكثر ماذا تعني بقولك " ولكن ستحتاج للتحكم AxShockwaveFlash حتى يعمل البرنامج "

وكيف أتحكم به

أرجوا منك ارفاق الـ project ( إن كان ذلك ممكناً )

أرجوا أن لا أكون قد أثقلت عليك

وجزاك الله خيراً

أي أن البرنامج يحتاج للتحكم AxShockwaveFlash حتى يعمل ويجب عليك تنزيله وضمه للمشروع وللأسف لم أعمل ببرمجة الفلاش حتى أستطيع عمل مثال لك ربما أحد الإخوة في المنتدى يمكنهم ذلك حاول البحث في المنتدى عن مواضيع الفلاش فلا بد من وجود بعضها ثم إن حصلت على التحكم المطلوب يكون المشروع لديك جاهزا فالكود موجود لديك أصلا

take it ;)

Motion_Detected.zip

جزاكم الله خيراً جزاكم الله خيراً جزاكم الله خيراً جزاكم الله خيراً

أخي microsoft.comوأنت أيضاً أخي code hunterوأنت أيضاً أخي samerselo

وآسف للتأخر في الرد

أثابكم الله و جعل مثواكم الجنة