تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الرجاء مساعدتى فى كيفه تصميم الادوات على الفيجوال بيسك 2010
#1
الرجاء مساعدتى فى تصميم button و texbox
والادوات الاخرى على الفيجوال بيسك 2010
ولكنى لا اريد برامج لتصميم هذه الادوات انا احتاج فقط
طريقه لتصميمها على الفيجوال بيسك 2010
:confused::eek:الرجاء المساعده:eek::confused:

الرد }}}}
تم الشكر بواسطة:
#2
هل انت تعرف فى gdi ؟
الرد }}}}
تم الشكر بواسطة:
#3
لا اعرف ماهى gdi
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته
هناك ثلاث اساليب لتطوير ادواتك الخاصة واسهلها هو وراثة الاداة
شاهد هذا الموضوع
http://vb4arb.com/vb/showthread.php?6088...1%D8%D1%DE
وبالنسبة لــ GDI+ فمن الصعب عليك تطوير مثلها لانها تحتاج الى رسم الاداة بالكاااامل مع خصائصها ودوالها
الرد }}}}
تم الشكر بواسطة:
#5
انا اتحدا الصعب هل يمكنك ان تشرح لى كيفيه تصميم {progress bar} و {button}
الرد }}}}
تم الشكر بواسطة:
#6
اخي حتى انا ليس لدي الخبره في هذا المجال لان تصميمه يأخذ منك وقت تصميم برنامج كامل والسبب لازم تكتب جميع الخصائص والطرق وانته المسئول عن الاخطاء فيه لكن استطيع مساعدتك في تصميم الادوات حسب وراثة الاداة
الرد }}}}
تم الشكر بواسطة:
#7
شوف اخى ال gdi تقدر تقول عليه ان هو الرسم فهو طريقتك للرسم و هو اختصار لكلمة Graphic Device Interface.

فى الحدث paint فى اى اداة تجد e As PaintEventArgs فى هذا ال event args تجد خاصية Graphics التى تمكنك من الرسم على الاداة.

لا اعرف كيف اتسخدم خاصية Graphics ؟

لا يهمك يمكن ان تتعلمه انظر مثلا فى الكود التالى

