سورس های کاربردی و پیشرفته

[>-->O]

سورس فایل حرکت نوشته ها بر روی TextBox و فرم

 

[>-->O]

برنامه اي براي تغيير بر روي فايلهاي آيكن و نشانگر موس

 

[>-->O]

سیاه و سفید کردن عکس در vb6

 

[>-->O]

سورس نرم افزار مدیریت فاکتور خیام

دانلود با حجم 1 م.گ

 

[>-->O]

حتما بارها برنامه هایی مانند KM Player و ... را دیده اید که لبه های فرم های آن به یک دیگر و گوشه های محیط کاری می چسبند .

سورس کد ضمیمه شده نحوه انجام این کار رو در VB6 به شما آموزش خواهد داد

 

[>-->O]

سورس کد شطرنجی کردن تصویر در ویژوال بیسیک

 

[>-->O]

سورس دفترچه تلفن

1- قابلیت جستجو بر اساس نام،شهرت،تلفن ( منزل،محل کار،موبایل ) است .

2-قابلیت ذخیره کردن تصویر برای هر مشخصه .

3- دارای شماره گیری .

4- دارای رمزگذاری برنامه و Help

5- قابلیت انگلیسی و فارسی شدن

6 - ....

دانلود

 

[>-->O]

سورس نرم افزار خبر خوان شیک بلاگ

دانلود

 

[>-->O]

این سورس یک برنامه است که فایل pdf میسازه

دانلود

 

[>-->O]

بررسی اتصال به اینترنت با روشی کاملا مطمئن

با استفاده از تابع InternetCheckConnection به صورت خیلی سریع می تونید اتصال به اینترنت رو بررسی کنید

Option Explicit
 
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
 
 
Private Function InternetConnectionIsEstablished() As Boolean
  InternetConnectionIsEstablished = CBool(InternetCheckConnection("http://www.google.com/", &H1, ByVal 0&))
End Function
 
 
Private Sub Form_Load()
  MsgBox InternetConnectionIsEstablished
End Sub

 

[hakiran16]

ممنون خیلی لازم داشتم

چگونه از اجراي مجدد يک برنامه در ويژوال بيسيک جلوگيري شود ؟
خوب با استفاده از تيکه کد زير در فرم اصلي برنامه تان مي توانيد از اجراي مجدد (Duplicate) برنامه جلوگيري کني

Private Sub Form_Load() If App.PrevInstance = True Then Dim Result As Integer Result = MsgBox("برنامه در حال اجراست", vbInformation, "Warnnig") Unload Me End If End Sub

 

[ukramin]

بررسی اتصال به اینترنت با روشی کاملا مطمئن

با استفاده از تابع InternetCheckConnection به صورت خیلی سریع می تونید اتصال به اینترنت رو بررسی کنید

Option Explicit
 
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
 
 
Private Function InternetConnectionIsEstablished() As Boolean
  InternetConnectionIsEstablished = CBool(InternetCheckConnection("http://www.google.com/", &H1, ByVal 0&))
End Function
 
 
Private Sub Form_Load()
  MsgBox InternetConnectionIsEstablished
End Sub

مر30 خوب بود

 

[sepehri302]

مرسی خوب بودن دست شما درد نکنه

 

[smahootchi]

MsComm1.CommPort = "3" If MsComm1.PortOpen = False Then
MsComm1.PortOpen = True
MsComm1.Settings = "9600,N,8,1" MsComm1.Output = "ATP" & "2518085" & vbCrlf
End If

 

[irantrn]

شماره گیری با مودم توسط ویژوال بیسیک :

MsComm1.CommPort = "3"
If MsComm1.PortOpen = False Then
    MsComm1.PortOpen = True
MsComm1.Settings = "9600,N,8,1"
MsComm1.Output = "ATP" & "2518085" & vbCrlf
End If

چه برنامه جالبی

 

[Moein TN]

سلام
من تازه قصد کردم برنامه نویسی به زبان vb رو یاد بگیرم.
اموزش هاشو از سایت خریداری کردم.
میخواستم ببینم vb بهتره یا c#?
چون اموزشای هردو رو داشت ولی من گفتم vb رو بگیرم اسون تر شاید باشه.
از این سایت خریدم: http://118file.com

 

[Polonia]

بادرود خیلی عالی و مفید لطفا ادامه بدهید باسپاس.