• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

ammsamm

اعضاء جدد
  • عدد المشاركات

    29
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

1 عادي

عن ammsamm

  • الرتبة
    عضو جديد

طرق الإتصال

  • ICQ 0

معلومات الملف الشخصي

  • الجنس ذكر

أحدث الزائرين لملفلك الشخصي

857 زياره للملف الشخصي
  1. بارك الله فيك و بعلمك لكن ليس هذا ما أريد ما أريده هو أن تتمكن نسخ الفورم و ليس الفورم الأصلي من إرسال بيانات فيما بينها من دون الرجوع للفورم الأصلي و شكرا
  2. جزاك الله خير المشكلة أخي الكريم هي أنني لدي برنامج و يقوم هذا البرنامج بفتح عده نسخ لفورم آخر dim x as new form1 x.show و ما أريده هو أن تقوم بعض النسخ بتمرير بعض المعلومات لعدد من النسخ الأخري **الطريقة التي أرفقتها بالمثال تمرر البيانات بين نوافذ أصلية و ليست نسخ وما أريده هو التواصل بين نسخ النوافذ -------------- بطريقة أخرى لما يكون لدي 10 نسخ من الفورم "أحمد" كيف يمكن التواصل بين الفورم "أحمد1" و "أحمد2" و "أحمد3" شكرا
  3. بارك الله فيك لكن ليس هذا ما أريد ما أريده هو How to pass value from one form instance to another form instance
  4. السلام عليكم لدي 3 نوافذ 1 النافذة الأم ( الأصلية ) Dim frm2 as new Form2 2 النافذة الثانية ( و يتم إستدعاءها من النافذة الأم ) Dim frm3 as new Form3 3 النافذة الثالثة ( و يتم إستدعاءها من النافذة الثانية ) المشكلة هي أنني أرغب بتمرير بعض الجمل من النافذة الثالثة للنافذة الثانية مثلا أن تحتوي النافذة الثالثة على TextBox3 و أرغب بتمرير محتوياته إلى النافذة الثانية و تحديدا TextBox2 ما هي الطريقة لتحقيق ذلك بارك الله فيكم
  5. سوأل : ابي كواد تغيير الحجم ؟؟

    مثل ما قال اخوي محمد رضى .... أرفق محاولتك أفضل .... على العموم هذا هو المطلوب 'كود التكبير Private Sub MaxFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim txtNewFonsize As Integer = CInt(TextBox1.Font.Size + 1) If txtNewFonsize = 72 Then Exit Sub TextBox1.Font = New Font(TextBox1.Font.FontFamily, txtNewFonsize, TextBox1.Font.Style) End Sub 'كود التصغير Private Sub MinFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim txtNewFonsize As Integer = CInt(TextBox1.Font.Size - 1) If txtNewFonsize = 0 Then Exit Sub TextBox1.Font = New Font(TextBox1.Font.FontFamily, txtNewFonsize, TextBox1.Font.Style) End Sub
  6. استخدام boutton لعدة اوامر

    تفضل .............. Public Class Form1 Dim x As Integer = 0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Select Case x Case 0 Label1.Visible = True Case 1 Label2.Visible = True Case 2 Label3.Visible = True End Select x += 1 End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Hide() Label2.Hide() Label3.Hide() End Sub End Class
  7. الله يرزقك من يعطيك أكثر من 250 و يرزقني من يقبل 250
  8. مطلوب مبرمج مؤهل و محترف بـ vb.net للعمل بمكتب محامي لعمل البرامج الخاصة بالمكتب الراتب 250 دينار و قابل للزيادة مع الوقت إذا تم إثبات الجدارة [email protected] أحمد
  9. السلام عليكم و رحمة الله و بركاته الفرصة تتلخص في أنني أرغب في تعلم vb.net و ما يندرج تحتها من أقسام و ado.net لمدة شهر 3 ساعات يوميا ... لذلك سوف أوفر كرت زيارة للكويت لمدة شهران يستطيع الراغب خلالها أن يبحث عن عمل و أيضا سوف أقوم بدفع مقابل مادي للتدريس ... شروط التقديم: - أن يكون المبرمج مرخص من مايكروسوفت للمراسلة [email protected] أحمد
  10. أخي الكريم بارك الله فيك و بجهدك بالنسبة للـ FullTextSearch فهناك قاعدة بيانات جديدة تدعم هذا النوع من البحث و هي VistaDB
  11. السلام عليكم و رحمة الله و بركاته أحتاج مبرمج يعطيني دروس بالفيجوال بيسك من الأساس لمدة شهر على أن يكون المبرمج لديه القدرة للتدريس أي سبق له إعطاء دروس بالفيجوال بيسك أرجوا مراسلتي على الإيميل لمزيد من الإستفسار [email protected]l.com
  12. ما زال البحث متواصل عن مدرس على أسس أكاديمية