PHP كود :
Private Sub Form1_Paint(sender As ObjectAs PaintEventArgsHandles Me.Paint
        e
.Graphics.FillRectangle(New LinearGradientBrush(New Rectangle(101025080), Color.OrangeColor.OrangeRedLinearGradientMode.Vertical), New Rectangle(101025080))
    
End Sub 

الطريقة FillRectangle تستخدم لرسم مربع او مستطيل على حسب Width و Height الى فى ال Rectangle

طيب يبدو ان هذا لن يفيدك فيما تريد عمل لذا هذا كود ل ProgressBar و Button
ولكن ارجو منك انا ان تضع فى عين الأعتبار ان هذا الكود بغرض التعليم لذا ادرس هذا الكود جيدا واذا لم تفهم اى شئ انا موجود

كود ProgressBar

PHP كود :
Imports System.Windows.Forms
Imports System
.Drawing
Imports System
.ComponentModel
Imports System
.Drawing.Drawing2D

Public Class MetroProgressBar
    Inherits Control

#Region "Private variables etc"
    
Private _Color As Color System.Drawing.Color.Lime
    
Private _borderColor As Color Color.FromArgb(178178178)

    Private 
_Maximum As Integer 100
    
Private _Minimum As Integer 0
    
Private _Value As Integer 0

    
Private _ProgressPercentVisable As Boolean True
#End Region

#Region "Constructor"

    
Public Sub New()
        
Me.Size = New System.Drawing.Size(40023)
        
Me.SetStyle(ControlStyles.DoubleBufferTrue)
        
Me.SetStyle(ControlStyles.AllPaintingInWmPaintTrue)
        
Me.SetStyle(ControlStyles.ResizeRedrawTrue)
        
Me.SetStyle(ControlStyles.UserPaintTrue)
        
Me.SetStyle(ControlStyles.SupportsTransparentBackColorTrue)
        
Me.BackColor Color.Transparent
        Me
.ResumeLayout(False)
        
Me.Invalidate()
        
Me.SuspendLayout()
    
End Sub

#End Region

#Region "Properties"

    
<Category("Progress Bar")> _
    
Public Property ProgressPercentVisable As Boolean
        Get
            
Return _ProgressPercentVisable
        End Get
        Set
(ByVal value As Boolean)
            
_ProgressPercentVisable value
        End Set
    End Property

    
Private ReadOnly Property ProgWidth() As Integer
        Get
            
Return ((Me.Value Me.Maximum) - (Me.Minimum Me.Maximum)) * (Me.Width 1)
        
End Get
    End Property

    
<Category("Progress Bar")> _
    
Public Property Color As Color
        Get
            
Return _Color
        End Get
        Set
(ByVal value As Color)
            
_Color value
            Invalidate
()
        
End Set
    End Property

    
<Category("Progress Bar")> _
    
<System.ComponentModel.DefaultValue(0)> _
    
Public Property Value() As Integer
        Get
            
Return _Value
        End Get
        Set
(ByVal value As Integer)
            If 
value Maximum Then
                
Throw New Exception("Value must be between maximum and minimum values")
                Exit 
Property
            
ElseIf value Minimum Then
                
Throw New Exception("Value must be between maximum and minimum values")
                Exit 
Property
            End 
If
            If 
_Value <> value Then
                _Value 
value
                Me
.Invalidate()
            
End If
        
End Set
    End Property

    
<Category("Progress Bar")> _
    
<Localizable(False), _
  Bindable
(False), _
  Browsable
(True), _
  DefaultValue
(CDbl(100)), _
  Description
("The maximum value")> _
    
Public Property Maximum As Integer
        Get
            
Return (_Maximum)
        
End Get
        Set
(ByVal value As Integer)
            
_Maximum value
            Me
.Invalidate()
        
End Set
    End Property

    
<Category("Progress Bar")> _
    
<Localizable(False), _
    Bindable
(False), _
    Browsable
(True), _
    DefaultValue
(CDbl(0)), _
    Description
("The minimum value.")> _
    
Public Property Minimum As Integer
        Get
            
Return _Minimum
        End Get
        Set
(ByVal value As Integer)
            
_Minimum value
            Me
.Invalidate()
        
End Set
    End Property
#End Region

#Region "Overridden Methods"

    
Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs)
        
MyBase.OnPaintBackground(e)
        
Dim Rect As Rectangle = New Rectangle(00Me.WidthMe.Height)
        
e.Graphics.FillRectangle(Brushes.GrayRect)
    
End Sub

    
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        
Dim w As Double
        Dim Rect 
As Rectangle
        Dim PosEnd 
As Double
        Dim PosStart 
As Double

        e
.Graphics.SmoothingMode SmoothingMode.AntiAlias
        e
.Graphics.InterpolationMode InterpolationMode.HighQualityBicubic

        PosEnd 
CInt(((CDbl(Me.Width) - 2) * (Minimum)) / (Maximum Minimum))
        
PosEnd Me.Width

        PosStart 
CInt(((CDbl(Me.Width) - 2) * (Minimum)) / (Maximum Minimum))

        
= ((PosEnd PosStart 1) / Maximum) * Value

        
If CInt(w) > 0 Then
            Rect 
= New Rectangle(PosStart0CInt(w), Me.Height)
        
End If

        
e.Graphics.FillRectangle(New SolidBrush(_Color), Rect)

        
'Draw string
        If _ProgressPercentVisable Then
            Dim S As String = Value.ToString & "%"
            Dim size As SizeF = e.Graphics.MeasureString(S, Me.Font)
            e.Graphics.DrawString(S, Me.Font, New SolidBrush(Me.ForeColor), (Me.ClientSize.Width - size.Width) / 2, (Me.ClientSize.Height - size.Height) / 2)
        End If
    End Sub

#End Region


    Protected Overrides Sub OnGotFocus(e As EventArgs)
        MyBase.OnGotFocus(e)
        Me.FindForm.ActiveControl = Me
    End Sub
End Class 



كود ButtonEx



