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

[shahryari]

Readonly و Hidden و Normal كردن يك فايل
با سلام
با چند خط کد ساده میتونید یک فایل رو به حالت مخفی و یا فقط خواندنی دربیارید و یا به حالت نرمال دربیارید:
در این مثال مسیر و نام فایل : "D:\001.txt" هست
-------------------------------
کد مخفی کردن:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim attribute As System.IO.FileAttributes = IO.FileAttributes.Hidden
System.IO.File.SetAttributes("D:\001.txt", attribute)
End Sub
کد readonly

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim attribute As System.IO.FileAttributes = IO.FileAttributes.ReadOnly
System.IO.File.SetAttributes("D:\001.txt", attribute)
End Sub
کد حالت نرمال

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim attribute As System.IO.FileAttributes = IO.FileAttributes.Normal
System.IO.File.SetAttributes("D:\001.txt", attribute)
End Sub
---------------------------
موفق باشید

[shahryari]

قرار دادن تصوير هنگام روشن كردن سيستم و قبل از بالا آمدن ويندوز

با چند خط كد ساده ميتونيد يك تصوير در كامپيوتر خودتون قرار بديد كه با هر بار روشن كردن سيستم و قبل از نمايش فرم Welcome نمايش داده بشه
فقط يادتون باشه فرمت تصاوير "bmp" & "BMP" باشه (فيلتر Open file Dialog1 )
كنترل هاي لازم در فرم:
Button1
label1
Open file Dialog1
براي شكيل شدن برنامه ميتونيد از يك پيكچر باكس هم استفاده كنيد كه كاربر بتونه تصوير انتخاب شده رو ببينه
-----------------------------------
واين هم كد:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.OpenFileDialog1.ShowDialog()
Me.Label1.Text = Me.OpenFileDialog1.FileName
If IO.File.Exists(Label1.Text) = False Then
MsgBox("تصوير يافت نشد")
Exit Sub
Else
My.Computer.Registry.SetValue("HKEY_USERS\.DEFAULT\Control Panel\Desktop", "Wallpaper", Me.Label1.Text)
MsgBox("عمليات با موفقيت انجام شد")
End If
End Sub
و اين هم كد پاك كردن تصوير

My.Computer.Registry.SetValue("HKEY_USERS\.DEFAULT\Control Panel\Desktop", "Wallpaper", "(None)")
البته بجاي "(None)" ميتونيد از "" استفاده كنيد. اما در ريجستري مقدار اوليه "(None)" هست
موفق باشيد

[shahryari]

شات داون - ریستارت - لوگ آف کردن سیستم با کد نویسی

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

Private Sub btnShutdown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShutdown.Click
System.Diagnostics.Process.Start("shutdown", "-s -t 00")
End Sub


--------------------------
کد ریستارت

Private Sub btnRestart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestart.Click
System.Diagnostics.Process.Start("shutdown", "-r -t 00")
End Sub


----------------------------
کد لوگ آف

Private Sub btnLogOff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogOff.Click
System.Diagnostics.Process.Start("shutdown", "-l -t 00")
End Sub


-------------------------
موفق باشید

[shahryari]

بدست آوردن IP و HostName يك سيستم با كد نويسي
با اين كد ميتونيد اين كار رو انجام بديد:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strHostName As String
Dim strIPAddress As String
strHostName = System.Net.Dns.GetHostName()
strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressL ist(0).ToString()
MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress)
End Sub
موفقيت شما آرزوي ماست

[shahryari]

خالي كردن سطل بازيافت در vb.net !!!!!
با سلام
با نوشتن اين كد توسط يك باتن ميتونيد سطل بازيافت رو خالي كنيد


Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Int32, ByVal pszRootPath As String, ByVal dwFlags As Int32) As Int32
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Int32
Private Const SHERB_NOCONFIRMATION = &H1
Private Const SHERB_NOPROGRESSUI = &H2
Private Const SHERB_NOSOUND = &H4
Private Sub EmptyRecycleBin()
SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, SHERB_NOCONFIRMATION)
SHUpdateRecycleBinIcon()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Button1.Text = "لطفا صبر كنيد..."
Me.Refresh()
EmptyRecycleBin()
Me.Button1.Text = "سطل آشغال خالي شد"
End Sub
-------------------------------
يك نكته جالب:
با توجه به اينكه شما در محيط خود ويندوز با يك كليك ميتونيد سطل بازيافت رو خالي كنيد، و با توجه به اين همه خط كد ، پي مي بريد كه نوشتن برنامه اي مثل ويندوز چقدر زمان ميبره و خدا ميدونه چند ميليون خط كد نوشتن!!

