• الإعلانات

    • فيصل الحربي

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

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

البحث في المنتدى

Showing results for tags 'vb.net 2008'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 10 نتيجة

  1. السلام عليكم ورحمة الله وبركاته  لو تكرمتم عندي مشكلة في السيرفر  وهي عندما اقوم بتنصيب مكافح فيروسات  كاسبر تظهر عندي رسالة بأن السيرفر محتاج ملف pak 1 وما قدرت اركب المكافح  لو في حد عنده فكرة ياريت يفيدني  [email protected] 
  2. السلام عليكم مني إلى مقارعي الخطوب أي خطوب نظم المعلومات لقد أضفت VS 2008 ثم أزلته و بعد وقت طويل أضفت VS 2010 ثم VS 2012 ثم VS 2012 Express for desktop ثم عدت الآن و أضفت VS 2008 و لكن عند خلق مشروع يعطي الرسالة The type initializer for '<Module>' threw an exception لكنه يخلق مجلد المشروع إلا انه لا يكمل شيئا أكثر من ذلك أما عند فتح مشوع سابق كنت قد أنجزته في VS 2008 من قبل ، يعطي الرسالة Unable to read the project file x.csproj The type initiali....exception أي نفس الرسالة السابقة في البقية أخبرتكم هذا التسلسل بهذا الوصف لظني أن له علاقة ما بالمشكلة فهل مَن قارَعَ هذا الخطب يعلّمنا علّمه الله
  3. عند ادخال بيانات نص يحتوي حروف وارقام يتم اعادة ترتيب الحروف في البداية ثم الارقام مثال 1/  a/5 انا اريد  الحرف في الوسط ارجو المساعدة
  4. كود ابرنامج: Imports System.Threading ' Imports System.Globalization ' ' Public Class Form1 'Private moveTo As Point Private mPrevPos As New Point Dim hours As Integer = DateTime.Now.Hour   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Dim Today_Date As Date 'Dim Month_Nam As String 'Dim Month_Num As String Me.ControlBox = False Me.MaximizeBox = False Me.MinimizeBox = False Me.Text = "" Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None TransparencyKey = Color.White 'Button1.BackColor = Color.White 'PictureBox1.BackColor = Color.White Me.BackColor = Color.White End Sub Private Sub PictureBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClick Me.Close() End Sub Private Sub PictureBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.DoubleClick Me.Close() End Sub Private Sub PictureBox3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox3.DoubleClick Me.Close() End Sub Private Sub PictureBox4_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox4.DoubleClick Me.Close() End Sub Private Sub PictureBox5_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox5.DoubleClick Me.Close() End Sub Private Sub PictureBox6_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox6.DoubleClick Me.Close() End Sub Private Sub PictureBox7_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox7.DoubleClick Me.Close() End Sub Private Sub PictureBox8_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox8.DoubleClick Me.Close() End Sub Private Sub PictureBox9_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox9.DoubleClick Me.Close() End Sub Private Sub PictureBox10_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox10.DoubleClick Me.Close() End Sub Private Sub PictureBox11_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox11.DoubleClick Me.Close() End Sub Private Sub PictureBox12_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox12.DoubleClick Me.Close() End Sub Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox4_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox5_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox6_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox8_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox9_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox10_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox11_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub PictureBox12_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub Label3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.DoubleClick Me.Close() End Sub Private Sub Label3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub Label3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then 'ContextMenuStrip1.Show(Me, e.Location) ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub Label2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.DoubleClick Me.Close() End Sub Private Sub Label2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub Label2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DoubleClick Me.Close() End Sub Private Sub Label1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y) If (e.Button = MouseButtons.Left) Then Me.Location += delta mPrevPos = e.Location - delta Else mPrevPos = e.Location End If End Sub Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then 'ContextMenuStrip1.Show(Me, e.Location) ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub   Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox4_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox5_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox6_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox7_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox8_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox9_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox10_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox11_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub PictureBox12_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMenuStrip1.Show(Me, e.Location) 'ContextMenuStrip1.Show(Me, Me.Location.X, Me.Location.Y) End If End Sub Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click MsgBox("3D Hijri Program Ver 1.0 " & Chr(10) & "Programmed by:" & Chr(10) & "Ayman Khoshouey 2013" & Chr(10) & "E-Mail: [email protected]" & Chr(10) & "Mobile: (+2010)-1800-2225" & Chr(10) & "Cairo-Egypt") End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim Today_Date As Date Dim Month_Nam As String Dim Month_Num As String 'Dim Info_Label As String Dim Ar As CultureInfo = New CultureInfo("AR-SA") Thread.CurrentThread.CurrentCulture = Ar Ar.DateTimeFormat.Calendar = New HijriCalendar Ar.NumberFormat.DigitSubstitution = DigitShapes.Context 'Label1.Text = Format(Date.Now, " dddd,d MMM yyyy") Label1.Text = Format(Date.Now, "yyyy") Label2.Text = Format(Date.Now, "dddd") Today_Date = Format(Date.Now, " dddd,d MMM yyyy") Month_Nam = Format(Date.Now, "MM") Month_Num = Format(Date.Now, "dd") Ar.DateTimeFormat.Calendar = New GregorianCalendar Ar.NumberFormat.DigitSubstitution = DigitShapes.Context Label3.Text = Format(Date.Now, "dddd,d MMM yyyy") 'Label2.Text = Month_Nam 'Label3.Text = Month_Num 'PictureBox12.Visible = True 'Month_Nam = " " Select Case Month_Nam Case "01" PictureBox1.Visible = True Case "02" PictureBox2.Visible = True Case "03" PictureBox3.Visible = True Case "04" PictureBox4.Visible = True Case "05" PictureBox5.Visible = True Case "06" PictureBox6.Visible = True Case "07" PictureBox7.Visible = True Case "08" PictureBox8.Visible = True Case "09" PictureBox9.Visible = True Case "10" PictureBox10.Visible = True Case "11" PictureBox11.Visible = True Case "12" PictureBox12.Visible = True End Select Select Case Month_Num Case "01" NumBox1.Visible = True Case "02" NumBox2.Visible = True Case "03" NumBox3.Visible = True Case "04" NumBox4.Visible = True Case "05" NumBox5.Visible = True Case "06" NumBox6.Visible = True Case "07" NumBox7.Visible = True Case "08" NumBox8.Visible = True Case "09" NumBox9.Visible = True Case "10" NumBox10.Visible = True Case "11" NumBox11.Visible = True Case "12" NumBox12.Visible = True Case "13" NumBox13.Visible = True Case "14" NumBox14.Visible = True Case "15" NumBox15.Visible = True Case "16" NumBox16.Visible = True Case "17" NumBox17.Visible = True Case "18" NumBox18.Visible = True Case "19" NumBox19.Visible = True Case "20" NumBox20.Visible = True Case "21" NumBox21.Visible = True Case "22" NumBox22.Visible = True Case "23" NumBox23.Visible = True Case "24" NumBox24.Visible = True Case "25" NumBox25.Visible = True Case "26" NumBox26.Visible = True Case "27" NumBox27.Visible = True Case "28" NumBox28.Visible = True Case "29" NumBox29.Visible = True Case "30" NumBox30.Visible = True End Select 'Month_Nam = "" 'Month_Num = "01" If Month_Nam = "01" And Month_Num = "01" Then 'InfoLabel2.Visible = True 'InfoLabel1.Visible = False InfoTextBox2.Visible = True InfoTextBox1.Visible = False 'InfoLabel2.Text = InfoLabel2.Text.Substring(3) & InfoLabel2.Text.Substring(0, 3) InfoTextBox2.Text = InfoTextBox2.Text.Substring(3) & InfoTextBox2.Text.Substring(0, 3) Else 'InfoTextBox1.Text = InfoTextBox1.Text.Substring(3) & InfoTextBox1.Text.Substring(0, 3) InfoTextBox1.Text = InfoTextBox1.Text.Substring(3) & InfoTextBox1.Text.Substring(0, 3) End If If Month_Nam = "01" And Month_Num = "10" Then 'InfoLabel1.Text = " " InfoTextBox3.Visible = True InfoTextBox1.Visible = False InfoTextBox3.Text = InfoTextBox3.Text.Substring(3) & InfoTextBox3.Text.Substring(0, 3) End If If Month_Nam = "03" And Month_Num = "12" Then 'InfoLabel1.Text = " " InfoTextBox4.Visible = True InfoTextBox1.Visible = False InfoTextBox4.Text = InfoTextBox4.Text.Substring(3) & InfoTextBox4.Text.Substring(0, 3) End If If Month_Nam = "08" And Month_Num = "15" Then InfoTextBox5.Visible = True InfoTextBox1.Visible = False InfoTextBox5.Text = InfoTextBox5.Text.Substring(3) & InfoTextBox5.Text.Substring(0, 3) 'InfoLabel1.Text = " " End If If Month_Nam = "10" And Month_Num = "01" Then InfoTextBox6.Visible = True InfoTextBox1.Visible = False InfoTextBox6.Text = InfoTextBox6.Text.Substring(3) & InfoTextBox6.Text.Substring(0, 3) 'InfoLabel1.Text = " " End If If Month_Nam = "12" And Month_Num = "10" Then 'InfoLabel1.Text = " " InfoTextBox7.Visible = True InfoTextBox1.Visible = False InfoTextBox7.Text = InfoTextBox7.Text.Substring(3) & InfoTextBox7.Text.Substring(0, 3) End If 'InfoLabel1.Text = InfoLabel1.Text.Substring(3) & InfoLabel1.Text.Substring(0, 3) Select Case hours ' Case Is < 12 'Label1.Text = " " 'ElseIf hours < 17 Then ' Str = "Afternoon" 'ElseIf hours >= 12 Then 'Str = "Evening" Case Is >= 18 'Label1.Text = " " 'Process.Start("C:\Users\khoshoueyae\Documents\3D Hijri Arabic.exe") Me.Close() Case Else Exit Sub 'End If End Select End Sub Private Sub InfoTextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox1.DoubleClick Me.Close() End Sub Private Sub InfoTextBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox2.DoubleClick Me.Close() End Sub Private Sub InfoTextBox3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox3.DoubleClick Me.Close() End Sub Private Sub InfoTextBox4_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox4.DoubleClick Me.Close() End Sub Private Sub InfoTextBox5_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox5.DoubleClick Me.Close() End Sub Private Sub InfoTextBox6_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox6.DoubleClick Me.Close() End Sub Private Sub InfoTextBox7_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfoTextBox7.DoubleClick Me.Close() End Sub   Private Sub YesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YesToolStripMenuItem.Click Me.TopMost = True End Sub Private Sub NoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoToolStripMenuItem.Click Me.TopMost = False End Sub Private Sub CalendarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalendarToolStripMenuItem.Click FormCalendar.Show() End Sub 'Private Sub Label1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseHover ' Label1.ForeColor = Color.Cyan 'End Sub Private Sub ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click MsgBox("..........." & Chr(10) & " / " & Chr(10) & " ") End Sub End Class   يمكن رفع الصور المتحركة للبرنامج اذا رغب احد فى ذلك حيث لم اتمكن من رفعها فى الموقع
  5. السلام عليكم أصدقائي أحاول أن أقوم بتنصيب برنامج sql server2008 لكن أداة الأنتربرايس مانيجر لا أجدها الرجاء ممن يعرف سبب المشكلة أعلامي بها لأقوم بتصحيحها وشكرا لكم
  6. طريقه عمل فورم ولوج بيسك 2008 https://www.youtube.com/watch?v=yvUCEEUf8AU
  7. ازيكم يا اخواتي دي اول مشاركة ليا   انا كنت عايز منكم طلب   هو ايه انواع sql server 2008   وايه افضل نسخة sql مناسبة لجهازي علي العلم اني جهازي عليه ويندوز 7 ultimate     ويعني ايه sql server 2008 servic pack   انا اسف اني طولت عليكم
  8. عندما قمت  باجراء  أضافة ملف قاعدة البيانات  ظهر اسم  قاعدة البيانات بهذا الطريقة   C:\MAINTENANCE\MAINTENANCE_TRACKER\APP_DATA\xxxx.MDF  حيث هو xxxxx أسم  قاعدة البيانات هل من مشكلة   
  9. شباب علمت داتا بيز صغيرة فيها شوية معلومات عن الطلاب  بجامعة الاسم واسم الاب والام  الخ الخ  وبدي الادارة تدخل رقم الجامعي للطالب متضغط زر بحب وتطلعلها كل المعلومات عن هل طالب  عملت هل كود بس عم واجه رسالة هل خطاء التالية حدا  يساعدني على حلها     Error 1 Overload resolution failed because no accessible 'New' can be called with these arguments: 'Public Sub New(selectCommandText As String, selectConnection As System.Data.SqlClient.SqlConnection)': Value of type 'System.Data.OleDb.OleDbConnection' cannot be converted to 'System.Data.SqlClient.SqlConnection'. 'Public Sub New(selectCommandText As String, selectConnectionString As String)': Value of type 'System.Data.OleDb.OleDbConnection' cannot be converted to 'String'. C:\Users\user\Documents\Visual Studio 2008\Projects\app v1.2\app v1.2\Form1.vb 30 19 app v1.2            Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim constr as new OleDb.OleDbConnectionconstr.ConnectionString = "Provider=localhost;data source=C:\USERS\USER\DOCUMENTS\VISUAL STUDIO 2008\PROJECTS\APP V1.2\APP V1.2\DATABASE1.MDF"Dim sqlstr as string=""sqlstr="select * from Table1 where StudentID=" & Textbox1.text  Try Dim ds As New DataSet Dim apt As New SqlDataAdapter apt.Dispose() ds.Dispose() apt = New SqlDataAdapter(sqlstr, constr) apt.Fill(ds) Datagridview1.DataSource = ds.Tables(0) Catch ex As Exception MsgBox(ex.Message.ToString) End Try End Sub   
  10. اريد اعمل حساب اتحكم فية   sql server 2008 r2  بدون الدخول من حساب ويندوز   يعني اسم   وكلمة سر