PDA

View Full Version : آموزش: آموزش زبان برنامه نويسي VB.NET (پيشرفته)



meisam3322
شنبه 08 خرداد 1389, 12:23 عصر
با سلام،

خدمت دوستان و علاقه مندان به برنامه نويسي در اين فروم عرض كنم، من توي اين فروم يك ماهي هست كه عضوم و هر روز وارد فروم مي شم. خيلي از اطلاعاتي كه فراموش كرده بودم و در عين حال ساده ولي مهم بودند رو در اينجا دوستانم به من گوش زد كردند. واسه همين منم قصد دارم اطلاعات خودم راجع به زبان برنامه نويسي VB.NET رو در اختيار دوستانم بزارم تا از خجالتشون در بيام.

نكته اي كه توي اين تاپيك خيلي اهميت داره اين است كه مطالب مختص دوستاني هست كه با VB.NET آشنايي دارند، و توضيحات براي دوستان مبتدي و كساني كه تازه با VB.NET آشنا شدن خارج از حوصله اين تاپيك است.

در اين تاپيك قصد دارم كدهايي رو به شما معرفي كنم كه در عين سادگي از اهميت زيادي برخوردارند.

موفق باشيد.

meisam3322
شنبه 08 خرداد 1389, 12:31 عصر
يك تابع جهت بازكردن فايل هاي فشره شده.



Imports System.IO

Public Function DecompressFile(ByRef inputFileName As String, ByRef destFileName As String, ByRef destDirectory As String) As Boolean

Try

Dim stream As New MemoryStream(File.ReadAllBytes(inputFileName))

Dim gZip As New GZipStream(stream, CompressionMode.Decompress)

Dim buffer(3) As Byte

stream.Position = stream.Length - 5
stream.Read(buffer, 0, 4)

Dim size As Integer = BitConverter.ToInt32(buffer, 0)

stream.Position = 0

Dim decompressed(size - 1) As Byte

gZip.Read(decompressed, 0, size)

gZip.Dispose()
stream.Dispose()

File.WriteAllBytes(destDirectory & "\" & destFileName, decompressed)

Return True
Catch ex As Exception
MessageBox.Show(ex.ToString())
Return False
End Try
End Function

موفق باشيد

meisam3322
شنبه 08 خرداد 1389, 12:52 عصر
متغيرهاي ورودي تابع: تابعي جهت ليست كردن جدول هاي موجود در يك ديتابيس: خروجي تابع از نوع ListBox مي باشد. ورودي ها: Con: Database Connection



Public Function Tables_List (Byval Con as string) _
As ListBox

Dim SchemaTable As DataTable
Dim ListTable As ListBox

Dim conn As New System.Data.OleDb.OleDbConnection(Con)

conn.Open()


SchemaTable = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSc hemaGuid.Tables, New Object() _ {Nothing, Nothing, Nothing, Nothing})

Dim int As Integer

For int = 0 To SchemaTable.Rows.Count - 1
If SchemaTable.Rows(int)!TABLE_TYPE.ToString = "TABLE" Then
ListTable.Items.Add(SchemaTable.Rows(int)!TABLE_NA ME.ToString())
End If
Next

Return ListTable

Catch ex As Exception

MessageBox.Show(ex.Message.ToString(), "Data Load Error", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)

End Try

conn.Close()

End Sub
موفق باشيد.

meisam3322
شنبه 08 خرداد 1389, 13:25 عصر
جهت مشخص كردن موقغيت ماوس، X & Y



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim MousePosition As Point
MousePosition = Cursor.Position
Label1.Text = "Mouse Position: " & MousePosition.ToString
End Sub

nowar1352
دوشنبه 20 تیر 1390, 02:06 صبح
يك تابع جهت بازكردن فايل هاي فشره شده.



Imports System.IO

Public Function DecompressFile(ByRef inputFileName As String, ByRef destFileName As String, ByRef destDirectory As String) As Boolean

Try

Dim stream As New MemoryStream(File.ReadAllBytes(inputFileName))

Dim gZip As New GZipStream(stream, CompressionMode.Decompress)

Dim buffer(3) As Byte

stream.Position = stream.Length - 5
stream.Read(buffer, 0, 4)

Dim size As Integer = BitConverter.ToInt32(buffer, 0)

stream.Position = 0

Dim decompressed(size - 1) As Byte

gZip.Read(decompressed, 0, size)

gZip.Dispose()
stream.Dispose()

File.WriteAllBytes(destDirectory & "\" & destFileName, decompressed)

Return True
Catch ex As Exception
MessageBox.Show(ex.ToString())
Return False
End Try
End Function

موفق باشيد


با سلام بر استاد عزيز GZipStream از كجا اومده ارور ميده