자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb.net

IT HUB를 찾아주셔서 감사합니다.

Controls [vb.net] vb.net 에서 동적 컨트롤에 익명매소드를 이용해서 이벤트 걸기

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 9,115회 작성일 20-08-10 15:22

본문

익명매소드(이름이 없는 매소드)

1. 객체 생성과 동시에 구현할 때

2. 일회성으로 사용할때

​

사용 예:)

AddHandler CB.CheckedChanged, Sub(S, O) MsgBox(S.tag)


Visual Basic 프로그래밍 기초:프로그래밍 경험이 전혀 없는 초보자를 위한 가이드 북, 교학사
아래 프로시저를 실행 후
    Private Sub LoadTimer_Tick(sender As Object, e As EventArgs) Handles LoadTimer.Tick
        LoadTimer.Stop()
        Dim T As String
        Dim URL As String = "https://section.blog.naver.com/ajax/DirectoryList.nhn"
        With CreateObject("WinHttp.WinHttpRequest.5.1")
            .Open("GET", URL)
            .SetRequestHeader("Host", "section.blog.naver.com")
            .SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:56.0) Gecko/20100101 Firefox/56.0")
            .SetRequestHeader("Accept", "application/json, text/plain, */*")
            .SetRequestHeader("Accept-Language", "ko-KR,ko;q=0.8,en-US;q=0.5,en;q=0.3")
            .SetRequestHeader("Referer", "https://section.blog.naver.com/BlogHome.nhn?directoryNo=0&currentPage=1&groupId=0")
            .SetRequestHeader("Connection", "keep-alive")
            If Len(Cookie) Then .SetRequestHeader("Cookie", Cookie)
            .SetRequestHeader("TE", "Trailers")
            .Send()
            .WaitForResponse() : Application.DoEvents()
            'T = System.Text.Encoding.Default.GetString(.ResponseBody)
            T = .ResponseText
        End With
        T = T.Substring(T.IndexOf("{"))
        Dim J As Object = JsonConvert.DeserializeObject(T)
        For Each result As Object In J("result")
            Dim activeDirectoryName As String = result("name")
            Dim activeDirectorySeq As String = result("seq")
            Dim LB As New Label
            LB.Text = String.Format("[{0}]", activeDirectoryName)
            LB.AutoSize = True
            LB.Font = New Font("맑은 고딕", 11, FontStyle.Bold)
            FlowLayoutPanel1.Controls.Add(LB)
            For Each directoryList As Object In result("directoryList")
                Dim DirectoryName As String = directoryList("name")
                Dim DirectorySeq As String = directoryList("seq")
                Dim CB As New CheckBox
                CB.Text = DirectoryName
                CB.AutoSize = True
                CB.Checked = True
                CB.Tag = String.Format("https://section.blog.naver.com/ThemePost.nhn?directoryNo={0}&activeDirectorySeq={1}&currentPage={2}", DirectorySeq, activeDirectorySeq, "{0}")
                AddHandler CB.CheckedChanged, Sub(S, O) MsgBox(S.tag)
                FlowLayoutPanel1.Controls.Add(CB)
                If FlowLayoutPanel1.ClientRectangle.Height < CB.Top + CB.Height Then GroupBox7.Height = GroupBox7.Height + (CB.Top + CB.Height - FlowLayoutPanel1.ClientRectangle.Height)
            Next
        Next
    End Sub





Visual Basic 프로그래밍 기초:프로그래밍 경험이 전혀 없는 초보자를 위한 가이드 북, 교학사

댓글목록

등록된 댓글이 없습니다.