اكواد مهمه

2004mimo كتب:

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

لو ممكن اخى  redahashem

مثال

    عن كيفية إدخال البيانات او إضافة جديد فى الداتا جريد المربوطة بالكود

و شكرا

←

اخى redahashem

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

اسف لو تقلت عليك 8-)

1.rar

اخي كماذكرت لك من قبل انا لا استخدم الجريد كثيرا فبالتالي لست خبيرا فيها انا استخدمها فقط احيانا لعرض بينات معينه وليس الادخال والحذف وغيره لاني استخدم في مشارعي ms flex وايضا fr point spreed وايضاا مؤخرا flexCell

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

*************************************************************

قاعده بيانات صغيره جدا من حيث الحجم لكنها غنيه وجميله من حيث استخدام مكتبات او دو في قواعد البيانات

ولا تنسوني من خالص الدعاء

:D :lol:

_________.rar

السلام عليكم

انا اسف جدا انى رأيت هذا الموضوع الان فقط

الموضوع اكثر من رائع

الا خredahashem يستحق منا كل شكر وتقدير

وارجو منه ان يكمل هذا الموضوع الرائع , وان يشارك كل الاعضاء معه

عموما ساقوم بحذف الردود غير المناسبة من الموضوع , وساضع رابط له فى الموضوع المثبت " اهم مواضيع المنتدى" ;)

وهذه مشاركة بسيطة منى

اغلاق اى برنامج بمعرفة عنوانه

Public Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
Public Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)

Public Const WM_CLOSE = &H10

Public Sub CloseAppByTitle(strTitle As String)
  Dim lngHwnd As Long

  lngHwnd = FindWindow(vbNullString, strTitle)
  
  SendMessage lngHwnd, WM_CLOSE, 0, 0
End Sub

افراغ Recycle Bin برمجيا

Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4
Private Type ULARGE_INTEGER
  LowPart As Long
  HighPart As Long
End Type
Private Type SHQUERYRBINFO
  cbSize As Long
  i64Size As ULARGE_INTEGER
  i64NumItems As ULARGE_INTEGER
End Type
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long
Private Declare Function SHQueryRecycleBin Lib "shell32.dll" Alias "SHQueryRecycleBinA" (ByVal pszRootPath As String, pSHQueryRBInfo As SHQUERYRBINFO) As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim RBinInfo As SHQUERYRBINFO, Msg As VbMsgBoxResult
    RBinInfo.cbSize = Len(RBinInfo)
    SHQueryRecycleBin vbNullString, RBinInfo
    If (RBinInfo.i64Size.LowPart And &H80000000) = &H80000000 Or RBinInfo.i64Size.HighPart > 0 Then
        Msg = MsgBox("Your Recycle Bin consumes over 2 gigabytes right now!" + vbCrLf + "Do you want to empty it?", vbYesNo + vbQuestion)
    Else
        Msg = MsgBox("Your Recycle Bin consumes" + Str$(RBinInfo.i64Size.LowPart) + " bytes right now." + vbCrLf + "Do you want to empty it?", vbYesNo + vbQuestion)
    End If
    If Msg = vbYes Then
        SHEmptyRecycleBin Me.hwnd, vbNullString, 0
        SHUpdateRecycleBinIcon
    End If
End Sub

التحكم فى التطبيقات الاخرى

Option Explicit

'HERE IS A LIST OF KEYS
    'Backspace      {BS}
    'Break          {BREAK}
    'Caps Lock      {CAPSLOCK}
    'DELETE         {DEL}
    'Down Arrow     {DOWN}
    'END            {END}
    'ENTER          {ENTER} or ~
    'Escape         {ESC}
    'Help           {HELP}
    'Home           {HOME}
    'Insert         {INS}
    'Left Arrow     {LEFT}
    'Num Lock       {NUMLOCK}
    'Page Down      {PGDN}
    'Page Up        {PGUP}
    'Print Screen   {PRTSC}
    'Right Arrow    {RIGHT}
    'Scroll Lock    {SCROLLLOCK}
    'Tab            {TAB}
    'Up arrow       {UP}
    'F1 - F16       {F1} - {F16}
    'Shift          +
    'Ctrl           ^
    'Alt            %

Private Sub Command1_Click()
'This is to tab from button to button or space in notepad
    AppActivate "Untitled - Notepad"    'You would use any programs top handle for example, the handle for
    SendKeys "{TAB}"                'calc.exe is Calculator
End Sub

