FemTo

مشكور لاحضارك الكود وجزالك الله خيراا انا استخرجت المر بتاع السيريل والمودل بس فهم كامل للكود مش قوى يعنى واسمح لي بوضعه للاستفاده : Option Explicit Private Const GENERIC_READ = &H80000000 Private Const GENERIC_WRITE = &H40000000 Private Const FILE_SHARE_READ …

انا بحثت كتير بس لم اجد المطلوب وبجد كود مهم والواحد حيحتاجه..وان شاء الله يكون عند احد الاخوه ..

ممكن تقصد الكود ده: Option Explicit Private Declare Function GetVolumeInformation& Lib "kernel32" _ Alias "GetVolumeInformationA" (ByVal lpRootPathName _ As String, ByVal pVolumeNameBuffer As String, ByVal _ nVolumeNameSize As Long, lpVolumeSerialNumber As Lon…

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

up

up

وما فائده هذا السطر ؟؟

السلام عليكم. ممكن تستخلص قيمه الدقائق من الزمن وكذالك الساعات ( والثوانى يتقربها لدفيقه لو تهملها او حسب برنامجك) وبعد كده تحول الساعات لدقائق وتجمعها على الدقائق ثم تضربها فى قيمه الدقيقه... ولو مش واضح الموضوع ياريت توضح اكثر فكره برنامجك وان شاء الله كلنا …

جزاك الله خيرا ومنتظرك اخى..

كتاب الاستاذ رغيد

مشكوور على الدرس وهوه بصراحه مفيد.. بس فيه حاجه حتسبب Error Dim nReturnValue as Integer كده حيحصل OverFlow والافضل تخليها Long وجزالك الله كل خير

السلام عليكم 1- تفعل خاصيه الMulti Line 2- تكتب النص كما يلى Text1.Text = "Mohmed Ali" & vbNewLine & "Asm3iel" & vbNewLine & "Ragb" يعنى تكتب كل جمله بين علمتى تنصيص ولما تريد سطر جديد اكتب VbNewLine

السلام عليكم اخى العزيز انا عملتلك داله تبعتلها المسار فتديلك الامتداد... Public Function ext(ByVal k As String) As String Dim z As Byte Dim q, x As String For z = 1 To Len(k) x = Right(k, 1) If x = "." Then GoTo 10 q = x + q w = Len(k) - 1 k = Left(k, w) Next…

اخى ComFort الرد قريباان شاء ومعذره على تاخرى فى الرد اخى Max الاجراء ده علشان يمكن ان يستخدم من اى تطبيق ومش شرط تطبيق واحد... اما ظهورها اكثر من مره فده مش ممكن علشان انتا صممت فى المكتبه فورمه واحده وهوه مش ممكن ينسخها.. على كده مكناش عملنا فى البرنامج غير …

السلام عليكم.. لو على الموضوع ده ممكن نحدد مكان ال . فى المسار وبعمليه حسابيه بسيطه يمكن تحديد عدد احرف الامتداد . وبالتالى استخلاصه.. ولو الفكره مش واضحه حضع الكود.

كود العميل Winsock.SendData 1 كود برنامج الخادم Private Sub Winsock_DataArrival(ByVal bytesTotal As Long) Dim data As Byte Select Case data Case Is = "1" frmmai.Visible = False End Select End Sub فبارسالك اى قيمه وتجعل الخادم يحللها ويقارنها بقيم انتا مبرمج ه …

مشكوريين على المرور

انا بصراحه فرحان علشان دى كانت مشكله.. ولو مش عاوز تقول الكود انا بس عاوز اعرف ازاى قدرت تبعت على الهوتميل , رغم انه مكنش بينفع قبل ده..؟ ده السؤال بس

السلام عليكم تجعل برنامج الخادم ينظر فى المعلومات المرسله من العميل , ولو كانت جمله انتا مححدها فيكون الاجراء غلق الفورم و ممكن تستخدم Select Or IF

لعرض كل المجلدات فى درايف معين Public Sub GetSubFolders(rfldr As Scripting.Folder) Dim fldr As Scripting.Folder For Each fldr In rfldr.SubFolders MsgBox fldr.Name Next End Sub Private Sub Form_Load() Dim fso As New Scripting.FileSystemObject Dim rfldr As Scrip…