PHP كود :
Imports System.Drawing
Imports System
.Drawing.Drawing2D
Imports System
.ComponentModel
Imports System
.Windows.Forms

<DefaultEvent("Click")> _
Public Class ButtonEX
    Shadows Event Click
(sender As ObjectAs EventArgs)

    Public 
Sub New()
        
' This call is required by the designer.
        InitializeComponent()

        Me.Name = "ButtonEX"
        Me.Label1.TextAlign = ContentAlignment.MiddleCenter
        _ImageAlign = ContentAlignment.MiddleLeft
        _ImageSize = New Size(30, 30)
        _TextAlign = ContentAlignment.MiddleCenter
        Label1.Text = Me.Text
        Me.Font = New Font(Me.Font.Name, 10, FontStyle.Regular)
        Label1.Font = Me.Font
        Label1.ForeColor = Me.ForeColor
        Me.DrawMode = Mode.MouseMode
        Me.CornerRadius = 2
    End Sub



#Region " Private variables etc "

    Private _borderColor As Color = Color.Gray
    Private _backRemain1 As Color = Color.Gainsboro
    Private _backRemain2 As Color = Color.White
    Private _backRemain3 As Color = Color.FromArgb(219, 219, 219)
    Private _backRemain4 As Color = Color.FromArgb(243, 243, 243)
    Private _Hover As Boolean
    Private _CurrentButton As String
    Private _Click As Boolean
    Private ToolTip As New ToolTip
    Private _ToolTipText As String
    Private _Text As String
    Private _TextAlign As ContentAlignment = ContentAlignment.MiddleCenter
    Private _Image As Image
    Private _ImageSize As Size
    Private _ImageAlign As ContentAlignment
    Private _DrawMode As Mode
    Private _CornerRadius As Integer

#End Region



#Region " Properties "

    <Browsable(False)> _
    <EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overloads Property BackgroundImage As Image
        Get
            Return Nothing
        End Get
        Set(ByVal value As Image)
        End Set
    End Property

    <Browsable(False)> _
    <EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overloads Property BackgroundImageLayout As ImageLayout
        Get
            Return Nothing
        End Get
        Set(ByVal value As ImageLayout)
        End Set
    End Property

    <Category("Appearance")> _
    Public Property CornerRadius As Integer
        Get
            Return _CornerRadius
        End Get
        Set(ByVal value As Integer)
            _CornerRadius = value
        End Set
    End Property

    <Category("Appearance")> _
    Public Property DrawMode As Mode
        Get
            Return _DrawMode
        End Get
        Set(ByVal value As Mode)
            _DrawMode = value
            Invalidate()
        End Set
    End Property


    <EditorBrowsable(EditorBrowsableState.Always)> _
      <Browsable(True)> _
      <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
      <DefaultValue("ButtonEx")> _
    Public Overrides Property Text As String
        Get
            Return _Text
        End Get
        Set(ByVal value As String)
            _Text = value
            Label1.Text = _Text
            Invalidate()
        End Set
    End Property

    <Category("Appearance")> _
    Public Property ToolTipText As String
        Get
            Return _ToolTipText
        End Get
        Set(ByVal value As String)
            _ToolTipText = value
            ToolTip.SetToolTip(Label1, value)
        End Set
    End Property

    <Category("Appearance")> _
    Public Property TextAlign As ContentAlignment
        Get
            Return _TextAlign
        End Get
        Set(ByVal value As ContentAlignment)
            _TextAlign = value
            Label1.TextAlign = value
            Invalidate()
        End Set
    End Property

    <Category("Appearance")> _
    Public Property Image As Image
        Get
            Return _Image
        End Get
        Set(ByVal value As Image)
            _Image = value
            Invalidate()
        End Set
    End Property

    <Category("Appearance")> _
    Public Property ImageSize As Size
        Get
            Return _ImageSize
        End Get
        Set(ByVal value As Size)
            _ImageSize = value
            Invalidate()
        End Set
    End Property

    <Category("Appearance")> _
    Public Property ImageAlign As ContentAlignment
        Get
            Return _ImageAlign
        End Get
        Set(ByVal value As ContentAlignment)
            _ImageAlign = value
            Invalidate()
        End Set
    End Property

