مجلة اسكندر الزمان

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

اليوم لدينا موضوع جديد اتمنى ان يشارك في الجميع لكي تعم الفائدة

الموضوع هو عبارة عن بنك للاكواد وبكافة لغات البرمجة مثلا انا اعرف بلغة الفيجوال بيسك او ال c++
او ....

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

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

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

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

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

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

واذا لم يعمل احد الاكواد مع احدكم فارجوا ان يعلمنا

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

كود لجعل الفورم بيضوي :
في قسم التصريحات
[align=left] Option Explicit

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long

(Private Sub ChangeShape(po_Control As Object

Dim ll_Width As Long
Dim ll_Height As Long
Dim ll_Left As Long
Dim ll_Top As Long
Dim ll_Region As Long

With po_Control
ll_Width = .Width / Screen.TwipsPerPixelX
ll_Height = .Height / Screen.TwipsPerPixelY
End With

(ll_Region = CreateEllipticRgn(0, 0, ll_Width, ll_Height
(Call SetWindowRgn(po_Control.hWnd, ll_Region, True

End Sub

في كود form load

Private Sub Form_Load()

ChangeShape Me
ChangeShape Text1
'الكائنات التي تريد تغيير شكلها

End Sub[/align]

لتشغيل شاشة التوقف قم بإضاقة command1 للمشروع
في قسم التصريحات
[align=right][align=left] Option Explicit
Private Const WM_SYSCOMMAND = &H112
&Private Const SC_SCREENSAVE = &HF140
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

(Sub LaunchScreenSaver(pl_OwnerFormHwnd As Long
(&Call SendMessage(pl_OwnerFormHwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0
End Sub

في كود الزر

Private Sub Command1_Click()
LaunchScreenSaver Me.hwnd
End Sub[/align][/align]

للتراجع عن الكتابة في text1 بالنقر على command1

في قسم التصريحات
Option Explicit

_"Private Declare Function SendMessage Lib "User32" Alias "SendMessageA

ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long)

Const EM_CANUNDO = &HC6
Const EM_UNDO = &HC7

Private Sub CheckUndoState()

Dim ll_CanUndo As Boolean

'Find out if the textbox can be undone...
(&ll_CanUndo = SendMessage(Text1.hWnd, EM_CANUNDO, 0&, ByVal 0
Command1.Enabled = ll_CanUndo

End Sub
في كود الزر

Private Sub Command1_Click()

'Call undo on the textbox...
(&Call SendMessage(Text1.hWnd, EM_UNDO, 0&, ByVal 0

End Sub

في الحدث form load

Private Sub Form_Load()
CheckUndoState
End Sub

في الحدث text1_change

Private Sub Text1_Change()
CheckUndoState
End Sub[/align]

النص يظهر بشكل عمودي في الاداة label مثلا اضف 1label واكتب فيها شئ
كود الحدث
[align=left]Private Sub Form_ load ()
Dim s As String
(For i = 1 To Len(Label1
s = s & Mid$(Label1, i, 1) & vbCrLf
Next
Label1 = s
End Sub[/align]ويكون ذلك بإضافة سطر جديد بعد كل حرف باستخدام vbCrlf ويمكن فعل ذلك مع ادوات اخرى

والمزيد مني ومنكم في القريب وكان هذا فقط حلوان الموضوع

ارجوا التفاعل وخاصة من المشرفين
والسلام ختام

زائر

اللهم اغفر له ولوالديه ماتقدم من ذنبهم وما تأخر
وقِهم عذاب القبر وعذاب النار
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين

اللـهم آميـن

» دردشة اعضاء اسكندر الزمان ارجو التثبيت