[shahryari]

تغییر زبان نوشتاری ویندوز از فارسی به انگلیسی و بلعکس :چشمک:
-------------------------
با سلام دوباره
نیاز به توضیح اضافی نیست... با کد های زیر میتونید این کار رو انجام بدید
ابتدا تابع زیر رو تعریف کنید
----------------------------------


Public Function lang_changer_selectable(ByVal lang As String) As Int64 'load the main form's lamguage
Dim l As InputLanguage
Dim ll As InputLanguageCollection
Dim a As String
Try

ll = InputLanguage.InstalledInputLanguages
For Each l In ll

a = Microsoft.VisualBasic.Left(l.LayoutName, 1)
Select Case lang
Case "EN"
If a = "E" Or a = "e" Or a = "u" Or a = "U" Then
Application.CurrentInputLanguage = l
Exit For
End If
Case "FA"
If a = "F" Or a = "f" Or a = "P" Or a = "p" Then
Application.CurrentInputLanguage = l
Exit For
End If
Case "67699721" 'us
If l.Handle.ToString = lang Then
Application.CurrentInputLanguage = l
Exit For
End If
Case "69796905" 'fa
If l.Handle.ToString = lang Then
Application.CurrentInputLanguage = l
Exit For
End If
End Select
Next
FileClose(1)
Catch ex As Exception

End Try
Return l.Handle.ToInt64
End Function
-----------------------------------------------------
نحوه فراخوانی و استفاده از این فانکشن بصورت زیر هستش
برای تغییر زبان به فارسی توسط یک باتن این کد رو بنویسید:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
lang_changer_selectable("FA")
End Sub

برای تغییر زبان به انگلیسی توسط یک باتن این کد رو بنویسید:


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
lang_changer_selectable("EN")
End Sub

---------------------------------------
موفق باشید

[damanpak]

تغییر زبان نوشتاری ویندوز از فارسی به انگلیسی و بلعکس :چشمک:
-------------------------
با سلام دوباره
نیاز به توضیح اضافی نیست... با کد های زیر میتونید این کار رو انجام بدید
ابتدا تابع زیر رو تعریف کنید
----------------------------------


Public Function lang_changer_selectable(ByVal lang As String) As Int64 'load the main form's lamguage
Dim l As InputLanguage
Dim ll As InputLanguageCollection
Dim a As String
....


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

InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("fa-IR"))

[shahryari]

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


Public Function IsConnectionAvailable(ByVal time_out As Integer) As Boolean
Try
Return My.Computer.Network.Ping("www.google.com", time_out)
Catch ex As Exception
Return False
End Try
End Function

------------------------
سپس با کد زیر توسط یک باتن اتصال راچک کنید....


If IsConnectionAvailable(20000) = True Then
MsgBox(" سیستم متصل است")
Else
MsgBox(" سیستم متصل نیست")
End If

--------------------------------------
موفق باشید

[shahryari]

نمایش ظرفیت درایوها با Progress Bar

با سلام دوباره

شما ميتوانيد با اضافه كردن كد هاي زير در فرم لود برنامه تون ، ظرفيت مصرف شده دراوهاتون رو در يك ProdressBar داشته باشد
-----------------------------
كنترل هاي مورد نياز:
Progressbar به تعداد درايوهاي سيستم تون
و يك progress bar براي نشان دادن مصرف كل هارد

چند تا Label جهت نمايش در صد حجم مصرف شده:
-------------------------------------
و اما كدها:

Imports System.IO
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try
Dim i, j, k, l, m, t, s, t1 As Integer
Dim Cval, Dval, Eval, Fval, Gval As Double
Dim dvr As New DriveInfo("c:")
Cval = CStr(dvr.TotalFreeSpace / 1000000)
Me.ProgressBar_C.Maximum = CStr(dvr.TotalSize / 1000000)
Me.ProgressBar_C.Value = CStr(Me.ProgressBar_C.Maximum - Cval)
i = (Me.ProgressBar_C.Maximum / 100)
i = Me.ProgressBar_C.Value / i
Me.Label2.Text = i.ToString & "%"
'-------------------------------------------
Dim dvr1 As New DriveInfo("D:")
Dval = CStr(dvr1.TotalFreeSpace / 1000000)
Me.ProgressBar_D.Maximum = CStr(dvr1.TotalSize / 1000000)
Me.ProgressBar_D.Value = CStr(Me.ProgressBar_D.Maximum - Dval)
j = (Me.ProgressBar_D.Maximum / 100)
j = Me.ProgressBar_D.Value / j
Me.Label3.Text = j.ToString & "%"
'-------------------------------------------
Dim dvr2 As New DriveInfo("E:")
Eval = CStr(dvr2.TotalFreeSpace / 1000000)
Me.ProgressBar_E.Maximum = CStr(dvr2.TotalSize / 1000000)
Me.ProgressBar_E.Value = CStr(Me.ProgressBar_E.Maximum - Eval)
k = (Me.ProgressBar_E.Maximum / 100)
k = Me.ProgressBar_E.Value / k
Me.Label8.Text = k.ToString & "%"
'-------------------------------------------
Dim dvr3 As New DriveInfo("F:")
Fval = CStr(dvr3.TotalFreeSpace / 1000000)
Me.ProgressBar_F.Maximum = CStr(dvr3.TotalSize / 1000000)
Me.ProgressBar_F.Value = CStr(Me.ProgressBar_F.Maximum - Fval)
l = (Me.ProgressBar_F.Maximum / 100)
l = Me.ProgressBar_F.Value / l
Me.Label9.Text = l.ToString & "%"
'-------------------------------------------
Dim dvr4 As New DriveInfo("g:")
Gval = CStr(dvr4.TotalFreeSpace / 1000000)
Me.ProgressBar_G.Maximum = CStr(dvr4.TotalSize / 1000000)
Me.ProgressBar_G.Value = CStr(Me.ProgressBar_G.Maximum - Gval)
m = (Me.ProgressBar_G.Maximum / 100)
m = Me.ProgressBar_G.Value / m
Me.Label10.Text = m.ToString & "%"
'-------------------------------------------
t = ProgressBar_C.Maximum + ProgressBar_D.Maximum + ProgressBar_E.Maximum + ProgressBar_F.Maximum + ProgressBar_G.Maximum
s = ProgressBar_C.Value + ProgressBar_D.Value + ProgressBar_E.Value + ProgressBar_F.Value + ProgressBar_G.Value
Me.ProgressBar_Total.Maximum = t
Me.ProgressBar_Total.Value = s
t1 = (Me.ProgressBar_Total.Maximum / 100)
t1 = Me.ProgressBar_Total.Value / t1
Me.Label11.Text = t1.ToString & "%"
'------------------------------------------
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class

--------------------------------------------
89209
--------------------------------------------
البته بنده تعداد پروگرس بار ها رو به تعداد درایوهای سیتم خودم انتخاب کردم اگه به نحوه کدنویسی نگاه کنین ، میبینید که ساده است و هرچه قدر دلتون بخواد میتونید اضافه کنید
به ظرفیت درایوها در مای کامپیوتر سیستم من و مقدار نشان داده شده توسط برنامه دقت کنید.
موفق باشید

[oliya24]

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

[Mani_rf]

نمایش ظرفیت درایوها با Progress Bar

با سلام دوباره

شما ميتوانيد با اضافه كردن كد هاي زير در فرم لود برنامه تون ، ظرفيت مصرف شده دراوهاتون رو در يك ProdressBar داشته باشد
-----------------------------
كنترل هاي مورد نياز:
Progressbar به تعداد درايوهاي سيستم تون
و يك progress bar براي نشان دادن مصرف كل هارد

چند تا Label جهت نمايش در صد حجم مصرف شده:
-------------------------------------
و اما كدها:

