Advertisement
2002VB Custom Controls/ Forms/ Menus #19603

Back to simplicity: Floating CommandButtons

A lame little "3D" effect with a shape and a command button. makes it look like the button is floating above the form.. the contained code shows how to further that effect by moving the button..

AI

AI 요약: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

소스 코드
original-source
Option Explicit
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Left = Command1.Left + 60
Command1.Top = Command1.Top + 60
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Left = Command1.Left - 60
Command1.Top = Command1.Top - 60
End Sub
원본 댓글 (3)
Wayback Machine에서 복구됨