#End Region



#Region " Paint "

    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
        Dim rectUpper As Rectangle = New Rectangle(0, 0, Me.Width, Me.Height)
        Dim pathUpper As GraphicsPath = GetRoundPath(rectUpper, CornerRadius)
        If _Hover = True Then
            Using brushUpper As Brush = New LinearGradientBrush(rectUpper, _backRemain2, _backRemain1, LinearGradientMode.Vertical)
                e.Graphics.FillPath(brushUpper, pathUpper)
            End Using
            '
Draw border
            Dim rectFull 
As New Rectangle(00Me.Width 1Me.Height 1)
            
Dim pathFull As GraphicsPath GetRoundPath(rectFullCornerRadius)
            
Using pen As New Pen(_borderColor)
                
e.Graphics.DrawPath(penpathFull)
            
End Using
        
ElseIf _Click True Then
            Using brushUpper 
As Brush = New LinearGradientBrush(rectUpperColor.GainsboroColor.LightGrayLinearGradientMode.Vertical)
                
e.Graphics.FillPath(brushUpperpathUpper)
            
End Using
            
'Draw border
            Dim rectFull As New Rectangle(0, 0, Me.Width - 1, Me.Height - 1)
            Dim pathFull As GraphicsPath = GetRoundPath(rectFull, CornerRadius)
            Using pen As New Pen(_borderColor)
                e.Graphics.DrawPath(pen, pathFull)
            End Using
        Else
            If DrawMode = Mode.DefaultMode Then
                Using brushUpper As Brush = New LinearGradientBrush(rectUpper, _backRemain4, _backRemain3, LinearGradientMode.Vertical)
                    e.Graphics.FillPath(brushUpper, pathUpper)
                End Using
                '
Draw border
                Dim rectFull 
As New Rectangle(00Me.Width 1Me.Height 1)
                
Dim pathFull As GraphicsPath GetRoundPath(rectFullCornerRadius)
                
Using pen As New Pen(_borderColor)
                    
e.Graphics.DrawPath(penpathFull)
                
End Using
            End 
If
        
End If
        
DrawImage(e.Graphics)
    