Imports System.IO
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try
Dim i, j, k, l, m, t, s, t1 As Integer
Dim Cval, Dval, Eval, Fval, Gval As Double
Dim dvr As New DriveInfo("c:")
Cval = CStr(dvr.TotalFreeSpace / 1000000)
Me.ProgressBar_C.Maximum = CStr(dvr.TotalSize / 1000000)
Me.ProgressBar_C.Value = CStr(Me.ProgressBar_C.Maximum - Cval)
i = (Me.ProgressBar_C.Maximum / 100)
i = Me.ProgressBar_C.Value / i
Me.Label2.Text = i.ToString & "%"
'-------------------------------------------
Dim dvr1 As New DriveInfo("D:")
Dval = CStr(dvr1.TotalFreeSpace / 1000000)
Me.ProgressBar_D.Maximum = CStr(dvr1.TotalSize / 1000000)
Me.ProgressBar_D.Value = CStr(Me.ProgressBar_D.Maximum - Dval)
j = (Me.ProgressBar_D.Maximum / 100)
j = Me.ProgressBar_D.Value / j
Me.Label3.Text = j.ToString & "%"
'-------------------------------------------
Dim dvr2 As New DriveInfo("E:")
Eval = CStr(dvr2.TotalFreeSpace / 1000000)
Me.ProgressBar_E.Maximum = CStr(dvr2.TotalSize / 1000000)
Me.ProgressBar_E.Value = CStr(Me.ProgressBar_E.Maximum - Eval)
k = (Me.ProgressBar_E.Maximum / 100)
k = Me.ProgressBar_E.Value / k
Me.Label8.Text = k.ToString & "%"
'-------------------------------------------
Dim dvr3 As New DriveInfo("F:")
Fval = CStr(dvr3.TotalFreeSpace / 1000000)
Me.ProgressBar_F.Maximum = CStr(dvr3.TotalSize / 1000000)
Me.ProgressBar_F.Value = CStr(Me.ProgressBar_F.Maximum - Fval)
l = (Me.ProgressBar_F.Maximum / 100)
l = Me.ProgressBar_F.Value / l
Me.Label9.Text = l.ToString & "%"
'-------------------------------------------
Dim dvr4 As New DriveInfo("g:")
Gval = CStr(dvr4.TotalFreeSpace / 1000000)
Me.ProgressBar_G.Maximum = CStr(dvr4.TotalSize / 1000000)
Me.ProgressBar_G.Value = CStr(Me.ProgressBar_G.Maximum - Gval)
m = (Me.ProgressBar_G.Maximum / 100)
m = Me.ProgressBar_G.Value / m
Me.Label10.Text = m.ToString & "%"
'-------------------------------------------
t = ProgressBar_C.Maximum + ProgressBar_D.Maximum + ProgressBar_E.Maximum + ProgressBar_F.Maximum + ProgressBar_G.Maximum
s = ProgressBar_C.Value + ProgressBar_D.Value + ProgressBar_E.Value + ProgressBar_F.Value + ProgressBar_G.Value
Me.ProgressBar_Total.Maximum = t
Me.ProgressBar_Total.Value = s
t1 = (Me.ProgressBar_Total.Maximum / 100)
t1 = Me.ProgressBar_Total.Value / t1
Me.Label11.Text = t1.ToString & "%"
'------------------------------------------
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class

--------------------------------------------
89209
--------------------------------------------
البته بنده تعداد پروگرس بار ها رو به تعداد درایوهای سیتم خودم انتخاب کردم اگه به نحوه کدنویسی نگاه کنین ، میبینید که ساده است و هرچه قدر دلتون بخواد میتونید اضافه کنید
به ظرفیت درایوها در مای کامپیوتر سیستم من و مقدار نشان داده شده توسط برنامه دقت کنید.
موفق باشید

فکرت قشنگه اما 2 پیشنهاد دارم.
1- تعداد ProgressBar ها رو دینامیک در نظر بگیر که به تعداد درایو ها ایجاد بشه.
2- کد نوشته شده رو هم با استفاده از تابع پیاده سازی کن تا مقدار کدی که نوشتی به 1/5 کاهش پیدا کنه و تغییر در آن هم راحت تر بشه.

دمت گرم...

[shahryari]

با تشکر از حسن توجه

تعداد ProgressBar ها رو دینامیک در نظر بگیر که به تعداد درایو ها ایجاد بشه
فکر خوبیه و اصولا باید اینجوری طراحی بشه .حتما روش کار میکنم

[shahryari]

چاپ یک فایل Text در VB.NET !!!
-------------------------------------------
برای چاپ کردن یک فایل Text میتونید به روش زیر اقدام کنید.
ابتدا یک TextBox و یک دکمه به فرمتون اضافه کنید و کد زیر را در باتن کلیک بنویسید تا بتونید یک فایل تکست رو فراخوانی و مسیرش رو در تکست باکس اضافه کنید.


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim file As New OpenFileDialog
file.Filter = "text File |*.txt"
file.ShowDialog()
Me.TextBox1.Text = file.FileName
End Sub

