سورس کد حرفه اي پخش فريم به فريم فيلم به زبان ويژوال بيسيک 6

سورس کد حرفه اي پخش فريم به فريم فيلم به زبان ويژوال بيسيک 6

---------

عکسي از محيط برنامه

 

  

نمونه سورس

چند نمونه سورس ساده برای اموزش لطفا به ادامه مطالب بروید

کنترل تایمر در ویژوال بیسیک

 آشنایی با کنترل Timer و ساخت یک برنامه شبیه محافظ نمایش ( ScrennServer )
در قسمت دهم سری مقالات آموزش برنامه نویسی ویژوال بیسیک ۶ شما را با کنترل تایمر و ساخت یک برنامه نمونه جالب آشنا می کنم.

مقایسه دوعدد

با این کد می توانید بفهمید کدام عدد بزرگ تر است

Dim x As Byte
Private Sub Command1_Click()
x = StrComp(Text1.Text, Text2.Text, 0)
If x = 1 Then
Label1.Caption = Text1.Text + "is greater"
End If
If x = -1 Then
Label1.Caption = Text2.Text + "is greater"
End If
If x = 0 Then
Label1.Caption = "åÑ Ïæ ÈÇåã ÈÑÇÈÑ ÇäÏ"

End If

End Sub

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

 

Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
Private Sub Command1_Click()
If IsNetworkAlive(CResult) = 0 Then
MsgBox "Not Connected", vbInformation, "www.vbking.mihanblog.com"
Else
MsgBox "Connected To the Internet", vbInformation, "www.vblink.blogfa.com"
End If
End Sub

کد صفحه لوگین

کد صفحه لوگین

دانلود

ویژوال بیسیک 6 فارسی

فارسی ساز ویژوال بیسیک 6 به همراه تغییر پوسته برنامه به ویندوز ویستا

به کمک این فایل ها محیط برنامه نویسی ویژوال بیسیک فارسی می شود که مناسب برای کلیه افراد مبتدی و حتی حرفه ای خواهد بود.

ابتدا این سه فایل رو در مسیر "C:\Program Files\Microsoft Visual Studio\VB98\" کپی کنید بعد

برنامه رو اجرا کنید. البته این فایل ها ترجیحا برای ویندوز xp نوشته شده است

کارهایی که این فایل ها میکنند عبارتند از :
- 1 فارسی کردن کامل محیط ویژوال بیسیک 6
- 2 قالب زشت ویژال بیسیک را به صورت Xp در می آورد.

 توجه:

برای راحتی شما عزیزان فایل به دو پارت تقسیم شده است.

قسمت اول

قسمت دوم

نکته مهم  :
اول از فایل VB6IDE.DLL و VB6.exe موجود در پوشه خود VB یک کپی در جای دیگر برای پشتیبان در صورتت بروز خطا نگه دارید و اگر برنامه کارنکرد برشون گردانید سر جاشون البته من خودم تست کردم 100% جواب می دهد.