End Sub

    
Private Sub SpecialButton_FontChanged(ByVal sender As ObjectByVal e As System.EventArgsHandles Me.FontChanged
        Label1
.Font Me.Font
    End Sub

    
Private Sub SpecialButton_ForeColorChanged(ByVal sender As ObjectByVal e As System.EventArgsHandles Me.ForeColorChanged
        Label1
.ForeColor Me.ForeColor
    End Sub

#End Region



#Region " Paint Methodes "

    
Private Function GetRoundPath(ByVal r As RectangleByVal depth As Integer) As GraphicsPath
        Dim graphPath 
As New GraphicsPath
        graphPath
.AddArc(r.Xr.Ydepthdepth18090)
        
graphPath.AddArc(r.r.Width depthr.Ydepthdepth27090)
        
graphPath.AddArc(r.r.Width depthr.r.Height depthdepthdepth090)
        
graphPath.AddArc(r.Xr.r.Height depthdepthdepth9090)
        
graphPath.AddLine(r.Xr.r.Height depthr.Xr.depth 2)
        Return 
graphPath
    End 
Function

    Public 
Sub DrawImage(ByVal gr As Graphics)
        If 
Me.Image Is Nothing Then Return
        
Dim r As Rectangle = New Rectangle(88Me.ImageSize.WidthMe.ImageSize.Height)
        
Select Case Me.ImageAlign
            
Case ContentAlignment.TopCenter
                r 
= New Rectangle(Me.Width Me.ImageSize.Width 28Me.ImageSize.WidthMe.ImageSize.Height)
            Case 
ContentAlignment.TopRight
                r 
= New Rectangle(Me.Width Me.ImageSize.Width8Me.ImageSize.WidthMe.ImageSize.Height)
            Case 
ContentAlignment.MiddleLeft
                r 
= New Rectangle(4Me.Height Me.ImageSize.Height 2Me.ImageSize.WidthMe.ImageSize.Height)
            Case 
ContentAlignment.MiddleCenter
                r 
= New Rectangle(Me.Width Me.ImageSize.Width 2Me.Height Me.ImageSize.Height 2Me.ImageSize.WidthMe.ImageSize.Height)
            Case 
ContentAlignment.MiddleRight
                r 
= New Rectangle(Me.Width Me.ImageSize.WidthMe.Height Me.ImageSize.Height 2Me.ImageSize.WidthMe.ImageSize.Height)
            Case 
ContentAlignment.BottomLeft
                r 
= New Rectangle(8Me.Height Me.ImageSize.HeightMe.ImageSize.WidthMe.ImageSize.Height)
            Case 
ContentAlignment.BottomCenter
                r 
= New Rectangle(Me.Width Me.ImageSize.Width 2Me.Height Me.ImageSize.HeightMe.ImageSize.WidthMe.ImageSize.Height)
            Case 
ContentAlignment.BottomRight
                r 
= New Rectangle(Me.Width Me.ImageSize.WidthMe.Height Me.ImageSize.HeightMe.ImageSize.WidthMe.ImageSize.Height)
        
End Select
        gr
.DrawImage(Me.Imager)
    
End Sub

#End Region



#Region " Mouse Events "

    
Private Sub Label1_MouseDown(ByVal sender As ObjectByVal e As System.Windows.Forms.MouseEventArgsHandles Label1.MouseDown
        _Click 
True
        _Hover 
False
        Invalidate
()
    
End Sub

    
Private Sub Label1_MouseEnter(ByVal sender As ObjectByVal e As System.EventArgsHandles Label1.MouseEnter
        _Hover 
True
        Invalidate
()
    
End Sub

    
Private Sub Label1_MouseLeave(ByVal sender As ObjectByVal e As System.EventArgsHandles Label1.MouseLeave
        _Hover 
False
        Invalidate
()
    
End Sub

    
Private Sub Label1_MouseUp(ByVal sender As ObjectByVal e As System.Windows.Forms.MouseEventArgsHandles Label1.MouseUp
        _Click 
False
        _Hover 
False
        Invalidate
()
    
End Sub

#End Region


    
Public Enum Mode
        MouseMode 
1
        DefaultMode 
2
    End Enum

    
Private Sub Label1_Click(sender As ObjectAs EventArgsHandles Label1.Click
        RaiseEvent Click
(Mee)
    
End Sub
End 
Class 
الرد }}}}
تم الشكر بواسطة:
#8

السلام عليكم ورحمة الله وبركاته




راح أعطيك مثال يصلح لك كمبتدئ وبأبسط الأساسيات لعمل زر دون الدخول في المسائل المتقدمة
أدرسه بالتفصيل سطر سطر وبعدها بإذن الله ستنطلق من تلقاء نفسك وبالبحث عن المسائل المتقدمة

PHP كود :
Public Class myButton

    
'' توريث من الزر الأساسي للفجوال بيسيك
    Inherits Button




    
'' متغير لحالة ضغط الماوس على الزر
    
Private _MouseDown As Boolean False

    
'' متغير لحالة دخول الماوس على الزر
    
Private _MouseHover As Boolean False

    
'' متغير لحالة حصول الزر على التركيز
    
Private _MouseFocused As Boolean False




    
'' حدث دخول الماوس
    
Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
        
'' لازم يكون أول الإجراء ولا شيء قبله والباقي مثله
        MyBase
.OnMouseEnter(e)

        
_MouseHover True

        
'' تحديث رسم الزر والباقي مثله
        Me
.Invalidate()
    
End Sub

    
'' حدث خروج الماوس
    
Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
        
MyBase.OnMouseLeave(e)
        
_MouseHover False
        Me
.Invalidate()
    
End Sub


    
'' حدث ضغظ زر الماوس
    
Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        
MyBase.OnMouseDown(e)
        If 
e.Button Windows.Forms.MouseButtons.Left Then
            _MouseDown 
True
            Me
.Invalidate()
        
End If
    
End Sub

    
'' حدث ترك ضغظ زر الماوس
    
Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
        
MyBase.OnMouseUp(e)
        
_MouseDown False
        Me
.Invalidate()
    
End Sub


    
'' حدث حصول الزر على التركيز
    
Protected Overrides Sub OnGotFocus(ByVal e As System.EventArgs)
        
MyBase.OnGotFocus(e)
        
_MouseFocused True
        Me
.Invalidate()
    
End Sub

    
'' حدث خسارة الزر للتركيز
    
Protected Overrides Sub OnLostFocus(ByVal e As System.EventArgs)
        
MyBase.OnLostFocus(e)
        
_MouseFocused False
        Me
.Invalidate()
    
End Sub



    
'' حدث رسم الزر
    
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        
MyBase.OnPaint(e)

        
'' نأتي لمعرفة حالة ضغط الماوس ودخوله لتحديد لون الرسم
        
If _MouseDown Then
            
'' مسح رسم الزر واستبداله بلون
            e
.Graphics.Clear(Color.Gray)

        ElseIf 
_MouseHover Then
            e
.Graphics.Clear(Color.DarkGray)

        Else
            
e.Graphics.Clear(Me.BackColor)

        
End If


        
'' رسم مستطيل أحمر داخل الزر في حالة حصوله على التركيز
        
If _MouseFocused Then
            e
.Graphics.DrawRectangle(Pens.Red, New Rectangle(22Me.Width 5Me.Height 5))
        
End If


        
'' رسم مستطيل على جوانب الزر لتحديده
        e
.Graphics.DrawRectangle(Pens.Blue, New Rectangle(00Me.Width 1Me.Height 1))

        
'' معرفة حجم النص
        Dim sz 
As Size TextRenderer.MeasureText(Me.TextMe.Font)

        
'' تحديد مكان رسم النص بحيث يكون في المنتصف
        Dim pt 
As New Point((Me.Width sz.Width) / 2, (Me.Height sz.Height) / 2)

        
'' رسم النص
        e
.Graphics.DrawString(Me.TextMe.Font, New SolidBrush(Me.ForeColor), pt)


    
End Sub


End 
Class 





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#9
لا يوجد زر شكرا

الف شكرا

يعطيك العافية
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة:
#10
الله يعطيك العافية ابو رائد

ويوفقك لكل خير
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] الفرق بين اصدارات فيجوال بيسك دوت نت المختلفة Ahmed Mikkawe 1 688 25-05-16, 04:24 PM
آخر رد: غزوان خليل
Heart الرجاء مساعدتي بمشكلة ببرنامج فيجوال ستيديو 2015 CLARO 6 333 07-05-16, 11:15 PM
آخر رد: CLARO
  الفيجوال استديو 2015 وصل kslawy 10 3,318 14-08-15, 02:28 AM
آخر رد: ابوثامر
Photo الرجاء المساعدة بي Microsoft Visual Studio 2008 ضيعاوي 0 427 03-04-15, 12:37 PM
آخر رد: ضيعاوي
  مشكلة فيجول ستديو ..2010 khaled 11 2,152 12-08-13, 04:13 AM
آخر رد: سعود
  اريد طريقه تصميم Themes برنامج Bitdefender mostafa.vb 5 1,047 31-07-13, 05:21 PM
آخر رد: mostafa.vb
  كيفيه تصميم برنامج تنصيب على الفيجوال بسك mostafa.vb 11 1,786 30-07-13, 02:38 AM
آخر رد: mostafa.vb
  أيهما أفضل تطبيقات فيجوال بيسك أم فيجوال سي شارب ؟ فانتسي ارت 7 4,436 08-07-13, 07:27 PM
آخر رد: حريف برمجة
  يا جماعة لو سمحت حد يجاوبنى على سؤالى فى قاعدة البيانات وفيجوال بيسك 2008 على رمضان 2 810 31-05-13, 05:22 AM
آخر رد: على رمضان
  ربط الاكسل مع فيجوال بيسك 2010 Eng.ae 3 2,453 22-05-13, 03:39 PM
آخر رد: Sonk

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم