Merhaba arkadaşlar visual basic uzerinde not defteri yapıyorum richtextbox uzerinde orneğin bir gulucuk yapıyorum richtextbox'a =) girdiğinde otomatik olarak gulumseme resmi gelcek ben bunu yaptım ama sorun 1 den fazla eklenmiyor eklemeye kalkınca diğeri siliniyor kod:

HTML Code:
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged Try Dim LastIndex As Integer LastIndex = RichTextBox1.Text.IndexOf(":-)") Do While LastIndex -1 RichTextBox1.Text = RichTextBox1.Text.Remove(LastIndex, 3) RichTextBox1.SelectionStart = LastIndex Dim SmileyImage As Image = Image.FromFile("C:\1.png") Dim OriginalClipboardData As IDataObject = Clipboard.GetDataObject Clipboard.SetImage(SmileyImage) RichTextBox1.Paste() Clipboard.SetDataObject(OriginalClipboardData) LastIndex = RichTextBox1.Text.IndexOf(":-)", LastIndex + 3) Loop Catch ex As Exception End Try End Sub

__________________