বর্ডার ছাড়া মুভেবল ফর্ম (ভিবি৬)

সবাইকে জানাচ্ছি আমার সালাম ও প্রান ভরা ভালোবাসা।অনেকদিন পরে ব্লগে ফিরলাম।
আজ আমরা দেখব কিভাবে ভিজুয়াল বেসিক ৬ ব্যাবহার করে বর্ডার ছাড়া মুভেবল ফর্ম বানানো হয়।
প্রথমে একটা ফর্ম ইপোর্ট করুন বা ক্রিয়েট করুন।
তারপরে জেনারেল ডিক্লেয়ারেশনে নিচের কোড টুকু লিখুন

Option Explicit
Dim XX As Integer
Dim YY As Integer

'[অর্থাৎ XX ও YY নামের দুটি ইন্টেজার ভেরিয়াবল]

এবার ফর্মের কোড ইভেন্টে গিয়ে নিচের কোড গুলো লিখুন

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    XX = x
    YY = y
End Sub
'[ফর্মের উপর মাউস ডাউন করলে XX=X ও YY=Y হবে]
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = vbLeftButton Then
    Me.Left = Me.Left - XX + x
    Me.Top = Me.Top - YY + y
    End If
End Sub
'[ফর্মের উপর মাউস মুভ করলে লেফট ও টপের মান পরিবর্তিত হয়ে ফর্ম মুভেবল হয়ে যাবে ]

ধন্যবাদ জানিয়ে বিদায় নিচ্ছি !

Read more ...