مشاهده دست آورد نظرسنجی: این تایپک از نظر شما مفیده یا نه ؟

رای دهنده
311. شما نمی توانید در این رای گیری رای بدهید
  • بله

    301 96.78%
  • خیر

    10 3.22%
صفحه 2 از 7 اولاول 1234 ... آخرآخر
نمایش نتایج 41 تا 80 از 273

نام تاپیک: سورس کدهای مفید و کاربردی VB.Net

  1. #41
    کاربر دائمی آواتار sari-1369
    تاریخ عضویت
    دی 1387
    پست
    824
    تشکر کردن
    481
    596 بار تشکر شده در 321 پست

    نقل قول: بخش نمونه کدهای VB.Net

    تابعی برای تغییر زبان فعلی کیبورد :

    Public Sub SetLanguage(ByVal LabgugeName As Labguage)
    If Labguage.FA_Persian = LabgugeName Then
    InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("Fa"))
    ElseIf Labguage.EN_English = LabgugeName Then
    InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("En"))
    End If
    End Sub
    Public Enum Labguage
    FA_Persian = 0
    EN_English = 1
    End Enum


    روش استفاده :

    SetLanguage(Labguage.FA_Persian)

  2. 14 کاربر از sari-1369 به خاطر این مطلب مفید تشکر کرده اند:


  3. #42
    کاربر دائمی آواتار sari-1369
    تاریخ عضویت
    دی 1387
    پست
    824
    تشکر کردن
    481
    596 بار تشکر شده در 321 پست

    نقل قول: بخش نمونه کدهای VB.Net

    تابعی برای اصلاح تاریخ های بدون صفر : مثلا تبدیل 1388/8/8 به 1388/08/08

        Public Function EslahTarikh(ByVal Tarikh As String) As String
    Dim TarikhArry = Split(Tarikh, "/")
    If TarikhArry(1).Length < 2 Then
    TarikhArry(1) = "0" & TarikhArry(1)
    End If
    If TarikhArry(2).Length < 2 Then
    TarikhArry(2) = "0" & TarikhArry(2)
    End If
    Return TarikhArry(0) & "/" & TarikhArry(1) & "/" & TarikhArry(2)
    End Function

  4. 12 کاربر از sari-1369 به خاطر این مطلب مفید تشکر کرده اند:


  5. #43
    کاربر دائمی آواتار sari-1369
    تاریخ عضویت
    دی 1387
    پست
    824
    تشکر کردن
    481
    596 بار تشکر شده در 321 پست

    نقل قول: بخش نمونه کدهای VB.Net

    این تابع یه عکس رو میگیره و اندازه اون رو به سایز دلخواه تغییر میده .

        Public Function resize(ByVal img As Image, ByVal w As Integer, ByVal h As Integer) As Image
    Using bmp2 As New System.Drawing.Bitmap(img, New System.Drawing.Size(w, h))
    bmp2.Save(My.Application.Info.DirectoryPath & "\Files\img.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
    PictureBox1.Image = System.Drawing.Image.FromFile(My.Application.Info. DirectoryPath & "\Files\img.jpg")
    Return System.Drawing.Image.FromFile(My.Application.Info. DirectoryPath & "\Files\img.jpg")
    End Using
    End Function

  6. 10 کاربر از sari-1369 به خاطر این مطلب مفید تشکر کرده اند:


  7. #44
    کاربر دائمی آواتار sari-1369
    تاریخ عضویت
    دی 1387
    پست
    824
    تشکر کردن
    481
    596 بار تشکر شده در 321 پست

    نقل قول: بخش نمونه کدهای VB.Net

    تغییر ساعت فعلی سیستم :

    TimeOfDay = TimeSerial(10, 10, 10)

  8. 8 کاربر از sari-1369 به خاطر این مطلب مفید تشکر کرده اند:


  9. #45
    کاربر دائمی آواتار sari-1369
    تاریخ عضویت
    دی 1387
    پست
    824
    تشکر کردن
    481
    596 بار تشکر شده در 321 پست

    نقل قول: بخش نمونه کدهای VB.Net

    تغییر تاریخ فعلی سیستم :

    Today = DateSerial(1990, 10, 22)

  10. 9 کاربر از sari-1369 به خاطر این مطلب مفید تشکر کرده اند:


  11. #46
    کاربر دائمی آواتار Netsky
    تاریخ عضویت
    مرداد 1387
    پست
    1,033
    تشکر کردن
    539
    2,149 بار تشکر شده در 538 پست

    نقل قول: بخش نمونه کدهای VB.Net

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

  12. 17 کاربر از Netsky به خاطر این مطلب مفید تشکر کرده اند:


  13. #47
    کاربر جدید
    تاریخ عضویت
    خرداد 1387
    پست
    12
    تشکر کردن
    4
    15 بار تشکر شده در 6 پست

    نقل قول: بخش نمونه کدهای VB.Net

    سلام دوستان
    تا حالا شده بخواهيد از API تو VB.Net استفاده كنيد.
    كد زير يه نمونه براي اينكاره كه دايركتوري سيستم رو نشون ميده


    Put this at the top of your module.
    'Required in all cases when calling API functions
    Imports System.Runtime.InteropServices

    'Required in this example and any API function which
    'use a string buffer. Provides the StringBuilder class

    Imports System.Text

    'Put these declarations right under the class declaration
    '(e.g., in a Form, right under Public Class Form1)

    <DllImport("KERNEL32.DLL", EntryPoint:="GetSystemDirectoryW", _
    SetLastError:=True, CharSet:=CharSet.Unicode, _
    ExactSpelling:=True, _
    CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function GetSystemDirectory(ByVal Buffer _
    As StringBuilder, ByVal Size As Integer) As Long
    ' Leave function empty - DLLImport attribute
    ' forces calls to GetSystemDirectory to
    ' be forwarded to GetSystemDirectory in KERNEL32.DLL
    End Function

    Public Const MAX_PATH As Integer = 256



    'How to call the API function:


    Dim s As New StringBuilder(MAX_PATH)

    GetSystemDirectory(s, MAX_PATH)
    msgbox(s.ToString(), , "System Directory")
    آخرین ویرایش به وسیله salehbagheri : یک شنبه 13 دی 1388 در 09:20 صبح

  14. 8 کاربر از ahmad.salimi به خاطر این مطلب مفید تشکر کرده اند:


  15. #48
    کاربر دائمی آواتار Netsky
    تاریخ عضویت
    مرداد 1387
    پست
    1,033
    تشکر کردن
    539
    2,149 بار تشکر شده در 538 پست

    نقل قول: بخش نمونه کدهای VB.Net

    سلام به همه دوستان عزیز .
    بازم با یه برنامه باحال دیگه در خدمتتون هستم .
    یه ساعت بسیار زیبا که اگه در برنامتون ازش استفاده کنید نظر همه رو جلب میکنه .
    حتما حتما دانلودش کنید . دانلود نکردن = ضرر.
    عکس های ضمیمه عکس های ضمیمه
    فایل های ضمیمه فایل های ضمیمه

  16. 16 کاربر از Netsky به خاطر این مطلب مفید تشکر کرده اند:


  17. #49
    کاربر دائمی آواتار bashiry
    تاریخ عضویت
    مرداد 1385
    محل زندگی
    سامن
    پست
    180
    تشکر کردن
    38
    72 بار تشکر شده در 32 پست

    نقل قول: بخش نمونه کدهای VB.Net

    حالا كه پاي ساعت وسط كشيده شد منم يه ساعت عقربه اي خوشكل ميزارم:
    يكي از امكانات جالبي كه داره ميتونيد اسم خودتون يا شركت رو روي ساعت بندازين
    البته بايد توي كامپوننت ها گذاشته ميشد ولي به دليل ارتباطش با مبحث فعلي همينجا قراردادم.
    فایل های ضمیمه فایل های ضمیمه

  18. 17 کاربر از bashiry به خاطر این مطلب مفید تشکر کرده اند:


  19. #50
    کاربر دائمی آواتار Netsky
    تاریخ عضویت
    مرداد 1387
    پست
    1,033
    تشکر کردن
    539
    2,149 بار تشکر شده در 538 پست

    نقل قول: بخش نمونه کدهای VB.Net

    سلام به همه دوستان عزیز .
    یه بار دیگه با یه برنامه باحال دیگه در خدمت شما هستم .
    این برنامه یه جور ابزار کمکی به حساب میاد برای مواقعی که غیر قابل پیشبینی هستند . مثل موقعی که یه ویروس وارد کامپیوتر شما میشه و ریجستری - تسک منیجر و فولدر آپشن رو به درک واصل میکنه .
    خب با این برنامه میتونید همه چی رو به حالت عادی برگردونید . البته اگه هم خودتون خواستید میتونید همون سه مورد بالا رو دوباره غیر فعال کنید .
    حتما دانلودش کنید و مطمئن باشید روزی به دردتون میخوره .
    راستی داشت یادم میرفت . شما عزیزان باید هر دو فایل رو دانلود کنید . چون ادامه همدیگه هستند و واسه Extract کامل به هردو نیاز هستش.
    اینم یه اسکرین شات از برنامه :
    عکس های ضمیمه عکس های ضمیمه
    فایل های ضمیمه فایل های ضمیمه
    آخرین ویرایش به وسیله Netsky : جمعه 18 دی 1388 در 21:29 عصر

  20. 7 کاربر از Netsky به خاطر این مطلب مفید تشکر کرده اند:


  21. #51
    کاربر دائمی آواتار Netsky
    تاریخ عضویت
    مرداد 1387
    پست
    1,033
    تشکر کردن
    539
    2,149 بار تشکر شده در 538 پست

    نقل قول: بخش نمونه کدهای VB.Net

    سلام سلام سلام . حالتون خوبه ؟ انشالله که خوب نباشه ، بلکه عالی باشه .
    یه برنامه باحال دیگه واستون آماده کردم . یه ساعت زنگی با رابط کاربری ساده ولی بسیار زیبا . ازقابلیت های دیگه این ساعت زنگی اینکه شما میتونید با انتخاب یه فایل موسیقی از نوع wav اون رو به عنوان زنگ هشدار انتخاب کنید . یه چندتا قابلیت دیگه هم به اون اضافه کردم . مثلا نگه داشتن آخرین زمان تعیین شده توسط شما برای زمان هشدار و یا نگه داشتن مسیر فایل موسیقی که انتخاب کردید . از داخل سورس کد این برنامه چیزای خیلی خوبی دستگیرتون میشه .
    اینم یه اسکرین شات از برنامه :
    عکس های ضمیمه عکس های ضمیمه
    فایل های ضمیمه فایل های ضمیمه

  22. 14 کاربر از Netsky به خاطر این مطلب مفید تشکر کرده اند:


  23. #52
    کاربر دائمی آواتار sari-1369
    تاریخ عضویت
    دی 1387
    پست
    824
    تشکر کردن
    481
    596 بار تشکر شده در 321 پست

    نقل قول: بخش نمونه کدهای VB.Net

    این تابع یه تاریخ رو به عنوان ورودی میگیره و فردای اون رو حساب میکنه :

     Public Function Farda(ByVal Tarikh_shoro As String) As String
    Dim PerDate As New System.Globalization.PersianCalendar
    Dim Tarikh, Roz, Mah, Sal As String
    Dim a = Split(Tarikh_shoro, "/")
    Roz = a(2)
    Mah = a(1)
    Sal = a(0)
    If Mah > 0 And Mah < 7 Then
    If Roz > 1 And Roz < 31 Then
    Roz = Roz + 1
    ElseIf Roz = 31 Then
    Roz = 1
    Mah = Mah + 1
    End If
    ElseIf Mah > 6 And Mah < 12 Then
    If Roz > 0 And Roz < 30 Then
    Roz = Roz + 1
    ElseIf Roz = 30 Then
    Roz = 1
    Mah = Mah + 1
    End If
    ElseIf Mah = 12 Then
    Dim R As Integer = 29
    If PerDate.IsLeapYear(Sal) Then
    R = 30
    End If
    If Roz > 0 And Roz < R Then
    Roz = Roz + 1
    Else
    Roz = 1
    Mah = 1
    Sal = Sal + 1
    End If
    End If

    If Roz.Length < 2 Then
    Roz = "0" + Roz
    End If

    If Mah.Length < 2 Then
    Mah = "0" + Mah
    End If
    Tarikh = Sal + "/" + Mah + "/" + Roz
    Return Tarikh
    End Function

  24. 9 کاربر از sari-1369 به خاطر این مطلب مفید تشکر کرده اند:


  25. #53
    کاربر دائمی آواتار bashiry
    تاریخ عضویت
    مرداد 1385
    محل زندگی
    سامن
    پست
    180
    تشکر کردن
    38
    72 بار تشکر شده در 32 پست

    نقل قول: بخش نمونه کدهای VB.Net

    تابع چک سرویس پک 2 بودن ویندوز:


    Public Shared Function ServicePack2Installed() As Boolean
    Dim flag As Boolean = False
    Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microso ft\Windows NT\CurrentVersion")
    If (Not key Is Nothing) Then
    Dim obj2 As Object = key.GetValue("CSDVersion")
    If (Not obj2 Is Nothing) Then
    flag = obj2.Equals("Service Pack 2")
    End If
    End If
    Return flag
    End Function



    عملکرد تابع خیلی سادست. در مسیر رجیستری که میبینید اطلاعات خیلی خوبی هست که یکیش همین مشخصات ویندوز هست. خیلی راحت با این تابع مقدار CSDVersion رو میخونید و چک می کنید که اگر Service Pack 2 بود تابع مقدار true برگردونه در غیر اینصورت مقدار Flase برگردونده بشه
    اگه فرصت کردید به این مسیر در رجیستری سری بزنید میتونید تابع های دیگری رو راحت بنویسید . مثلا نام و ورژن ویندوز - مشخصات نصاب ویندوز - محل نصب ویندوز و ...


    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion

  26. 6 کاربر از bashiry به خاطر این مطلب مفید تشکر کرده اند:


  27. #54
    کاربر دائمی آواتار Hossis
    تاریخ عضویت
    آبان 1386
    محل زندگی
    قم
    پست
    1,665
    تشکر کردن
    312
    567 بار تشکر شده در 390 پست

    Talking نقل قول: بخش نمونه کدهای VB.Net

    نقل قول نوشته شده توسط sari-1369 مشاهده تاپیک
    تابعی برای تغییر زبان فعلی کیبورد :

    Public Sub SetLanguage(ByVal LabgugeName As Labguage)
    If Labguage.FA_Persian = LabgugeName Then
    InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("Fa"))
    ElseIf Labguage.EN_English = LabgugeName Then
    InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("En"))
    End If
    End Sub
    Public Enum Labguage
    FA_Persian = 0
    EN_English = 1
    End Enum
    روش استفاده :

    SetLanguage(Labguage.FA_Persian)
    Language صحیح است!

  28. 5 کاربر از Hossis به خاطر این مطلب مفید تشکر کرده اند:


  29. #55
    کاربر دائمی آواتار sari-1369
    تاریخ عضویت
    دی 1387
    پست
    824
    تشکر کردن
    481
    596 بار تشکر شده در 321 پست

    نقل قول: بخش نمونه کدهای VB.Net

    نقل قول نوشته شده توسط Hossis مشاهده تاپیک

    Language صحیح است!
    اشتباه تایپی بود برادر این قدر موهاتو نکش .

  30. 5 کاربر از sari-1369 به خاطر این مطلب مفید تشکر کرده اند:


  31. #56
    کاربر دائمی آواتار Netsky
    تاریخ عضویت
    مرداد 1387
    پست
    1,033
    تشکر کردن
    539
    2,149 بار تشکر شده در 538 پست

    نقل قول: بخش نمونه کدهای VB.Net

    سلام ..............
    یه برنامه دیگه واستون نوشتم که امیدوارم بدردتون بخوره که انشالله میخوره .
    این برنامه یه برنامه واسه چرخوندن عکس هاست . البته خیلی متفاوت تر از Rotator خود ویندوز که فقط 4 حالت بیشتر عکس ها رو نمیچرخونه . این برنامه 16 حالت عکس ها رو میچرخونه .
    روش کار برنامه هم به اینصورته :
    1 – از منوی فایل گزینه Open رو انتخاب و عکس مورد نظرتون رو باز کنید .
    2- از قسمت Degree یک حالت رو انتخاب کنید .
    3- واسه Save کردن عکس هم اول باید از قسمت Save Format یک گزینه رو انتخاب کنید و سپس دکمه Save رو از منوی File بزنید . مسیر ذخیره شدن فایل عکس هم درایو C هستش .
    اگه دانلود نکنید مطمئن مطمئن باشید که ضرر کردید .
    راستی اگه خوشتون اومد یه تشکر هم بکنید . البته این آیتم دلخواه شماست .
    نکته : دوستان سی شارپ کار هم میتونن از اینجا دانلود کننن .
    قربون همه شما دوستای عزیز .
    فایل های ضمیمه فایل های ضمیمه

  32. 19 کاربر از Netsky به خاطر این مطلب مفید تشکر کرده اند:


  33. #57
    کاربر دائمی آواتار Netsky
    تاریخ عضویت
    مرداد 1387
    پست
    1,033
    تشکر کردن
    539
    2,149 بار تشکر شده در 538 پست

    نقل قول: بخش نمونه کدهای VB.Net

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

    قبل از اینکه بریم سراغ کدها این NameSpace رو باید در برنامتون Import کنید .
    بنابر این در قسمت General کد زیر رو بنویسید :

    Imports System.Media

    خب ، حالا بریم سراغ کدها :

    کد شماره 1 : با این کد میتونید خیلی راحت یه فایل موزیک از نوع .WAV رو در برنامتون اجرا کنید .

    Public Function Sound_Player()
    ' Play Your Sound File (Extension .WAV)
    Dim SUND_PLY As SoundPlayer = New SoundPlayer("C:\Your_File.wav")
    SUND_PLY.Play()
    End Function

    کد شماره 2 : حالا اگه یه موقعی خواستید موزیکی رو که با کد بالا اجرا کردید و در حال اجرا هم هست متوقف کنید از کد زیر استفاده کنید :

    Public Function Sound_Stop()
    ' Stop Played Sound.
    Dim SUND_PLY As SoundPlayer = New SoundPlayer
    SUND_PLY.Stop()
    End Function

    کد شماره 3 : بعضی مواقع پیش میاد که بخایم یه موزیک رو تکرار کنیم . یه چیزی مثل خاصیت Repeat در برنامه Media Player . کد زیر این کار رو واستون انجام میده :

    Public Function Sound_Play_Looping()
    ' Play Your Sound File , Looping Status.
    Dim SUND_PLY As SoundPlayer = New SoundPlayer("C:\Your_File.wav")
    SUND_PLY.PlayLooping()
    End Function

    کد شماره 4 : اگه خواستید یه موزیک رو به عنوان موزیک خوش آمدگویی یا چیزی شبیه به این در برنامتون قرار بدید ، از این کد استفاده کنید . چون قبل از اینکه فرم بارگذاری بشه ، موزیک پخش میشه و بعد از اون فرم ظاهر میشه . اینم کد :

    Public Function Sound_Play_Sync()
    ' Play Your Sound File Before Form Load.
    Dim SUND_PLY As SoundPlayer = New SoundPlayer("C:\Your_File.wav")
    SUND_PLY.PlaySync()
    End Function

    دوستان عزیز فقط به یک نکته توجه کنید ، به جای این آدرس C:\Your_File.wav ، آدرس فایل خودتون رو جایگزین کنید .

  34. 11 کاربر از Netsky به خاطر این مطلب مفید تشکر کرده اند:


  35. #58
    کاربر دائمی آواتار Netsky
    تاریخ عضویت
    مرداد 1387
    پست
    1,033
    تشکر کردن
    539
    2,149 بار تشکر شده در 538 پست

    نقل قول: بخش نمونه کدهای VB.Net

    سلام عرض میکنم خدمت همه دوستان عزیز.
    این بار واستون یه کلاس نوشتم . بوسیله ی این کلاس میتونید محاسبه کنید که مثلا 2 قرن ، چند دهه ، سال ، ماه ، هفته ، روز ، ساعت ، دقیقه و ثانیه است . شما میتونید تا 999 تریلیارد قرن رو محاسبه کنید . روش استفاده هم به این صورته :

    Dim CC As New Century
    CC.Century_Calculations(100)
    شما میتونید به جای 100 تا 999 تریلیارد رو محاسبه کنید .
    فایل های ضمیمه فایل های ضمیمه

  36. 8 کاربر از Netsky به خاطر این مطلب مفید تشکر کرده اند:


  37. #59
    کاربر جدید
    تاریخ عضویت
    خرداد 1387
    پست
    12
    تشکر کردن
    4
    15 بار تشکر شده در 6 پست

    نقل قول: بخش نمونه کدهای VB.Net

    سلام دوستان
    من دنبال يه كدي هستم كه درقالب يه كلاس يا Dll باشه و بتونه كليه كارهاي بانك اطلاعاتي رو مثل درج،ويرايش،حذف و واكشي اطلاعات رو انجام بده مثلانامSTORE PROCEDURE رو با پارامترها بگيره و اونو EXECUTE كنه البته من قبلا تو VB6 اين كارو در قالب يه كلاس انجام دادم

  38. 3 کاربر از ahmad.salimi به خاطر این مطلب مفید تشکر کرده اند:


  39. #60
    کاربر دائمی آواتار ebrahimv
    تاریخ عضویت
    اسفند 1385
    محل زندگی
    وايقان
    سن
    28
    پست
    391
    تشکر کردن
    114
    108 بار تشکر شده در 63 پست

    Thumbs up نقل قول: بخش نمونه کدهای VB.Net

    سلام یکی از دوستان گرامی برای به دست آوردن تاریخ روز بعد کلی کد نوشته بودن در حالی که نیاز به این همه کد نیست.

    روز بعد

    Dim Md AsDate = Now.Date.Add(New System.TimeSpan(1, 0, 0, 0))


    روز قبل

    Dim Md AsDate = Now.Date.Add(New System.TimeSpan(-1, 0, 0, 0))

    دو روز بعد

    Dim Md AsDate = Now.Date.Add(New System.TimeSpan(2, 0, 0, 0))

    4 روز قبل

    Dim Md AsDate = Now.Date.Add(New System.TimeSpan(-4, 0, 0, 0))
    آخرین ویرایش به وسیله ebrahimv : چهارشنبه 30 دی 1388 در 19:48 عصر

  40. 16 کاربر از ebrahimv به خاطر این مطلب مفید تشکر کرده اند:


  41. #61
    کاربر دائمی آواتار ebrahimv
    تاریخ عضویت
    اسفند 1385
    محل زندگی
    وايقان
    سن
    28
    پست
    391
    تشکر کردن
    114
    108 بار تشکر شده در 63 پست

    نقل قول: بخش نمونه کدهای VB.Net

    تغيير زبان به فارسي يا هر زبان ديگري كه دلتان خواست

    InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(
    New System.Globalization.CultureInfo("Fa"))

  42. 8 کاربر از ebrahimv به خاطر این مطلب مفید تشکر کرده اند:


  43. #62
    کاربر دائمی آواتار sari-1369
    تاریخ عضویت
    دی 1387
    پست
    824
    تشکر کردن
    481
    596 بار تشکر شده در 321 پست

    نقل قول: بخش نمونه کدهای VB.Net

    نقل قول نوشته شده توسط ebrahimv مشاهده تاپیک
    تغییر زبان به فارسی یا هر زبان دیگری که دلتان خواست

    InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(
    New System.Globalization.CultureInfo("Fa"))
    سلام دوست عزیز ، این کد تکراریه ، توی همین تایپیک اومده .

  44. 3 کاربر از sari-1369 به خاطر این مطلب مفید تشکر کرده اند:


  45. #63
    کاربر دائمی آواتار oggiii
    تاریخ عضویت
    آذر 1388
    محل زندگی
    C:\WINDOWS\system32
    پست
    108
    تشکر کردن
    63
    11 بار تشکر شده در 7 پست

    نقل قول: بخش نمونه کدهای VB.Net

    دوستان این بخش خیلی مفید و جالب هست لطفا از دیتابس اس کیو ال هم سورس بزارید ممنون میشیم

  46. 4 کاربر از oggiii به خاطر این مطلب مفید تشکر کرده اند:


  47. #64
    کاربر دائمی آواتار saadi2
    تاریخ عضویت
    دی 1387
    سن
    33
    پست
    303
    تشکر کردن
    97
    276 بار تشکر شده در 132 پست

    نقل قول: بخش نمونه کدهای VB.Net

    فایل های ضمیمه فایل های ضمیمه

  48. 9 کاربر از saadi2 به خاطر این مطلب مفید تشکر کرده اند:


  49. #65
    کاربر دائمی آواتار handvbnet
    تاریخ عضویت
    فروردین 1387
    پست
    135
    تشکر کردن
    42
    85 بار تشکر شده در 30 پست

    نقل قول: بخش نمونه کدهای VB.Net

    سلام . یک برنامه آنتی ویروس با vb.net واقعا عالیه برای شروع نوشتن یک آنتی ویروس .. چون حجمش زیاد بود یه جا دیگه Uploadesh کردم .. ببخشید دیگه

    Download Update.rar for free on uploading.com
    عکس های ضمیمه عکس های ضمیمه

  50. 12 کاربر از handvbnet به خاطر این مطلب مفید تشکر کرده اند:


  51. #66
    کاربر دائمی آواتار ebrahimv
    تاریخ عضویت
    اسفند 1385
    محل زندگی
    وايقان
    سن
    28
    پست
    391
    تشکر کردن
    114
    108 بار تشکر شده در 63 پست

    Thumbs up نقل قول: بخش نمونه کدهای VB.Net ( تقویم)

    سلام
    این کلاسی که برای دوستان آپلود کردم مناسبت های تاریخ شمسی و قمری و میلادی را نمایش میدهد در کل یه تقویم هست
    برای تمام سال ها جواب میده مگر این که مناسبت های جدیدی اضافه بشه
    درسته که نوشتنش وقت زیادی گرفت اما قابل شما دوستان عزیز را ندارد
    حالا نحوه استفاده
    اول این کلاس را دانلود کرده و به پرژه خود اضافه کنید
    بعد یه نمونه از کلاس ایجاد کرده و به ترتیب زیر استفاهده کنید

    Dim urgs AsNew Urge
    Dim clf AsBoolean = False
    Label1.Text = String.Empty
    'مناسبت تاريخ قمري
    If urgs.UrgeGamari <> "-1"Then
    Label1.Text = urgs.UrgeGamari
    clf = True
    EndIf
    Dim gModel = urgs.GetModel
    'مناسبت تاريخ شمسي
    If urgs.UrgeShamsi <> "-1"Then
    If clf = TrueThen
    Label1.Text &= vbCrLf & urgs.UrgeShamsi
    Else
    Label1.Text = urgs.UrgeShamsi
    clf = True
    EndIf
    EndIf
    Dim SModel = urgs.GetModel
    'مناسبت تاريخ قمري
    If urgs.UrgeMiladi <> "-1"Then
    If clf = TrueThen
    Label1.Text &= vbCrLf & urgs.UrgeMiladi
    Else
    Label1.Text = urgs.UrgeMiladi
    EndIf
    EndIf
    'آن روز تعطيل هست
    If urgs.GetHaliDay = TrueThen
    Label1.ForeColor = Color.Red
    EndIf
    'روز غم هست يا نه
    If gModel = 2 Or SModel = 2 Then
    'روز شادي
    ElseIf gModel = 1 Or SModel = 1 Then
    'روز غم
    EndIf

    راستی این تاپیک به نظر خیلی خوب شده
    فایل های ضمیمه فایل های ضمیمه

  52. 14 کاربر از ebrahimv به خاطر این مطلب مفید تشکر کرده اند:


  53. #67
    کاربر دائمی آواتار handvbnet
    تاریخ عضویت
    فروردین 1387
    پست
    135
    تشکر کردن
    42
    85 بار تشکر شده در 30 پست

    دزدگیر

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


  54. #68
    منتظر تایید آدرس ایمیل
    تاریخ عضویت
    بهمن 1386
    محل زندگی
    كشور فرشته گانِ اروپا سوئد
    پست
    368
    تشکر کردن
    7
    429 بار تشکر شده در 144 پست

    Smile Changes selected Tab on DragOver



    Private Sub myTabControl_DragOver(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.DragEventArgs) Handles myTabControl.DragOver
    Dim myTabs As TabControl = sender

    'Get the position of the mouse, relative to the tab control
    Dim pt As Point = _
    myTabs.PointToClient(New Point(e.X, e.Y))
    Dim IndexOld As Integer = myTabs.SelectedIndex

    ' !!Call The function!!
    Dim IndexNew As Integer = GetTabPageIndex(pt, myTabs)

    'Check the previously selected index
    'and the return index numbers for equality
    If IndexNew <> IndexOld Then

    'Changes the selected index of the Tab Control
    myTabs.SelectedIndex = IndexNew
    myTabs.Focus()

    'The next lines center the mouse up on the tab
    Dim tr As Rectangle = myTabs.GetTabRect(IndexNew)
    Windows.Forms.Cursor.Position = myTabs.PointToScreen _
    (New Point(tr.X + (tr.Width / 2), tr.Y + (tr.Height / 2)))
    End If
    End Sub

    '////////////////////////////////////////////////////////
    '''''''This function returns an index number for the tab
    '''''''your mouse is over
    '////////////////////////////////////////////////////////
    Private Function GetTabPageIndex( _
    ByVal p As Point, _
    ByVal myTabs As TabControl) As Integer
    Dim index As Integer = 0

    'Check all the Tabs
    For index = 0 To myTabs.TabCount - 1

    'This gets the rectangle of the Tab
    Dim TabRect As Rectangle = _
    myTabs.GetTabRect(index)

    'The checks if the mouse position
    'is inside the Tab Rectangle
    If TabRect.Contains(p.X, p.Y) Then
    Return index
    End If
    Next
    Return index
    End Functio

    Src

  55. 5 کاربر از H2K به خاطر این مطلب مفید تشکر کرده اند:


  56. #69
    کاربر دائمی آواتار saadi2
    تاریخ عضویت
    دی 1387
    سن
    33
    پست
    303
    تشکر کردن
    97
    276 بار تشکر شده در 132 پست

    نقل قول: بخش نمونه کدهای VB.Net

    Winamp 2.5

    فایل های ضمیمه فایل های ضمیمه

  57. 10 کاربر از saadi2 به خاطر این مطلب مفید تشکر کرده اند:


  58. #70
    کاربر دائمی آواتار saadi2
    تاریخ عضویت
    دی 1387
    سن
    33
    پست
    303
    تشکر کردن
    97
    276 بار تشکر شده در 132 پست

    نقل قول: بخش نمونه کدهای VB.Net

    Mp3 Info

    فایل های ضمیمه فایل های ضمیمه

  59. 7 کاربر از saadi2 به خاطر این مطلب مفید تشکر کرده اند:


  60. #71
    کاربر دائمی آواتار saadi2
    تاریخ عضویت
    دی 1387
    سن
    33
    پست
    303
    تشکر کردن
    97
    276 بار تشکر شده در 132 پست

    نقل قول: بخش نمونه کدهای VB.Net

    MyPaint


    فایل های ضمیمه فایل های ضمیمه

  61. 7 کاربر از saadi2 به خاطر این مطلب مفید تشکر کرده اند:


  62. #72
    کاربر دائمی آواتار saadi2
    تاریخ عضویت
    دی 1387
    سن
    33
    پست
    303
    تشکر کردن
    97
    276 بار تشکر شده در 132 پست

    نقل قول: بخش نمونه کدهای VB.Net

    MyComputer

    فایل های ضمیمه فایل های ضمیمه

  63. 10 کاربر از saadi2 به خاطر این مطلب مفید تشکر کرده اند:


  64. #73
    کاربر دائمی آواتار Netsky
    تاریخ عضویت
    مرداد 1387
    پست
    1,033
    تشکر کردن
    539
    2,149 بار تشکر شده در 538 پست

    نقل قول: بخش نمونه کدهای VB.Net

    سلام به همه دوستان عزیز .
    بعد از چند روز یه کد واستون نوشتم . اینو بزارید توی From_Load ببینید چی میشه !!!!!!!!

    Dim g As New Drawing2D.GraphicsPath
    '------------------------
    Dim Rect As RectangleF
    With Rect
    .Height = 100
    .Width = 150
    .X = 100
    .Y = 100
    End With
    '---------------------
    g.AddRectangle(Rect)
    Me.Region = New System.Drawing.Region(g)

  65. 8 کاربر از Netsky به خاطر این مطلب مفید تشکر کرده اند:


  66. #74
    کاربر دائمی آواتار Hossis
    تاریخ عضویت
    آبان 1386
    محل زندگی
    قم
    پست
    1,665
    تشکر کردن
    312
    567 بار تشکر شده در 390 پست

    نقل قول: بخش نمونه کدهای VB.Net

    نقل قول نوشته شده توسط Netsky مشاهده تاپیک
    سلام به همه دوستان عزیز .
    بعد از چند روز یه کد واستون نوشتم . اینو بزارید توی From_Load ببینید چی میشه !!!!!!!!
    خوب چی میشه؟؟؟
    ببخشید من نمی تونم امتحانش کنم چون VS رو نصب ندارم؟؟

  67. کاربرانی که به خاطر مطلب مفید Hossis از وی تشکر کرده‌اند:


  68. #75
    کاربر دائمی آواتار Netsky
    تاریخ عضویت
    مرداد 1387
    پست
    1,033
    تشکر کردن
    539
    2,149 بار تشکر شده در 538 پست

    نقل قول: بخش نمونه کدهای VB.Net

    نقل قول نوشته شده توسط Hossis مشاهده تاپیک
    خوب چی میشه؟؟؟
    ببخشید من نمی تونم امتحانش کنم چون VS رو نصب ندارم؟؟
    شکل فرم رو تغییر میده .

  69. کاربرانی که به خاطر مطلب مفید Netsky از وی تشکر کرده‌اند:


  70. #76
    کاربر دائمی آواتار Netsky
    تاریخ عضویت
    مرداد 1387
    پست
    1,033
    تشکر کردن
    539
    2,149 بار تشکر شده در 538 پست

    نقل قول: بخش نمونه کدهای VB.Net

    ســــــــــــــــلام .
    اینم یه کد واسه خاموش کردن سیستم بعد از 1 دقیقه .

    System.Diagnostics.Process.Start("shutdown.exe", " -s -t 60")
    خب اگه خاستید عملیات خاموش شدن رو متوقف کنید Command Prompt رو باز کنید و کد زیر رو وارد کنید :

    shutdown -a
    بای بای ........................
    آخرین ویرایش به وسیله Netsky : یک شنبه 11 بهمن 1388 در 01:10 صبح

  71. 10 کاربر از Netsky به خاطر این مطلب مفید تشکر کرده اند:


  72. #77
    کاربر دائمی آواتار jingiliboyz
    تاریخ عضویت
    دی 1388
    محل زندگی
    تهران
    پست
    183
    تشکر کردن
    99
    13 بار تشکر شده در 12 پست

    نقل قول: بخش نمونه کدهای VB.Net

    با تشکر و سپاس از شما آیا میشه از این کد ها در vs استفاده کرد یعنی دات نتی کردش یا نه

  73. کاربرانی که به خاطر مطلب مفید jingiliboyz از وی تشکر کرده‌اند:


  74. #78
    کاربر دائمی آواتار ricky22
    تاریخ عضویت
    مرداد 1386
    محل زندگی
    شیراز
    پست
    1,591
    تشکر کردن
    436
    1,388 بار تشکر شده در 646 پست

    نقل قول: بخش نمونه کدهای VB.Net

    نقل قول نوشته شده توسط jingiliboyz مشاهده تاپیک
    با تشکر و سپاس از شما آیا میشه از این کد ها در vs استفاده کرد یعنی دات نتی کردش یا نه
    یعنی چی؟
    این کدا خب به زبان ویبی دات نت هست دیگه!

  75. 2 کاربر از ricky22 به خاطر این مطلب مفید تشکر کرده اند:


  76. #79
    کاربر جدید آواتار fba1368
    تاریخ عضویت
    بهمن 1388
    سن
    27
    پست
    1
    تشکر کردن
    0
    یک بار تشکر شده در یک پست

    نقل قول: بخش نمونه کدهای VB.Net

    سلام یه کد میخوام برای سرچ فایل ها در vb.net

  77. کاربرانی که به خاطر مطلب مفید fba1368 از وی تشکر کرده‌اند:


  78. #80
    کاربر دائمی آواتار Netsky
    تاریخ عضویت
    مرداد 1387
    پست
    1,033
    تشکر کردن
    539
    2,149 بار تشکر شده در 538 پست

    نقل قول: بخش نمونه کدهای VB.Net

    سلام .
    به کد دیگه تقدیم دوستان عزیز میکنم .
    بوسیله این کد میتونید با استفاده از PID یک پروسس نام اون پروسس رو بدست بیارید .

    MsgBox(System.Diagnostics.Process.GetProcessById(4 000).ToString())

  79. 5 کاربر از Netsky به خاطر این مطلب مفید تشکر کرده اند:


صفحه 2 از 7 اولاول 1234 ... آخرآخر

برچسب های این تاپیک

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •