ROSTAM2
پنج شنبه 20 مهر 1402, 14:20 عصر
در این مجموعه آموزشی نحوه ایجاد یک نرم افزار فرهنگ لغت بصورت ابتدائی توضیح داده شده....
بخش اول: https://www.aparat.com/v/zwfUB (https://www.aparat.com/v/zwfUB)
بخش دوم: https://www.aparat.com/v/hF7g2 (https://www.aparat.com/v/hF7g2)
بخش سوم: https://www.aparat.com/v/HYnFB (https://www.aparat.com/v/HYnFB)
بخش چهارم: https://www.aparat.com/v/ujV3h (https://www.aparat.com/v/ujV3h)
بخش پنجم: https://www.aparat.com/v/GC4jI (https://www.aparat.com/v/GC4jI)
بخش ششم: https://www.aparat.com/v/4LDIe (https://www.aparat.com/v/4LDIe)
155014
If Me.ToolStripTextBox1.TextLength = 0 Then Exit Sub
Dim ID As Guid = Nothing
ID = Guid.NewGuid
Dim Row As DataRow = Nothing
Dim Word As String = Me.ToolStripTextBox1.Text
Select Case Me.ToolStripComboBox1.SelectedIndex
Case 1
If Me.EnTableAdapter1.CountOf(Word) > 0 Then
MsgBox("این کلمه در جدول موجود است!", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight)
Exit Select
End If
With Me.EnTableAdapter1
.InsertQuery(ID, Word, "")
Row = .GetDataByID(ID).Rows(0)
End With
Case 0
If Me.FaTableAdapter1.CountOf(Word) > 0 Then
MsgBox("این کلمه در جدول موجود است!", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight)
Exit Select
End If
With Me.FaTableAdapter1
.InsertQuery(ID, Word, "")
Row = .GetDataByID(ID).Rows(0)
End With
End Select
If Row Is Nothing Then Exit Sub
With If(Me.ToolStripComboBox1.SelectedIndex = 0, Me.ListBox1, Me.ListBox3)
.Items.Add(Row)
End With
بخش اول: https://www.aparat.com/v/zwfUB (https://www.aparat.com/v/zwfUB)
بخش دوم: https://www.aparat.com/v/hF7g2 (https://www.aparat.com/v/hF7g2)
بخش سوم: https://www.aparat.com/v/HYnFB (https://www.aparat.com/v/HYnFB)
بخش چهارم: https://www.aparat.com/v/ujV3h (https://www.aparat.com/v/ujV3h)
بخش پنجم: https://www.aparat.com/v/GC4jI (https://www.aparat.com/v/GC4jI)
بخش ششم: https://www.aparat.com/v/4LDIe (https://www.aparat.com/v/4LDIe)
155014
If Me.ToolStripTextBox1.TextLength = 0 Then Exit Sub
Dim ID As Guid = Nothing
ID = Guid.NewGuid
Dim Row As DataRow = Nothing
Dim Word As String = Me.ToolStripTextBox1.Text
Select Case Me.ToolStripComboBox1.SelectedIndex
Case 1
If Me.EnTableAdapter1.CountOf(Word) > 0 Then
MsgBox("این کلمه در جدول موجود است!", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight)
Exit Select
End If
With Me.EnTableAdapter1
.InsertQuery(ID, Word, "")
Row = .GetDataByID(ID).Rows(0)
End With
Case 0
If Me.FaTableAdapter1.CountOf(Word) > 0 Then
MsgBox("این کلمه در جدول موجود است!", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight)
Exit Select
End If
With Me.FaTableAdapter1
.InsertQuery(ID, Word, "")
Row = .GetDataByID(ID).Rows(0)
End With
End Select
If Row Is Nothing Then Exit Sub
With If(Me.ToolStripComboBox1.SelectedIndex = 0, Me.ListBox1, Me.ListBox3)
.Items.Add(Row)
End With