توی قسمت General از پنجره کد نویسی، کدهای زیر رو که برای تعریف رنگ های پشت زمینه هست، وارد میکنیم.

Option Explicit

Public Enum lstCOL

    Black = 1

    Blue = 2

    Gray = 3

    Green = 4

    Red = 5

    White = 6

    Yellow = 7

End Enum

بعد از این کد ما باید تابع مربوط به آغاز چرخش رو بنویسیم. البته من توضیح کوتاه مربوط به کدها رو با حروف انگلیسی ولی فارسی ( به همون رنگ سبز) نوشتم که برای کپی و پیست کردن مشکلی پیش نیاد.

Public Function BeginRotation(tText As String, tFont As String, tFontSize As String, BackColor As lstCOL)

 Dim m, half, Font, clr, txtImg, pos, scl, xf, bgr

 Set m = DAViewerControlWindowed1.MeterLibrary

    'Tarif kardane ranghaye PoshtZamine baraye control DAViewerControlWindowed

    If BackColor = 1 Then DAViewerControlWindowed1.BackgroundImage = m.SolidColorImage(m.Black)

    If BackColor = 2 Then DAViewerControlWindowed1.BackgroundImage = m.SolidColorImage(m.Blue)

    If BackColor = 3 Then DAViewerControlWindowed1.BackgroundImage = m.SolidColorImage(m.Gray)

    If BackColor = 4 Then DAViewerControlWindowed1.BackgroundImage = m.SolidColorImage(m.Green)

    If BackColor = 5 Then DAViewerControlWindowed1.BackgroundImage = m.SolidColorImage(m.Red)

    If BackColor = 6 Then DAViewerControlWindowed1.BackgroundImage = m.SolidColorImage(m.White)

    If BackColor = 7 Then DAViewerControlWindowed1.BackgroundImage = m.SolidColorImage(m.Yellow)

    'Sakhtane taghire range matn

    Set half = m.DANumber(0.5)

    Set clr = m.ColorHslAnim(m.Mul(m.LocalTime, m.DANumber(0.345)), half, half)

    'Sakhtan va tarife Font baraye matn

    Set Font = m.Font(tFont, tFontSize, clr)

    Set txtImg = m.StringImage(tText, Font)

    'Harkate matn dar control DAViewerControlWindowed

    Set pos = m.Mul(m.Sin(m.LocalTime), m.DANumber(0.02))

    Set scl = m.Add(m.DANumber(2), m.Abs(m.Mul(m.Sin(m.LocalTime), m.DANumber(3))))

    Set xf = m.Compose2(m.Translate2Anim(m.DANumber(0), pos), m.Scale2UniformAnim(scl))

    Set txtImg = txtImg.Transform(xf)

    'Charkheshe matn dar DAViewerControlWindowed

    Set bgr = m.Rotate3RateDegrees(m.Vector3(1, 1, 1), 45).ParallelTransform2

    Set txtImg = txtImg.Transform(bgr)

    'sakhte shodan va aghaze harkate matn

    DAViewerControlWindowed1.Image = txtImg

    DAViewerControlWindowed1.Start

End Function

 خب در مرحله بعد باید یک تابع برای توقف حرکت متن بنویسیم.

Public Function StopRotation()

    DAViewerControlWindowed1.Stop

End Function

خب حالا فرم رو انتخاب کنین و روی فرم دو بار کلیک کنید تا توی پنجره کد نویسی وارد قسمت UserControl_Initialize بشیم. کدهای زیر رو وارد کنید. این کدها برای این هست که با تغییر سایز فرم، کنترل DAViewerControlWindowed تغییر اندازه بده. ( البته این کد برای آماده سازی این کار هست. )

Private Sub UserControl_Initialize()

    UserControl.DAViewerControlWindowed1.Width = UserControl.Width

    UserControl.DAViewerControlWindowed1.Height = UserControl.Height

End Sub

همچنین کد زیر هم به قسمت کد نویسی اضافه کنید که کار بالا رو تکمیل میکنه.

Private Sub UserControl_Resize()

    UserControl.DAViewerControlWindowed1.Width = UserControl.Width

    UserControl.DAViewerControlWindowed1.Height = UserControl.Height

End Sub

خب کد نویسی ما تموم شد.

قبل از کامپایل کردن توجه داشته باشین که حتما فرم رو به طور کامل، اندازه کنترل DAViewerControlWindowed در بیارین. در غیر این صورت نتیجه مطلوبی به ما نمیده.

خب الآن میتونین با خیال آسوده اونو کامپایل کنین و به صورت OCX در بیارین. برای این کار میتونین از منوی File>Make TextRotation.ocx رو انتخاب کنید.

شما میتونین سورس همین پروژه رو دانلود کنین. "دانلود سورس"

خب اینم از پست امروز. امیدوارم که استفاده کرده باشین. اگه مشکلی بود بگین.

با نظراتون به پیشرفت وبلاگ کمک میکنین.

تا پست بعد خدانگهدار.