أظن أن هذا محاكاة لبرمجة vb.net
عندي تكسك بوكس به كود
أريد أن الضغط في البوتون و البوتون يقرأ الكود:confused::confused::confused::confused::confused::confused:
السلام عليكم
اخ
هناك موضوع مشابه
هل يوجد كود يعمل عمل مفتاح انتر
مشاركة رقم 8
الطريقة هي استدعاء الكود صندوق النص مثال
1
TextBox1_KeyPress(Nothing,Nothing)
2
TextBox1_TextChanged(Nothing,Nothing)
-----------
باختصار الحدث ثم قوس() داخله nothing,nothing
ممكن تعطيني كامل الكود صندوق النص والزر
السلام عليكم اخ
elta
اعطيك مثال للتوضيح :confused:
في حدث صندوق النص TextBox1 وهو عادة حدث Changed
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
-----
فانت على سبيل المثال وضعت كود داخله بحيث تظهر رسالة مثل لقد ضغطت علي الزر
فيصبح هكذا
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
MsgBox("لقد ضغطت علي الزر")
End Sub
-----
ثم في حدث الزر على سبيل المثال button1 اردت ان تجعل حدث صندوق النص هو الذي يعمل عند النقر على الزر فتضع فيه الكود التالي
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1_TextChanged(Nothing, Nothing)
End Sub
----
هذه هي الطريقة
الكود كامل
إقتباس :Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
MsgBox("لقد ضغطت علي الزر")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1_TextChanged(Nothing, Nothing)
End Sub
اريد بعد فتح البرنامج الكتابة في ال تكست بوكس كود و البوتون يقرأاه ليس مسج بوكس بل ما في التكست بوكس
elta كتب :اريد بعد فتح البرنامج الكتابة في ال تكست بوكس كود و البوتون يقرأاه ليس مسج بوكس بل ما في التكست بوكس
هل تقصد كتابة الكود البرمجي داخل تكست بوكست اثناء فتح التطبيق؟
elta كتب :اريد بعد فتح البرنامج الكتابة في ال تكست بوكس كود و البوتون يقرأاه ليس مسج بوكس بل ما في التكست بوكس
اظن الان فهمت قصدك اخي تقصد قرائة التكست صوت تفضل هذا طلبك
كود :
Dim SAPI
SAPI = CreateObject("SAPI.spvoice")
SAPI.Speak(TextBox1.Text)