VB 모양의 서클 모양

-1

VB6을 사용하고 있습니다. 누구든지 둥근 원형 모양을 만들 수있는 방법을 말해 줄 수 있습니까?VB 모양의 서클 모양

이 코드를 사용했지만 그것은 오류 보여줍니다

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long 
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long 
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long 
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long 
Private Function fMakeATranspArea(AreaType As String, pCordinate() As Long) As Boolean

출처

2013-08-18 Divyam

오류가 무엇입니까 : 전체 구현을 가지고 - 그것의 모양에서

, 당신은 여기에서 소스 코드를 발견? – dazedandconfused

이 코드는 실제로 아무 것도하지 않습니다. 그것은 일련의 선언 일뿐입니다. 이 함수들을 어떻게 호출하는지 또는'fMakeATranspArea' 함수의 구현이 무엇인지 우리에게 알려주지 않았습니다. –

이 질문보기 http://stackoverflow.com/questions/3621118/semi-transparent-form-using-vb6 – MarkJ

가 fMakeATranspArea뿐만 아니라 API 호출처럼 보일 수를 (그것이하지 않은) -하지만 가능성이 인 몸을 실종 혼란스러워하는 문제.

이 같은 매뉴얼을 마지막 라인을 대체 할 수는 좌표가 표시

Private Sub Form_Load() 
    SetWindowRgn Me.hWnd, CreateEllipticRgn(0, 0, 300, 300), 1 
End Sub

그 번호를. 내가 복잡하다고 생각되는대로 fMakeATranspArea을 고치고, 필요한 것을 복잡하게 만드는 것을 제안하지 않습니다.

CombineRgn 및 CreateRectRgn도이 경우에 필요하지 않습니다.

http://www.planet-source-code.com/vb/scripts/ShowCodeAsText.asp?txtCodeId=1617&lngWId=-10

출처

2013-08-18 13:22:58

VB 모양의 서클 모양

답변

관련 문제