المجلس اليمني ... يمن واحد وآراء متعددة
::  قوانين المنتدى  |   طلب رقم التنشيط   |   تنشيط العضوية  |  استعادة كلمة المرور
العودة   المجلس اليمني :: العلمية والتقنية :: الكمبيـوتر والانتـرنت :: المواقع ولغات البرمجة والشبكات
|
 
أدوات الموضوع
قديم 18-01-2004, 06:34 PM   مشاركة رقم : 1
قلم فضي
 
لا توجد صورة

 
تاريخ التسجيل: 21-07-2003
المشاركات: 2,622

افتراضي عمل بعض البرامج في فيجوال بيسك

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


كود للعمليات الحسابية الاربع دون استخدام 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
اكتفي الى هنا
تحياتي ابن الاصول

  رد مع اقتباس
قديم 20-01-2004, 07:57 AM   مشاركة رقم : 2
عضو متميّز
 
لا توجد صورة

 
تاريخ التسجيل: 15-01-2004
المشاركات: 1,526

افتراضي شكر ا

شكرا ابن الاصول
و دائما الى المقدمة
و نريد منك المزيد

  رد مع اقتباس
قديم 03-02-2004, 10:09 PM   مشاركة رقم : 3
قلم ذهبي
 
لا توجد صورة

 
تاريخ التسجيل: 21-07-2002
المشاركات: 5,763

افتراضي

[glow=000066]
[align=center]

الف الف شكر اخي المبدع بن الاصول


[/align]
[/glow]

  رد مع اقتباس
قديم 09-02-2004, 06:41 PM   مشاركة رقم : 4
قلم فضي
 
لا توجد صورة

 
تاريخ التسجيل: 21-07-2003
المشاركات: 2,622

افتراضي

اخي صدى الحرمان
اخي ابو ريان
مشكورين على المرور
وربنا يكرمكم
تحية وتقدير لكما

  رد مع اقتباس
قديم 29-03-2004, 04:08 AM   مشاركة رقم : 5
عضو متميّز
 
لا توجد صورة

 
تاريخ التسجيل: 15-01-2004
المشاركات: 1,526

افتراضي

اخي صدى الحرمان
لا أختي

  رد مع اقتباس
قديم 29-03-2004, 08:19 PM   مشاركة رقم : 6
عضو فعّال
 
لا توجد صورة

 
تاريخ التسجيل: 08-12-2003
المشاركات: 527

افتراضي

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

أخيراً رجعت أخي ابن الأصول ... وين الغيبة !!
قسم التعارف و التسلية سرقك مننا ولا إيه :)
سلام ..

  رد مع اقتباس
قديم 31-03-2004, 05:34 PM   مشاركة رقم : 7
قلم فضي
 
لا توجد صورة

 
تاريخ التسجيل: 21-07-2003
المشاركات: 2,622

افتراضي

اقتباس الرّسالة الأصليّة كتبت بواسطة نجيب المجيدي
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله

أخيراً رجعت أخي ابن الأصول ... وين الغيبة !!
قسم التعارف و التسلية سرقك مننا ولا إيه :)
سلام ..

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

  رد مع اقتباس
قديم 13-04-2004, 03:43 PM   مشاركة رقم : 8
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 11-04-2004
المشاركات: 48

افتراضي

اقتباس الرّسالة الأصليّة كتبت بواسطة نجيب المجيدي
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله

أخيراً رجعت أخي ابن الأصول ... وين الغيبة !!
قسم التعارف و التسلية سرقك مننا ولا إيه :)
سلام ..


  رد مع اقتباس
إضافة رد

أدوات الموضوع

الانتقال السريع :::

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.