수다닷컴

Public Class Form4
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim 성 As String Dim 이름 As String Dim 생일 As String Dim 한줄소개 As String Dim 검색가능여부 As Boolean Dim 양음 As KakaoStoryLib.KakaoStoryLib.BirthdayType 성 = TextBox1.Text 이름 = TextBox2.Text 생일 = TextBox3.Text + TextBox4.Text + TextBox5.Text 한줄소개 = TextBox7.Text If CheckBox3.Checked Then 검색가능여부 = True Else 검색가능여부 = False End If If CheckBox1.Checked Then 양음 = KakaoStoryLib.KakaoStoryLib.BirthdayType.Solar ElseIf CheckBox2.Checked Then 양음 = KakaoStoryLib.KakaoStoryLib.BirthdayType.Lunar End If
If Updatepro(성, 이름, 생일, 한줄소개, 양음, 검색가능여부) Then MsgBox(프로필 업데이트 성공, MsgBoxStyle.Information, 정보) Me.Close() End If
End Sub
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
End Sub
Public Function Updatepro(s1 As String, s2 As String, s3 As String, s4 As String, bt As KakaoStoryLib.KakaoStoryLib.BirthdayType, sa As Boolean) Try Form1.kko.SetName(s1, s2) Form1.kko.SetBirth(s3, bt) Form1.kko.SetMessage(s4) Form1.kko.SetSearchable(sa) Form1.kko.Update() Return True Catch ex As Exception MsgBox(ex, MsgBoxStyle.Critical, 오류) Return False End Try
End FunctionEnd Class
이렇게 폼이 한게 있는데 여기서 버튼을 누르면 프로그렘 자체가 멈추는데 어떻게 해야 할까요?

신청하기