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

Bài 3 3Menu Đối tượng Thuộc tính Giá trị Label Name lblThoigian Text MenuStrip Name mnuNgay Text &Ngày MenuStrip Name mnuGio Text &Giờ Thuộc tính các đối tượng Private Sub mnuNgay_Clicks

Trang 1

1 Menu

2 Các hộp thoại

BÀI 3: MENU – CÁC HỘP THOẠI

1 Bài 3

Menu

09:56:11

1

Trang 2

Bài 3 3

Menu

Đối tượng Thuộc tính Giá trị

Label Name lblThoigian

Text MenuStrip Name mnuNgay

Text &Ngày MenuStrip Name mnuGio

Text &Giờ Thuộc tính các đối tượng

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")

End Sub

23:36:25

ColorDialog Cho chọn tên và hiệu chỉnh giá trị màu sắc

FolderBrowserDialog Cho phép duyệt thư mục

FontDialog Chọn tên và kiểu font chữ mới

OpenFileDialog Cho lấy về ổ đĩa, tên file, tên folder

PageSetupDialog Điều khiển các thiết lập trang in

PrintDialog Cho thiết lập các tùy chỉnh in ấn

PrintPreviewDialog Hiển thị xem trước khi in

SaveFileDialog Cho đặt tên file, folder mới sắp ghi lên đĩa

Các hộp thoại chuẩn

3

Trang 3

Bài 3 5

Các hộp thoại chuẩn

Thiết kế giao diện như sau:

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 : hiện hộp thoại Color

5

Trang 4

Bài 3 7 ColorDialog

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 : chọn folder ban đầu là folder hiện hànhcủa ứng dụng

DialogResult.OK : nếu nhấn OK trên hộp thoại FolderBrowser

lblThoigian.Text = FolderBrowserDialog1.SelectedPath

: hiện folder đã chọn

7

Trang 5

Bài 3 9 FolderBrowserDialog

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

9

Trang 6

Bài 3 11 FontDialog

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

: chọn folder ban đầu là folder hiện hành của ứng dụng

OpenFileDialog1.InitialDirectory =

Application.StartupPath

: hiện file đã chọn lblThoigian.Text =

OpenFileDialog1.FileName

11

Trang 7

Bài 3 13 OpenFileDialog

15:50:37

OpenFileDialog

OpenFileDialog1.Filter = "exe files (*.exe)|*.exe|XML files

(*.xml)|*.xml|All files|*.*"

End If

End Sub

13

Trang 8

Bài 3 15

OpenFileDialog

OpenFileDialog1.Filter = "exe files (*.exe)|*.exe|XML files

(*.xml)|*.xml|All files|*.*"

OpenFileDialog1.FileName = "Menu"

End If

End Sub

OpenFileDialog1.Multiselect = True

Dim st As String = Nothing

Dim i As Integer

For i = 0 To OpenFileDialog1.FileNames.Count - 1

st = st & vbCrLf & OpenFileDialog1.FileNames(i)

End If

End Sub

15:52:32

OpenFileDialog

OpenFileDialog1.Multiselect = True : cho phép chọn nhiều file

FileNames : danh sách các file đã chọn

15

Trang 9

Bài 3 17

OpenFileDialog

OpenFileDialog1.FileNames(0) OpenFileDialog1.FileNames(1) OpenFileDialog1.FileNames(2)

15:52:32

PageSetupDialog

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

17

Trang 10

Bài 3 19 PageSetupDialog

08:14:50

PrintDialog

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ế

19

Trang 11

Bài 3 21 PrintDialog

08:14:50

PrintPreviewDialog

Bổ sung điều khiển RichTextBox rtbDoc vào giao diện

21

Trang 12

Bài 3 23

PrintPreviewDialog

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

Gán nội dung của RichTextBox rtbDoc cho đối tượng PrintDocument

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

08:14:50

PrintPreviewDialog

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

23

Trang 13

SaveFileDialog

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

25

Trang 14

Bài 3 27

SaveFileDialog

SaveFileDialog1.Filter = "Word files|*.docx|Excel files|*.xlsx|All

files|*.*"

08:14:50

SaveFileDialog

27

Trang 15

Bài 3 29

MessageBox

Hiện thông báo, kết quả trả về 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)

MessageBoxButtons:

- AbortRetryIgnore

- OK

- OKCancel

- RetryCancel

- YesNo

- YesNoCancel

MessageBoxIcon:

- Asterisk

- Error

- Exclamation

- Hand

- Information

- None

- Question

- Stop

- Warning

If MessageBox.Show("Thông báo" + vbCrLf + "Thông báo 2", "Tiêu đề",

MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Warning)

= DialogResult.Retry Then

End If

08:14:50

29

Trang 16

Bài 3 31

InputBox

Nhập giá trị

st = InputBox("Nhập", "In", "Out")

Nhấn OK: kết quả trả về là chuỗi nhập, st = “Out”

Nhấn Cancel: kết quả trả về là chuỗi ""

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, thay vào đoạn chương trình màu đỏ (chỉ mở

file *.txt)

Dùng hộp thoại OpenFileDialog để mở file ảnh, sau đó hiển thị ảnh trên PictureBox

pic1, các file ảnh có định dạng *.bmp, *.jpg, *.png.

08:14:50

31

Định dạng
Số trang	16
Dung lượng	841,33 KB