0% found this document useful (0 votes)

6 views4 pages

Efek Gerak Mouse

The document contains Visual Basic code for mouse movement events on multiple menu frames. Each frame changes its background color and label colors based on mouse movement, highlighting the active frame while dimming others. The code ensures a consistent visual feedback mechanism for user interaction with the menu interface.

Uploaded by

Nur Hidayat

We take content rights seriously. If you suspect this is your content, claim it here.

Available Formats

Download as PDF, TXT or read online on Scribd

0% found this document useful (0 votes)

6 views4 pages

Efek Gerak Mouse

Uploaded by

Nur Hidayat

We take content rights seriously. If you suspect this is your content, claim it here.

Available Formats

Download as PDF, TXT or read online on Scribd

You are on page 1/ 4

Private Sub FrameMENU1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,

ByVal X As Single, ByVal Y As Single)

Me.FrameMENU1.BackColor = RGB(15, 219, 77)
Me.IndMENU1.BackStyle = fmBackStyleOpaque
Me.IndMENU1.BackColor = vbWhite
Me.LblMENU1.ForeColor = vbBlack
Me.FrameMENU2.BackColor = &H80FF&
Me.IndMENU2.BackStyle = fmBackStyleTransparent
Me.LblMENU2.ForeColor = vbWhite
Me.FrameMENU3.BackColor = &H80FF&
Me.IndMENU3.BackStyle = fmBackStyleTransparent
Me.LblMENU3.ForeColor = vbWhite
Me.FrameMENU4.BackColor = &H80FF&
Me.IndMENU4.BackStyle = fmBackStyleTransparent
Me.LblMENU4.ForeColor = vbWhite
Me.FrameMENU5.BackColor = &H80FF&
Me.IndMENU5.BackStyle = fmBackStyleTransparent
Me.LblMENU5.ForeColor = vbWhite
Me.FrameMENU6.BackColor = &H80FF&
Me.IndMENU6.BackStyle = fmBackStyleTransparent
Me.LblMENU6.ForeColor = vbWhite
End Sub

Private Sub FrameMENU2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,

ByVal X As Single, ByVal Y As Single)
Me.FrameMENU2.BackColor = RGB(15, 219, 77)
Me.IndMENU2.BackStyle = fmBackStyleOpaque
Me.IndMENU2.BackColor = vbWhite
Me.LblMENU2.ForeColor = vbBlack
Me.FrameMENU1.BackColor = &H80FF&
Me.IndMENU1.BackStyle = fmBackStyleTransparent
Me.LblMENU1.ForeColor = vbWhite
Me.FrameMENU3.BackColor = &H80FF&
Me.IndMENU3.BackStyle = fmBackStyleTransparent
Me.LblMENU3.ForeColor = vbWhite
Me.FrameMENU4.BackColor = &H80FF&
Me.IndMENU4.BackStyle = fmBackStyleTransparent
Me.LblMENU4.ForeColor = vbWhite
Me.FrameMENU5.BackColor = &H80FF&
Me.IndMENU5.BackStyle = fmBackStyleTransparent
Me.LblMENU5.ForeColor = vbWhite
Me.FrameMENU6.BackColor = &H80FF&
Me.IndMENU6.BackStyle = fmBackStyleTransparent
Me.LblMENU6.ForeColor = vbWhite
End Sub

Private Sub FrameMENU3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,

ByVal X As Single, ByVal Y As Single)
Me.FrameMENU3.BackColor = RGB(15, 219, 77)
Me.IndMENU3.BackStyle = fmBackStyleOpaque
Me.IndMENU3.BackColor = vbWhite
Me.LblMENU3.ForeColor = vbBlack
Me.FrameMENU1.BackColor = &H80FF&
Me.IndMENU1.BackStyle = fmBackStyleTransparent
Me.LblMENU1.ForeColor = vbWhite
Me.FrameMENU2.BackColor = &H80FF&
Me.IndMENU2.BackStyle = fmBackStyleTransparent
Me.LblMENU2.ForeColor = vbWhite
Me.FrameMENU4.BackColor = &H80FF&
Me.IndMENU4.BackStyle = fmBackStyleTransparent
Me.LblMENU4.ForeColor = vbWhite
Me.FrameMENU5.BackColor = &H80FF&
Me.IndMENU5.BackStyle = fmBackStyleTransparent
Me.LblMENU5.ForeColor = vbWhite
Me.FrameMENU6.BackColor = &H80FF&
Me.IndMENU6.BackStyle = fmBackStyleTransparent
Me.LblMENU6.ForeColor = vbWhite
End Sub

Private Sub FrameMENU4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,

