شـريـط الاهـداءات | |
قسم الاسئلة و الاستفسارات الخاصه بلغات البرمجة قسم خاص بأسئله وإستفسارات للغات البرمجة |
|
أدوات الموضوع | انواع عرض الموضوع |
27-02-2014, 03:13 AM | #1 | ||||||||||||
The Professional
|
عايز كود Visual Basic .NET يخفي برنامج مفتوح وأسم البرنامج في شريط المهام ثــابت .. وكود الأظهار كمان y.gif" border="0" alt="" title="Cryingy" class="inlineimg" /> وكود يقفل نفس البرنامج برضه xD |
||||||||||||
|
27-02-2014, 04:00 AM | #2 | ||||||||||||
testing
|
|
||||||||||||
|
27-02-2014, 04:19 AM | #3 | ||||||||||||
The Professional
|
دة VB6 مش VB .NET
|
||||||||||||
|
27-02-2014, 06:37 AM | #4 | ||||||||||||
|
كود مني ليك عشان انت اللي بشرتني بإن القسم اتعمل حط ده في Class قديم او اعمل واحد جديد اسمه ControlWindow وغير كل اللي فيه بده كود:
Imports System.Runtime.InteropServices Public Class ControlWindow <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _ Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Integer) As Boolean End Function <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _ Private Shared Function FindWindow( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As IntPtr End Function <DllImport("user32.dll", CharSet:=CharSet.Unicode, SetLastError:=True)> _ Private Shared Function DestroyWindow(hwnd As IntPtr) As Boolean End Function Public Shared Function ShowWindow(ByVal WindowName As String) As Boolean Dim Handle As IntPtr Handle = FindWindow(vbNullString, WindowName) If Handle = IntPtr.Zero Then Return False End If ShowWindow(Handle, 1) Return Marshal.GetLastWin32Error().Equals(0) End Function Public Shared Function HideWindow(ByVal WindowName As String) As Boolean Dim Handle As IntPtr Handle = FindWindow(vbNullString, WindowName) If Handle = IntPtr.Zero Then Return False End If ShowWindow(Handle, 0) Return Marshal.GetLastWin32Error().Equals(0) End Function Public Shared Function CloseWindow(ByVal WindowName As String) As Boolean Dim Handle As IntPtr Handle = FindWindow(vbNullString, WindowName) If Handle = IntPtr.Zero Then Return False End If DestroyWindow(Handle) Return Marshal.GetLastWin32Error().Equals(0) End Function End Class ولما تعوز مثلا تخفي الاله الحاسبة تعمل كود:
Dim Result = ControlWindow.HideWindow("Calculator") If Result Then MessageBox.Show("تم بنجاح") Else MessageBox.Show("هناك خطأ") End If احسن ومريح ( أنا اساسا مبرمج #C مش VB.Net لكن اهو كله برمجة ) |
||||||||||||
التعديل الأخير تم بواسطة smsm20062009 ; 27-02-2014 الساعة 06:45 AM
|
27-02-2014, 12:17 PM | #5 | ||||||||||||
The Professional
|
تمام يا سمسم أفضـل إجابة .. |
||||||||||||
|
28-02-2014, 06:33 PM | #6 | ||||||||||||
|
طب يا سمسم ما تنزل الكود بس سي شارب علشان نستفيد كلنا
|
||||||||||||
|
يتصفح الموضوع حالياً : 1 (0 عضو و 1 زائر) | |
أدوات الموضوع | |
انواع عرض الموضوع | |
|
|