ভিবিতে
বানানো কোন এপ্লিকেশন কিভাবে আমরা সবার উপরে রাখতে পারি সেটা দেখব ! অর্থাৎ সবার
সম্মুক্ষে এটি দেখা যাবে ! প্রথমে একটি ফর্ম নেন ! তারপরে ফর্মের উপর ডাবল ক্লিক
করে সব কিছু মুছে দিয়ে নিচের কোড পেস্ট করুন
Public Sub KeepOnTop(F As Form, me As Boolean)
If me
Then
SetWindowPos
F.hWnd, -1,
0,
0,
0,
0,
2
Or 1
Else
SetWindowPos
F.hWnd, -2,
0,
0,
0,
0,
2
Or 1
End If
End Sub
এখানে
একটা পাবলিক ভেরিয়াবল ডিক্লেয়ার করা হয়েছে যার নাম KeepOnTop এবং
ব্রাকেটের মধ্যে F As Form আর Me As boolean এই দুইটা প্যারামিটার !
তারপরে
If ফাংশনের
মাধ্যমে me চেক
করা হয়েছে তারপরে SetWindowPos এই ফাংশনের মাধ্যমে আমাদের প্রোগ্রামটি সবার সম্মুক্ষে আছে
কিনা সেটা চেক করে যদি থাকে তবে পরের কোড এক্সিকিউট হয় এবং তা নর্মাল করে দেয় ! আর
যদি Me ভেরিয়াবল
False হয়
তবে আমাদের এর ভেরিয়াবলের মান বাড়িয়ে সবার সামনে চলে যাবে ! এখন প্রশ্ন হলো এই Me
ভেরিয়াবল
কি ?
Me একটা বুলিয়ান টাইপ ভেরিয়াবল (বুলিয়ান ভেরিয়াবল নিয়ে আগেই
আলোচনা করা হয়েছে) আর এই ভেরিয়াবলের মানে আমাদের প্রোগ্রামে ব্যাবহার করা ফর্মে
অবস্থানের উপর নির্ভর করে । যদি সেটা অন্য প্রোগ্রামের চেয়ে কম হয় তবে তার মান
বাড়িয়ে সবার সম্মুক্ষে আনে ! আর যদি অন্য প্রোগ্রামের তুলনায় এমনিতে মান বেশি থাকে
তবে তা নররমাল অবস্থায় থাকে ! এখন ফর্মের উপর ডাবল ক্লিক করে আমরা ফাংশনটিকে কল
করব !
Private Sub Form_Load()
KeepOnTop
End Sub
