hamohd70

كل تنويع جميل .....

كود يضع الفورم دائما في الواجهة... Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 Const SWP_NOSIZE = &H1 Const SWP_NOMOVE = &H2 Const SWP_NOACTIVATE = &H10 Const SWP_SHOWWINDOW = &H40 Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal …

http://www.tcfb.com/freetechbooks/index.html تمنياتي بتصفح رائع ..:D

هدية العيد قبل ان يأتي العيد... http://www.programmersheaven.com/zone5/index.htm http://www.programmersheaven.com/zone5/cat21/index.htm (gift)(gift)(gift) (f)(f)(f) ;)

http://www.thescarms.com/VBasic/StopProcess.asp

في الـ module ... Public Declare Function GetSystemMenu Lib "user32" ( _ ByVal hwnd As Long, _ ByVal bRevert As Long) As Long Public Declare Function GetMenuItemCount Lib "user32" ( _ ByVal hMenu As Long) As Long Public Declare Function RemoveMenu Lib "user32"…

انا استخدم برنامج RealJukebox Plus ... ممتاز جدا!

فعلا رائعة!

فقط اجعل للـ progress bar مكان في الـ status bar عن طريق تحديد عرض الـ Panel بما يناسبك ثم ضع الـprogress bar في المكان المصنوع واجعل خاصية appearence تساوي Flat. هذا بالنسبه للشكل .... اما بالنسبه للعمل فهذا موضوع منفصل.

هذا شرح بسيط.. http://www.computing.net/windows95/wwwboar...rum/131521.html وهذا اعمق.. http://www.jsifaq.com/SUBG/TIP3200/rh3211.htm

http://vbaccelerator.com/codelib/ssubtmr/msleave.htm

اصنع قائمتك بالطريقه العادية و لكن اجعل Visible=false او ازل علامة الاختيار عن Visible ... ثم في المكان الذي ترغب بعرض القائمة فيه وفي MouseDownبالتحديد ضع الكود التالي: If Button = 2 Then PopupMenu file End If حيث ان file هي اسم القائمة لدي انا . اي استبدلها …

استخدمي هذا الكود في Choose: Dim i As Integer Dim rs2 As Recordset rs1.Index = "fornkey" Set rs2 = db1.OpenRecordset("SELECT * FROM Names WHERE Month = " & num) If rs2.BOF And rs2.EOF Then Exit Sub rs2.MoveFirst Do Until rs2.EOF Combo2.AddItem rs2!fname rs2.Mo…

Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Const LB_FINDSTRINGEXACT = &H1A2 Const CB_FINDSTRINGEXACT = &H158 dim l l = SendMessage(list1.hWnd, LB_FIND…

لقد تأخرت كثيرا .. لا تبقى هذه المواقع عادة لوقت طويل..:(

رجاءا ستخدام هذا الرابط: http://www.geocities.com/hamohd70/cppByExample.zip كليك يمين ثم Save target as

جرب احد هؤلاء وانشلء الله محلولة: http://download.com.com/3000-2248-10167921...tml?tag=lst-0-3 http://download.com.com/3000-2248-10174770.html http://download.com.com/3000-2248-10169866...tml?tag=lst-0-2 http://www.hdrdatasoftwares.com/download.html

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

ابحث عنه هنا.. http://www.e-lunatic.com/

من المفروض ام Deployment wizard يقوم بذلك دون ان تطلب منه ! اي يجب ان لا تكون هناك اي مشكلة.