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

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

    314 96.62%
  • خیر

    11 3.38%
صفحه 1 از 7 123 ... آخرآخر
نمایش نتایج 1 تا 40 از 275

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

Hybrid View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1

    Smile سورس کدهای مفید و کاربردی VB.Net

    با سلام به همه کاربران گرامی سایت برنامه نویس .
    با توجه به این که بنده تاپیکی جامع در مورد سورس کدهای VB.NET ندیدم ، تصمیم گرفتم تا یک تاپیک در این رابطه راه اندازی کنم و از این به بعد نمونه کدهای کاربردی رو در اینجا قرار بدیم .
    با کمک و یاری دوستان انشاالله تاپیک پر محتوایی خواهد شد .
    دوستان عزیز ، برای جلوگیری از هرج و مرج و بهم ریختگی تاپیک از شما عزیزان درخواست میکنم که به نکات زیر توجه کنید :
    1- از سوال کردن در این تاپیک خودداری کنید . سوالات خود را در تاپیک جداگانه مطرح کنید . در صورتی هم که در مورد یک سورس کد سوالی دارید از فرد ارسال کننده سوال خود به صورت پیام خصوصی بپرسید .
    2- از پرداختن به بحث های حاشیه ای و مشاجره لفظی با دیگر کاربران اکیدا خودداری کنید .
    3- از قرار دادن فایل اجرایی ( Exe ) بدون سورس کد امتنا کنید .
    4- برای تشکر کردن از سورس کدهای دیگران نیز از دکمه تشکر استفاده کنید و پست بیهوده ارسال نکنید .

    5- سورس کدهای خود را در فضایی که سایت به شما ارائه میدهد آپلود کنید و در صورتی که فایل شما حجیم تر از فضای ارائه شده است ، فایل خود را در مکانی دیگر آپلود و سپس لینک را در سایت قرار دهید . از درخواست ایمیل کاربران برای فرستادن سورس کد که باعث بوجود آمدن پست های بیهوده (حاوی آدرس ایمیل ها) میشود خودداری کنید .

    6- در هر پست یک سورس ارسال کنید و از قرار دادن دسته جمعی سورس کدها در یک پست که باعث سردرگم شدن کاربر میشود خودداری کنید .


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

  2. #2

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

    سلام .
    اولین برنامه رو هم خودم میزارم . با این برنامه میتونید آیکون درایوهاتون رو عوض کنید .
    فایل های ضمیمه فایل های ضمیمه

  3. #3
    کاربر تازه وارد آواتار mohammad.moosaei
    تاریخ عضویت
    مهر 1388
    محل زندگی
    kernel32.dll
    سن
    36
    پست
    79

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

    سلام دوستان :

    این دو تا برنامه رو براتون گذاشتم که اولی یک نوع پازله که همش با استفاده از تکنیک Linq نوشته شده امیدوارم کمکتون کنه . دومی هم یک برنامه search هستش که اینم برای کار با فایها و فولدرها و آشنایی با Threading بد نیست . امیدوارم که از این برنامه هایی که نوشتم هم خوشتون بیاد و هم به دردتون بخوره .

    راستی منتظره انتقادها و پیشنهاداتون هستم.

    لینکها:

    Puzzle:
    http://www.4shared.com/file/og6nwdHW...al_Puzzel.html

    Win Search:

    http://www.4shared.com/file/36t3Szlw/TurboSearcher.html

  4. #4

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

    سلام به همگی .
    اینم برنامه بعدی که واستون میزام . آموزش کامل انجام کارهای گرافیکی در vb.net
    20 تابع در مورد کارهای گرافیکی در این برنامه بررسی شدن .
    فایل های ضمیمه فایل های ضمیمه

  5. #5

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

    سلام .
    بابا دمتون گرم . اینقدر همکاری میکنید یهو خسته شنید . بابا یه کدی ، یه چیزی بزارین .
    خب ، در هر صورت برنامه بعدی که واستون نوشتم رو معرفی میکنم .
    با این برنامه میتونید اطلاعات مفید هر درایو رو بگیرید . مثل :
    1- فضای کلی
    2- فضای خالی
    3- فضای استفاده شده
    4- نوع درایو
    5- فرمت درایو
    امیدوارم خوشتون بیاد .
    بای بای ...................
    فایل های ضمیمه فایل های ضمیمه

  6. #6

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

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

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

  7. #7

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

    سلام .
    یه برنامه دیگه واستون نوشتم . با این برنامه میتونید اطلاعات دمربوط به یک فایل رو استخراج کنید :
    1- آدرس کامل فایل
    2- ساعت ساخته شدن فایل
    3- تاریخ ساخته شدن فایل
    4- پسوند فایل
    5- زمان آخرین دسترسی به فایل
    6- زمان آخرین ویرایش فایل
    7- اندازه فایل
    امیدوارم خوشتون بیاد .
    بای بای ..............
    فایل های ضمیمه فایل های ضمیمه

  8. #8

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

    سلام عرض میکنم خدمت تمام برنامه نویسای عزیز .
    یه کد نوشتم که گفتم شاید واستون جالب باشه و براتون گذاشتم .
    کد زیر رو در Form_Load کپی کنید . و نتیجه رو مشاهده کنید :

    Dim g As New Drawing2D.GraphicsPath
    g.AddEllipse(10, 10, 200, 200)
    Me.Region = New System.Drawing.Region(g)



  9. #9

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

    سلام به همه دوستان .
    بابا خیلی با مرامین . این همه استاد و دریغ از یک سورس کد . البته باید از armin8651 تشکر کنم که حداقل یه سورس گذاشت .
    خب حالا بگذریم . کد بعدی که میزارم میتونه واستون یه متن رو به صورت Vertical ( عمودی ) روی فرم چاپ کنه . امیدوارم خوشتون بیاد :

    Dim formgraphic As System.Drawing.Graphics = Me.CreateGraphics
    Dim drawstring As String = "N e t s k y"
    Dim drawfont As New Font("Tahoma", 25)
    Dim drawbrush As New SolidBrush(Color.Blue)
    Dim x As Single = 150.0
    Dim y As Single = 50.0
    Dim drawformat As New StringFormat
    drawformat.FormatFlags = StringFormatFlags.DirectionVertical
    formgraphic.DrawString(drawstring, drawfont, drawbrush, x, y, drawformat)
    drawfont.Dispose()
    drawbrush.Dispose()
    formgraphic.Dispose()

  10. #10

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

    خواهش میکنم Netsky
    اینم یک برنامه که عکس اسکن شده از اسکنر رو مستقیم میاره تو یک پیکچر باکس.

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

  11. #11

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

    با سلام
    خیلی وقت بود دنبال برنامه ای در vb.net بودم که بتونه عملیات اسکن انجام بده ، این برنامه مشکل منو حل کرد

    با تشکر

  12. #12
    کاربر جدید آواتار A.R.M.N
    تاریخ عضویت
    بهمن 1388
    محل زندگی
    شهر فرهنگی
    پست
    27

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

    نقل قول نوشته شده توسط armin8651 مشاهده تاپیک
    خواهش میکنم Netsky
    اینم یک برنامه که عکس اسکن شده از اسکنر رو مستقیم میاره تو یک پیکچر باکس.




    دوست عزیز فکر کنم شما از کامپوننت خاصی استفاده کردید که نذاشتی. اگه می شه کمک کن.
    واسم این قسمتو خطا میده:
    Private
    WiaClass As WIALib.WiaClass

  13. #13

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

    نقل قول نوشته شده توسط A.R.M.N مشاهده تاپیک
    دوست عزیز فکر کنم شما از کامپوننت خاصی استفاده کردید که نذاشتی. اگه می شه کمک کن.
    واسم این قسمتو خطا میده:
    Private
    WiaClass As WIALib.WiaClass
    reference به نام microsoft windows image acquisition1.01 type library رو به پروژه خودت اضافه كن ، از این reference استفاده شده. جز refrence های com هستش.

  14. #14
    کاربر جدید آواتار A.R.M.N
    تاریخ عضویت
    بهمن 1388
    محل زندگی
    شهر فرهنگی
    پست
    27

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

    نقل قول نوشته شده توسط armin8651 مشاهده تاپیک
    reference به نام microsoft windows image acquisition1.01 type library رو به پروژه خودت اضافه كن ، از این reference استفاده شده. جز refrence های com هستش.
    ولی توی پوشه Com من همچین چیزی نیست. احتمالا شما برنامه خاصی روی سیستمتون نصب کردید یا اینکه شاید برنامه اسکنرتون. در هر صورت ممنون

    یک DLL هم توی سورس هست ولی اونم که ADD می کنم ارور میده.

    راه دیگه ای برای اینکار نیست؟؟ من دقیقاً باید همین کارو که این پروژه می کنه توی پروژم انجام بدم.

  15. #15

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

    سلام .
    اینم یه برنامه باحال دیگه واسه دوستای خودم .
    با این برنامه میتونید درایوهای USB کامپیوترتون رو پیدا کنید .
    امیدوارم خوشتون بیاد .
    فایل های ضمیمه فایل های ضمیمه

  16. #16
    مدیر بخش آواتار gilsoft
    تاریخ عضویت
    آبان 1386
    محل زندگی
    رشت
    پست
    753

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

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


    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    'ONLY ALLOW CONTROL CHARS (LIKE BACKSPACE) AND NUMBERS TO BE ENTERED
    Select Case Char.GetUnicodeCategory(e.KeyChar)
    Case Globalization.UnicodeCategory.Control, Globalization.UnicodeCategory.DecimalDigitNumber
    Case Else
    e.Handled = True
    End Select
    End Sub
    آخرین ویرایش به وسیله gilsoft : چهارشنبه 17 آبان 1391 در 03:51 صبح
    قوانین سایت برنامه نویس [به هیچ عنوان از طریق پیام خصوصی به سوالات پاسخ داده نمی‌شود.]
    حمید محرابی

    چون وا نمیکنی گِره‌ای خود گِره مّشو / ابرو گشاده باش چو دستت گشاده نیست

  17. #17

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

    سلام .
    اساتید گرامی ، لطفا در پربار شدن این تاپیک کمک کنید .
    بابا از بس که گفتم زبونم مو در آورد .
    خب از این بحث ها بگذریم و بریم سراغ کد بعدی . کار این کد اینه که عکس مورد نظرتون رو Rotate ( چرخش ) میکنه .
    اگه خواستید زاویه رو هم تغییر بدید توی اعدادی که داخل کد هست ، دست ببرید .

    Dim Graphic As Graphics
    Graphic = Me.CreateGraphics
    '---------------------------
    Dim DestPoint As Point() = {New Point(100, 0), New Point(260, 50), New Point(100, 200)}
    'DestPoint = Destination Point
    '----------------------------
    'Adrese Aks Mored Nazare Khodetoon Ro Be Jaye ("c:\Your_Image.jpg") Bezarid .
    Dim NewImage As Image = Image.FromFile("C:\Your_Image.jpg")
    '-------------------------------------------------
    Graphic.DrawImage(NewImage, DestPoint)


  18. #18

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

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

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

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

    سلام منم می خوام تو این تاپیک فعالیت کنم
    با این کد میشه سری اطلاعات رو یه جای خاص از رجیستری ذخیره کنید که مثلا برای ثبت تنظیمات کاربر میتونید مورد استفاده قرار بدید
    ذخیره اطلاعات

    SaveSetting(My.Application.Info.AssemblyName, "Appearance", "Font", FontName)
    SaveSetting(My.Application.Info.AssemblyName, "Appearance", "Color", ColorName)

    بازیابی اطلاعات

    FontName=GetSetting(My.Application.Info.AssemblyNa me, "Appearance", "Font","")
    ColorName=GetSetting(My.Application.Info.AssemblyN ame, "Appearance", "Color","")

    HKEY_CURRENT_USER\Software\VB and VBA Program Settings محل ذخیره سازی اطلاعات
    آخرین ویرایش به وسیله salehbagheri : پنج شنبه 03 دی 1388 در 10:52 صبح

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

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

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

    Public Sub SendData(ByVal sFile As String, ByVal sSaveAs As String, ByVal tcpSend As Winsock)
    On Error GoTo ErrHandler
    Dim sSend As String, sBuf As String
    Dim ifreefile As Integer
    Dim lRead As Long, lLen As Long, lThisRead As Long, lLastRead As Long
    Dim strData As String
    tcpSend.GetData(strData)
    ifreefile = FreeFile

    ' Open file for binary access:
    Open sFile For Binary Access Read As #ifreefile
    lLen = LOF(ifreefile)

    ' Loop through the file, loading it up in chunks of 64k:
    Do While lRead < lLen
    lThisRead = 65536
    If lThisRead + lRead > lLen Then
    lThisRead = lLen - lRead
    End If
    If Not lThisRead = lLastRead Then
    sBuf = Space$(lThisRead)
    End If
    Get #ifreefile, , sBuf
    lRead = lRead + lThisRead
    sSend = sSend & sBuf
    sBuf = Space$(0)
    Loop
    lTotal = lLen
    Close(ifreefile)
    bSendingFile = True
    '// Send the file notification
    tcpSend.SendData("FILE" & sSaveAs)
    DoEvents()
    '// Send the file
    tcpServer.SendData(sSend)
    DoEvents()
    '// Finished
    tcpSend.SendData("FILEEND")
    bSendingFile = False
    MMControl1.FileName = "FileDone.wav"
    MMControl1.Command = "Open"
    MMControl1.Command = "Play"
    Exit Sub
    ErrHandler:
    MsgBox "Err " & Err & " : " & Error
    End Sub

    Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    Dim ifreefile

    ' DoEvents
    tcpServer.GetData(strData)
    If Right$(strData, 7) = "FILEEND" Then
    bFileArriving = False
    lblProgress = "Saving File to " & App.Path & "\" & sFile
    sArriving = sArriving & Left$(strData, Len(strData) - 7)
    ifreefile = FreeFile
    MMControl1.FileName = "File.wav"
    MMControl1.Command = "Open"
    MMControl1.Command = "Play"
    Open sFile For Binary Access Write As #ifreefile
    Put #ifreefile, 1, sArriving
    Close #ifreefile
    ShellExecute 0, vbNullString, App.Path & "\" & sFile,
    vbNullString, vbNullString, vbNormalFocus
    lblProgress = "Complete"
    ElseIf Left$(strData, 4) = "FILE" Then
    bFileArriving = True
    sFile = Right$(strData, Len(strData) - 4)
    ElseIf bFileArriving Then
    lblProgress = "Receiving " & bytesTotal & " bytes for " & sFile & ""
    >from " & tcpServer.RemoteHostIP
    sArriving = sArriving & strData
    MMControl1.FileName = "FileDone.wav"
    MMControl1.Command = "Open"
    MMControl1.Command = "Play"
    End If
    End Sub

    آخرین ویرایش به وسیله salehbagheri : پنج شنبه 03 دی 1388 در 10:58 صبح

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

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

    انجام اعمال متداول در رجیستری

    Imports Microsoft.Win32


    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    ' // Create SubKey
    Registry.LocalMachine.CreateSubKey("Software\Sinpi n", RegistryKeyPermissionCheck.ReadWriteSubTree)

    '//Create Key and Set Value
    Dim reg As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Sinpin" , True)
    reg.SetValue("DWord", "1", RegistryValueKind.DWord)
    reg.SetValue("ExpandString", "1", RegistryValueKind.ExpandString)
    reg.SetValue("QWord", "1", RegistryValueKind.QWord)
    reg.SetValue("String", "1", RegistryValueKind.String)
    reg.SetValue("Unknown", "1", RegistryValueKind.Unknown)

    '// Delete Key
    reg.DeleteValue("DWOrd")

    '// Delete SubKey
    Registry.LocalMachine.DeleteSubKey("Software\Sinpi n")

    '// Read Key Value
    Dim val As String = reg.GetValue("QWord").ToString()

    '// Retrieve All Keys
    For Each s As String In reg.GetValueNames()
    MessageBox.Show(s)
    Next

    End Sub
    آخرین ویرایش به وسیله salehbagheri : پنج شنبه 03 دی 1388 در 10:50 صبح

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

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

    اجرا کردن یک فایل اجرایی با کدنویسی

    System.Diagnostics.Process.Start("mspaint.exe")


    چنانچه فایل اجرایی نیاز به آرگومان خط فرمان داشته باشد:

    System.Diagnostics.Process.Start("mspaint.exe", "c:\Test.bmp")




    تغییر خواص یک فایل

    Imports System.IO


    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim file As FileInfo = New FileInfo("C:\test.txt")
    file.Attributes = file.Attributes Or FileAttributes.ReadOnly Or FileAttributes.Hidden
    End Sub
    End Class
    آخرین ویرایش به وسیله salehbagheri : پنج شنبه 03 دی 1388 در 10:49 صبح

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

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

    سلام چاپ متنی بر روی عکس

    Dim bim AsNew Bitmap(PictureBox1.Image)
    Dim g As Graphics = Graphics.FromImage(bim)
    PictureBox1.CreateGraphics.DrawString(TextBox1.Tex t, Me.Font, Brushes.Black, 10, 10)
    g.DrawString(TextBox1.Text, Me.Font, Brushes.Black, 10, 10)
    bim.Save("e:\test.jpg")
    آخرین ویرایش به وسیله salehbagheri : پنج شنبه 03 دی 1388 در 10:46 صبح

  24. #24

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

    سلام به همگی .
    یک کد فوق العاده دیگه واستون آماده کردم .
    با این کد میتونید انتقال هرگونه اطلاعات به USB درایوها غیر ممکن کنید .
    البته نگران نباشید . کد واسه غیرفعال کردنش رو هم گذاشتم .

    خب ، اول کد واسه فعال سازی :

    Public Function Lock_USB()
    My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\ SYSTEM\CurrentControlSet\Control\StorageDevicePoli cies\", "writeProtect", 1, Microsoft.Win32.RegistryValueKind.DWord)
    End Function



    کد غیر فعال کردن :

    Public Function Unlock_USB()
    My.Computer.Registry.LocalMachine.DeleteSubKey("SY STEM\CurrentControlSet\Control\StorageDevicePolici es")
    End Function

    امیدوارم حالشو ببرید ...............

  25. #25

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

    نقل قول نوشته شده توسط Netsky مشاهده تاپیک
    سلام به همگی .
    یک کد فوق العاده دیگه واستون آماده کردم .
    با این کد میتونید انتقال هرگونه اطلاعات به USB درایوها غیر ممکن کنید .
    البته نگران نباشید . کد واسه غیرفعال کردنش رو هم گذاشتم .

    خب ، اول کد واسه فعال سازی :

    Public Function Lock_USB()
    My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\ SYSTEM\CurrentControlSet\Control\StorageDevicePoli cies\", "writeProtect", 1, Microsoft.Win32.RegistryValueKind.DWord)
    End Function



    کد غیر فعال کردن :

    Public Function Unlock_USB()
    My.Computer.Registry.LocalMachine.DeleteSubKey("SY STEM\CurrentControlSet\Control\StorageDevicePolici es")
    End Function

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

    این تغییر تو رجیستری خوبه.
    ولی وقتی فلش برای بار اول به سیستم وصل میشه جواب نمیده.

  26. #26

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

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

  27. #27

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

    سلام به همه برنامه نویسای عزیز .
    بازم اومدم با چندتا کد دیگه تا بتونم کمکی هرچند ناچیز کرده باشم .
    خب بریم سراغ کدها :
    1- اولی واسه بدست آوردن درایو ویندوز هستش :

    Public Function Windows_Drive()
    MsgBox(My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Volatile Environment", "HOMEDRIVE", 0), MsgBoxStyle.Information, "Windows Drive")
    End Function

    2- کد دوم واسه بدست آوردن مسیر فولدر Application Data :

    Public Function AppData_Path()
    MsgBox(My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Volatile Environment", "APPDATA", 0), MsgBoxStyle.Information, "Application Data Folder")
    End Function
    3- کد شماره 3 واستون مسیر فولدر یوزر برمیگردونه :

    Public Function UserFolder_Path()
    Dim win_drv As String
    win_drv = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Volatile Environment", "HOMEDRIVE", 0)
    MsgBox(win_drv + My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Volatile Environment", "HOMEPATH", 0), MsgBoxStyle.Information, "User Folder")
    End Function
    امیدوارم استفاده کنید ...........




  28. #28

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

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

    Public Function Shamsi_Date() As String
    Dim DT As Date = Date.Now
    Dim Year, Month, Day As String
    Dim Glob As New Globalization.PersianCalendar
    Year = Glob.GetYear(DT)
    Month = Glob.GetMonth(DT)
    Day = Glob.GetDayOfMonth(DT)
    Shamsi_Date = Year & "\" & Month & "\" & Day
    MsgBox(Shamsi_Date)
    End Function

    امیدوارم استفاده کنید .......................

  29. #29
    کاربر دائمی آواتار نیلوفر66
    تاریخ عضویت
    مرداد 1389
    محل زندگی
    خونه
    پست
    175

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

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

    Public Function Shamsi_Date() As String
    Dim DT As Date = Date.Now
    Dim Year, Month, Day As String
    Dim Glob As New Globalization.PersianCalendar
    Year = Glob.GetYear(DT)
    Month = Glob.GetMonth(DT)
    Day = Glob.GetDayOfMonth(DT)
    Shamsi_Date = Year & "\" & Month & "\" & Day
    MsgBox(Shamsi_Date)
    End Function


    امیدوارم استفاده کنید .......................

    با اين كد هم ميتونيد تاريخ شمسي داخله تكست باكس بزاريد

    در رويداد فوكوس كنترل جعبه متن كد زير را قرار دهيد البته فكركنم يه import نيازدارهالان خاطرم نيست اگه لازم داشت بعدا ميزارم






    Dim p As New Globalization.PersianCalendar
    TextBox2.Text = p.GetYear(Now).ToString & "/" & p.GetMonth(Now).ToString & "/" & p.GetDayOfMonth(Now).ToString



  30. #30

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

    سلام به همه دوستان برنامه نویس .
    یه کد دیگه واستون نوشتم . با این کد میتونید برنامه رو با 5 بار اجرا از کار بندازید .
    نکته : این کد رو باید در رویداد Form_Load کپی کنید .

    Dim verify
    verify = GetSetting(Application.CompanyName, "ST", "ST")
    If verify = "" Then
    SaveSetting(Application.CompanyName, "ST", "ST", 5)
    Else
    If verify <= 0 Then
    MsgBox("The Beta Period is Over!!!", MsgBoxStyle.Critical, "Beta Period")
    End
    End If
    verify = Val(verify) - 1
    SaveSetting(Application.CompanyName, "ST", "ST", verify)
    End If

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

  31. #31
    کاربر دائمی آواتار maminb
    تاریخ عضویت
    خرداد 1387
    محل زندگی
    Tehran
    پست
    132

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

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

    نظرتون چیه؟

  32. #32

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

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

    نظرتون چیه؟
    سلام دوست عزیز .
    نظر شما درسته . البته چون کد کوتاه بود نمیخواستم درگیر پیچیدگی های زیاد بشه .
    انشالله گفته شما رو در یه سورس کد کامل عملی میکنم .
    با تشکر از نظر شما ....................

  33. #33
    کاربر دائمی آواتار maminb
    تاریخ عضویت
    خرداد 1387
    محل زندگی
    Tehran
    پست
    132

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

    نقل قول نوشته شده توسط Netsky مشاهده تاپیک
    سلام دوست عزیز .
    نظر شما درسته . البته چون کد کوتاه بود نمیخواستم درگیر پیچیدگی های زیاد بشه .
    انشالله گفته شما رو در یه سورس کد کامل عملی میکنم .
    با تشکر از نظر شما ....................
    موافقم. خیلی خوب میشه. پس منتظریم!!!

  34. #34
    کاربر دائمی
    تاریخ عضویت
    خرداد 1402
    محل زندگی
    تهران
    پست
    109

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

    نقل قول نوشته شده توسط Netsky مشاهده تاپیک
    سلام دوست عزیز .
    نظر شما درسته . البته چون کد کوتاه بود نمیخواستم درگیر پیچیدگی های زیاد بشه .
    انشالله گفته شما رو در یه سورس کد کامل عملی میکنم .
    با تشکر از نظر شما ....................

    سلام دوست من ای کاش قولی که داده بودید عملی می کردید واقعا مفیده

  35. #35

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

    سلام به همه دوستان عزیز .
    عاشورای حسینی رو به تمامی هموطنان عزیز تسلیت عرض میکنم .
    یه کد دیگه واستون آماده کردم .
    با استفاده از این کد میتونید خیلی راحت صفحه Welcome Screen ویندوز رو تغییر بدید . فقط کافیه آدرس عکس رو بدید .

    Public Function Change_WelcomeScreen()
    'Change Welcome Screen.
    'Note : You Must Select Bitmap (BMP Format) File.
    My.Computer.Registry.SetValue("HKEY_USERS\.DEFAULT \Control Panel\Desktop\", "Wallpaper", "C:\Your_Image.bmp")
    End Function


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

  36. #36

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

    Hi To All .
    انگلیسی نوشتم که تنوع باشه .
    خب با یه کد دیگه در خدمت شما هستیم . این کد میتونه سرویس پک ویندوز رو واستون پیدا کنه .

    Public Function ServicePack()
    MsgBox(My.Computer.Registry.GetValue("HKEY_LOCAL_M ACHINE\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION", "CSDVersion", 0))
    End Function

  37. #37

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

    سلام سلام سلام . امیدوارم حالتون خوب باشه .
    یه کد باحال دیگه نوشتم که تقدیم میکنم . با این کد میتونید اطلاعات مربوط به CPU رو استخراج کنید .
    اطلاعاتی از قبیل :
    1- نام شرکت سازنده
    2- مدل و قدرت CPU
    3- نام CPU

    Public Function GetInfo_CPU()
    Dim VendorIdentifier, Identifier, ProcessorName As String
    VendorIdentifier = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\ HARDWARE\DESCRIPTION\System\CentralProcessor\0", "VendorIdentifier", 0)
    Identifier = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\ HARDWARE\DESCRIPTION\System\CentralProcessor\0", "Identifier", 0)
    ProcessorName = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\ HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", 0)
    MsgBox("Vendor : " & VendorIdentifier & vbCrLf & _
    "Model : " & Identifier & vbCrLf & _
    "Processor Name : " & Trim(ProcessorName))
    End Function

  38. #38

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

    HI To You
    یک کد دیگه نوشتم تا بتونید باهاش مدل Hard Disk رو در بیارید .

    Public Function HardDisk_Model()
    MsgBox(My.Computer.Registry.GetValue("HKEY_LOCAL_M ACHINE\HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 0\Target Id 0\Logical Unit Id 0", "Identifier", 0), MsgBoxStyle.Information, "Hard Disk Model")
    End Function

  39. #39

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

    خب . یک کد دیگه نوشتم که باهاش میتونید Task Manager رو غیر فعال کنید .
    کد واسه غیر فعال کردن :

    Public Function Disable_TakManager()
    My.Computer.Registry.SetValue("HKEY_CURRENT_USER\S oftware\Microsoft\Windows\CurrentVersion\Policies\ System", "DisableTaskMgr", 1, Microsoft.Win32.RegistryValueKind.DWord)
    End Function

    این کد هم واسه فعال کردنه :

    Public Function Enable_TaskManager()
    My.Computer.Registry.CurrentUser.DeleteSubKey("Sof tware\Microsoft\Windows\CurrentVersion\Policies\Sy stem")
    End Function

  40. #40
    کاربر دائمی آواتار shask00l
    تاریخ عضویت
    بهمن 1381
    محل زندگی
    روی پاهای خودم
    سن
    38
    پست
    387

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

    یه کرونو متر ساده با استفاده از کلاس datetime , timespan ... برای مبتدی ها چیز خوبیه
    فایل های ضمیمه فایل های ضمیمه

صفحه 1 از 7 123 ... آخرآخر

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

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

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