تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد انشاء button بشكل مميز ثم ادراجه في الفورمه وتفعيله ولا يكون مجرد صوره ميته
#1
السلام عليكم ورحمه الله وبركاته

ارجوا الاهتمام لهذا الموضوع Smile

لو سمحت عايز طريقه لكيفيه عمل button بشكل دائري او اي شكل اريده مثل الموجود في power point عايز بقي كيفيه (( وضعه في visual Basic /Visual Studio2010)) اريد وضع الزرار ويكون عادي اعرف اضغط عليه واريده يكون بشكل اخر غير المستطيل ده ؟ شكرا
الرد }}}
تم الشكر بواسطة:
#2
[SIZE=5]بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
______________________
توضيـــح :
في الحقيقة لقد أمتنعت عن المشاركة في المنتدى لفترة معينه ولسبب محدد
وقد عدت بعد أن أقنعني أخي وحبيبي وصديقي الغالى ربيـــــــــع .
وأكيـــد لن أعود وأيدي فاضيه كما عودتكم دائما ....

أنتظر سأصمم لك أداة زر أمر بطريقة سهلة وبتقدر تستخدمها في كل التطبيقات .


[/SIZE]
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته

الكلاس بالكامل :
PHP كود :
Imports System.ComponentModel

'===============================
'
------ Abu Ehab ---------------
'===============================

<ToolboxBitmap(GetType(TheButton), "BtnIcon.bmp")> Public Class TheButton
    Inherits Button
    Public Sub New()
        Me.BackgroundImageLayout = ImageLayout.Stretch
        Me.BackgroundImage = My.Resources.L

        Me.ForeColor = Color.White
        Me.Cursor = Cursors.Hand
    End Sub
    Dim Sund As Boolean = False
    Public Property PlaySound() As Boolean
        Get
            Return Sund
        End Get
        Set(ByVal value As Boolean)
            Sund = value
            TheOptions()

        End Set
    End Property
#Region "  Hide  Colors Properties "
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property BackgroundImage() As System.Drawing.Image
        Get
            Return MyBase.BackgroundImage
        End Get
        Set(ByVal value As System.Drawing.Image)
            MyBase.BackgroundImage = value
        End Set
    End Property



    <Bindable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property BackColor() As System.Drawing.Color

        Get
            Return MyBase.BackColor
        End Get
        Set(ByVal value As System.Drawing.Color)
            MyBase.BackColor = value

        End Set
    End Property
#End Region


    Public Sub TheOptions()
        Select Case Sund
            Case YourSound.PlaySound
                My.Computer.Audio.Play(My.Resources.ClickSound, AudioPlayMode.WaitToComplete)

        End Select


    End Sub
#Region " Events "

    Private Sub TheButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        If Sund Then
            My.Computer.Audio.Play(My.Resources.ClickSound, AudioPlayMode.WaitToComplete)
        End If
    End Sub
    Private Sub TheButton_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        Me.BackgroundImage = My.Resources.D
    End Sub

    Private Sub TheButton_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseHover
        Me.BackgroundImage = My.Resources.h
    End Sub

    Private Sub TheButton_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
        Me.BackgroundImage = My.Resources.L

    End Sub
#End Region

End Class
Public Enum YourSound
    PlaySound
    StopSound

End Enum 

توجد بهــــا خاصية تشغيل الصوت بالنقر على زر الأمر أسمها PlaySound
كـــــــــــود الاداة مفتوح المصدر + المثـــــــــال .

تقبـــــــــلوا تحيــــــــاتي .



الملفات المرفقة
.rar   MyButton.rar (الحجم : 240.04 ك ب / التحميلات : 228)
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#4
Abu Ehab كتب :[SIZE=5]بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
______________________
توضيـــح :
في الحقيقة لقد أمتنعت عن المشاركة في المنتدى لفترة معينه ولسبب محدد
وقد عدت بعد أن أقنعني أخي وحبيبي وصديقي الغالى ربيـــــــــع .

[/SIZE]

انا من يوم ما سجلت فى هذا الموقع وانا احب الدخول ومتابعة الاخوه من امثالك ابو ايهاب
وعند غياب اى احد بالتاكيد نفتقده جميعا ولا يوجد اى قيمه لاى منتدى على الاطلاق الا بالاعضاء المتواجدين فيه ليس ذلك فقط بل بحجم التعاون فيما بينهم
وانا اشهد الله تعالى انى احبك جدا واحب جميع الاخوه مثل الاخ ربيع وغيره الكثير ممن اعرف اسمائهم ومن لا اعرف
واسئل الله تعالى ان يحفظكم ويطيل اعماركم ويحسن اعمالكم ويحسن ختامنا وختامكم انه ولى ذلك والقادر عليه
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#5
Abu Ehab كتب :[SIZE=5]بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
______________________
توضيـــح :
في الحقيقة لقد أمتنعت عن المشاركة في المنتدى لفترة معينه ولسبب محدد
وقد عدت بعد أن أقنعني أخي وحبيبي وصديقي الغالى ربيـــــــــع .
وأكيـــد لن أعود وأيدي فاضيه كما عودتكم دائما ....

أنتظر سأصمم لك أداة زر أمر بطريقة سهلة وبتقدر تستخدمها في كل التطبيقات .


[/SIZE]

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

أشكرك أخي الحبيب على عودتك إلى منتدانا الحبيب
بالفعل افتقدتك كثيرا

كما أشكر الأخ الحبيب ربيع الذي دائما ما يتفقد الأعضاء

وهناك أيضا شخص افتقدته أسأل الله أن يكون في خير
ألا وهو @@أبورائد@@

أسأل الله أن يحفظكم ويبارك فيكم


بالتوفيق
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#6
شكرا جدا Smile ...
الرد }}}
#7
ممكن رفع الملف من جديد
الرد }}}
#8
(11-03-20, 08:59 PM)paveldida كتب : ممكن رفع الملف من جديد

انظر الى هذا الرابط فهو يوضح الفكرة التى تشير اليها
https://www.youtube.com/watch?v=iOWml2BRKzI
الرد }}}
تم الشكر بواسطة: farhat ali , ابراهيم ايبو
#9
احسنت شكرا لك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أصنع جميل Button بكل بساطة Abu Ehab 11 7,783 10-09-16, 10:33 AM
آخر رد: Abu Ehab
  احلا مشاهدة تطوير اداة listbox تصبح بشكل جميله ابراهيم كركوكي 0 2,616 18-08-16, 10:03 PM
آخر رد: ابراهيم كركوكي
  هام جدا قبل انشاء موضوع في هذا القسم Sajad 0 9,640 25-06-13, 06:52 PM
آخر رد: Sajad
  برنامج وأداة Enhanced Button RaggiTech 0 2,409 20-10-12, 11:37 AM
آخر رد: RaggiTech

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


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