View Full Version : آموزش: آموزش زبان برنامه نويسي VB.NET (پيشرفته)
meisam3322
شنبه 08 خرداد 1389, 13:23 عصر
با سلام،
خدمت دوستان و علاقه مندان به برنامه نويسي در اين فروم عرض كنم، من توي اين فروم يك ماهي هست كه عضوم و هر روز وارد فروم مي شم. خيلي از اطلاعاتي كه فراموش كرده بودم و در عين حال ساده ولي مهم بودند رو در اينجا دوستانم به من گوش زد كردند. واسه همين منم قصد دارم اطلاعات خودم راجع به زبان برنامه نويسي VB.NET رو در اختيار دوستانم بزارم تا از خجالتشون در بيام.
نكته اي كه توي اين تاپيك خيلي اهميت داره اين است كه مطالب مختص دوستاني هست كه با VB.NET آشنايي دارند، و توضيحات براي دوستان مبتدي و كساني كه تازه با VB.NET آشنا شدن خارج از حوصله اين تاپيك است.
در اين تاپيك قصد دارم كدهايي رو به شما معرفي كنم كه در عين سادگي از اهميت زيادي برخوردارند.
موفق باشيد.
meisam3322
شنبه 08 خرداد 1389, 13: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, 13: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, 14: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, 03: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 از كجا اومده ارور ميده
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.