Arkadaşlar Sabahtan beri Ugraşıyorum, bir türlü çözemedim.. 'Add" bir String üyesi degil diye hata veriyor.
Kod:
Public Class Form1
Dim userMsg As String
Private Sub FormSkin1_Click(sender As Object, e As EventArgs) Handles FormSkin1.Click
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
If RichTextBox1.Text = "" Then
MsgBox("Çalışmam için bana Komut Vermelisin", MsgBoxStyle.Exclamation, "Üzgünüm , hata oldu.")
Else
FlatListBox1.items.Add(FlatTextBox1.Text + "::" = RichTextBox1.Text)
userMsg = RichTextBox1.Text
RichTextBox1.Clear()
End If
If userMsg = "Merhaba" Then
FlatListBox1.items.Add("Yapay zeka :: Çok Teşekkür ederim , Sen nasılsın?")
End If
End Sub
Private Sub FlatLabel1_Click(sender As Object, e As EventArgs) Handles FlatLabel1.Click
End Sub
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
RichTextBox1.Clear()
FlatListBox1.Clear()
End Sub
Private Sub FlatListBox1_Click(sender As Object, e As EventArgs) Handles FlatListBox1.Click
End Sub
End Class
Not : Sorunu Çözdüm. "İtems.Add" yerine "AddItem" Kullanın.
Son düzenleme:
