فرض کنید یک image غیر مستطیلی دارید که می خواهید از آن بعنوان فرم برنامه تان استفاده کنید
۱ - تصویر فرم مورد نظرتان را طراحی کرده و با فرمت bmp ذخیره کنید . دقت نمایید که بایستی image خود را درون یک کادر مستطیلی قرار دهید که با یک رنگ با RGB مشخص رنگ آمیزی شده است :

۲ - یک فرم ویژوال بیسیک ایجاد کنید و خاصیت BorderStyle آنرا صفر نمایید .
3 - در متد Form Load بایستی image مورد نظر را به فرمتان assign کنید :

Me.picture=loadpicture(yourimagename)x
Me.width=Me.picture.width
Me.height=Me.picture.height

4 - سپس بایستی یک ناحیه از این image بسازید که نسبت به رنگ RGB ای که در بالا به آن اشاره کردم transparent باشد . اگر فرض کنیم این رنگ ، رنگ سیاه باشد ( r=0 , g=0, b=0 ) :

LRegion=MakeRgn(yourimagename,0,0,0)x

5 - حال بایستی ناحیه مشخص شده را بعنوان فرم برنامه تان قرار دهید :

call SetWindowRgn(Me.hwnd,LRegion,True)x

6 - یک ماژوال ایجاد کنید و خطوط زیر را در آن بنویسید :

Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function MakeRgn Lib "Region.dll" (ByVal FileName As String, ByVal R As Integer, ByVal g As Integer, ByVal b As Integer) As Long
Public Declare Function DeleteRgn Lib "Region.dll" (ByVal Region As Long)x
Global lRegion As Long

7 - در متد Form Unload عبارت زیر را قرار دهید :

Call DeleteRgn(LRegion)x

نکته ۱: بوسیله روتین زیر می توانید فرم خود را در وسط صفحه قرار دهید :

