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

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

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

 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

تابع چک سرویس پک 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

:عصبانی++:

نقل قول:

---

نوشته شده توسط 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 صحیح است!

نقل قول:

---

نوشته شده توسط Hossis

:عصبانی++:
Language صحیح است!

---

اشتباه تایپی بود برادر :لبخند: این قدر موهاتو نکش .

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

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

قبل از اینکه بریم سراغ کدها این 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 ، آدرس فایل خودتون رو جایگزین کنید .

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

Dim CC As New Century

        CC.Century_Calculations(100)

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

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

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

روز بعد

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))

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

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

نقل قول:

---

نوشته شده توسط ebrahimv

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

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

---

سلام دوست عزیز ، این کد تکراریه ، توی همین تایپیک اومده .

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

http://upload1.ircome.com/free2/1272529052.jpg

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

Download Update.rar for free on uploading.com

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

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

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

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

 

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

Winamp 2.5

http://upload1.ircome.com/free2/1299586717.jpg

Mp3 Info

http://upload1.ircome.com/free2/1321621986.jpg

MyPaint


http://upload1.ircome.com/free2/1275882104.jpg

MyComputer

http://upload1.ircome.com/free2/1324046944.jpg

سلام به همه دوستان عزیز .
بعد از چند روز یه کد واستون نوشتم . اینو بزارید توی 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)

نقل قول:

---

نوشته شده توسط Netsky

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

---

خوب چی میشه؟؟؟
ببخشید من نمی تونم امتحانش کنم چون VS رو نصب ندارم؟؟

نقل قول:

---

نوشته شده توسط Hossis

خوب چی میشه؟؟؟
ببخشید من نمی تونم امتحانش کنم چون VS رو نصب ندارم؟؟

---

شکل فرم رو تغییر میده . :لبخند:

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

System.Diagnostics.Process.Start("shutdown.exe", " -s -t 60")

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

shutdown -a

بای بای ........................

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

نقل قول:

---

نوشته شده توسط jingiliboyz

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

---

یعنی چی؟
این کدا خب به زبان ویبی دات نت هست دیگه!

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

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

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

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

Dim Writter As StreamWriter = File.AppendText("C:\Test1.txt")

        With Writter

            .WriteLine("I'm a Text File and Created By Your Program")

            .Flush()

            .Close()

        End With

250 سورس vb.Net:
لینک مطلب
لینک دانلود با حجم 14.5 مگابایت

سلام بچه ها من هم ميخوام تو اين تاپيك شركت كنم
ولي كد هاي اينجا رو داشتم مرور ميكردم كه ديدم كدهاي شما خيلي طولاني چرا ايقدر برنامه نويسي رو
پيچيده ميكنيد با كدهاي راحت تري ميتونيد كار كنيد

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

