Qousay Alqouptan

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

تستطيع جعل البرنامج يقوم بتغيير العرض الى اي دقة تريدها طالما هو يعمل Private Sub DisplayChange() Dim typDevM As typDevMODE Dim lngResult As Long Dim intAns As Integer ' Retrieve info about the current graphics mode ' on the current display device. lngResult =…

وفقك الله اخي الكريم على هذا الموضوع و ارجو من الله ان يضعه في ميزان حسناتك ارجو لو سمحت ارسال البرنامج على الايميل kokoptan@hotmail.com step 7 v 5.3

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

قد تكون تستخدم اكواد منسوخة من مواقع انترنت تقوم بالعملية دون ان تنتبه , راجع الاكواد , تشتطيع ان تنشيء مشروع جديد و تبدأ بنسخ الفورمات اليه واحدة تلو الأخرى الى ان تصل الفورم المشكلة و من ثم راجع أكوادها

انشيء فورم جديد اضف اليها text1 file1 command1 اضف الكود التالي الى الزر ' اولا انشيء المجلد الجديد Set fso = CreateObject("Scripting.FileSystemObject") NewPath = (App.Path & "\" & Text1.Text) fso.CreateFolder NewPath 'انسخ الملفات من المجلد القديم الى الجديد …

ارجو طرح الكود في صندوق كود لكي نستطيع مساعدتك

ارجو طرح الكود في صندوق كود لكي نستطيع مساعدتك

ارجو طرح الكود في صندوق كود لكي نستطيع مساعدتك

يمكنك استخدام المذكور مع اي طريقة ربط تريدها و اما عن DfD فهي المقصود بها فقط اسم عمود

اضف التعريفات التالية في موديول : Option Explicit Public Const GWL_EXSTYLE As Long = -20 Public Const WS_EX_LAYERED As Long = &H80000 Public Const LWA_ALPHA As Long = &H2 Public Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" ( _ ByVal h…

عفوا للمداخلة السريعة لقد قرأت الموضوع باهتمام لانني لاحظت ان المشاركات كثيرة فيه من دون سبب وجيه فهو من ابسط الامور و لقد شدني انه غاب عنكم شيء مهم و هو انني استطيع ان اخزن كلمة السر في قاعدة بيانات بطريقة مشفرة بحيث ستجد ال Password عندما تفتح قاعدة البيانات…

او استخدم الكود التالي لمعرفة جميع اخبار و معلومات و دقائق و حراكيش الهارديسك On Error Resume Next Computer = "." Set OutFile = CreateObject("WScript.Shell") Const ForAppending = 2 Set FileSystem = CreateObject("Scripting.FileSystemObject") Set TextFile = File…

هذا الكود يعطيك جميع القيم في الحقل دون تكرار القيم المتشابهة dim rst as dao.recordset set rst = db.openrecordset ("select distinct(fieldName) form TabelName ") أما هذا فهو المطلوب من قبلك Dim rst As DAO.Recordset Set rst = db.OpenRecordset("select * from cust…

لا داعي للخجل من طرح أي سؤال و لا اعتقد انه يوجد في المنتدى من يعامل الآخرين بعدم احترام باذن الله بالنسبة الى سؤالك يا اخي عليك عمل التالي : اضف مديول الى مشروعك و اكتب فيه الكود التالي : Public Sub Delay(HowLong As Date) ' To make The ebent delay for some ti…

انها ليست مشكلة بل لا بد انك نسيت وضع الجملة التي تقوم بمسح الكومبو بوكس قبل استدعاء الفنكشن الخاص بتعبئتها ذكرو انثى في كل مرة ;) استبدل الكود التي في مشروعك بالتي اضفتها لك : Sub comboKinde() cmbKinde.Clear 'هذا السطر الذي نسيت أن تضيفه With cmbKinde .AddIte…

انشيء فورم جديد و انسخ الكود التالي اليه و به 2 function لقراءة الملف بالبايت و 2 fuction لكتابة الملف باليايت Private Function ReadByteArrayFromBinaryFile(ByVal Filename As String) As Byte() Dim FileNo As Integer, FileSize As Long Dim ByteArray() As Byte File…

اسل اسالتك و احنا نجيبك باذن الله هنا بالمنتدى زي الكل !

البرنامج بدون ادوات جاهز ارسلي لي ايميلك و انا ساقوم بارساله لكي مع شوية اضافات اخرى kokoptan@hotmail.com developers@asisnet.net

http://www.vbcode.com/Asp/showzip.asp?ZipF...&theID=7934