(Sub CenterForm(frm As Form
frm.Left = (Screen.Width - frm.Width) / 2
frm.Top = (Screen.Height - frm.Height) / 2
End Sub

امیدوارم خوشتان آمده باشد . تا مطلب جدیدتر خدانگهدار

در پاسخ سوال یكی از دوستان :

error 5123 در SQL Server ممکن است به دو علت رخ دهد.

1.بانک قبلا Attach شده باشد و دوباره نمیتوان آنرا Attach کرد که این اسمش مشکل نیست.

2.بانک را قبلا Attach کرده بودید و الان به هر علتی بدون اینکه  آنرا Detach کنید SQL را پاک کرده اید (مثلا ویندوز عوض کرده اید)؛در این حالت شما نمیتوانید آنرا دوباره Attach کنید و حتی نمیتوانید آنرا Delete یا Rename کنید.

برای حل این مشکل باید permission های فایل mdf و ldf خود را دستکاری کنید؛ با این صورت که:

روی فایل کلیک راست کرده و در قسمت Security باید User های مجاز برای دسترسی به فایل را مشخص کنید(این کار را میتوانید با توجه به permission های موجود روی یک فایل سالم انجام دهید).

اگر نتوانستید این کار رو بکنید در قسمت Advanced و بعد در قسمت Owner گزینه Everyone را Add و بعد همان مرحله بالا را انجام دهید.

به این صورت مشکل حل میشود.

www.PlanetSourceCode.com

سایتی جامع از انواع سورس کدهای VB6 , .NET , ASP , PHP و دیگر زبان های برنامه نویسی در این سایت می توانید عضو شوید و هر روز با توجه به سورس کدی که در هنگام ثبت نام انتخاب کردید جدیدترین سورس کدها را به ایمیل تان می فرستد.

http://www.codeguru.com/vb

مقالات جدید در زمینه برنامه نویسی اینترنت ؛ گرافیک ؛ فرم ها ؛ بانک های اطلاعاتی و غیره.

فیلم های آموزشی جدید ؛ ترفندهای  جدید و همچنین دارای فروم برای طرح مباحث می باشد.

http://www.vbexplorer.com/VBExplorer/VBExplorer.asp

این سایت هم شامل موارد بالا همراه VB Games , VB News  می باشد که مقالات در مورد Direct3d هم به چشم می خورد.

http://www.vbcode.com

جالب ترین بخش این سایت شامل Submit Code (ثبت کد شما) و WhitePapers (فرضیه ها که هنوز پیاده سازی عملی نشده) می باشد.

http://www.freevbcode.com

منوی کامل و با دسته بندی کامل تر آن حرف برای گفتن باقی نمی گذارد.(منوهای بانک اطلاعاتی – فرم ها – ریاضی و فرمول – شبکه – رجیستری و غیره)

پیشنهاد می کنم برنامه نویسانی که قصد ترقی و پیشرفت دارند ، فقط به وبلاگ ها و و ب سایت های ایرانی اکتفا نکنند و دنبال مطالب جدید تر ، گه گداری نیز یه نگاه به سایت های خارجی در مورد برنامه نویسی هم بیندازند .

در ضمن رمز مدیریت هم به شرح زیر است :

user admin : admin

لینک مستقیم از سرور سایت : دانلود فایل و ذخیره بر روی سیستم . با حجم 139 كیلوبایت

لینک مستقیم از سرور دی پو زیت : دانلود فایل و ذخیره بر روی سیستم . با حجم 139 كیلوبایت

فروش پروژه ها ممنوع می باشد .

کپی برداری از مطالب تنها با درج نام سایت امکان پذیر است .

رمز عبور فایل در صورت نیاز :www.it2.ir

1	الگوریتم و فلوچارت	240 KB	دانلود
2	ساخت واژه نامه اختصاصی توسط Babylon builder	190 KB	دانلود
3	تهیه کپی پشتیبان بدون دردسر	123 KB	دانلود
4	مقاله ای در زمینه ی بلوتوث	300 KB	دانلود
5	گل (Clay)	93 KB	دانلود
6	فشرده سازی فایل ها	159 KB	دانلود
7	پاک کردن اطلاعات حافظه Cmos	221 KB	دانلود
8	کوکی چیست؟	1.57 MB	دانلود
9	آموزش قدم به قدم Macromedia Flash Mx	176 KB	دانلود
10	راه اندازی و تنظیم یک شبکه Lan کوچک	4.44 MB	دانلود
11	مقاله ای در مورد ذخیره سازی و بازیابی اطلاعات	474 KB	دانلود
12	برنامه نویسی شبکه و اینترنت در VB	349 KB	دانلود
13	ذخیره سازی بیش از حد مجاز اطلاعات بر روی CD	167 KB	دانلود
14	تعمیر VCD های آسیب دیده	749 KB	دانلود
15	آشنایی با کنسول بازیابی Windows Xp و فرامین آن	533 KB	دانلود
16	برنامه نویسی به زبان اسمبلی	345 KB	دانلود
17	مقاله ای در مورد ذخیره سازی و بازیابی اطلاعات	340 KB	دانلود
18	رمزنگاری اطلاعات	183 KB	دانلود
19	مقاله ای در مورد لینوکس	487 KB	دانلود
20	کتاب داستان یک روز خوش برای موزماهی	180 KB	دانلود

پسورد فایل های ZIP شده: arsanjan.blogfa.com

امروز می خواهم درباره ظاهر شدن منو وقتی که روی فرم یا هر چیز کلیک می کنیم ظاهر شود صحبت کنم .

خوب ابتدا توسط Menu Editor منو و تعدادی SubMenu (زیر منو) ایجاد کرده و خاصیت Visible منو (فقط منو) را غیر فعال میکنیم .

حالا فرض میکنیم که می خواهیم منو را برای هنگامیکه بر روی فرم راست کلیک کردیم ظاهر کنیم , کد زیر را در Event (ٍرویداد) MouseDown می نویسیم :

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
   'Button = 1 :::>>> For LeftClick
   'Button = 2 :::>> For RightClick
    If Button = 2 Then
        PopupMenu MnuFile
    End If
    
End Sub

اسپلش اسکرین ( Splash Screen ) چسیت ؟

حتما شما دیده اید که وقتی می خواهید برنامه هایی شبیه ورد را باز نمایید ، یک صفحه کوچک می بینید که ظاهر می شود و پس از آن برنامه ورد اجرا می گردد . ما می خواهیم برای برنامه خودمان این صفحه را ایجاد نماییم .

امروز می خواهم چگونگی ساخت یک Splash Screen برای برنامه هایی که مینویسیم را براتون شرح بدم . خوب باز هم باید توابع مورد نیاز را فراخوانی کرده و همچنین ثوایت مورد نیاز را تعریف کنیم .

Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal _
dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib _
"user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha _
As Byte, ByVal dwFlags As Long) As Long

نوع نمایش این Splash Screen به گونه ای است که میزان شفافیت فرم آن از 0 به 255 رسیده و دوباره کاهش یافته به صفر می رسد (یا بعبارت دیگر از حالت نامرئی به شفافیت کامل رسیده و دوباره از شفافیت آن کاسته شده و نامرئی می شود ) . خوب تنها Control که برای این برنامه نیاز داریمTimer می باشد . کدی که در Form_Load می بینید باعث می شود که فرم در ابتدای امر نامرئی باشد چون مقدار bAlfa آنرا 0 داده ام

چگونه می توان در وی بی یک فایل با هر پسوندی را در یکی از درایوها اجرا کرد ؟

برای Run کردن یک فایل اجرایی در وی بی بایستی از تابع ShellExecute استفاده نمایید . نحوه declare کردن آن بصورت زیر است :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

حال فرض کنید می خواهید در مسیر \D:\TestShell فایلی به اسم Test.exe را توسط برنامه تان اجرا کنید . کد زیر بدین منظور نوشته شده است :

(Call ShellExecute(Me.hwnd, vbNullString, "D:\TestShell\Test.exe", "", "", SW_SHOWNORMAL