Private Sub Command2_Click()
'This is to drop down a line in notepad or to activate a button on a program
    AppActivate "Untitled - Notepad"    'You would use any programs top handle for example, the handle for
    SendKeys "{ENTER}"                'calc.exe is Calculator
End Sub

Private Sub Command3_Click()
'This is to close that program
    AppActivate "Untitled - Notepad"    'You would use any programs top handle for example, the handle for
    SendKeys "%{F4}"        'Sometimes it will ask if you are sure you want to close
                            'if it did you would enter.
                            'appactivate "Untitled - Notepad"
                            'SendKeys "%{F4}"
                            'Appactivate "Untitled - Notepad"
                            'Sendkeys "%{Y}"
End Sub

Private Sub Command4_Click()
'Sends what you typed into notepad
Dim strPart As String
    strPart$ = Me.Text1.Text$
    If Trim(strPart$) <> "" Then    'Checks text1.text for any words
    Else
        MsgBox "You did not enter anything.", vbCritical, "Error"
        Me.Text1.SetFocus
    End If
    Do Until strPart$ = ""                          'Loops until strPart$ is blank
        AppActivate "Untitled - Notepad"
        SendKeys Left(strPart$, 1)
        strPart$ = Right(strPart$, Len(strPart$) - 1)
        DoEvents
    Loop
End Sub

Private Sub Form_Load()
    Shell "c:\windows\notepad.exe", vbNormalFocus   'Moves your form down and right to move out of the way
                                                    'of notepad
    Me.Top = Screen.Height - Me.Height
    Me.Left = Screen.Width - Me.Width
End Sub

تحديد مقبض (hwnd) النافذة النشطة

Private Declare Function M_GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long
Private Function GetActiveWindow() As Long
Dim xHwnd       As Long
xHwnd = M_GetActiveWindow()
GetActiveWindow = xHwnd
End Function

مكتبة اكواد رائعة تضم حوالى 655 كود قيم وبالسورس كود!

مكتبة شاملة لدوال الفيجوال بيسيك وبالسورس كود!

مجموعة اكواد متنوعة لا غنى عنها لاى مبرمج !!!

مجموعة اكواد رائعة فى التعامل مع الادوات!!!

شكرااااا للاخوه المشرفين جميعا لما يقوموا به من عمل من اجل اعضاء منتدانا العظيم

وشكرااا للاخوه الاعضاء

:D

للاخوه الذين يتسائلون عن الجريد ارفقت لكم قاعده جميله تستخدم الجريد في اظهار البيانات بالاضافه لتعليم كيفه الاضافه والحذف

بالاضافة الي الطباعه لكن هناك مشكله في عرض التقرير لمن لا يملك sp6

يمكنه تعديلة اما من لديه sp6

فليس لديه مشكلة في التقرير ان شاء الله الي ان اقوم برفع sp6

او الذي لديه رابط فليضعه للاعضاء حتي يستفيدو منه واملا ان يكون هذا المثال مفيد للاخ السائل

والله الموفق

:D

____.rar

و اللهى مشكور اخى redahashem

بس المثال صعب شوية و انا لسه خبرتى مش جمدة اوى كدة

عشان كدة انا ارفقت لك المثال السابق للتعديل

طيب لو فى مثال للفلكس جريد بس يكون خفيف ( للإضافة و الحذف من خلال الفلكس جريد)

يارب يكون معاك

و انا اسف اذا تقلت عليك ... كله فى ميزان حسناتك

2004mimo كتب:

بس المثال صعب شوية و انا لسه خبرتى مش جمدة اوى كدة

عشان كدة انا ارفقت لك المثال السابق للتعديل

طيب لو فى مثال للفلكس جريد بس يكون خفيف ( للإضافة و الحذف من خلال الفلكس جريد)

يارب يكون معاك

و انا اسف اذا تقلت عليك ... كله فى ميزان حسناتك

←

مش فاهم والله ياريت توضح

8-)

تستاهل كل خير وبالتوفيق وان شاء الله سوف نقوم بالواجب انتظرونا

ونشارك ببعض الاكواد والدروس

عاطر التحايا

انا كنت طلبت منك مساعدة فى

مثال

عن كيفية إدخال البيانات او إضافة جديد فى الداتا جريد المربوطة بالكود

فانت ارفقت بعض الامثله عن الداتا جريد

وكانت هذة الامثله صعب شوية و انا لسه خبرتى مش جمدة اوى كدة

عشان كدة انا ارفقت لك المثال السابق للتعديل

