• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

zintree

اعضاء جدد
  • عدد المشاركات

    29
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن zintree

  • الرتبة
    عضو جديد
  1. ايه يا شباب الظاهر ان الفكر ساقطه .. شكر جزيلا كان غرضي الافادة
  2. السلام عليكــم ورحمـة الله وبركاتــه ،، دا رابط الدرس الاول http://www.mediafire.com/?yw31ynqdwzh وده رابط الدرس الثاني http://www.mediafire.com/?dvt3zdjm2y4 وده رابط الدرس الثالث http://www.mediafire.com/?dzoidt2jkyt وبأزن الله كل يوم درسين لحد لما نبقى محترفين في البرمجه الرجاء دعوه صالحه
  3. ودا رابط الدرس التاني http://www.mediafire.com/file/dvt3zdjm2y4/Capture-002.rar
  4. بســم الله الـرحمــن الرحيــم السلام عليكــم ورحمـة الله وبركاتــه ،، بسم الله هنبتدي الدوره - يجوز لاي احد ان يقوم بنقل الموضوع فالغرض منه أفادة المسلمين جميعا .. كل ما اتمناه دعوه صادقه بظهر الغيب لي اولا الدرس الاول وهو مقدمه مع مدخل سريع Mostafa Seyam http://www.mediafire.com/file/yw31ynqdwzh/Capture-001.rar
  5. والله انا معايا المشروع ده ومش عارف اعمل جملة insert وانا رافق قاعدة البيانات في ملف debug واسمها source اما الجدول الي هدخل فيه البيانات kind WindowsApplication1.rar
  6. سيدتي الفاضله .. ملف الفيجوال بيكون امتداده VbP اما الذي بعتيه هو ملف تيمب انتظري مني سأقوم بشرح تفصيلي للفيجوال 6 بأزن الله وقواعد البيانات بمناسبة شهر رمضان المعظم ام ان كانت المشكله لابد ومن حل لها الان اليكي ان تاخاذي ميلي او تعطيه لصديقكك كي يتم حل المشكله سويا بالصوت من خلال الشات [email protected]
  7. سيدي الفاضل وضح هل انت بتستخدم كريستال ريبورت .. ولا عايز تطبع الفورمه نفسه ولا ريبورت كنترول ايه بالظبط علشان نفهم
  8. وضح كلامك شويه .. بمعنى انت مثلا عامل علاقات بين الجداول . ولا ايه . الجداول دي كبيره ازاي .. ممكن ترفق المشروع ونفهم سوا . يعني خلي الكلام مفهو علشان نعرف نجاوب على اساسه
  9. كل عام وانت بخير وشكرا على نصحتك ولكن طالما ذكرت اعادة صنع العجله . فانا لي فكره غير صريحه من محتوى الموضوع وهي .. اني انتشل الناس من vb6 واحطهم على ابواب vb.net ولو كنت لاحظت مفهوم كلامي لعلمت اني لا انتهي بما في فيجوال 6 لا انتهي من حيث الدوت نت المهم . كفكرة الولد الذي يحب شيء لا تأخذه الى غيرها الا بمفهومه عن هذه اللعبه وعلى فكره انا متشكر على ردك
  10. السلام عليكــم ورحمـة الله وبركاتــه ،، انا هبدأ بأزن الله بشرح موضوع وافي عن كل ما تحتاجه للتعامل مع DataBase من اول Dao الى لما نروح ادو دوت نت عايز من عندكم مقتراحات لكل شيء مفيد مع العلم . انا قدامي ثلاث ايام على ما ابتدي فاجهزو وحضروا الافكار لا اريد ان يكتب احد فكره جيده او غير ذلك من لديه فكره يبعتها في ملف ورد بدون اي مقدمات ولا كتابه في الصفحه .. فقط يكتب كل ما يرديه داخل الملف
  11. اوك طيب انتم مستخدمين ocx معين ولا هقولك حاجه ابعت لي المشروع انا اعرف مبيشتغلشي ليه
  12. بص يا سيدي فكرة ان تكتب البيانات في جدول temp دي كانت فكره قديمه وانتهت ليه انت متخليش البيانات اليي تخش عندك كلها تستخدمها في msflexgride وبعدين تبقى تحفظ من msflexgride ويوجد اخ في المنتدى شارح استخدمها -------------- بالنسبه للاجابه على سؤالك لعد فتح الريكوردسيت الي اسمه rs لاني انا مش عارف انت شغال بداو ولا ادو ولا رادو ولا ايه بالظبط هتمل rs.findfirst code=" & val(txtcode.text) & "" txtname=rs("name") وهكذا
  13. ياعم الحج قاعدة البيانات ملهاش علاقه بالانت بتبحث عنه دا انت حتى كاتب اسمها غلط في البرنامج ارفق قاعدة البيانات الصحيحه واحنا هنتصرف ونحللك اللي انت عايزه
  14. وعليكــم السـلام ورحمة الله وبركاتـه.. بص يا سيدي ان مبدئيا هتعمل موديول وتكتب فيه الاتي Public Const EWX_LOGOFF = 0 Public Const EWX_SHUTDOWN = 1 Public Const EWX_REBOOT = 2 Public Const EWX_FORCE = 4 Public Const CCDEVICENAME = 32 Public Const CCFORMNAME = 32 Public Const DM_BITSPERPEL = &H40000 Public Const DM_PELSWIDTH = &H80000 Public Const DM_PELSHEIGHT = &H100000 Public Const CDS_UPDATEREGISTRY = &H1 Public Const CDS_TEST = &H4 Public Const DISP_CHANGE_SUCCESSFUL = 0 Public Const DISP_CHANGE_RESTART = 1 Type typDevMODE dmDeviceName As String * CCDEVICENAME dmSpecVersion As Integer dmDriverVersion As Integer dmSize As Integer dmDriverExtra As Integer dmFields As Long dmOrientation As Integer dmPaperSize As Integer dmPaperLength As Integer dmPaperWidth As Integer dmScale As Integer dmCopies As Integer dmDefaultSource As Integer dmPrintQuality As Integer dmColor As Integer dmDuplex As Integer dmYResolution As Integer dmTTOption As Integer dmCollate As Integer dmFormName As String * CCFORMNAME dmUnusedPadding As Integer dmBitsPerPel As Integer dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As Long End Type Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" ( _ ByVal lpszDeviceName As Long, ByVal iModeNum As Long, _ lptypDevMode As Any) As Boolean Declare Function ChangeDisplaySettings Lib "user32" Alias _ "ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As Long Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _ ByVal dwReserved As Long) As Long ثانيا في الفورمه الاولى اللي هتظهر عندك هتكتب الاوامر دي Dim typDevM As typDevMODE Dim lngResult As Long Dim intAns As Integer lngResult = EnumDisplaySettings(0, 0, typDevM) With typDevM .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT .dmPelsWidth = 640 'ÇÎÊÑ ÇáÚÑÖ (640,800,1024, etc) .dmPelsHeight = 480 'ÇÎÊÑ ÇáØæá (480,600,768, etc) End With lngResult = ChangeDisplaySettings(typDevM, CDS_TEST) Select Case lngResult Case DISP_CHANGE_RESTART intAns = MsgBox( _ "You must restart your computer to apply these changes." & vbCrLf & _ vbCrLf & "Do you want to restart now?", vbYesNo + vbSystemModal, _ "Screen Resolution") If intAns = vbYes Then Call ExitWindowsEx(EWX_REBOOT, 0) Case DISP_CHANGE_SUCCESSFUL Call ChangeDisplaySettings(typDevM, CDS_UPDATEREGISTRY) MsgBox "Screen resolution changed", vbInformation, _ "Resolution Changed" Case Else MsgBox "Mode not supported", vbSystemModal, "Error" End Select طاب نهارك يا معلم
  15. اعتقد ان سؤالك مكنشي واضح وده السبب في ان الناس اتاخرت في الرد عليك بس يا سيدي في خاصيه في الفورم اسمها query_unload x = MsgBox("ÚÇíÒ ÊÎÑÌ ãä ÇáÈÑäÇãÌ", vbYesNo + 64) If x = 7 Then Cancel = 1 Exit Sub End If طاب يومك