نا گفته هاي كاربردي و جالب در Visual Basic.Net

[TAHA]

.wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle } سلام
حتما" بعضی از متد ها را دیدید که میتونید یک یا چند پارامتر به انها پاس کنید؟
یعنی اگر یک پارامتر به ان ارسال کنید برنامه کامپایل میشود و اگر هم دو یا بیشتر پارامتر به انها ارسال کنید باز هم برنامه کامپایل میشود.
پیش بار گذاری یا OverLoading این امکان را به شما میده که یک متد با لیست آرگومانهای متفاوت داشته باشین.
مثلا" ما یک تابع MessageBox داریم. حالا میخوایم این تابع به سه صورت فراخوانی بشه
1- فقط متن. 2- متن و عنوان 3- متن و عنوان و آیکون
برای این کار به این صورت عمل میکنیم:

Public Sub  Msg(ByVal Text As String)
عملیات مربوط به حالت اول
End Sub

Public  Sub Msg(ByVal TextAs String , ByVal Title As String)
عملیات مربوط به حالت  دوم
End Sub

Public Sub Msg(ByVal Text As String, ByVal Title As  String, ByVal Icon As Integer)
عملیات مربوط به حالت سوم
End  Sub

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

[TAHA]

سلام دوستان
یکی از کار هایی که در خیلی از برنامه ها ی روتین مورد استفاده قرار میگیره تبدیل دیتاگرید و اطلاعات اون به فرمتهای مختلفی مثل Word,Excel و PDF هست که در این بین تبدیل اطلاعات به فرمت PDF از بقیه مشکل تر به نظر میاد. برنامه ای گذاشتم این کار رو با استفاده از کامپوننت rzPDFCreator.dll خیلی راحت کرده.

[TAHA]

.wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle } یه راهه خیلی ساده برای تبدیل اطلاعات دیتاگرید به Excel:

   
Private Sub  ExportToExcel()
        SaveFileDialog1.Filter = "*.xls|*.xls"
         SaveFileDialog1.ShowDialog()
        If SaveFileDialog1.FileName <> ""  Then
            Dim oExcel As Object
            Dim oWorkBook As  Object
            Dim oSheet As Object
            oExcel =  CreateObject("Excel.Application")
            oWorkBook =  oExcel.Workbooks.Add
            oExcel.visible = True
            Dim c,  r As Integer
            Dim ColNum As Integer =  DataGridView1.ColumnCount
            Dim RowNum As Integer =   DataGridView1.RowCount
            Dim col As Integer = 65
             oSheet = oWorkBook.worksheets(1)
            For c = 1 To  ColNum
                oSheet.Range(CStr(Chr(col) & 1)).Value =   DataGridView1.Columns(c - 1).HeaderText
                col +=  1
            Next
            For r = 1 To RowNum
                For  c = 1 To ColNum
                    oSheet.Cells(r + 1, c) =   DataGridView1.Rows(r - 1).Cells(c - 1).Value
                 Next
            Next
             oWorkBook.SaveAs(SaveFileDialog1.FileName, True)
            oSheet =  Nothing
            oWorkBook = Nothing
            oExcel =  Nothing
        End If
    End Sub