폼 천천히 사라지는것 질문
서향
폼이 천천히 나타나는것은
-------------------------------------------------------------------------------------------------------------------
Dim Alpha
Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
Dim Ret As Long
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
Timer1.Interval = 20
End Sub
Private Sub Timer1_Timer()
Alpha = Alpha + 5
If Alpha 255 Then
SetLayeredWindowAttributes Me.hWnd, 0, 255, LWA_ALPHA
Timer1.Enabled = False
Exit Sub
End If
SetLayeredWindowAttributes Me.hWnd, 0, Alpha, LWA_ALPHA
End Sub
-------------------------------------------------------------------------------------------------------------------
이건데 사라지는건 어떻게 하는건가요?
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2655185 | 화면의 x좌표 가장큰값 구하기 질문 (1) | 해길 | 2024-05-17 |
2655158 | 이거 강좌를 받앗는대 어떻개따라해요? | 하람 | 2024-05-17 |
2655130 | 컴퓨터 사운드 녹음 질문 | 갤쓰리 | 2024-05-17 |
2655073 | 폼끄기 질문 다시합니다 | 해찬솔 | 2024-05-16 |
2654987 | 메세지 박스 질문입니다 ~ (3) | 안다미로 | 2024-05-15 |
2654960 | 블로그 글쓰기 질문 (2) | 힘찬 | 2024-05-15 |
2654931 | 질문 하나 하겠습니다 .!! | 소윤 | 2024-05-15 |
2654904 | 비베 질문요 ㅠㅠ | 미련곰탱이 | 2024-05-15 |
2654851 | 미투데이에 글을 다는 소스를 만들어보려고 하는데 | 횃불 | 2024-05-14 |
2654822 | 원하는 이미지만 꼭 찝어서 냅두기 (3) | 다솜 | 2024-05-14 |
2654791 | 닷홈으로 TEXT를 전송하는데요.. (1) | 그리 | 2024-05-14 |
2654769 | 뭐죠 ?? | 가을 | 2024-05-13 |
2654744 | winhttp로 자동으로 글 등록하는 걸 만들었는데 | 민들레 | 2024-05-13 |
2654717 | 웹브 뒤로가기? (2) | 샹1큼해 | 2024-05-13 |
2654660 | int(Rnd *9999) 질문좀 드릴게욤..;; | 사랑은아픔 | 2024-05-12 |
2654604 | 텍스트내용 메일로 보낼때 일정부분 가리기 (1) | 풋내 | 2024-05-12 |
2654575 | 메시지박스 | 터1프한렩 | 2024-05-12 |
2654551 | form의 크키가 커지면 다른 도구들도 커지는법좀. | 앵겨쭈 | 2024-05-11 |
2654492 | 컴퓨터본체로 강제종료 못시키게하는법 (3) | 연블랙 | 2024-05-11 |
2654465 | 폼2에서 폼1 리스트의 Listindex0에강제적으로 추가하기... 그리고저장하기 (1) | 갤3 | 2024-05-11 |