منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] استقسار عن الكومبوبكس والتيكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] استقسار عن الكومبوبكس والتيكست بوكس (/showthread.php?tid=18612)

استقسار عن الكومبوبكس والتيكست بوكس - عبدالرحمن المكاوي - 29-12-16

بسم الله الرحمن الرحيم
اخواني انا اعمل علي برنامج فيه يخزن المستخدم item في الكومبوبكس وهذا تمام
اما طلبي هو اني اريد عندما المستخدم يختار item جديد اريد ان ياتيني في اداة التيكست بوكس مابعد كلمة save-
يعني النص هكذا في اداة التيكست بوكس 2016-12-26-09-34-51 واريد ان تتكرر العملية كل ما المستخدم يختار
item جديد وشكرا




RE: استقسار عن الكومبوبكس والتيكست بوكس - مساعدة - 29-12-16

السلام عليكم

تفضل الكود
كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    TextBox1.Text = ComboBox1.Text.Substring("Save-".Length)
End Sub


RE: استقسار عن الكومبوبكس والتيكست بوكس - عبدالرحمن المكاوي - 29-12-16

(29-12-16, 11:29 AM)مساعدة كتب : السلام عليكم

تفضل الكود
كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
   TextBox1.Text = ComboBox1.Text.Substring("Save-".Length)
End Sub
شكرا اخي

RE: استقسار عن الكومبوبكس والتيكست بوكس - عبدالرحمن المكاوي - 31-12-16

اخي اريد عند انتقال النص الي التكست بوكس يقوم بتغير تنسيق التاريخ الي التنسيق yyyy-MM-dd HH-mm-ss

RE: استقسار عن الكومبوبكس والتيكست بوكس - مساعدة - 31-12-16

إن ما أراه في الصورة هو نفس تنسيق سؤالك

اذا كان مختلف، اعرض هنا أمثلة من النص المقصود آخراً ليتم عمل الكود اللازم

RE: استقسار عن الكومبوبكس والتيكست بوكس - عبدالرحمن المكاوي - 31-12-16

اقصد اخي اريد مثل التالي اسف كتبته خطئ dd/MM/yyyy HH:mmConfuseds
12:50:34 26/12/2016
واهم شئ المساحة بين yyyy و HH

RE: استقسار عن الكومبوبكس والتيكست بوكس - مساعدة - 31-12-16

تفضل الكود
كود :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim item As String = ComboBox1.Text.Substring("Save-".Length)
        Dim s As String = item.Substring(0, 10).Replace("-", "/") & " " & item.Substring(11).Replace("-", ":")
        TextBox1.Text = s
    End Sub
تم تعديل الكود