Public Function Get_Folders(ByVal Folder_OR_Drive)

        Dim strFolders As String

        '----------------------------

        Dim LSTBOX As New ListBox

        LSTBOX.Size = New Size(400, 400)

        Me.Controls.Add(LSTBOX)

        '----------------------------

        If Directory.Exists(Folder_OR_Drive) = False Then

            MessageBox.Show("Invalid This Folder : " & Folder_OR_Drive, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Else



            For Each strFolders In System.IO.Directory.GetDirectories(Folder_OR_Drive  )

                LSTBOX.Items.Add(strFolders)

            Next



        End If



    End Function

ســــــــــــــلام .
خب ، یه کد دیگه نوشتم که تقدیم میکنم . با این کد میتونید یه Drive Box به صورت Runtime ( در زمان اجرا ) داشته باشید .

Public Function DriveBox_RunTime()

        Dim Drive_Box As New ComboBox

        Drive_Box.Size = New Size(100, 0)

        Drive_Box.DropDownStyle = ComboBoxStyle.DropDownList

        Me.Controls.Add(Drive_Box)

        '=================================================  ===

        Dim Drives As DriveInfo

        '-------------------------

        For Each Drives In System.IO.DriveInfo.GetDrives()

            Drive_Box.Items.Add(Drives.Name)

        Next

    End Function

سلام .
با این کد میتونید فایل های داخل یه فولدر ( یا یک درایو ) رو بدست بیارید .

Public Function Get_Files(ByVal Folder As String)

        Dim strFiles As String

        '-----------------------

        Dim LSTBOX As New ListBox

        LSTBOX.Size = New Size(400, 400)

        Me.Controls.Add(LSTBOX)

        '-----------------------

        If Directory.Exists(Folder) = False Then

            MessageBox.Show("Invalid This Folder : " & Folder, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Else

            For Each strFiles In System.IO.Directory.GetFiles(Folder)

                LSTBOX.Items.Add(strFiles)

            Next



        End If

    End Function

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

با تشکر

بازم سلام .
خب این دفعه یه کد واقعا کاربردی واستون نوشتم که در بعضی مواقع واقعا به برنامه کمک زیادی میکنه ( به من که تابحال خیلی کمک کرده ).
در بعضی مواقع لازمه که کاربر رو از نوشتن هرچیزی به جز اعداد در TextBox منع کنیم . این کد به شما کمک میکنه که این کار رو انجام بدید . البته واسه کلید Backspace هم شرطی در نظر گرفته شده تا این کلید کار کنه . کد زیر رو در داخل رویداد KeyPress مربوط به تکست باکستون بنویسید :

If e.KeyChar = "8" Then

            e.Handled = False

        End If



        Select Case e.KeyChar

            Case "*"

                e.Handled = True

            Case "-"

                e.Handled = True

            Case "/"

                e.Handled = True

            Case "!"

                e.Handled = True

            Case "#"

                e.Handled = True

            Case "$"

                e.Handled = True

            Case "%"

                e.Handled = True

            Case "^"

                e.Handled = True

            Case "&"

                e.Handled = True

            Case "("

                e.Handled = True

            Case ")"

                e.Handled = True

            Case "+"

                e.Handled = True

        End Select



        If (e.KeyChar >= "0") And (e.KeyChar <= "9") = False Then

            e.Handled = True

        End If

در کد بالا فقط نوشتن کاراکتر نقطه منع نشده ( به خاطر نوشتن اعشار ) که در صورت که صلاح دیدید میتونید کاراکتر نقطه رو هم به ساختار Select-Case ی که در کد هست اضافه کنید . برای اینکار میتونید کد زیر رو بعد از یکی از Case ها بنویسید :

Case "."

    e.Handled = True

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

خب اینم یه کد دیگه که کاربردش رو در ادامه میخونید .....
بعضی مواقع پیش میاد که بخایم از داخل یه فولدر ( یا درایو ) یه سری فایل با فرمت خاص ( مثلا exe یا jpg ) رو بدست بیاریم .
نیازی نیست زحمتی به خودتون بدید ، چون بنده کد آماده ش رو در اختیارتون قرار میدم . کد زیر رو ملاحظه بفرمایید :

Public Function Get_Files_Special_Extention(ByVal Folder As String)

        Dim strFiles, Extention As String

        Dim Case_Sens As Integer

        '-----------------------

        Dim LSTBOX As New ListBox

        LSTBOX.Size = New Size(400, 400)

        Me.Controls.Add(LSTBOX)

        '-----------------------

        If Directory.Exists(Folder) = False Then

            MessageBox.Show("Invalid This Folder : " & Folder, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Else

            For Each strFiles In System.IO.Directory.GetFiles(Folder)

                Extention = Path.GetExtension(strFiles)



                Case_Sens = String.Compare(Extention, ".EXE", True)

                If Case_Sens = 0 Then

                    LSTBOX.Items.Add(strFiles)

                End If



            Next



        End If

    End Function

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

سلام به همه دوستان عزیز . امیدوارم حال خودتون و کامپیوترتون (مخصوصا برنامه ویژوال استدیو) خوب باشه !!!
خب یه کد دیگه واستون نوشتم که در ادامه تقدیم شما برنامه نویسای عزیز میشه .
ممکنه درحال نوشتن یه برنامه باشید و بخاید Process های ( پردازش ) که الان در سیستم درحال اجرا هستند رو بدست بیارید . بوسیله کد زیر میتونید خیلی راحت این کار رو انجام بدید . البته اضافه بر نام پروسس ها شماره پردازش شون ( PID ) رو میتونید ملاحظه کنید :

Public Function Get_Processes()

        Dim LSTBOX As New ListBox

        LSTBOX.Size = New Size(300, 380)

        Me.Controls.Add(LSTBOX)

        '========================

        Dim Processes As System.Diagnostics.Process

        For Each Processes In System.Diagnostics.Process.GetProcesses()

            LSTBOX.Items.Add(Processes.ProcessName & " ( " & Processes.Id & " ) ")

            LSTBOX.Items.Add("")

        Next

    End Function

سلام .
روشی بسیار ساده واسه بدست آوردن درایوهای Removable ( فلش ها – مموری کارت گوشی ها و ... ) .

Public Function Get_Removable_Drive()

        Dim RMDRV As String

        Dim Drive As DriveInfo



        For Each Drive In System.IO.DriveInfo.GetDrives()

            RMDRV = Drive.DriveType.ToString()



            If RMDRV = "Removable" Then

                MessageBox.Show(Drive.Name, "Removable Drive")

            End If

        Next

    End Function

با سلام . در چندين تاپيك ديدم كه دوستان نحوه ايجاد uninstall در ساخت setup با VB.NET رو پرسيدن . اينجا جواب رو كامل ميذارم كه در دسترس دوستان باشه :
در بخش ساخت setup در فولدر user's programs menu یا هر جای دیگه ای که می خواین یک shortcut جدید اضافه کنین با نام uninstall myProject (یا هر اسمی که دوست دارین)
فایلی که ازش shortcut می سازین همون primary output هست (همون فایل اجرایی که از مسیر application folder می ریم) همونطور که می بینین این دقیقا همون فایلی هستش که برای اجرای برنامه مون ازش استفاده می کنیم.
روی shortcut جدیدی که ساختین راست کلیک کنین و properties رو انتخاب کنین و این تغییرات رو بدین:
مقدار گزینه Arguments رو برابر کد:

/u=[ProductCode]

بذارین
Name و توضیحات Description مربوط به uninstall رو به دلخواه خودتون تغییر بدین .

حالادر ماژول ()Main کد زیر رو بنویسین :

        Dim arguments As String() = Environment.GetCommandLineArgs()

        Dim myArgument As String()

        Dim myString As String

        For Each argument As String In arguments

            Dim myChar As Char() = {"="c}

            myArgument = argument.Split(myChar)

            myString = myArgument(0)



            If myString.ToLower() = "/u" Then

                Dim guid As String = myArgument(1)



                Dim path As String = Environment.GetFolderPath(Environment.SpecialFolde  r.System)

                Dim si As ProcessStartInfo

                si = New ProcessStartInfo(path + "\\msiexec.exe", "/i " + guid)

                Dim myProcess As Process

                myProcess = Process.Start(si)

                myProcess.Close()

                Application.Exit()

                End

            End If

        Next

اینم منبع :
http://www.codeproject.com/KB/instal...Uninstall.aspx
موفق باشيد

نقل قول:

---

نوشته شده توسط Netsky

بازم سلام .
خب این دفعه یه کد واقعا کاربردی واستون نوشتم که در بعضی مواقع واقعا به برنامه کمک زیادی میکنه ( به من که تابحال خیلی کمک کرده ).
در بعضی مواقع لازمه که کاربر رو از نوشتن هرچیزی به جز اعداد در TextBox منع کنیم . ...... :لبخندساده:

---

به قول دوستمون لازم نیست این قدر پیچیده و طولانی کنیم
یک شرط می ذاریم اگه کاراکتر ورودی ، عدد نبود ، وارد نشود

 

if not isnumbric(e.KeyChar) and e.KeyChar <>"." then e.handled=true

و یا به این صورت

 

dim N as string="0123456789."

if instr(n,e.KeyChar )<=0 then e.handled=true

این کد، متن خالص رو از میان کدهای اچ تی ام ال صفحات وب جدا می کند:

Function RemoveTags(HTML As String) As String

Dim buf As String, pos As Integer

pos = InStr(HTML, "<")

'check for no tags situation

If pos = 0 Then

RemoveTags = HTML

Exit Function

End If

Do

' Add text before the first tag to beffer

buf = buf & Left(HTML, pos - 1)

' Find end of tag

pos = InStr(HTML, ">")

' Remove everythin up to the

' end of the tag from text

If pos = 0 Then Exit Do

HTML = Mid(HTML, pos + 1)

' Find the start of the next tag

pos = InStr(HTML, "<")

If pos = 0 Then Exit Do

Loop While True

RemoveTags = buf

End Function

بعضي از دوستان در مورد خواندن داده ها از يك فايل Excel سوال كرده بودن.
با مثالي كه ضميمه كردم بدون استفاده از dll هاي آفيس مي توانيد :
داده ها را از اكسل بخوانيد (در اين مثال از شيت اول فايل C:\1.xls )
آنها را در يك DataGridView ببينيد
يك ستون مشخص (با عنوان 'نام مشترك') را مشخص كرده و تمام رديفهاي مربوطه را در يك آرايه بريزيد
محتواي ستون فوق را در يك ListBox ببينيد.
فرضيات فوق را براي كم حجم شدم و خوانا شدن برنامه انجام داده ام . شما به سليقه و ذوق خودتان مي توانيد فايل ، شيت و ستون دلخواه را انتخاب كنيد و يا بصورت ران تايم بعهده كاربر بگذاريد.
موفق و سبز باشيد

آقا خیلی ممنون دمت گرم حال کردم

نقل قول:

---

نوشته شده توسط sajjad etemadfar

آقا خیلی ممنون دمت گرم حال کردم

---

كليد تشكر باعث كم كردن زحمت شما در تايپ و بالا رفتن امتياز طرف مقابل مي شود
از اين كليد استفاده كنيد:چشمک:

نقل قول:

---

نوشته شده توسط armin8651

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

http://img3.tinypic.info/files/0valflxt3yaf9nrmjbxo.png

---

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

نقل قول:

---

نوشته شده توسط A.R.M.N

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

---

reference به نام microsoft windows image acquisition1.01 type library رو به پروژه خودت اضافه كن ، از این reference استفاده شده. جز refrence های com هستش.

نقل قول:

---

نوشته شده توسط armin8651

reference به نام microsoft windows image acquisition1.01 type library رو به پروژه خودت اضافه كن ، از این reference استفاده شده. جز refrence های com هستش.

---

ولی توی پوشه Com من همچین چیزی نیست. احتمالا شما برنامه خاصی روی سیستمتون نصب کردید یا اینکه شاید برنامه اسکنرتون. در هر صورت ممنون

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

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