• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Tạo Menu hiệu ứng chạy bằng Code trong Visual Basic 6.0

Những thủ thuật, mẹo vặt dành cho Visual Basic
Nội qui chuyên mục
1. Gửi bài viết tại đây, người quản lý sẽ chuyển vào trong nếu bài viết đạt yêu cầu.
2. Gửi bài theo mẫu qui định: viewtopic.php?f=2&t=5
[thuthuat]Tên thủ thuật[/thuthuat]
[tacgia]Tên tác giả[/tacgia]
[mota]Mô tả, chú thích công dụng của thủ thuật[/mota]
[end][/end]
Hình đại diện của người dùng
ThanhLe993
Bài viết: 4
Ngày tham gia: T.Sáu 11/09/2015 3:37 pm
Đến từ: Tiền Giang
Liên hệ:

Tạo Menu hiệu ứng chạy bằng Code trong Visual Basic 6.0

Gửi bàigửi bởi ThanhLe993 » T.Năm 15/12/2016 12:08 am

Hiệu ứng Menu trong Visual Basic 6.0 được thực thi hoàn toàn bằng Code kết hợp của Textbox, Command, Frame và không sử dụng bất kỳ chương trình hỗ trợ nào.
Mình có đính kèm tệp phía dưới cho các bạn dễ tham khảo.


HÌNH ẢNH FORM THIẾT KẾ CHƯƠNG TRÌNH

http://bit.ly/2hwVWWB

HÌNH ẢNH THỰC THI CHƯƠNG TRÌNH

http://bit.ly/2htYV4f

Mã: Chọn hết

Private Sub cmd1_Click()
    fr1.Visible = True
End Sub

Private Sub Form_Click()
    fr1.Visible = False
End Sub

Private Sub Form_Load()
frmDuAnMenu.Caption = Space(100) & " DU AN MENU"
frmDuAnMenu.Height = 10800
frmDuAnMenu.Width = 19800
    cmd1.Visible = False
    fr1.Visible = False
    l1.ForeColor = &H80000012
    l2.ForeColor = &H80000012
    Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub

Private Sub fr1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    l0.ForeColor = &H80000012
    l1.ForeColor = &H80000012
    l2.ForeColor = &H80000012
        l0.BackColor = &H8000000F
        l1.BackColor = &H8000000F
        l2.BackColor = &H8000000F
End Sub

Private Sub l0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    l0.ForeColor = &H80000012
    l0.ForeColor = &H8000000D
        l0.BackColor = &H8080FF
End Sub

Private Sub l1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    l1.ForeColor = &H8000000D
    l2.ForeColor = &H80000012
        l1.BackColor = &H8080FF
End Sub

Private Sub l2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    l1.ForeColor = &H80000012
    l2.ForeColor = &H8000000D
        l2.BackColor = &H8080FF
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cmd1.Visible = True
End Sub

Private Sub Timer1_Timer()
    frmDuAnMenu.Caption = Right(frmDuAnMenu.Caption, Len(frmDuAnMenu.Caption) - 1)
    If frmDuAnMenu.Caption = "" Then
        frmDuAnMenu.Caption = Space(100) & "DU AN MENU"
    End If
End Sub
Tập tin đính kèm
du-an-menu.rar
Form chương trình hiệu ứng Menu trong Visual Basic 6.0
(3.69 KiB) Đã tải 52 lần



Quay về “[VB] Thủ thuật, mẹo vặt”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách