[VBNET] [API] 컨트롤 (Control) 모서리 둥글게 하기

* VBNET API 를 이용한 컨트롤 (Control ) 모서리 둥글게 하기 예제...

 

메인화면

 

전체 소스 코드

Form1.vb

Public Class Form1

    Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
    Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long


    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

        '라벨의 크기를 전달 하고 15 정도로 모서리를 둥글게 한다.
        Dim ip As IntPtr = CreateRoundRectRgn(0, 0, label1.Width, label1.Height, 15, 15)
        Dim i As Integer = SetWindowRgn(label1.Handle, ip, True)

        '텍스트박스 크기를 전달 15 정도로 모서리를 둥글게 한다.
        Dim ip2 As IntPtr = CreateRoundRectRgn(0, 0, textBox1.Width, textBox1.Height, 15, 15)
        Dim i2 As Integer = SetWindowRgn(textBox1.Handle, ip2, True)

    End Sub
End Class

* 예제 결과

 

결과 화면

 

Button 클릭 시 위 그림의 빨간 테두리 안에 컨트롤들의 모서리가 둥글게 변하는 모습을 보실 수 있습니다.

 

https://kdsoft-zeros.tistory.com/124

[C#] [API] 컨트롤 (Control) 모서리 둥글게 만들기