أكواد + برامج + وصلات + كتب وغيرها
لإخفاء لسان تبويب الخلفية من نافذة العرض :
Private Const HKEY_CURRENT_USER = &H80000001
Private Const REG_DWORD = 4
Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" _
Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal _
lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" _
Alias "RegSetValueExA" (ByVal hKey As Long, ByVal _
lpValueName As String, ByVal Reserved As Long, ByVal _
dwType As Long, lpData As Any, ByVal cbData As Long) _
As Long
Private Sub SetRegValue(hKey As Long, sPath As String, _
sValue As String, lData As Long)
Dim RetVal&
RegCreateKey hKey, sPath, RetVal
RegSetValueEx RetVal, sValue, 0, REG_DWORD, lData, 4
RegCloseKey RetVal
End Sub
Private Sub Command1_Click()
SetRegValue HKEY_CURRENT_USER, "SoftwareMicrosoft" & _
"WindowsCurrentVersionPoliciesSystem", _
"NoDispBackgroundPage", 1
End Sub
تأجيل تنفيذ الكود لفترة معينة :
Public Sub Delay(HowLong As Date)
TempTime = DateAdd("s", HowLong, Now)
While TempTime > Now
DoEvents
Wend
End Sub
Private Sub Command1_Click()
Delay 5
MsgBox "test"
End Sub
لجعل مفتاح Tab يعمل بدلاً من Enter ( مجرد فكرة ) :
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{TAB}"
KeyAscii = 0
End If
End Sub
لإبطال مفعول زر X في النافذة :
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub
لحذف رموز معينة من جملة نصية :
Public Function Clean(sString As String) As String
Dim nLength As Integer
Dim nStart As Integer
Dim sOne As String
Dim sNoWay As String '
sNoWay = " ',-.()!_$*<>/?;:=+" ' الحروف المراد حذفها
If Not IsNull(sString) Then
nLength = Len(sString)
nStart = 1
Do While nStart <= nLength
sOne = Mid(sString, nStart, 1)
If InStr(1, sNoWay, sOne, vbTextCompare) = 0 Then
Clean = Clean & sOne
End If
nStart = nStart + 1
Loop
End If
End Function
Private Sub Command1_Click()
MsgBox Clean("منتديات-الفريق'العربي=للبرمجة")
End Sub
لتحميل جميع خطوط الكمبيوتر في ComboBox :
Private Sub Form_Load()
Dim i As Integer
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts
Next i
Combo1.Text = Combo1.List(0)
End Sub
لوضع محتويات ملف نصي في TextBox :
Open "c:windowsdesktopbooks.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1
هذا الكود لمعرفة عدد تكرار حرف معين في جملة :
Public Function CountChar(StringToSearch As String, Character As String) As Integer
CountChar = 0
For i = 1 To Len(StringToSearch)
If Mid(StringToSearch, i, 1) = Character Then CountChar = CountChar + 1
Next i
End Function
Private Sub Command1_Click()
n = CountChar("منتديات الفريق العربي للبرمجة", "ر")
MsgBox n
End Sub
اكتب هذا الكود في قسم التصريحات :
Private 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 WM_SYSCOMMAND = &H112
Const SC_MONITORPOWER = &HF170
ثم اكتب هذا الكود لإطفاء الشاشة :
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2&
أما لتشغيل الشاشة فاكتب الكود التالي :
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1&
لإيقاف عمل برنامجك لمدة زمنية معينة :
startime = Format(Now, "hh:mm:ss AMPM")
endtime = DateAdd("s", 60, startime)
While startime < Format(endtime, "hh:mm:ss AMPM")
startime = Format(Now, "hh:mm:ss AMPM")
Wend
بعد التحية ...
اولا ... لدي اقتراح ،، لماذا لا يتم وضع الاكواد كملف مرفق ... هذا سيقلل عدد الصفحات من 3 صفحات الى صفحة ... كما انه اسرع للتحميل ... و اسهل في الاستخدام ...
ثانيا ... مشاركة مني ...
1 كود تغيير لغة لوحة المفاتيح عربي <----> انجليزي
:o توجد مشكلة في خاصية اضافة ملف مرفق ... رجاء من المشرفين الانتباه :o
السلام عليكم و رحمة الله و بركاته
وجدت هذه الوصلة لكتب رهيبه
http://www.gorkhali.com/kamal/download.htm#4
الفقير
خليل
بعد التحية ..
اشكرك من كل قلبي ... و هذا ما تعودناه من اعضاء المنتدى الكرام ...
السلام عليكم و رحمة الله و بركاته
هذا الكتاب يقدم لمفهوم البرمجة الكائنية بشكل عام دون تخصيص لغة برمجة محددة
اسلوب الكتاب بسيط وسلس، ويمكن للمبتدئين والمتقدمين الاستفتادة منه
الكتاب مكون من 6 فصول
الفصل الأول:
يوضح مفهوم الكائنات
الفصل الثاني:
يقدم لمفهوم الكبسلة
الفصل الثالث:
يوضح مفهوم الوراثة في البرمجة الكائنية من خلال عدة امثلة ، كما يوضح الصعوبات المرتبطة بالوراثة.
الفصل الرابع:
يتناول التركيب aggregation
الفصل الخامس:
يعرف مفهوم تعدد الصفات، وكيفية الاستفادة منها وقوتها.
الفصل السادس:
يتحدث عن علاقات الشراكة CIATION THE RELATION OF ASSOCIATION
وفي نهاية الكتاب يوجد قاموس لأهم المصطلحات التي ذكرت في الكتاب.
بشكل عام الكتاب مفيد لكل من يريد أن يفهم ما هي البرمجة الكائنية ويمكن البدأ به قبل تعلم أي لغة تدعم هذا المفهوم مثل C++ أو Java
للتحميل
http://www.c4arab.com/files/Document188.pdf
المصدر الموسوعة العربية للعلوم
االفقير
خليل
مواقع لل OCX
وصلة لدرس للمبتدئين في فجوال بيسك 6.0 من منتدى البرمجه لبوابه العرب
http://www.arabsgate.net/vb/showthread.php...0074#post990074
الفقير
خليل
هذا الموضوع مغلق.