[elta]

أظن أن هذا محاكاة لبرمجة vb.net
عندي تكسك بوكس به كود
أريد أن الضغط في البوتون و البوتون يقرأ الكود:confused::confused::confused::confused::confused::confused:

[محمود اكرم]

السلام عليكم
اخ
هناك موضوع مشابه
هل يوجد كود يعمل عمل مفتاح انتر

مشاركة رقم 8


الطريقة هي استدعاء الكود صندوق النص مثال

1
TextBox1_KeyPress(Nothing,Nothing)
2
TextBox1_TextChanged(Nothing,Nothing)
-----------
باختصار الحدث ثم قوس() داخله nothing,nothing

[elta]

i dont undrsatnd

[محمود اكرم]

ممكن تعطيني كامل الكود صندوق النص والزر

[محمود اكرم]

السلام عليكم اخ 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]

اريد بعد فتح البرنامج الكتابة في ال تكست بوكس كود و البوتون يقرأاه ليس مسج بوكس بل ما في التكست بوكس

[محمود اكرم]

msgbox textbox1.text

[3booody]

elta كتب :اريد بعد فتح البرنامج الكتابة في ال تكست بوكس كود و البوتون يقرأاه ليس مسج بوكس بل ما في التكست بوكس

هل تقصد كتابة الكود البرمجي داخل تكست بوكست اثناء فتح التطبيق؟

[محمود اكرم]

اخ elta
طلبك هو
داخل حدث كليك للزر
تضع msgbox textbox1.text
فلا داعي للحدث الآخر

[3booody]

elta كتب :اريد بعد فتح البرنامج الكتابة في ال تكست بوكس كود و البوتون يقرأاه ليس مسج بوكس بل ما في التكست بوكس

اظن الان فهمت قصدك اخي تقصد قرائة التكست صوت تفضل هذا طلبك

كود :

Dim SAPI
        SAPI = CreateObject("SAPI.spvoice")
        SAPI.Speak(TextBox1.Text)