ByVal X As Single, ByVal Y As Single)
Me.FrameMENU4.BackColor = RGB(15, 219, 77)
Me.IndMENU4.BackStyle = fmBackStyleOpaque
Me.IndMENU4.BackColor = vbWhite
Me.LblMENU4.ForeColor = vbBlack
Me.FrameMENU1.BackColor = &H80FF&
Me.IndMENU1.BackStyle = fmBackStyleTransparent
Me.LblMENU1.ForeColor = vbWhite
Me.FrameMENU2.BackColor = &H80FF&
Me.IndMENU2.BackStyle = fmBackStyleTransparent
Me.LblMENU2.ForeColor = vbWhite
Me.FrameMENU3.BackColor = &H80FF&
Me.IndMENU3.BackStyle = fmBackStyleTransparent
Me.LblMENU3.ForeColor = vbWhite
Me.FrameMENU5.BackColor = &H80FF&
Me.IndMENU5.BackStyle = fmBackStyleTransparent
Me.LblMENU5.ForeColor = vbWhite
Me.FrameMENU6.BackColor = &H80FF&
Me.IndMENU6.BackStyle = fmBackStyleTransparent
Me.LblMENU6.ForeColor = vbWhite
End Sub

Private Sub FrameMENU5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,

ByVal X As Single, ByVal Y As Single)
Me.FrameMENU5.BackColor = RGB(15, 219, 77)
Me.IndMENU5.BackStyle = fmBackStyleOpaque
Me.IndMENU5.BackColor = vbWhite
Me.LblMENU5.ForeColor = vbBlack
Me.FrameMENU1.BackColor = &H80FF&
Me.IndMENU1.BackStyle = fmBackStyleTransparent
Me.LblMENU1.ForeColor = vbWhite
Me.FrameMENU2.BackColor = &H80FF&
Me.IndMENU2.BackStyle = fmBackStyleTransparent
Me.LblMENU2.ForeColor = vbWhite
Me.FrameMENU3.BackColor = &H80FF&
Me.IndMENU3.BackStyle = fmBackStyleTransparent
Me.LblMENU3.ForeColor = vbWhite
Me.FrameMENU4.BackColor = &H80FF&
Me.IndMENU4.BackStyle = fmBackStyleTransparent
Me.LblMENU4.ForeColor = vbWhite
Me.FrameMENU6.BackColor = &H80FF&
Me.IndMENU6.BackStyle = fmBackStyleTransparent
Me.LblMENU6.ForeColor = vbWhite
End Sub

Private Sub FrameMENU6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,

ByVal X As Single, ByVal Y As Single)
Me.FrameMENU6.BackColor = RGB(15, 219, 77)
Me.IndMENU6.BackStyle = fmBackStyleOpaque
Me.IndMENU6.BackColor = vbWhite
Me.LblMENU6.ForeColor = vbBlack
Me.FrameMENU1.BackColor = &H80FF&
Me.IndMENU1.BackStyle = fmBackStyleTransparent
Me.LblMENU1.ForeColor = vbWhite
Me.FrameMENU2.BackColor = &H80FF&
Me.IndMENU2.BackStyle = fmBackStyleTransparent
Me.LblMENU2.ForeColor = vbWhite
Me.FrameMENU3.BackColor = &H80FF&
Me.IndMENU3.BackStyle = fmBackStyleTransparent
Me.LblMENU3.ForeColor = vbWhite
Me.FrameMENU4.BackColor = &H80FF&
Me.IndMENU4.BackStyle = fmBackStyleTransparent
Me.LblMENU4.ForeColor = vbWhite
Me.FrameMENU5.BackColor = &H80FF&
Me.IndMENU5.BackStyle = fmBackStyleTransparent
Me.LblMENU5.ForeColor = vbWhite
End Sub

Private Sub FrameMENUSAMPING_MouseMove(ByVal Button As Integer, ByVal Shift As

Integer, ByVal X As Single, ByVal Y As Single)
Me.FrameMENU1.BackColor = &H80FF&
Me.IndMENU1.BackStyle = fmBackStyleTransparent
Me.LblMENU1.ForeColor = vbWhite
Me.FrameMENU2.BackColor = &H80FF&
Me.IndMENU2.BackStyle = fmBackStyleTransparent
Me.LblMENU2.ForeColor = vbWhite
Me.FrameMENU3.BackColor = &H80FF&
Me.IndMENU3.BackStyle = fmBackStyleTransparent
Me.LblMENU3.ForeColor = vbWhite
Me.FrameMENU4.BackColor = &H80FF&
Me.IndMENU4.BackStyle = fmBackStyleTransparent
Me.LblMENU4.ForeColor = vbWhite
Me.FrameMENU5.BackColor = &H80FF&
Me.IndMENU5.BackStyle = fmBackStyleTransparent
Me.LblMENU5.ForeColor = vbWhite
Me.FrameMENU6.BackColor = &H80FF&
Me.IndMENU6.BackStyle = fmBackStyleTransparent
Me.LblMENU6.ForeColor = vbWhite
End Sub

