Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt1.TextChanged If txt1.Text = "" Then Exit Sub Else var = txt1.Text End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click txt1.Text = var End Sub
بو عبدالله كتب :تفضل الكود عزيزي عملنا متغير و حتينا قيمته = النص المدخل لكن حطينا شرط في حال لا يوجد نص اخرج من الجمله هذا الكود PHP كود : Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt1.TextChanged If txt1.Text = "" Then Exit Sub Else var = txt1.Text End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click txt1.Text = var End Sub ارجو ان يكون هذا طلبك اخوك :- بو عبدالله
SaLoOoMX كتب :تقصد انت برنامج كي لوجر (تجسس على لوحه المفاتيح) ؟
SUB NEW كتب :اذا كنت ستستعمل الكود فيما يرضى الله فانا مستعد لادراجه تقبل تحياتى وجل الود