1vaxjo1
جمعه 18 شهریور 1390, 00:45 صبح
با درود و خسته نباشید
دوستان گرامی یک مشکل اساسی در برنامه نویسی وب نت دارم امیدوارم بتونید کمکم ممنون میشوم
من میخواهم از گوگول ترانسلاتور همزمان در دو نکست باکس استفاده کنم ولی نمیشه مثلا از انگلیسی همزمان به آلمانی و فرانسه ترجمه کنم یعنی بجای ترجمه تک به تک دو تا ترجمه همزمان باشد
این کد را نوشتم جواب نمیده نمیدانم لطفا کمکم کنید
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
For i As Integer = 0 To Google.API.Translate.LanguageUtility.LanguageColle ction.Count - 1
Me.ComboBox2.Items.Add(Google.API.Translate.Langua geUtility.LanguageCollection(i))
Me.ComboBox3.Items.Add(Google.API.Translate.Langua geUtility.LanguageCollection(i))
Next
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Me.RichTextBox1.Text = Google.API.Translate.Translator.Translate(Me.RichT extBox2.Text, Google.API.Language.Germany, Me.ComboBox2.SelectedIndex + 0)
Me.RichTextBox1.Text = Google.API.Translate.Translator.Translate(Me.RichT extBox3.Text, Google.API.Language.Germany, Me.ComboBox3.SelectedIndex + 0)
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
End Sub
Private Sub T1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1.Tick
End Sub
Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
End Sub
ممنون میشم اگر کمکم کنید
دوستان گرامی یک مشکل اساسی در برنامه نویسی وب نت دارم امیدوارم بتونید کمکم ممنون میشوم
من میخواهم از گوگول ترانسلاتور همزمان در دو نکست باکس استفاده کنم ولی نمیشه مثلا از انگلیسی همزمان به آلمانی و فرانسه ترجمه کنم یعنی بجای ترجمه تک به تک دو تا ترجمه همزمان باشد
این کد را نوشتم جواب نمیده نمیدانم لطفا کمکم کنید
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
For i As Integer = 0 To Google.API.Translate.LanguageUtility.LanguageColle ction.Count - 1
Me.ComboBox2.Items.Add(Google.API.Translate.Langua geUtility.LanguageCollection(i))
Me.ComboBox3.Items.Add(Google.API.Translate.Langua geUtility.LanguageCollection(i))
Next
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Me.RichTextBox1.Text = Google.API.Translate.Translator.Translate(Me.RichT extBox2.Text, Google.API.Language.Germany, Me.ComboBox2.SelectedIndex + 0)
Me.RichTextBox1.Text = Google.API.Translate.Translator.Translate(Me.RichT extBox3.Text, Google.API.Language.Germany, Me.ComboBox3.SelectedIndex + 0)
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
End Sub
Private Sub T1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1.Tick
End Sub
Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
End Sub
ممنون میشم اگر کمکم کنید