الديالوج
-يتم إدراج ديالوج عن طريق فتح Dialogs فى مربع الأدوات ToolBox-عند إدراج ديالوج فإنة سييتم إدراجة خارج الفورم وبالتحديد فى البار أسفل الفورم
1-ديالوج إختيار اللونColor Dialogقم بإدراج Button و ColorDialogاكتب الكود التالى فى Button كود:
Dim colors() As Integer = { _
&HFF, &H11FF, &H22FF, &H33FF, _
&H44FF, &H55FF, &H66FF, &H77FF, _
&H88FF, &H99FF, &HAAFF, &HBBFF, _
&HCCFF, &HDDFF, &HEEFF, &HFFFF}
ColorDialog1.CustomColors = colors
ColorDialog1.Color = Button1.BackColor
If ColorDialog1.ShowDialog() = DialogResult.OK Then
Button1.BackColor = ColorDialog1.Color
End If
عند اختيار لون فإنة يتم تغيير لون الزر إلى اللون الذى قمت باختيارة
..................................................
..................................................
.............................2-ديالوج فتح مجلد Browse For Folder قم بإدراج Button وTextBox1 وFolderBrowserDialog
قم بوضع هذا الكود فى الزر Button
كود:
FolderBrowserDialog1.SelectedPath = ""
FolderBrowserDialog1.Description = _
"قم باختيار مجلد"
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
TextBox1.Text = FolderBrowserDialog1.SelectedPath
End If
..................................................
..................................................
.............................3- ديالوج اختيار خصائص الخط Font Dialog قم بإدراج Button وFontDialog
قم بوضع هذا الكود فى الزر Button
كود:
FontDialog1.Font = Me.Font
FontDialog1.Color = Me.ForeColor
FontDialog1.ShowColor = True
If FontDialog1.ShowDialog() = DialogResult.OK Then
Me.Font = FontDialog1.Font
Me.ForeColor = FontDialog1.Color
End If
لتغيير خصائص ونوع ولون الخط
..................................................
..................................................
.............................4-ديالوج فتح ملف OpenFileDialogيستخدم هذا الديالوج لفتح أى ملف دون النظر إلى امتدادة
قم بإدراج Button و OpenFileDialog
قم بوضع هذا الكود فى الزر Button
كود:
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
MessageBox.Show(OpenFileDialog1.FileName)
End If
..................................................
..................................................
.............................5-ديالوج فتح ملف بامتداد محدد OpenFileDialogيستخدم هذا الديالوج لفتح ملف لة امتداد معين مثل ملف نص .txt أو ملف صورة .Bmp .....وهكذا
قم بإدراج
Button و OpenFileDialog
إذهب إلى خصائص OpenFileDialog ثم إلى Filter وقم بكتابة السطر التالى
كود:
Text (*.txt)|*.txt"
الكود
فى OpenFileDialog
نقوم بكتابة الكود التالى
كود:
For Each file_name As String In OpenFileDialog1.FileNames
If Not file_name.EndsWith(".txt") Then
MessageBox.Show("File '" & file_name & _
"' هذا ليس ملف نص", _
"نوع الملف غير معروف", _
MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
e.Cancel = True
Exit Sub
End If
Next file_name
فى Button
كود:
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim file_names As String = Strings.Join(OpenFileDialog1.FileNames, " ")
MessageBox.Show(file_names)
End If
..................................................
..................................................
.............................6-ديالوج حفظ ملف بأى امتداد SaveFileDialogيستخدم هذا الديالوج لحفظ ملف بأى امتداد اختيارى
قم بإدراج Button و SaveFileDialog
إذهب إلى خصائص SaveFileDialog ثم إلى Filter وقم بكتابة السطر التالى
كود:
All Files (*.*)|*.*"
الكود
فى SaveFileDialog
الكود التالى
كود:
e.Cancel = True
وهذا الكود فى زر Button
كود:
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
MessageBox.Show(SaveFileDialog1.FileName)
End If
..................................................
..................................................
.............................7-ديالوج حفظ ملف بامتداد محدد SaveFileDialogيستخدم هذا الديالوج لحفظ ملف بامتداد محدد .txt أو .dat مثلا
قم بإدراج Button و SaveFileDialog
إذهب إلى خصائص SaveFileDialog ثم إلى Filter وقم بكتابة السطر التالى
كود:
Data Files (*.dat)|*.*"
الكود
فى SaveFileDialog
الكود التالى
كود:
If Not SaveFileDialog1.FileName.EndsWith(".dat") Then
MsgBox("File " & SaveFileDialog1.FileName & _
" is not a .dat file", _
MsgBoxStyle.Exclamation, _
"Invalid File Type")
e.Cancel = True
End If
وهذا الكود فى زر Button
كود:
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
MessageBox.Show(SaveFileDialog1.FileName)
End If
موضوع: فيجوال بيسي 
2007-12-04, 12:20
