전체 : 4,150,784 명
어제 : 0 명
오늘 : 0 명

반투명 처리 퍼옴

진진 | 2008.03.26 14:00 | 조회 6069

Option Explicit
Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Declare Function GetForegroundWindow Lib "user32" () As Long
Declare Function BitBlt Lib "GDI32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Const HTCAPTION = 2
Public iRecursion As Boolean
Public Hcolor As Long

'반투명
Public Sub T_P(T_Pic As PictureBox, Optional Hcolor As Long)
On Local Error Resume Next
Dim HW As Long
Dim HA As Long
Dim iLeft As Integer
Dim iTop As Integer
Dim iWidth As Integer
Dim iHeight As Integer
If IsMissing(Hcolor) Or Hcolor = 0 Then
Hcolor = RGB(1, 255, 185) '원하는 색 지정
'Hcolor = RGB(0, 0, 0) 'GetForegroundWindow()
End If
T_Pic.AutoRedraw = True
T_Pic.Visible = False
DoEvents
HW = GetForegroundWindow()
HA = GetDC(HW)
iLeft = T_Pic.Left / Screen.TwipsPerPixelX
iTop = T_Pic.Top / Screen.TwipsPerPixelY
iWidth = T_Pic.ScaleWidth
iHeight = T_Pic.ScaleHeight
'Call BitBlt(T_Pic.hdc, 0, 0, iWidth, iHeight, HA, iLeft + 1, iTop + 1, SRCCOPY)
Call BitBlt(T_Pic.hdc, 0, 0, iWidth, iHeight, HA, T_Pic.Left, T_Pic.Top, SRCCOPY)
Call ReleaseDC(HW, HA)
T_Pic.DrawMode = 9
T_Pic.ForeColor = Hcolor
T_Pic.Line (0, 0)-(iWidth, iHeight), , BF
T_Pic.Visible = True
End Sub

'사용

Call T_P(Me.Car_Detect, Hcolor)

[출처] 반투명기법|작성자 야웅이

twitter facebook me2day 요즘
감사 합니다 좋은자료 ㅎ
감사 합니다 좋은자료 ㅎ
08.01 06:52 | 나냠님 | 신고 | 수정 | 삭제
댓글 0
입력상자 늘리기
그대로 소스 펐는데 안되네요....
그대로 소스 펐는데 안되네요....
07.06 13:45 | 테일즈번님 | 신고 | 수정 | 삭제
댓글 0
입력상자 늘리기
좋은자료 잘 보고 갑니다 ^^ ;;
좋은자료 잘 보고 갑니다 ^^ ;;
11.07 22:34 | LSK_SeulKi♡님 | 신고 | 수정 | 삭제
댓글 0
입력상자 늘리기
감사합니다 ㅎㅎ

감사합니다 ㅎㅎ

01.22 11:50 | 고음불가님 | 신고 | 수정 | 삭제
댓글 0
입력상자 늘리기
댓글쓰기 - 로그인한 후 댓글작성권한이 있을 경우 이용하실 수 있습니다.

비밀번호 확인

댓글 등록시에 입력했던 비밀번호를 입력해 주세요.
72개(1/4페이지)
rss
비주얼베이직
번호 제목 작성자 작성일 조회
72 경로를 읽어서 해당경로가 존재하지 않으면 폴더 생성하기[6] 루카스 2011.12.09 4617
71 [비베 6][TIP] 주석을 여러줄을 써보자[7] qwqw1312 2011.09.01 6752
70 [비베 6]if문을 이용하여 자신만의 아이디, 비밀번호 지정사진[5] qwqw1312 2011.09.01 5655
69 [비베 2010]폼 투명도 바꾸는 트랙바!!첨부파일[12] kchdully 2010.02.13 6333
68 [비베 2008][TIP] ListView Item 추가 퍼포먼스 향상.첨부파일[7] Juma 2009.09.27 7468
67 [비베 2008][TIP] Process 클래스를 이용한 간단한 연결 프로그램 실행.[2] Juma 2009.09.27 6121
66 [비베 2008]IMessage Filter를 상속하여 어플리케이션 단위의 메시지 후킹.첨부파일[3] Juma 2009.09.27 6658
65 [비베 2008]경로 탐색.사진첨부파일[3] Juma 2009.09.27 5635
64 [비베 6][크리스의 비베 강좌] -01- 변수 선언[12] 크리스Kof 2007.12.10 6348
63 [비베 6]비주얼 베이직 기초동영상강좌1부터~20첨부파일[23] Нyan™ 2007.12.03 12925
62 [비베 6]비주얼 베이직 6 SP6 개발용사진첨부파일[26] COOLSOFT 2007.11.24 7506
61 [비베 6]비주얼 베이직 설치하기사진첨부파일[10] COOLSOFT 2007.10.27 9406
60 [비베 6]텍스트 상자 엔터키로 다음텍스트로 이동하기[2] 진진 2008.03.26 6019
>> [비베 6]반투명 처리 퍼옴[4] 진진 2008.03.26 6070
58 [비베 6]프로그램을 감지하여 강제 종료[7] COOLSOFT 2008.02.27 6343
57 [비베 6]VB실습강의(기초부터-김석수)첨부파일[26] 외눈박이™ 2008.01.24 8671
56 [비베 6][크리스의 비베 강좌] -03- 조건문(IF)[3] 크리스Kof 2008.01.12 5631
55 [비베 6]파일의 유무를 확인해보자 ! PathFileExists API ![4] yrisiku 2008.01.05 6081
54 [비베 6]변수의 데이터형에 대해 알아봅시다 :)사진첨부파일[2] yrisiku 2008.01.05 6852
53 [비베 6]Tip) 사용자 정의 프로시저/함수를 만들떄, 선택적 인수를 만들어보자 ![3] yrisiku 2008.01.05 7756
처음페이지이전 10 페이지1234다음 10 페이지마지막페이지