كيف تستخدم ال OLE Drag Drop ؟

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

شكراً لك أخي الكريم على هذه المعلومات المفيدة

تقبل تحياتي...

أخي لن استطيع ان اقول سوى ابداع تميز احتراف انا حاولت في الموضوع ده كتييير وفشلت ام الان :D

بجد مبدع كما عودتنا

ما شاء الله جميل جدا :)

ما المقصود في OLE DB ?

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

مشكور مروركم جميع

اقتباس

VisualBasic Loverمشاركة بتاريخ اليوم, 11:19 AM

ما شاء الله جميل جدا :)

ما المقصود في OLE DB ?

اخي انا لم اعلم ان ما علاقة هذا السؤال بموضعنا ممكن يكون OLE ؟

اوك سأوضح لك الفرق بينهم >>>>

- OLE DB اختصار لـ Object Linking and Embedding Database حيث انها عباره عن Object تسمح للبرامج بالوصول إلى البيانات المخزنة في أي مصدر لتخزين البيانات ليس فقط قواعد البيانات. حيث ان مايكروسوفت جعلت هذه التقنية أسهل واسرع في الإستخدام من التقنية القياسية ODBC التي كانت تستخدم قديما.

- OLE اختصار لـ Object Linking and Embedding وهي طريقة لتَحويل واشتراك في المعلوماتِ بين التطبيقاتِ بلَصْق المعلوماتِ مثل مثالنا المذكور في استخدام الـ OLE Drag Drop برنامج معالجةَ الكلمات Word أَو برنامجَ الجدولة spreadsheet بمعنى اخر الأشياء التي تم نسخها في تطبيقِ واحد إلى وثيقة في التطبيقِ الآخرِ.

بالتوفيق ..........

A7med_prof

متشكره جدا عبقرينا احمد ليس بجديد عليك عوتنا على الابداع

اللي يوفققك ياشيخ

مميز كعادتك يا احمد والله بجد تستاهل نقول الله ينور عليك

مثال بالفعل مهم

اقتباس

متشكره جدا عبقرينا احمد ليس بجديد عليك عوتنا على الابداع

اقتباس

مميز كعادتك يا احمد والله بجد تستاهل نقول الله ينور عليك

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

بارك الله فيك يا اخي وجزاك الله كل يخر ..........

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

اسعدني كــــثيرا وجودك اخي /المزمجر - Max bayne .

ومتشكر جدا على زوقك فهذا بعض ما عندكم .

ومتشكر لباقي الاعضاء على زوقهم الرفيع ............

A7med_prof

اقتباس

متشكره جدا عبقرينا احمد ليس بجديد عليك عوتنا على الابداع

انها الحقيقه فانت كريم الى ابعد الحدود

ولكن لي استفسار مش فاهمه اريد التوضيح فيه

ما فائدة هذا الكود ؟

 

Function findBetweenIT(ByVal strText As String, ByVal strT1 As String, ByVal strT2 As String)
		Dim intlenT1, intlenT2 As Integer
		intlenT1 = Len(strT1)
		intlenT2 = Len(strT2)

		findBetweenIT = Mid(strText, _
						(InStrRev(strText, strT1) + intlenT1), _
						(InStrRev(strText, strT2) - intlenT2) - (InStrRev(strText, strT1) - 1))
End Function

ومبارك فيك مرة اخرى

اخوك زيدان

كل الشكر والتقدير والامتنان لك انت فعلا مميز

ولكن لي اقتراح وهو طلب انا استفدت كثير من هذا المثال ولكني اري مثلا عند رمي مجلد يأتيني بكل محتوياته من ال تكست فيل .

ارجو الاجابه واكون شاكره افضالك

مشكور اخي / اختي / LOLO Now available على تفاعلك والكلام ولعيونك لقد قمت بتحديث المثال لكي يدعم الـ Folders واي حاجة مش واضحه في الكود لا تترد بأخباري ....

اخي /right_ofcourse متشكر على تفاعلك ,,,,

اما عن سؤالك ببساطه انها عباره عن Function قمت بصنعها لتلبي احتياجي عند عمل Filter على الـ Path لتعود بـ الـ TitleName فقط او FileName فقط .

حيث اننا نعطيه النص الذي نريد الفلتره منه وهو هنا الـ Path وايضا النصين الواقعين بين النص المراد جلبه وهما هنا ".txt" و "\" .

بالتوفيق ......

A7med_prof

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

ولكني لي سؤال اريد عند رمي الملف معرفة حجمه كيف يمكن فعل ذلك

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

مشكور مرورك وتفاعلك

وبالنسبه لسؤالك يمكنك فعل هذه الطريق بإستخدام الدالة :::>>>>>FileLen وهي تعيد حجم الملف بالـ Bite ..

قمت بالتحديث على المثال لتعم الفائدة ............

A7med_prof

ماشاء الله لم اجد كلام ابر به عن مدى شكري

اخر سؤال

انا عارف انك عاوز تضربني

طيب لو عاوظ يظهرلي مش بالبايت بعني لو كانت مساحته اكثر من 1024 ياتي لي بان مساحته 1 كيلو بايت وهكذا اذا ارتفع حجمة

انا طبقت مثالك هذا في برنامج اصممه لتشغيل الاغاني وكنت عاوز اعرف لو تم وضع الاغنيه في الليست كيف يظهر مدتها

