/ در آموزش ویژوالبیسیک, اشتراک رایگان, ویژوالبیسیک / توسط
آخرین زمان ویرایش:

مجموعه سورس کدهای ویژوالبیسیک ۶ قسمت ۱۰

جهت مطالعه و دسترسی به سورس ها به ادامه مطلب مراجعه نمائید

با این تابع می تونید آیکون های روی دسکتاپ رو مخفی و ظاهر کنید

اول فراخوانی توابع

Option Explicit

Private Declare Function FindWindowEx Lib “user32” Alias “FindWindowExA” (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function ShowWindow Lib “user32” (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

بعد سه تا کامند برای ظاهر کردن آیکون ها مخفی کردن آنها و خروج از فرم بنویسید

کد هر کدام اینطور است

Private Sub cmdDHide_Click()

Dim hWnd As Long

hWnd = FindWindowEx(0&, 0&, “Progman”, vbNullString)

ShowWindow hWnd, 0

End Sub
Private Sub cmdDShow_Click()

Dim hWnd As Long

hWnd = FindWindowEx(0&, 0&, “Progman”, vbNullString)

ShowWindow hWnd, 5

End Sub
Private Sub cmdExit_Click()

Me.Hide

End

End Sub

نوشته های مشابه

مجموعه سورس کدهای ویژوالبیسیک ۶ قسمت ۹

جهت مطالعه و دسترسی به سورس ها به ادامه مطلب مراجعه نمائید (بیشتر…)

مجموعه سورس کدهای ویژوالبیسیک ۶ قسمت ۱۱

جهت مطالعه و دسترسی به سورس ها به ادامه مطلب مراجعه نمائید (بیشتر…)

 کانال تلگرام داده باران شارژ آنلاین

نظری بدهید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

10 − هشت =