Ngôn ngữ lập trình visua basic 3

08:33:02 BÀI 3: MENU – CÁC HỘP THOẠI Menu Các hộp thoại Bài 1 09:56:11 Menu Giao diện thiết kế: Menustrip Bài Label 2 23:36:25 Menu Thuộc tính đối tượng Đối tượng Label MenuStrip MenuStrip Thuộc tính Giá trị Name lblThoigian Text Name mnuNgay Text &Ngày Name mnuGio Text &Giờ Private Sub mnuNgay_Click(sender As Object, e As EventArgs) Handles mnuNgay.Click lblThoigian.Text = Format(Now, "ddd dd/MM/yyyy") End Sub Private Sub mnuGio_Click(sender As Object, e As EventArgs) Handles mnuGio.Click lblThoigian.Text = Format(Now, "hh:mm:ss") Bài End Sub 3 23:36:25 Các hộp thoại chuẩn Hộp thoại Mô tả ColorDialog Cho chọn tên hiệu chỉnh giá trị màu sắc FolderBrowserDialog Cho phép duyệt thư mục FontDialog Chọn tên kiểu font chữ OpenFileDialog Cho lấy ổ đĩa, tên file, tên folder PageSetupDialog Điều khiển thiết lập trang in PrintDialog Cho thiết lập tùy chỉnh in ấn PrintPreviewDialog Hiển thị xem trước in SaveFileDialog Cho đặt tên file, folder ghi lên đĩa Bài 4 23:36:25 Các hộp thoại chuẩn Thiết kế giao diện sau: Bài 5 10:31:36 ColorDialog Private Sub ColorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ColorToolStripMenuItem.Click If ColorDialog1.ShowDialog = DialogResult.OK Then lblThoigian.ForeColor = ColorDialog1.Color End If End Sub ColorDialog1.ShowDialog : hộp thoại Color DialogResult.OK : nhấn OK hộp thoại Color lblThoigian.ForeColor = ColorDialog1.Color : đổi màu cho label lblThoigian Bài 6 10:31:36 ColorDialog Bài 7 10:31:36 FolderBrowserDialog Private Sub FolderBrowserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FolderBrowserToolStripMenuItem.Click FolderBrowserDialog1.SelectedPath = Application.StartupPath If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then lblThoigian.Text = FolderBrowserDialog1.SelectedPath End If End Sub FolderBrowserDialog1.SelectedPath = Application.StartupPath DialogResult.OK : chọn folder ban đầu folder hành ứng dụng : nhấn OK hộp thoại FolderBrowser lblThoigian.Text = FolderBrowserDialog1.SelectedPath : folder chọn Bài 8 10:31:36 FolderBrowserDialog Bài 9 10:31:36 FontDialog Private Sub FontToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FontToolStripMenuItem.Click If FontDialog1.ShowDialog = DialogResult.OK Then lblThoigian.Font = FontDialog1.Font End If End Sub Bài 10 10 10:31:36 FontDialog Bài 11 11 10:31:36 OpenFileDialog Private Sub OpenFileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenFileToolStripMenuItem.Click OpenFileDialog1.InitialDirectory = Application.StartupPath If OpenFileDialog1.ShowDialog = DialogResult.OK Then lblThoigian.Text = OpenFileDialog1.FileName End If End Sub OpenFileDialog1.InitialDirectory = Application.StartupPath lblThoigian.Text = OpenFileDialog1.FileName : chọn folder ban đầu folder hành ứng dụng : file chọn Bài 12 12 10:31:36 OpenFileDialog Bài 13 13 15:50:37 OpenFileDialog Private Sub OpenFileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenFileToolStripMenuItem.Click OpenFileDialog1.InitialDirectory = Application.StartupPath OpenFileDialog1.Filter = "exe files (*.exe)|*.exe|XML files (*.xml)|*.xml|All files|*.*" If OpenFileDialog1.ShowDialog = DialogResult.OK Then lblThoigian.Text = OpenFileDialog1.FileName End If End Sub Bài 14 14 OpenFileDialog 15:52:32 Private Sub OpenFileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenFileToolStripMenuItem.Click OpenFileDialog1.InitialDirectory = Application.StartupPath OpenFileDialog1.Filter = "exe files (*.exe)|*.exe|XML files (*.xml)|*.xml|All files|*.*" OpenFileDialog1.FileName = "Menu" If OpenFileDialog1.ShowDialog = DialogResult.OK Then lblThoigian.Text = OpenFileDialog1.FileName End If End Sub Bài 15 15 OpenFileDialog 15:52:32 Private Sub OpenFileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenFileToolStripMenuItem.Click OpenFileDialog1.InitialDirectory = Application.StartupPath OpenFileDialog1.Multiselect = True If OpenFileDialog1.ShowDialog = DialogResult.OK Then Dim st As String = Nothing Dim i As Integer For i = To OpenFileDialog1.FileNames.Count - st = st & vbCrLf & OpenFileDialog1.FileNames(i) Next lblThoigian.Text = st End If End Sub OpenFileDialog1.Multiselect = True : cho phép chọn nhiều file FileNames : danh sách file chọn Bài 16 16 OpenFileDialog 15:52:32 OpenFileDialog1.FileNames(0) OpenFileDialog1.FileNames(1) OpenFileDialog1.FileNames(2) Bài 17 17 PageSetupDialog 15:52:32 Private Sub PageSetupToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PageSetupToolStripMenuItem.Click lst1.Items.Clear() PageSetupDialog1.PageSettings = New Printing.PageSettings() If PageSetupDialog1.ShowDialog = DialogResult.OK Then lst1.Items.Add(PageSetupDialog1.PageSettings.Margins.ToString) lst1.Items.Add(PageSetupDialog1.PageSettings.PaperSize.ToString) lst1.Items.Add(PageSetupDialog1.PageSettings.Landscape.ToString) End If End Sub Bài 18 18 PageSetupDialog 08:14:50 Bài 19 19 PrintDialog 08:14:50 Private Sub PrintToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PrintToolStripMenuItem.Click ls1.Items.Clear() PrintDialog1.Document = PrintDocument1 If PrintDialog1.ShowDialog = DialogResult.OK Then ls1.Items.Add(PrintDialog1.PrinterSettings.PrinterName.ToString) ls1.Items.Add(PrintDialog1.PrinterSettings.PaperSizes.ToString) ls1.Items.Add(PrintDialog1.PrinterSettings.Copies.ToString) End If End Sub - Đặt thêm điều khiển PrintDocument vào giao diện thiết kế Bài 20 20 10 PrintDialog 08:14:50 Bài 21 21 PrintPreviewDialog 08:14:50 Bổ sung điều khiển RichTextBox rtbDoc vào giao diện Bài 22 22 11 PrintPreviewDialog 08:14:50 Gán nội dung RichTextBox rtbDoc cho đối tượng PrintDocument Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage e.Graphics.DrawString(rtbDoc.Text, New Font("Arial", 10), Brushes.Black, New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top,e.MarginBounds.Width, e.MarginBounds.Height)) End Sub Bài 23 23 PrintPreviewDialog 08:14:50 Private Sub PrintPreviewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PrintPreviewToolStripMenuItem.Click Dim MyStream As New IO.FileStream (Application.StartupPath.ToString & "\test.txt", IO.FileMode.Open) rtbDoc.LoadFile(MyStream, RichTextBoxStreamType.PlainText) MyStream.Close() PrintPreviewDialog1.Document = PrintDocument1 PrintPreviewDialog1.ShowDialog() End Sub Dim MyStream As New System.IO.FileStream(Application.StartupPath.ToString & "\test.txt", System.IO.FileMode.Open) Đọc nội dung file test.txt vào biến MyStream rtbDoc.LoadFile(MyStream, RichTextBoxStreamType.PlainText) Hiện nội dung biến MyStream lên RichTextBox rtbDoc Bài 24 24 12 Bài 25 25 SaveFileDialog 08:14:50 Private Sub SaveFileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveFileToolStripMenuItem.Click SaveFileDialog1.InitialDirectory = Application.StartupPath SaveFileDialog1.Filter = "Word files|*.docx|Excel files|*.xlsx|All files|*.*" If SaveFileDialog1.ShowDialog() = DialogResult.OK Then lblThoigian.Text = SaveFileDialog1.FileName End If End Sub Bài 26 26 13 SaveFileDialog 08:14:50 SaveFileDialog1.Filter = "Word files|*.docx|Excel files|*.xlsx|All files|*.*" Bài 27 27 SaveFileDialog 08:14:50 Bài 28 28 14 MessageBox 08:14:50 Hiện thông báo, kết trả tùy theo nút nhấn MessageBox.Show("Thông báo" + vbCrLf + "Thông báo 2", "Tiêu đề", MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk) MessageBoxIcon: - Asterisk - Error - Exclamation - Hand - Information - None - Question - Stop - Warning MessageBoxButtons: - AbortRetryIgnore - OK - OKCancel - RetryCancel - YesNo - YesNoCancel Bài 29 29 08:14:50 If MessageBox.Show("Thông báo" + vbCrLf + "Thông báo 2", "Tiêu đề", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Warning) = DialogResult.Retry Then End If MessageBoxButtons.AbortRetryIgnore kết trả DialogResult.Abort DialogResult.Retry Bài DialogResult.Ignore 30 30 15 InputBox 08:14:50 Nhập giá trị st = InputBox("Nhập", "In", "Out") Nhấn OK: kết trả chuỗi nhập, st = “Out” Nhấn Cancel: kết trả chuỗi "" Bài 31 31 08:14:50 Dùng hộp thoại OpenFileDialog để mở file, thay vào đoạn chương trình màu đỏ (chỉ mở file *.txt) Private Sub PrintPreviewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PrintPreviewToolStripMenuItem.Click Dim MyStream As New System.IO.FileStream(Application.StartupPath.ToString & "\test.txt", System.IO.FileMode.Open) Dùng hộp thoại OpenFileDialog để mở file ảnh, sau hiển thị ảnh PictureBox pic1, file ảnh có định dạng *.bmp, *.jpg, *.png Bài 32 32 16