سورس برنامه نویسی ، آموزش ، قالب وردپرس ، اسکریپت ، گرافیک ، آموزش کاربردی، دانلود رایگان ، قالب

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

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

مجموعه سورس کدهای ویژوالبیسیک ۶ قسمت ۱۰Reviewed by داده باران on Oct 2Rating:

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

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

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

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

لينك كوتاه اين مطلب : http://www.dadebaran.ir/?p=601

منبع : DADEBARAN.IR





گروه تلگرام داده باران
ارسال دیدگاه

قبل از ارسال دیدگاه به نکات زیر توجه کنید :
    » نظراتی که با تایپ فارسی نباشند تایید و منتشر نخواهند شد
    » نظرات تبلیغاتی هرزنامه محسوب شده و IP فرستنده مسدود خواهد شد.

پاسخ دهید

نکته: نظر شما در انتظار بررسی است و پس از تایید مدیریت در سایت نمایش داده میشود..