لو فى مثال للفلكس جريد بس يكون خفيف ( للإضافة و الحذف من خلال الفلكس جريد) ممكن ترفقكه للاستفادة

و شكرااااااااااااااااااااااااااااا

------------------------------------------------------------------------------------------------------------

شكرا علي مجهوده وافادك الاخرين يا اخ redahashem

اتمني لك التقدم

اقتباس

   

      لمن اراد تعليم قواعد البيانات

قاعده بيانات صغيره تحوي الكثير من الافكار :D  :D  :D

db.zip

2004mimo كتب:

انا كنت طلبت منك مساعدة فى

مثال

    عن كيفية إدخال البيانات او إضافة جديد فى الداتا جريد المربوطة بالكود

فانت ارفقت بعض الامثله عن الداتا جريد

وكانت هذة الامثله صعب شوية و انا لسه خبرتى مش جمدة اوى كدة

عشان كدة انا ارفقت لك المثال السابق للتعديل

لو فى مثال للفلكس جريد بس يكون خفيف ( للإضافة و الحذف من خلال الفلكس جريد) ممكن ترفقكه للاستفادة

و شكرااااااااااااااااااااااااااااا

------------------------------------------------------------------------------------------------------------

←

و الله يوفقك

dfreeze
سورس اكثر من رائع للتحكم في خصائص النظام


ولا تنسوني من خالص الدعاء

:rolleyes: :D :D

dFreeze.zip

redahashem كتب:

dfreeze
سورس اكثر من رائع للتحكم في خصائص النظام
ولا تنسوني من خالص الدعاء

:rolleyes:  :D  :D

←

سلام عليكم

تحياتى لكل مشارك وربنا يتولى جزاكم

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

eath20021974yahool.com

يمكنكم مراسلتى وافادة بعضنا البعض

أشكر الأخ redahashem على هالموضوع الأكثر من رائع وكل من ساهم فيه ........ وإن شاء في موزاين حسناتكم......

أنا عندي سؤال من زمان أدور إجابته وابحث بس إلى الأن ماعرفت إجابته ........ وأتمنى تجاوبوني عليه أنتم.....

إذا أضفت إداة إضافية للفيجوال مثلاً إداة أزرار إكس بي، هل يكفي إني أضع ملف الأداة في مجلد البرنامج وبكذا يشتغل البرنامج على أي جهاز بدون أخطاء؟!!

بصراحة الأداوت كثيرة وتعطي البرنامج شكل جمالي رهيب ، لكن خايفة إذا استخدمت أي أداة ووضعتها في مجلد البرنامج ما تشتغل ويصير في البرنامج أخطاء..........

الله يوفقكم دنيا وأخره وكل مسلم......

سؤالك بسيط :D

ع العموم يمكنك استخدم برنامج تحزيم ومنذ مده كنت رفعت برنامج wise الربيد شير يمكنك تنزيله واستخدامه وهو ال هيتولي اضافه الادوات الي مشروعك ع العموم ابحثي عن الرابط وستجديه واي سؤال بالنسبه ان شاء هساعدك

:D :D

الرابط لمن لم يقرأ الموضوع

برنامج wise لعمل تحزيم لبرامجك

http://rapidshare.de/files/16531884/Wise_I...er_3.5.rar.html

مع عاطر التحايا

وان شاء الله في القريب سوف اقوم بشرح البرنامج مره اخري بالتفاصيل

ولا تنسوني من خالص الدعاء

مشكوووووووووور أخوي وماقصرت

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

بارك الله فيك ......

ممكن سؤال صغيررررررر،،

هل يوجد برنامج تحزيم عربي ؟؟؟ قصدي إن المستخدم إذا فتح البرنامج تظهر له رسالة عربية مثلاً ( هل تريد التحميل الأن ؟ ) يعني تصير واجهة التحميل عربية.....

إذا فيه ممكن تدلوني الله يعافيكم...........

برنامج wise

يمكن التحكم في اعداد شاشاته وتحويلها الي العربيه كما تشائي وهوسهل الاستخدام

رابط تحميل البرنامج في الاعلي

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

وهذا رابط الشرح مره اخري

http://www.4shared.com/dir/312931/3c275a08

اتمني ان يكون المطلوب

والله الموفق

:D :o

وهذا برنامج انستل يوز

install-us

يمكن تعريب الواجه للمستخدم ايضا

وهذا الرابط

http://www.4shared.com/dir/298972/55d3b6b6/programs.html

ولمن اراد التفقيط الي اللغه العربيه

مثال علي التقفيط

:D :lol:

________________.rar