ارجو الافاده

ومتكونش زهقت مني

اخي A7med_prof بالفعل المثال تمام ومشكوره اوي على تعبك معايه انا اجهدتك

A7med_prof انت عبقري

Windows2007.com كتب:

ماشاء الله لم اجد كلام ابر به عن مدى شكري

اخر سؤال

انا عارف انك عاوز تضربني

طيب لو عاوظ يظهرلي مش بالبايت بعني لو كانت مساحته اكثر من 1024 ياتي لي بان مساحته 1 كيلو بايت وهكذا اذا ارتفع حجمة

انا طبقت مثالك هذا في برنامج اصممه لتشغيل الاغاني وكنت عاوز اعرف لو تم وضع الاغنيه في الليست كيف يظهر مدتها

ارجو الافاده

ومتكونش زهقت مني

Dim FileSize As Long
	FileSize = FileLen(FilePath)
	Select Case FileSize
		Case 0 To 1023
		Label1.Caption = FileSize & " Byte"
		Case 1024 To 1048576
		Label1.Caption = (FileSize / 1024) & " KByte"
		Case 1048576 To 1073741824
		Label1.Caption = (FileSize / 1048576) & " MByte"
		Case Else
		Label1.Caption = (FileSize / 1073741824) & " GByte"
	End Select

بفرض أن Label1 هو اللى هيحتوى على حجم الملف.

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

اخي ممكن عن طريق التحايل بصنع احدى الدوال التي تقوم بذلك .

فلقد صنعت داله تقو بالتحويل الى اقرب وحد قياس وهي :

Function GetFileSize(filename) As String
	Dim dubSize As Double
	Dim strSize As String

	dubSize = FileLen(filename)

Select Case dubSize
	Case 0 To 1023
		dubSize = dubSize
		strSize = " B"
	Case 1024 To 1048575
		dubSize = dubSize / 1024
		strSize = " KB"
	Case 1048576 To 1073741823
		dubSize = dubSize / 1048576
		strSize = " MB"
	Case Is > 1073741823
		dubSize = dubSize / 1073741824
		strSize = " GB"
End Select

	GetFileSize = Round(dubSize, 2) & strSize

End Function

وعملها يتم اعطائها الـ Path File ومن ثم تقوم بحساب الـ FileSize بالـ Bite باستخدام الدالة ... ثم يتم مقارنة هذا الجم في جملة Select ويتم التعامل معه على حسب الحجم ومن ثم يتم اخذ اول وثاني رقمين عشريين من هذا الرقم الجديد .

ولقد قمت بتحديث المثال ...... بالمرفقات .......

بالتوفيق..................

A7med_prof

third_Update_For_How_to_Use_OLEDragDrop.zip

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

اخي احنا كده ممكن نخرج خالص عن الموضوع ولكن سارفق لك بعض الامثله منه معرف تفاصي الملف ومنها ملف يسمى بـ GetMp3 Info يفي بالغرض قم بالتعديل عليه لما تحتاجه ,,,,

GetMp3_Info_.rar

والله الموفق .....

A7med_prof

dfgd.rar

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

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

ولم أرفق الملف كاملا لأنني لم أنته من بعد

وشكرا للأخ A7med_prof

أما بالنسبة للكود فقط أضف الدالة وغير الحدث lstItems_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

بالنسبة GetMp3 Info فيحتاج إلى dfgd\MSDXM.OCX

زشكرا لك جزيلا

Private Sub lstItems_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
	Dim logXY, logICount, logCounter As Long
	Dim strFileName, ThePath, sFiles  As String
 Dim IsFolder, FindIt As Integer

Dim counter As Integer
 lstItems.Clear
logICount = Data.Files.Count
   counter = 1

		 strFileName = Data.Files.Item(1)
FindIt = InStrRev(strFileName, "")
IsFolder = InStr(1, strFileName, ".")
 If IsFolder = 0 Then
 ThePath = strFileName & "*.txt"

 logCounter = CountFiles(strFileName & "*.txt")

 sFiles = Dir$(ThePath)

 Do While Len(sFiles) > 0

		   ReDim Preserve StrPaths(counter)
			StrPaths(counter) = strFileName & "" & sFiles
			counter = counter + 1

			 lstItems.AddItem sFiles

 sFiles = Dir$
 Loop
 Else
	 For logXY = 1 To logICount
		strFileName = Data.Files.Item(logXY)
		If Right(strFileName, 4) = ".txt" Then

			lstItems.AddItem findBetweenIT(strFileName, "", "txt")
			ReDim Preserve StrPaths(logCounter)
			StrPaths(logCounter) = strFileName
			logCounter = logCounter + 1

		 End If
		 Next
 End If
End Sub
Private Function CountFiles(sDirectory As String) As Integer
Dim SearchForFiles, sPath As String

Dim counter As Integer
counter = 0
sPath = sDirectory

SearchForFiles = Dir$(sPath)

Do While Len(SearchForFiles) > 0
counter = counter + 1
SearchForFiles = Dir$
Loop
CountFiles = counter
End Function

شاكرين افضالك احمد بروف والله لم اعرف كيف ارد جميلك علي

الشكر لك انت لفتح باب النقاش

بالتوفيق .........

A7med_prof

الله ينور عليك ليس بجديد عليك

متشكر يا احمد والله استفدت كثر واشكرك على مجهودك السابق لمساعدتي