بیر ینی پوروجکت

ایکی picturebox  پوروجکت ارترون

Dim StartX As Single, StartY As Single

Private Sub Form_Activate()

    MousePointer = 11

    Picture2.PaintPicture Form1.Picture, 0, 0

    Picture1.PaintPicture Picture2.Image, 0, 0, Picture1.Width, Picture1.Height, Picture1.Left, Picture1.Top, Picture1.Width, Picture1.Height

    Picture1.Line (1, 1)-(Picture1.Width - 1, Picture1.Height - 1), , B

    MousePointer = 0

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    StartX = X

    StartY = Y

    Picture1.AutoRedraw = False

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 1 Then

        Picture1.Left = IIf(X < StartX, Picture1.Left - (StartX - X), Picture1.Left + (X - StartX))

        Picture1.Top = IIf(Y < StartY, Picture1.Top - (StartY - Y), Picture1.Top + (Y - StartY))

        Picture1.PaintPicture Picture2.Image, 0, 0, Picture1.Width, Picture1.Height, Picture1.Left, Picture1.Top, Picture1.Width, Picture1.Height

        Picture1.Line (1, 1)-(Picture1.Width - 1, Picture1.Height - 1), , B

    End If

End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Picture1.AutoRedraw = True

End Sub

وبی کدی اوندا یازون

 بیر ینی پروجگت کی فرم خواصلار ایشلنیب

Private Sub Form_Load()
Me.BackColor = 16004

Me.AutoRedraw = True

Me.Caption = "آذربایجان"

Me.DrawMode = 13

Me.DrawWidth = 5

Me.FillColor = 1544066

Me.FillColor = 50505

Me.WindowState = 2

Me.Font.Underline = True

Me.Font.Size = 30

Me.CurrentX = Me.Height / 2

Me.CurrentY = Me.Width / 2

Me.Print "Azarbajan"

End Sub

ایکی لیبل و بیر تامیر پوروجکته چوخ الدون

فرم کدیندا منیی یازون

Private Sub Form_Load()

Label1.AutoSize = True

Label2.AutoSize = True

Timer1.Interval = 500

Label2.Caption = Date

End Sub

و تامیر کدیندا منیی یازون

Private Sub Timer1_Timer()

Label1.Caption = Time

End Sub

فرمین (Form) خصوصیتری

Name فرمین اصلی آدین تعین الییر

 AutoRedraw تعین الییرکی فرم اتوماتیک حالت بیر کپی اوزینن ساخلاسین یا یع  یوخ

BackColor فرمین رنکین تعین الییر

BorderStyle فرمین دوره خط درین تعین الییر

Caption فرمین آدین کی تاسکبار کوسنر نعین الیر

ClipControls فرمین کنترل لارین وضیعت تعین الیر

ControlBox فرمین کنترل لارین کوسنیب یا کوسنمعی تعین الاییر

DrawMode فرمین چکمک نجور اویماق تعین الییر

DrawWidth فرمین چکمک اوزونق تعین الییر

Enabled فرمین قراوتماق تعین الییر

FillColor فرمین دولماق رنکین تعین الییر

FillStyle فرمین دولماق نجور اولماق تعین الییر

Font فرمیین خط درین وضیعت تعین الییر

ForeColor فرمین خط رنکین تعین الییر

hDC فرمین ترسیم نمره سن  قیترره

HelpContextID فرمین امداد فایل نمره سن قیترره

  Height فرمیین اوجالیق تعین الییر

hWnd فرمیین ویندوز نمرسین قیترره

Icon فرمین آیکون تعیین الییر

Image فرمیین عکسین تعیین الییر

KeyPreview تعیین الییر کی آیری کنترل بیر کلید  وریلاندا فرم قیتررسین یا یوخ

MDIChild تعین الییر کی فرم آیری فرم لار اوشاق اولابیلر

MaxButton تعین الییرکی بویتمع کلید السون یا یوخ

MinButton  تعین الییرکی خیرداماق  کلید السون یا یوخ

MouseIcon فرم اوستودا سیچان آیکون تعین الییر

Moveable تعیین الییر کی فرم تربتمح اولار یا یوخ

RightToLeft فرمیین ساق ویا سولدان دوز

ScaleHeight فرمیین ایچری اوجالیق قیتر

ScaleWidth فرمیین ایچری اننین قیتر

Picture فرمیین عکسین تعین الییر

ShowInTaskbar تعیین الییر کی فرم تسکبار کوسنسین یا یوخ

ScaleWidth  فرمیین اننین تعین الییر

Left فرمین سولدان فاصله سین تعیین الییر

Top فرمین باشدان فاصله سین تعیین الییر

Visible تعین الیر کی فرم کوسنسین یا یوخ

Width فرمنین انیین تعیین الییر

WindowState فرم ماکسیم یا مینی متعین الییر