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

تبليغات شما در داده باران
تبلیغات در داده باران

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

مجموعه سورس کدهای ویژوالبیسیک ۶ قسمت ۱۰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 شخص مسدود خواهد شد.

پاسخ دهید

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