VB에서 응용 프로그램 제목 변경

로드 할 때 응용 프로그램의 제목을 변경하려면 아래 코드를 사용하고 있습니다. 나는 그것을 다른 개인 서브 시스템에서 개별적으로 갖는 대신, 웹 서버에 두 번 접촉해야하는 것을 피할 수 있도록 메인 개인 서브 시스템에서로드 할 수 있기를 원한다.VB에서 응용 프로그램 제목 변경

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

    Dim wc As WebClient = New WebClient() 
    Dim Details As String() 

    Try 
     Details = wc.DownloadString("http://(IP GOES HERE):8080/launcher/Details.php").Split("#") 
     wc.Dispose() 
    Catch ex As Exception 
     MsgBox("Failed to connect to server. Please make sure you're connected to the internet.", MsgBoxStyle.Critical, "Server Connection Failed") 
     Return 
    End Try 

    Me.Text = Details(7) 

End Sub

내 기본 개인용 서브 프로그램에서 다른 기능을 사용하므로 코드를 더 효율적으로 넣을 수 있습니다. 다른 하위의

출처

2013-04-10 Farbod D

주에서 함수를 만들고 코드를 삽입 한 다음 원하는 장소를 사용하는 글로벌 변수에 reslut를 저장합니다. – Sathish

다른 비공개 하위 영역에 코드를 표시하여 두 호출 간의 유사점과 차이점을 볼 수 있습니까? 질문을 수정 해보십시오. SATSON이 말한 것처럼 결과가 전역 변수에 저장되면 해결되지 않습니까? – Amegon

기본적으로 내가하고 싶은 일은 애플리케이션 바 상단에서 내 애플리케이션의 제목을 변경하는 것입니다. 폼의 새 개인 하위를 만드는 대신 이전 단추를 다시 호출 할 필요가 없도록 내 단추 개인 하위에 추가하고 싶습니다. 내 원래 게시물을 다른 하위로 업데이트했습니다. –

Dim CommDetails As String() 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

    Dim wc As WebClient = New WebClient() 

    Try 
     CommDetails = wc.DownloadString("http://(IP GOES HERE):8080/launcher/Details.php").Split("#") 
     wc.Dispose() 
    Catch ex As Exception 
     MsgBox("Failed to connect to server. Please make sure you're connected to the internet.", MsgBoxStyle.Critical, "Server Connection Failed") 
     Return 
    End Try 

    Me.Text = CommDetails(7) 

End Sub

some_text = CommDetails(7)

출처

2013-04-10 12:07:28 Amegon

여전히 웹 서버에 연결 중입니다. 나는 그것을 두 번하기를 원하지 않는다. –

고마워, 나는 결국 그것을 할 수 있었다. –

VB에서 응용 프로그램 제목 변경

답변

관련 문제