ابن الاصول
18-01-2004, 05:34 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
تحية للجميع
اليكم بعض الدروس وهي عبارة عن برامج مختصرة وقصيرة جداً
فقط انسخ الكود
كود للعمليات الحسابية الاربع دون استخدام val
TEXT1 & TEXT2 & TEXT3 & TEXT4 & TEXT5 & TEXT6 & COMMAND اضف
ثم ضع هذا الكود في الزر
DIM A,S AS STRING
A=TEXT1.TEXT
S=TEXT2.TEXT
TEXT3.TEXT=A+S لعملية الجمع
TEXT4.TEXT=A-S لعملية الطرح
TEXT5.TEXT=A*S لعملية الضرب
TEXT6.TEXT=A/S لعملية القسمة
طريقة اخرى
انسخ
DIM A,S AS STRING
A=TEXT1.TEXT
S=TEXT2.TEXT
الى كود الفورم
ثم اعمل اربع ازرار ولكل زر عملية حسب ما سبق
لكن لا تنسى جعل الناتج يظهر في مربع نص واحد
تنظيف جميع التكستات في الفورم
Dim x As Control
For Each x In Me.Controls
If TypeOf x Is TextBox Then x.Text = ""
Next
برنامج لا يمكن الخروج منه
اعمل فورم عدد 2
اجعل الفورمان بنفس الخصائص
form1 unload ضع هذا الكود في
form2.show
form2 unload ضع هذا الكود في
form1.show
لا تنسى جعل الخصائص متشابهة
طريقة عكس إلاداة TreeView من اليسار إلى اليمين
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYOUTRTL = &H400000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
' Code
Private Sub MakeTreeViewRTL()
Dim rClientRect As RECT
Dim ReturnStyle As Long
ReturnStyle = GetWindowLong(Tree.hwnd, GWL_EXSTYLE)
SetWindowLong Tree.hwnd, GWL_EXSTYLE, ReturnStyle Or WS_EX_LAYOUTRTL
GetClientRect Tree.hwnd, rClientRect
InvalidateRect Tree.hwnd, rClientRect, True
End Sub
تحريك الصورة
picture1.move picture1.left-50,picture1.top-75
timer تحتاج للتحريك
1000 ضع الوقت عند
ثم ضع الكود الخاص بالتح\ريك في كود التايمير
كود لعمل الزر بحث
dim prompt as string
dim title as string
dim d_entry as string
prompt="ادخل الاسم "
title="البحث عن العميل"
d_entry=inputbox$(prompt,title)
qry="cust_name='" & d_entry & "'"
data1.recordset.findfirst qry
if data1.recordset.nomatch then
msgbox"لا يوجد هذا الاسم"
end if
end sub
اكتفي الى هنا
تحياتي ابن الاصول
السلام عليكم ورحمة الله وبركاته
تحية للجميع
اليكم بعض الدروس وهي عبارة عن برامج مختصرة وقصيرة جداً
فقط انسخ الكود
كود للعمليات الحسابية الاربع دون استخدام val
TEXT1 & TEXT2 & TEXT3 & TEXT4 & TEXT5 & TEXT6 & COMMAND اضف
ثم ضع هذا الكود في الزر
DIM A,S AS STRING
A=TEXT1.TEXT
S=TEXT2.TEXT
TEXT3.TEXT=A+S لعملية الجمع
TEXT4.TEXT=A-S لعملية الطرح
TEXT5.TEXT=A*S لعملية الضرب
TEXT6.TEXT=A/S لعملية القسمة
طريقة اخرى
انسخ
DIM A,S AS STRING
A=TEXT1.TEXT
S=TEXT2.TEXT
الى كود الفورم
ثم اعمل اربع ازرار ولكل زر عملية حسب ما سبق
لكن لا تنسى جعل الناتج يظهر في مربع نص واحد
تنظيف جميع التكستات في الفورم
Dim x As Control
For Each x In Me.Controls
If TypeOf x Is TextBox Then x.Text = ""
Next
برنامج لا يمكن الخروج منه
اعمل فورم عدد 2
اجعل الفورمان بنفس الخصائص
form1 unload ضع هذا الكود في
form2.show
form2 unload ضع هذا الكود في
form1.show
لا تنسى جعل الخصائص متشابهة
طريقة عكس إلاداة TreeView من اليسار إلى اليمين
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYOUTRTL = &H400000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
' Code
Private Sub MakeTreeViewRTL()
Dim rClientRect As RECT
Dim ReturnStyle As Long
ReturnStyle = GetWindowLong(Tree.hwnd, GWL_EXSTYLE)
SetWindowLong Tree.hwnd, GWL_EXSTYLE, ReturnStyle Or WS_EX_LAYOUTRTL
GetClientRect Tree.hwnd, rClientRect
InvalidateRect Tree.hwnd, rClientRect, True
End Sub
تحريك الصورة
picture1.move picture1.left-50,picture1.top-75
timer تحتاج للتحريك
1000 ضع الوقت عند
ثم ضع الكود الخاص بالتح\ريك في كود التايمير
كود لعمل الزر بحث
dim prompt as string
dim title as string
dim d_entry as string
prompt="ادخل الاسم "
title="البحث عن العميل"
d_entry=inputbox$(prompt,title)
qry="cust_name='" & d_entry & "'"
data1.recordset.findfirst qry
if data1.recordset.nomatch then
msgbox"لا يوجد هذا الاسم"
end if
end sub
اكتفي الى هنا
تحياتي ابن الاصول