• الإعلانات

    • فيصل الحربي

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

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

shush

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

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

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

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

0 عادي

عن shush

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

طرق الإتصال

  • ICQ 0
  1. كيف يعمل ProgressBar

    ProgressBar1.Value+=1 طبعا بدك تايمر
  2. السلام عليكم dim X,i as int16 x=Val(textbox1.text) for i=1 to x Dim N as new Button n.top=(i*10) n.left=(القياس الذي تريد ) و بامكانك تحديد اي من خواص الزر بنفس الطريقة و كذلك الامر بالنسبة للفورم me.width=(x*100) 'مثلا
  3. السلام عليكم يبدو انك جديد جدا على لغة السي++ و لم تتعلم بعد الفيجوال سي++ ابدا مشروع جديد و اختر مشروع سي++ ثم اختر نوع المشروع Win32 console project و من ثم اعطي مشروعك اسما و اختر المكان الذي تريد ان تحفظه فيه و اضغط ok ستظهر لك نافذة اضغط فينش ثم يظهر لك محرر الكود بالتوفيق
  4. استخدم هذا الكود Imports System.Globalization SetKeyboardLanguage("ar-SA")
  5. السلام عليكم ربما ما انت بحاجه له هو كود الحفظ الى قاعدة البيانات الاكسس ( او هيك انا فهمت السؤال) وهذا ان شاء الحل Try            'Attempt to update the datasource.            Me.UpdateDataSet()        Catch eUpdate As System.Exception            'Add your error handling code here.            'Display error message, if any.            System.Windows.Forms.MessageBox.Show(eUpdate.Message)        End Try        Me.objMainDataSet_PositionChanged() Public Sub UpdateDataSet() 'Create a new dataset to hold the changes that have been made to the main dataset.        Dim objDataSetChanges As Doc_2006.MainDataSet = New Doc_2006.MainDataSet        'Stop any current edits.        Me.BindingContext(objMainDataSet, "MainTable").EndCurrentEdit()        'Get the changes that have been made to the main dataset.        objDataSetChanges = CType(objMainDataSet.GetChanges, Doc_2006.MainDataSet)        'Check to see if any changes have been made.        If (Not (objDataSetChanges) Is Nothing) Then            Try                'There are changes that need to be made, so attempt to update the datasource by                'calling the update method and passing the dataset and any parameters.                Me.UpdateDataSource(objDataSetChanges)                objMainDataSet.Merge(objDataSetChanges)                objMainDataSet.AcceptChanges()            Catch eUpdate As System.Exception                'Add your error handling code here.                Throw eUpdate            End Try            'Add your code to check the returned dataset for any errors that may have been            'pushed into the row object's error.        End If   End Sub
  6. كود حفظ الصورة ؟؟

    السلام عليكم انا اعتقد ان فكرة الاخ mbmh اكثر عملية من تخزين كامل الصورة في قاعدة البيانات و يوفر في الوقت و الذاكرة المستخدمة من قبل البرنامج حيث ان الداتا ست تقوم بتحميل كافة المعلومات الموجودة في قاعدة البيانات او الجدول المعني فتخيل كم سيكون حجم الداتا ست كبيرا و بالتالي سيشكل عبء كبير على الرام و يقلل من كفاءة برنامجك و سرعه الاستجابة
  7. هذا هو الكود لكن للامان قمت بكتابته لكن لم اجربه المهم ان تضع الصور في مجلد البرنامج و تسميها بارقام Dim NextPicture, TestReslute As Int16    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        Static NextPicture As Int16 = 0        Dim PicName As String        If NextPicture < 12 Then            NextPicture += 1            PicName = NextPicture.ToString & ".jpg" ' او نوع الصورة                      PictureBox1.Image = New Drawing.Bitmap(Application.StartupPath + \\PicName)        Else            Timer1.Stop()            ViewReslute()        End If    End Sub    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged        If TextBox1.Text = nextpicture Then            TestReslute += 1        End If    End Sub    Private Sub ViewReslute()        TextBox2.Text = Testreslute    End Sub
  8. list viwe

    السلام عليكم الحل بسيط فقط عندما تضع الداتا سورس اختار اسم الداتا الست و لا تختار اسمالداتا ست . اسم الجدول ستلاحظ انه تلقائيا سيتم تحويل الحقل المقابل للحقل المختار في الكمبو بوكس ارجو ان اكون قد افدتك :D
  9. كود حفظ الصورة ؟؟

    السلام عليكم يهذا الكود يحفظ مسار الصورة في قاعدة البيانات Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        If OpenFileDialog1.ShowDialog = DialogResult.OK Then            editصورة.Text = OpenFileDialog1.FileName            PictureBox1.Image = New Drawing.Bitmap(OpenFileDialog1.FileName)        End If    End Sub طبعا تضع التكست بوكس و بعد تحميل مسار الصورة اليه تقوم بحفظ النص , و يمكنك استعادة الصورة من النص التالي If editصورة.Text <> "" Then          picturebox1.image= New Drawing.Bitmap(editصورة.Text)        End If اتمنى ان يكون في هذا جواب لسؤالك !!!
  10. السلام عليكم أخي بارك الله فيك , يمكن كان افضل لو شرحت كيف الاستخدام و شرحت الفنكشن و مدخلاتها و بعدين حطيت مثال
  11. السلام علكم لا تنسو ان كتير منا بدش هون عشان زيادة المعرفة او حتى التعلم
  12. السلام عليكم اذا عملت generate sql script و الحقتها مع البرنامج البرنامج بتعرف عليها لوحد و لا لازم نكتب كود خاص لذلك *-)
  13. طباعة datagrid أو Panel

    السلام عليكم ان شاء ان جيد جدا بس اعطينا فرصة نجربة و الف بارك فيك
  14. تحزيم التطبيقات ( تمهيداً لتوزيعها )

    ياريت بس لو تضع لنل مثال بارك الله فيك
  15. .NET Framework

    شكرا على الرد السريع