![]() |
|
قسم الاسئلة و الاستفسارات الخاصه بلغات البرمجة قسم خاص بأسئله وإستفسارات للغات البرمجة |
![]() |
|
أدوات الموضوع | انواع عرض الموضوع |
|
![]() |
#1 | ||||||||||||
![]() ![]() ![]()
|
عايز كود Visual Basic .NET يخفي برنامج مفتوح وأسم البرنامج في شريط المهام ثــابت .. وكود الأظهار كمان ![]() وكود يقفل نفس البرنامج برضه xD |
||||||||||||
![]() |
![]() |
#2 | ||||||||||||
![]() ![]() testing
|
|
||||||||||||
![]() |
![]() |
#3 | ||||||||||||
![]() ![]() ![]()
|
دة VB6 مش VB .NET
|
||||||||||||
![]() |
![]() |
#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
![]() |
![]() |
#5 | ||||||||||||
![]() ![]() ![]()
|
تمام يا سمسم ![]() أفضـل إجابة .. |
||||||||||||
![]() |
![]() |
#6 | ||||||||||||
![]() ![]()
|
طب يا سمسم ما تنزل الكود بس سي شارب علشان نستفيد كلنا
|
||||||||||||
![]() |
![]() |
يتصفح الموضوع حالياً : 1 (0 عضو و 1 زائر) | |
|
|