Giáo trình Visual Basic 4

Bai3 Các controls (tiếp theo)
1- Label:
- Dùng để thông báo các kết quả trung gian
- Giải thích chức năng các control khác
- Tính chất quan trọng hay dùng
Labele.text
+PictureBox
- Tính chất cần chú ý :
a/ Image - dùng để chứa ảnh
Có thể đưa ảnh dạng BMP,Ico,Jpg,gif bằng hai cách nạp ảnh lúc design
hoặc lúc chạy chương trình
PictureBox1.Image = Image.FromFile(filename)
Ví dụ PictureBox1.Image = Image.FromFile("c:\h2.bmp")
b/ sizemode – dùng để xác định chế độ hiện ảnh trong pictuerebox
có các chế độ sau :Nomal, StrechImage, AutoSize, CenterImage, Zoom
+ Một số sự kiện cần chú ý
a/ Sự kiện DragEnter
sự kiện này xảy ra khi đối tượng của hành động Drag- Drop được kéo vào vùng
của control sẽ nhận đối tượng
Ví dụ: đối tượng được kéo vào TextBox2
Private Sub TextBox2_DragEnter(ByVal sender As
System.Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles
TextBox2.DragEnter

Các câu lệnh
End Sub
b/Class DragDropEffects
xác định hiệu quả của hành động Drag-Drop, nó có thể có
các giá trị sau:
None The drop target does not accept the data.

Copy The data is copied to the drop target.
Move The data from the drag source is moved to the drop target.
Link The data from the drag source is linked to the drop target.
Scroll Scrolling is about to start or is currently occurring in the
drop target.
All The data is copied, removed from the drag source, and
scrolled in the drop target.
Ví dụ:
CDragDropEffects.Move
+ Phương pháp DoDragDrop
Dạng Control.DoDragDrop
Phương pháp này sử dụng khi bắt đầu hành động Drag-Drop
Ví dụ
TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy Or
DragDropEffects.Move)
Hai tham số sử dụng ở đây là :
- Đối tượng của hành động Drag-Drop
- Tác động mà nó có thể chịu
Chú ý thuộc tính AlloweDrop của đối tượng nhận phải đặt true
Ví dụ kéo- thả text
Private Sub TextBox1_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy Or
DragDropEffects.Move)
End Sub
--------------------
Private Sub TextBox2_DragEnter(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter

e.Effect = DragDropEffects.Move

End Sub
------------------
Private Sub TextBox2_DragDrop(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
Ví dụ 2 : kéo – thả ảnh
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
PictureBox2.AllowDrop = True
End Sub
-------------------
Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e
As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
If Not PictureBox1.Image Is Nothing Then
PictureBox1.DoDragDrop(PictureBox1.Image, DragDropEffects.Copy Or
DragDropEffects.Move)
Else
End If
End Sub
-----------------------

Private Sub PictureBox2_DragEnter(ByVal sender As System.Object, ByVal e
As System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragEnter
If e.Data.GetDataPresent(DataFormats.Bitmap) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
----------------------------
Private Sub PictureBox2_DragDrop(ByVal sender As System.Object, ByVal e

As System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragDrop
PictureBox2.Image = e.Data.GetData(DataFormats.Bitmap)
End Sub
--------------------
=======================================
Timer control
+Sư kiện Tick
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
End Sub
+ Tinh chất:
- Interval : khoảng thời gian sự kiện tick xảy ra tính bằng milisecond
- Enabled : true/false
- Start
Vidu
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
If Label1.Visible = True Then
Label1.Visible = False
Label2.Visible = True