------------------------------------
سپس تابع زیر رو اضافه کنید


Public Sub PrintFile(ByVal Filename As String)
Dim piStart As New ProcessStartInfo
With piStart
.Filename = FileName
.verb = "print"
.WindowStyle = ProcessWindowStyle.Hidden
End With
Process.Start(piStart)
End Sub

-----------------------------
بعد توسط یک دکمه دیگه تابع رو فراخوانی کنید تا عمل چاپ با پرینتر فعال سیستم چاپ بشه(همراه با مدیریت خطا ها)


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pr As String
Try
pr = Me.TextBox1.Text
If pr = "" Then
MsgBox(" ", MsgBoxStyle.Exclamation, "")
TextBox1.Focus()
Exit Sub
ElseIf IO.File.Exists(pr) = False Then
MsgBox(" ", MsgBoxStyle.Exclamation, "")
TextBox1.Focus()
Exit Sub
Else
Call PrintFile(pr)
End If
Catch ex As Exception
MsgBox(" " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation, " ")
End Try
End Sub
End Class

-------------------------------------------------
یک نمونه کو چک از این برنامه را دانلود کنید: http://up.p30download.com/download.php?filename=1341409996_print_text.rar
89220
----------------------------------
موفق باشید

[Mani_rf]

با تشکر از حسن توجه

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

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

[shahryari]

هرجا مشکلی داشتی بگو کمکت کنم
باسلام و ضمن تبریک به مناسبت سالروز ولادت امام زمان(عج)
حسن توجه مسئولین موجب دلگرمی ما است

[Reza,M]

با سلام و تشکر فوق العاده از دوست خوبمون shahryari بابت تایپیک مفیدشون
من بنظرم این کارها رو با APIها راحت تر میشه انجام داد.

[shahryari]

اجراي يك برنامه همزمان با بالا آمدن ويندوز در VB.Net
با سلام
شايد دوست داشته باشين برنامه اي كه نوشتين همزمان با بالا امدن ويندوز ، اجرا بشه
براي اينكار كافيه دوتا تابع زير رو تعريف كنيد و بعد توسط دوتا دكمه اين توابع رو فراخواني بكنيد
--------------
تابع قرار دادن برنامه در استارت آپ

Private Sub Add_Too_Startup(ByVal name As String, ByVal path As String)
Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
key.SetValue(name, path)
End Sub
تابع حذف برنامه از استارت آپ


Private Sub Remove_On_startup(ByVal name As String)
Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
key.DeleteValue(name, False)
End Sub
-------------------
فراخواني تابع اول Add


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Add_Too_Startup("Araz", Application.ExecutablePath) '---- نام و مسير برنامه شما

End Sub
نكته :
بجاي عبارت Application.ExecutablePath در پارامتر دوم كه نام و مسير برنامه جاري است ، از مسير استاتيك نيز ميتوانيد استفاده كنيد
مثال: "C:/temp/test.exe"
--------------------------------------
فراخواني تابع دوم Remove


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Remove_On_startup("Araz") '---- نام برنامه شما
End Sub
----------------------------
موفق باشد.

[shahryari]

نمايش DeskTop و Minimize كردن تمام پنجره هاي باز در VB.NET!!!
با سلام
با نوشتن كدهاي زير توسط يك دكمه ميتونيد عمل‌ show desk top را با توجه به شكل در ويندوزهاي مختلف ، انجام بديد:
89502
-------------------------------------
و اين هم كد مربوطه


Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_LWIN = &H5B
-----------------------------------------------------------------------------------------------------------

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
keybd_event(VK_LWIN, 0, 0, 0)
keybd_event(77, 0, 0, 0)
keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub
موفق باشيد

[barnamenevisjavan]

سلام با اجازه دوستان من اون كدي رو كه معرفي كرده بوديد رو يكم تعميم دادم و نتيجه شده عكس زير اميدوارم كه خوشتون بياد از ياد نره حتما كامپوننت dotnetbar رو دانلود كنيد تا برنامه اجرا بشه سورس هم ضميمه شده
http://mahdi72dvb.persiangig.com/audio/q.jpg
http://barnamenevis.org/showthread.php?322974-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%DA%A9%D9%86%D8%AA%D8%B1%D9%84-%D9%87%D8%A7%DB%8C-%D9%BE%D8%B1-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%D8%AF-%D8%A8%D8%B3%D8%AA%D9%87-%DB%8C-DevComponents