سورس برای مخفی کردن منوی Taskbar و بر عکس
سورس برای مخفی کردن منوی Taskbar و بر عکس دانلود
برنامه نویسی با ویژوال بیسیک
سورس برای مخفی کردن منوی Taskbar و بر عکس دانلود
xpTabOcx همراه سورس دانلود
گرفتن آی پی در ویژوال بیسیک دانلود
سورسی در رابطه با کاربران ویندوز دانلود
سورس کامل مار پله برای ویژوال بیسیک دانلود
سورس فرم های انیمیشن در ویژوال بیسیک دانلود
فرستادن پیغام به افراد در شبکه دانلود
آموزش برنامه نویسی شبکه با ویژوال بیسیک دانلود
در واقع یک ماژول است که می توانید این ماژول را به برنامه خود اظافه کنید.
داشتن استیل ایکس پی در ویژوال بیسیک StyleXPtoVB دانلود
با این سورس می توانید با تغییراتی در رجیستری درایو ها ی کامپیوتر رو مخفی کنید دانلود
با این سورس می توانید در رجیستری ویندوز به جستجو بپرازید دانلود
با این سورس می توانید لیستی ازآخرین پروژه هایی که در وی بی بازکردید رو مشاهده کنید دانلود
قراردادن آیکون در قسمت Sys_Tray دانلود
ساخت ShortCut با ویژوال بیسیک دانلود
ویرایش فایل exe با ویژوال بیسیک دانلود
سورس کد مربوط به شبکه دانلود
پورت اسکنر در ویژوال بیسیک دانلود
ویرایش تصاویر در ویژوال بیسیک دانلود
ا یک کلیک قسمتی از عکس را ذخیره کنید دانلود
گرفتن اطلاعات یک کامپیوتر دانلود
سورس کدی همراه با OCX منوی پیشرفته دانلود
منو تب 1 Tab دانلود
منو تب 2 Tab دانلود
CheckboxCombo دانلود
کار با Label دانلود
Frame Control دانلود
ToolTip Control دانلود
بعضی از فایل با پسوند RAR هست برای باز کردن اینگونه فایل ها از برنامه Winrar استفاده کنید.
مقاله ی ذخیره و بازیابی تصاویر در دیتابیس اکسس دانلود
کد:(3)
کد زیر را در قسمت General قرار دهید.
Option Explicit
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long,ByVal hWndInsertAfter As Long,ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long
Private Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) _
As Long
If Topmost = True Then
SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
Else
SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
SetTopMostWindow = False
End If
End Function
این کد را در قسمت Form_Load یا تایمر قرار دهید.
Dim Top As Long
Top = SetTopMostWindow(Form1.hwnd, True)
پایان کد:(3)
۱.چگونگی ذخیره و بازیابی تصاویر در دیتابیس اکسس ؟
من یک سورس درمورد همین سوال دارم ولی یک کم پیچیده است دارم روش کار میکنم تا حد امکان ساده کنم تا شما راحت متوجه سورس ها شوید به احتمال زیاد امشب یا فردا صبح این سورس رو برای شما آپیدیت می کنم .
کد:(۲)
این کد رو در قسمت General وارد کنید.
Private Declare Function LoadKeyboardLayout Lib "user32" Alias _ "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
این کد رو شما می توانید در هر قسمتی از برنامه قرار دهید من در قست Form_Load قرار دادم .
Private Sub Form_Load ()
LoadKeyboardLayout "00000429", 1
End Sub
پایان کد: (2)
سورس افکت دادن به نوشته دانلود
سورس کد ، اولی برای نشان دادن تمام پنجره های باز ویندوز بر روی یک ListBox هست و سورس دوم برای بستن پنجره باز با دادن Caption برنامه ی در حال اجرا مانند: Registry Editor وقتی بر روی دکمه کلیک کردید برنامه جستجو می کنه آیا برنامه ای با این Caption اجرا هست یا نه اگر اجرا بود پنجره را می بنده برای دیدن کارکرد بهتر قبل اجرا برنامه از قسمت Start>Run در پنجره ی باز شده عبارت Regedit را تایپ کنید بعد دکمه OK رو کلیک کنید حالا برنامه را باز کنید و در قسمت Text برنامه عبارت Registry Editor را تایپ کنید و بر روی Kill Window کلیک کنید ، حال می بینید که برنامه Regedit بسته شد.
نمایش تمام پنجره های باز ویندوز دانلود
بستن پنجره باز با دادن Caption دانلود
سورس کد Find & Replace دانلود
قرار دادن کلید میانبر در ویژوال بیسیک دانلود
سورس ماشین حساب دانلود
اگر سوالی در مورد ویژوال بیسیک یا زبان برنامه نویسی دیگه مثل پاسکال دارید میتونید آیدی منو ADD کنید Nader_Talebii یا به شماره ی تلفن 09119123102 تماس بگیرید.
--------------------------------------------------------------------------------------------------------------
درمورد سوال یکی از بازدید کننده عزیز که برنامه نویسی با c و پاسکال کمک می خواستند عرض می کنم که این کار امکان پذیر است که شما می توانید سوال خود را در همین بخش مطرح نمایید (در قسمت نظرات) تا بعد بررسی به شما پاسخ می دهم
باتشکر نادر
سورس کد Zoom دانلود
این سورس کد قابلیت ویژه در پیدا کردن فایل ها بر اساس پسوند آنها در ویندوز داه مثلا شما می توانید در برنامه با انتخاب پسوند exe جستجو را بر اساس exe انجام دهید و برنامه دنبال تمام فایل هایی که در ویندوز وجود داره که براساس پسوند exeاست، را به شما نشان می دهد همچنین با مسیر فایل.
سورس کد Search دانلود
این قطعه کد رو تو Form Load بگذارید !!
()Private Sub Form_Load
If App.PrevInstance = True Then
Dim R As Integer
("R = Msgbox ("Cannot Play Again
Unload Me
End If
End Sub
مثالی از کاربرد کد :
میتونید کاری کنید که توی پروژه شما وقتی روی یک Label یا یک دکمه کلید کردن قابلیت جابجایی صفحه اجرا بشه !!!
کد زیر را در قسمت General وارد کنید:
Private Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
کد زیر رو تو قابلیت MouseDown در Label قرار بدید !
MousePointer = 15
Call ReleaseCapture
(&Call SendMessage(hWnd,&HA1,2,0
MousePointer = 1
سورس کد بازی مار برای کامپیوتر Snake دانلود
آیا سایت من تونسته نیاز شما رو برطرف کنه !؟