تابع COMMON DIALOG در VB.NET

[ALIZAKIZADEH]

درود دوستان
امکان داره از دوستان کد چند تا تابع زیر رو واسم به زبان VB.NET همراه با کد مربوط به دکمه مربوطش رو واسم بنويسه
من تا حالا با VB.NET کار نکردم
GET SAVE FILE NAME PREVIEW
GET OPEN FILE NAME PREVIEW
GET SAVE FILE NAME
GET OPEN FILE NAME
CHOOSE COLOR

[alimanam]

با سلام

من منظور شما رو به درستی متوجه نمیشم اما اگه منظورتون کار با دیالوگ های عمومی هست کد های زیر میتونه کمکتون کنه :


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim colorDialog As New ColorDialog
If colorDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
MsgBox(colorDialog.Color.Name)
End If

Dim saveDialog As New SaveFileDialog
If saveDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
MsgBox(saveDialog.FileName)
End If

Dim openDialog As New OpenFileDialog
openDialog.Filter = "Text File Only|*.txt|All Files|*.*"
If openDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
MsgBox(openDialog.FileName)
End If

End Sub


موفق باشید./