دائما في الخدمه ،،
بحث مخصص

لدي مشكله بالكمبيوتر عن تشغيله تضهر هذه الشاشة (للكاتب: alkoboy ) (الردود: 0) ( أخر رد بواسطة: alkoboy )          »          أداة مهمة لتنظيف الجهاز من الملحقات الضارة HijackT ... (للكاتب: PCinTV ) (الردود: 37) ( أخر رد بواسطة: MAHALI2000 )          »         


العودة   منتديات الحاسب في حياتنا > :: الـمنتـديـات الـتـقــنيـــة Technical forums:: > :: ملتقى المبرمجيـن دروس البرمجـة Programmers ::

:: ملتقى المبرمجيـن دروس البرمجـة Programmers :: دروس ، أمثلة ، فيجوال بيسك ، دوت نت، جافا ، سي ++، اوراكل ، أسمبلي و بقيه لغات البرمجه .

رد
 
أدوات الموضوع طرق مشاهدة الموضوع
قديم 25-5-1427هـ, 04:57 مساء   رقم المشاركة : [1]
الخبير
الصورة الرمزية الخبير
 

معدل تقييم المستوى: 0 الخبير is on a distinguished road
إرسال رسالة عبر مراسل MSN إلى الخبير

افتراضي

<span style='font-family:Traditional Arabic'><div align="center">بسم الله الرحمن الرحيم</div>
إن هذه لأول مشاركة لي في هذا المنتدى وآمل أن تعجبكم مواضيعي عن برنامج <marquee direction=right>Microsoft Visual Basic</marquee>
وكما ذكرت في في عنوان الموضوع فهو لأوامر الفيجوال بيسك
ولمن لا يعرف هذا البرنامج فيلتعرف من خلال المشاركات الأخرى من الأعضاء الأعزاء (الأوامر):
نبدأ بـــ
إعادة تشغيل النظام:
'ضع هذا في الموديل
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4

Private Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved _
As Long) As Long

'ضع هذا في مكان أكواد الفورم:
Private Sub Form_Load()
t& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub

وفي حال وجود أي خلل ضع كليهما في مكان وضع أوامر الفورم.
--------------------------------------------------------------
إزالة الصفر من النص:
Function KillZeros(incoming as string) as string
KillZeros = CStr(CInt(incoming))
End Function

Private Sub Text1_Change()
KillZeros Me.Text1
End Sub
--------------------------------------------------------------
لفتح قائمة أبدأ:
في الموديل:
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" _
(ByVal wCode As Long, ByVal wMapType As Long) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan _
As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2

في مكان أوامر الفورم:
Private Sub Command1_Click()
Const MENU_KEYCODE = 91
keybd_event MENU_KEYCODE, 0, 0, 0
keybd_event MENU_KEYCODE, 0, KEYEVENTF_KEYUP, 0
End Sub
--------------------------------------------------------------
فتح لوحة التحكم:
Private Sub Command1_Click()
Shell "rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus
End Sub
--------------------------------------------------------------
أيقونة البرنامج بجوار الساعة:
'في Module
Type NOTIFYICONDATA
cbsize As Long
hWnd As Long
uID As Long
uFlags As Long
ucallbackMessage As Long
hicon As Long
szTip As String *

'في النموذج
Dim SW As String
Dim PrevWord As String
Dim Beeped As Boolean
Dim MyHeight As Long
Dim MyWidth As Long
Dim Res As Long
Dim si As NOTIFYICONDATA

Private Sub DeleteIcon()
On Error Resume Next

Dim Tic As NOTIFYICONDATA
Tic.cbsize = Len(Tic)
Tic.hWnd = Picture1.hWnd
Tic.uID = 1&
End Sub

Private Sub Form_Load()
On Error Resume Next

MyHeight = Me.Height
MyWidth = Me.Width

'Put the icon in the system try.
si.cbsize = Len(si)
si.hWnd = Picture1.hWnd
si.uID = 1&
si.szTip = "الحسام يرحب بكم" + Chr$(0)
si.ucallbackMessage = WM_MOUSEMOVE
si.hicon = Me.Icon
si.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
Shell_NotifyIconA NIM_ADD, si

Me.WindowState = 3

End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next

