تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يمكن انشي الى text ضل عن طريق البرمجة ؟
#1
كيف يمكن انشي الى text ضل عن طريق البرمجة ؟
والله يحفظكم ويرعاكم
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم
هذا الكود هو المطلوب
علما بان هذا الكود يعمل على تصنيع صندوق نص ضع الكود داخل زر معين
On Error Resume Next
Set txtObj = Controls.Add("VB.textbox", "txtObj")
With txtObj
.Visible = True
.RightToLeft = True
.Alignment = 2
.Width = 2000
.Text = "السلام عليكم"
.Top = 2000
.Left = 1000
End With
End Sub

Private Sub Form_Load()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
With btnObj
.Visible = True
.Width = 2000
.Caption = "Click"
.Top = 1000
.Left = 1000
End With

علما بانك يجب ان تضع هذا الكود في القسم العام للأحداث
Private WithEvents txtObj As TextBox
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم...

أعتقد أن الأخ يسأل عن كيفية إنشاء ظلال لمربعات النص. إذا كان الأمر كذلك فإن الحل يكون كالتالي:

1. ضع الكود التالي في Module:
كود :
' ترقيم لتحديد اتجاه الظل
Public Enum EShadowPosition
    spRightBottom    ' إلي اليمين و الأسفل
    spRightTop    ' إلى اليمين و الأعلى
    spLeftTop    ' إلى اليسار و الأعلى
    spLeftBottom    ' إلى اليسار و الأسفل
End Enum

' دالة خاصة لتحديد وحدة القياس
Private Function ContainerScaleMode(AContainer As Object) As ScaleModeConstants
    On Error GoTo ContainerScaleMode_Err
    
    ContainerScaleMode = AContainer.ScaleMode
    Exit Function
    
ContainerScaleMode_Err:
    Err.Clear
    ContainerScaleMode = vbTwips
End Function

' إجراء إضافة الظلال - انظر شرح البارامترات فيما بعد
Public Sub AddShadow( _
                     AForm As Form, _
                     Optional AShadowColor As OLE_COLOR = &HC0C0C0, _
                     Optional ADistanceInPixels As Long = 2, _
                     Optional MakeBoxFlat As Boolean = True, _
                     Optional AShadowPosition As EShadowPosition = spRightBottom _
                    )
    Dim AControl As Control
    Dim Index As Long
    Dim AShape As Shape
    Dim ALeftFactor As Long
    Dim ATopFactor As Long
    
    If (AShadowPosition = spRightBottom) Or (AShadowPosition = spRightTop) Then
        ALeftFactor = 1
    Else
        ALeftFactor = -1
    End If
    
    If (AShadowPosition = spLeftBottom) Or (AShadowPosition = spRightBottom) Then
        ATopFactor = 1
    Else
        ATopFactor = -1
    End If
    
    Index = 0
    For Each AControl In AForm.Controls
        If TypeOf AControl Is TextBox Then
            If MakeBoxFlat Then AControl.Appearance = 0    ' Flat
            Index = Index + 1
            Set AShape = AForm.Controls.Add("VB.Shape", "shpShadow" & CStr(Index), AControl.Container)
            With AShape
                .BackStyle = 1    ' Opaque
                .BackColor = AShadowColor
                .BorderColor = AShadowColor
                .Move AControl.Left + AForm.ScaleX(ADistanceInPixels, vbPixels, ContainerScaleMode(AControl.Container)) * ALeftFactor, _
                      AControl.Top + AForm.ScaleY(ADistanceInPixels, vbPixels, ContainerScaleMode(AControl.Container)) * ATopFactor, _
                      AControl.Width, AControl.Height
                .Visible = True
            End With
        End If
    Next AControl
End Sub

* بارامترا الإجراء:
= البارامتر AForm: الـ Form المحتوية على مربعات النص. هذا هو البارامتر الوحيد المطلوب (الإجباري).
= البارمتر AShadowColor: بارامتر اختياري يحدد لون الظل. الافتراضي هو اللون الفضي.
= البارامتر ADistanceInPixels: بارمتر اختياري يحدد بُعد الظل عن مربع النص بوحدة البكسل. الافتراضي 2 بكسل.
= البارامتر MakeBoxFlat: بارامتر اختياري يحدد ما إذا سيتم جعل مربع النص يبدو مسطحاً (يجعل الظل بظهر بشكل أوضح). الافتراضي True، أي نعم.
= البارامتر AShadowPosition: بارامتر اختياري يحدد اتجاه الظل حسب القيم الواردة في الترقيم EShadowPosition. الافتراض هو spRightBottom أي نحو اليمين و الأسفل.

* يتم استدعاء الإجراء AddShadow في الحدث Form_Load للنافذة. أمثلة:

= إنشاء ظلال بالقيم الافتراضية:
كود :
Private Sub Form_Load()
    AddShadow Me
End Sub

= إنشاء ظلال تبعد 6 بكسل عن مربعات النص مع استعمال بقية القيم الافتراضية:
كود :
Private Sub Form_Load()
    AddShadow Me, , 6
End Sub

= إنشاء ظلال بلون أزرق داكن و تبعد عن مربعات النص بمقدار 4 بكسل في اتجاه أعلى اليسار:
كود :
Private Sub Form_Load()
    AddShadow Me, &H800000, 4, True, spLeftTop
End Sub

= نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة:
#4
لكم من الف شكر وتقدير لك استاذي العزيز والله يحفظكم ويرعاكم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة gonm64 7 1,205 11-09-22, 02:04 PM
آخر رد: مصمم هاوي
  [vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ Microformt 2 1,388 18-12-21, 01:41 PM
آخر رد: اسلام الكبابى
Question [vb6.0] كيف اشترط على المستخدم إدخال عنوان بريدي في text ؟؟ Microformt 2 1,723 15-06-21, 05:43 AM
آخر رد: Microformt
  ممكن كود منع كتابة ارقام في text imatawen 8 7,744 08-02-21, 08:42 PM
آخر رد: abuahmad
  استفسار عن طريقة الربط بين قاعدة بيانات اكسيس 2003 عن طريق الانترنت jordaniancopy 1 1,851 29-08-20, 11:46 PM
آخر رد: diggitalk2017@gmail.com
  [سؤال] كيف يمكن كتابة جملة استعلام مع العمليات الحسابية awidan76 2 2,194 23-07-18, 05:25 PM
آخر رد: awidan76
  [vb6.0] كيف يمكن تعديل الكود لجلب احصائيات awidan76 7 2,518 10-01-18, 01:52 PM
آخر رد: awidan76
  هل يمكن تطبيق حدث خارج فورم Visual Basic 1 1,658 06-12-17, 04:57 PM
آخر رد: Visual Basic
  كيف يمكن اشتراط الاتصال بالأنترنت لتثبيت برنامج مبرمج بال vb6 AEDC 1 1,735 10-09-17, 01:49 PM
آخر رد: Ahmed_Mansoor
  هل يمكن تشغيل برنامج بالفيجوال على الهاتف الجوال الحلوانى 4 14,275 17-08-17, 02:26 PM
آخر رد: أبو نوره

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


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