VB 2nd Unit
No ratings yet
VB 2nd Unit
39 pages
Vbhtp2e 14 Beta
No ratings yet
Vbhtp2e 14 Beta
122 pages
Isi Pustaka 816870784401
No ratings yet
Isi Pustaka 816870784401
71 pages
For Check Boxes: "Arial" "Arial"
100% (1)
For Check Boxes: "Arial" "Arial"
14 pages
VB - Practical Programs
No ratings yet
VB - Practical Programs
109 pages
Menu de Excel
No ratings yet
Menu de Excel
9 pages
Astuce
No ratings yet
Astuce
19 pages
CODING
No ratings yet
CODING
10 pages
API Menus (VB)
No ratings yet
API Menus (VB)
31 pages
Coding 2
No ratings yet
Coding 2
9 pages
Unit 2
No ratings yet
Unit 2
52 pages
Modul HideTitleBar
No ratings yet
Modul HideTitleBar
2 pages
Comunicación RS-232 Con PLC DELTA Software en VB
No ratings yet
Comunicación RS-232 Con PLC DELTA Software en VB
16 pages
Code For Menu Deslizable
No ratings yet
Code For Menu Deslizable
14 pages
Code Source
No ratings yet
Code Source
10 pages
Listing Program
No ratings yet
Listing Program
16 pages
Win32 Constants
100% (1)
Win32 Constants
32 pages
PENGAWAI
No ratings yet
PENGAWAI
11 pages
Csc301 Chapter 4-1 Menus
No ratings yet
Csc301 Chapter 4-1 Menus
32 pages
Signal Compare
No ratings yet
Signal Compare
17 pages
Lampiran TA Visual Basic
No ratings yet
Lampiran TA Visual Basic
25 pages
Killer-666-Ub Malware y Sus Parametros de Inicio en VB
100% (1)
Killer-666-Ub Malware y Sus Parametros de Inicio en VB
12 pages
CPROG2YES
No ratings yet
CPROG2YES
3 pages
Menus
No ratings yet
Menus
26 pages
Dynamic Creation of MenuStrip - VB
No ratings yet
Dynamic Creation of MenuStrip - VB
4 pages
Allvbprogram Xii With Property 18 04 2024
No ratings yet
Allvbprogram Xii With Property 18 04 2024
11 pages
14.43.1.webbrowser Demo
No ratings yet
14.43.1.webbrowser Demo
34 pages
Bca Chapter 7 - Menus MDIs
No ratings yet
Bca Chapter 7 - Menus MDIs
8 pages
How To Use MDI Form in VB
100% (1)
How To Use MDI Form in VB
12 pages
Imports Global Partial Class Inherits: System - Io - Form1 System - Windows.Forms - Form
No ratings yet
Imports Global Partial Class Inherits: System - Io - Form1 System - Windows.Forms - Form
10 pages
Controles
No ratings yet
Controles
2 pages
Project I Algoritma Dan Pemrograman Lanjutan Gambar Layout Tabsheet2
No ratings yet
Project I Algoritma Dan Pemrograman Lanjutan Gambar Layout Tabsheet2
4 pages
Coding Dasar
No ratings yet
Coding Dasar
6 pages
Code System Archivage Document
No ratings yet
Code System Archivage Document
6 pages
Tugas
No ratings yet
Tugas
2 pages
Ghost Clicker 0.1
No ratings yet
Ghost Clicker 0.1
8 pages
Form1: 'Code To Copy The Text
No ratings yet
Form1: 'Code To Copy The Text
5 pages
Visual
No ratings yet
Visual
15 pages
VFP Richtextbox
No ratings yet
VFP Richtextbox
26 pages
Adobe Theme VB - Net - Class Item
No ratings yet
Adobe Theme VB - Net - Class Item
21 pages
Smart Menu XP
No ratings yet
Smart Menu XP
11 pages
8 Id ? PHP - Lesson / Learn / Il - Co - VB - DR://: Menu Control
No ratings yet
8 Id ? PHP - Lesson / Learn / Il - Co - VB - DR://: Menu Control
2 pages
MDL Cursor
No ratings yet
MDL Cursor
1 page
Hide Title or Caption Bar
No ratings yet
Hide Title or Caption Bar
1 page
Code
No ratings yet
Code
4 pages
Teen Theme
No ratings yet
Teen Theme
16 pages
Formulario Moderno
No ratings yet
Formulario Moderno
3 pages
(En El Agragamos Un Menu Con Datagridview) : Comidas
No ratings yet
(En El Agragamos Un Menu Con Datagridview) : Comidas
7 pages
Informe Diario
No ratings yet
Informe Diario
7 pages
Printttt
No ratings yet
Printttt
4 pages
圖片移動大小放大縮小
No ratings yet
圖片移動大小放大縮小
4 pages
SOURCE
No ratings yet
SOURCE
1 page
Delta To Wye and V.V
No ratings yet
Delta To Wye and V.V
4 pages
Version 5
No ratings yet
Version 5
18 pages
Frmdog - 1 Option Explicit
No ratings yet
Frmdog - 1 Option Explicit
102 pages
Public Class FrmMenu
No ratings yet
Public Class FrmMenu
1 page
Chqret Code
No ratings yet
Chqret Code
2 pages

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.

Efek Gerak Mouse

Uploaded by

Efek Gerak Mouse

Uploaded by

Private Sub FrameMENU1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,

ByVal X As Single, ByVal Y As Single)

Private Sub FrameMENU2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,

Private Sub FrameMENU3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,

Private Sub FrameMENU4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,

Private Sub FrameMENU5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,

Private Sub FrameMENU6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,

Private Sub FrameMENUSAMPING_MouseMove(ByVal Button As Integer, ByVal Shift As

You might also like

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.