MessageBox

[mhbshn]

دربرنامه ام ازكد زير استفاده كرده ام


If TextBox6.Text = "" Or ComboBox1.Text = "" Or TextBox5.Text = "" Or MaskedTextBox2.Text = "" Or TextBox7.Text = "" Then
MessageBox.Show("ںلéںمں¢ ¦يں«¢ى ¬§ى ©ں يں©§ ëêںïï§", "¦لں", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
Return
End If

ولي زماني كه بعد از اعلام خطا OK را كليك ميكنم تمامي اطلاعاتي كه در textbox ها نوشته ام پاك ميشود چه بايد كرد

[mina.net]

این کد همه کدی که نوشتی نیست ، هست؟ اون بلاک از کدت رو کامل بزار تا راهنمای بشی.

[mhbshn]

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox6.Text = ""Or ComboBox1.Text = ""Or TextBox5.Text = ""Or MaskedTextBox2.Text = ""Or TextBox7.Text = ""Then
MessageBox.Show("اطلاعات خواسته شده را وارد نماييد", "¦خطا", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
Return
EndIf
Dim adddata AsString() = {TextBox6.Text.Trim, ComboBox1.Text.Trim, TextBox5.Text.Trim, MaskedTextBox2.Text.Trim, TextBox7.Text.Trim}
DataGridView2.Rows.Add(adddata)EndSub

[Hossis]

من فکر می کنم چون جلوی دستور return رو خالی گذاشتی این طور شده

[AmirDandy]

بجای return از exit sub استفاده کن