تغيير نافذة Visual basic الى و ضع ثلاثي الأبعاد

Elhachmivb

  • Jr. Member
  • **
    • مشاركة: 56
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: نيسـان 06, 2008, 11:07:13 صباحاً
:icon26: تغيير نافذة Visual basic الى و ضع ثلاثي الأبعاد :

لجع الفورم 3d أدخل نافذة code و إمسح كل شي فيها وأكتب الكود التالي:

Sub ThreeDForm(frmForm As Form)
    Const cPi = 3.1415926
    Dim intLineWidth As Integer
    intLineWidth = 5
    ' 'save scale mode
    Dim intSaveScaleMode As Integer
    intSaveScaleMode = frmForm.ScaleMode
    frmForm.ScaleMode = 3
    Dim intScaleWidth As Integer
    Dim intScaleHeight As Integer
    intScaleWidth = frmForm.ScaleWidth
    intScaleHeight = frmForm.ScaleHeight
    ' 'clear form
    frmForm.Cls
    ' 'draw white lines
    frmForm.Line (0, intScaleHeight)-(intLineWidth, 0), &HFFFFFF, BF
    frmForm.Line (0, intLineWidth)-(intScaleWidth, 0), &HFFFFFF, BF
    ' 'draw grey lines
    frmForm.Line (intScaleWidth, 0)-(intScaleWidth - intLineWidth, intScaleHeight), &H808080, BF
    frmForm.Line (intScaleWidth, intScaleHeight - intLineWidth)-(0, intScaleHeight), &H808080, BF
    ' 'draw triangles(actually circles) at corners
    Dim intCircleWidth As Integer
    intCircleWidth = Sqr(intLineWidth * intLineWidth + intLineWidth * intLineWidth)
    frmForm.FillStyle = 0
    frmForm.FillColor = QBColor(15)
    frmForm.Circle (intLineWidth, intScaleHeight - intLineWidth), intCircleWidth, QBColor(15), _
    -3.1415926, -3.90953745777778 '-180 * cPi / 180, -224 * cPi / 180
    frmForm.Circle (intScaleWidth - intLineWidth, intLineWidth), intCircleWidth, QBColor(15), _
    -0.78539815, -1.5707963 ' -45 * cPi / 180, -90 * cPi / 180
    ' 'draw black frame
    frmForm.Line (0, intScaleHeight)-(0, 0), 0
    frmForm.Line (0, 0)-(intScaleWidth - 1, 0), 0
    frmForm.Line (intScaleWidth - 1, 0)-(intScaleWidth - 1, intScaleHeight - 1), 0
    frmForm.Line (0, intScaleHeight - 1)-(intScaleWidth - 1, intScaleHeight - 1), 0
    frmForm.ScaleMode = intSaveScaleMode
End Sub

Private Sub Form_Paint()
ThreeDForm Me

End Sub

بالتوفيق لجميع المبرمجين...


آلاء

  • Full Member
  • ***
    • مشاركة: 145
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: تـمـوز 09, 2009, 10:58:40 مسائاً
je vais le faire et je te renderai la réponse
merci


salah15salah

  • Newbie
  • *
    • مشاركة: 6
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #2 في: أيلول 11, 2009, 05:21:49 صباحاً
كود جميل يعطي مظهرا جميلا حقا، ولكن هل يمكن شرح الأوامر للمبتدئين؟