si.cbsize = Len(si)
si.uID = 1
si.hWnd = Picture1.hWnd
Shell_NotifyIconA NIM_DELETE, si


End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next

Dim lMsg As Long

lMsg = X / Screen.TwipsPerPixelX
Select Case lMsg
Case WM_LBUTTONDBLCLK:
Me.Show
Me.WindowState = vbNormal
Case WM_LBUTTONDOWN:
Me.Show
Me.WindowState = vbNormal
Case WM_LBUTTONUP:
Case WM_RBUTTONDBLCLK:
Case WM_RBUTTONDOWN:
Me.PopupMenu mnuMain
Case WM_RBUTTONUP:
End Select
End Sub
Private Sub Form_Resize()
On Error Resume Next

If Me.WindowState = vbMaximized Then Me.WindowState = vbNormal
If Me.WindowState = vbMinimized Then
Me.Hide
Exit Sub
End If
Me.Height = MyHeight
Me.Width = MyWidth

End Sub

Private Sub cmdMinimize_Click()
On Error Resume Next

Me.WindowState = 1

End Sub
----------------------------------------------------------
<marquee direction=right>وانتظروا مني المزيد إنشاء الله</marquee></span>


التوقيع:

الله ناظري *~*~* الله معي *~*~* الله مطلع علي
الخبير غير متواجد حالياً   رد مع اقتباس

قديم 28-5-1427هـ, 05:47 صباحاً   رقم المشاركة : [2]
some one
 

معدل تقييم المستوى: 0 some one is on a distinguished road

افتراضي

يعطيك الف عافيه اخوي على مجموعة الأوامر

صراحه لما قريت الاوامر فتحت الفيجوال وبديت اطبق :D

مشكور اخوي

وننتظر المزيد


some one غير متواجد حالياً   رد مع اقتباس

قديم 28-5-1427هـ, 11:06 صباحاً   رقم المشاركة : [4]
الجبالي
مجموعة الإشراف
 

الجبالي

معدل تقييم المستوى: 11 الجبالي تم تعطيل التقييم

افتراضي

احسنت اخي الخبير الى الامام دائما ...............


التوقيع: قال تعالى("وقل اعملوا فسيرى الله عملكم ورسوله و المؤمنون" )
صدق الله العظيم.

قال عليه الصلاة و السلام" :اذا مات ابن ادم انقطع عمله الا من ثلاث، صدقة جارية أو علم ينتفع به أو ولد صالح يدعوا له ) صدق رسول الله صلى الله عليه وسلم

ما أصبت فيه فمن الله
وما أخطأت فيه فمن نفسي والشيطان
والله بريءمنه ورسوله

الجبالي غير متواجد حالياً   رد مع اقتباس

قديم 28-5-1427هـ, 02:22 مساء   رقم المشاركة : [5]
طالبة_حاسب
الصورة الرمزية طالبة_حاسب
 

معدل تقييم المستوى: 0 طالبة_حاسب is on a distinguished road

افتراضي

يعطيك العافية اخوي الخبير..

تحياتي وشكري..


التوقيع:


وتمضي الحيـــــــــاة....

أستغفر الله العظيم التواب الرحيم لذنوبي وللمسلمين والمسلمات والمؤمنين والمؤمنات الاحياء منهم والاموات الى يوم الدين .



[cc=<<آخر مواضيعي>>]

معلومات عن Web Browsers + HTTP + Web Servers

وداعاً لتقنية البلوتوث..أهلاً بتقنية ويبري Wibree ..

موقع رائع ويقدم خدمات جميلة منها خدمة توليد الأيقونات من أي صورة مجانا وبدون تسجيل..

علمتني الحياة أني مهما أتعلم فلا أزال جهولا

[/cc]

طالبة_حاسب غير متواجد حالياً   رد مع اقتباس

رد


أدوات الموضوع
طرق مشاهدة الموضوع

الانتقال السريع إلى


الساعة الآن: 07:03 مساء

.Powered by vBulletin®, Copyright ©2000 - 2014, Jelsoft Enterprises Ltd
.Powered by vista style, designed by Majeedah. For best browsing, use Mozilla Firefox.
الاتصال بنا - الأرشيف- [ 12   11   10   9   8   7   6   5   4   3   2   1 ] - الأعلى