অনেকদিন পরে আসলাম।প্রথমে দুঃখিত বলছি কারণটা হচ্ছে আমি লাস্ট কতদিন পোস্ট করিনি তা সঠিক আমারও মনে নেই।বিভিন্ন ব্যস্ততার কারণে পোস্ট করা হয়ে উঠেনি।তো যাইহোক আজ একটা ইম্পোর্টেন্ট কোড দেখব আমরা।অনেক সময় ফর্মের উইন্ডো হাইড করার প্রয়োজন পড়ে।কিন্তু আমরা চাই মেনুবার ব্যবহার করার পরেও উইন্ডো হাইড করব।তবে ভিবি৬ আমাদের সেই সুযোগ ডিরেক্টলি দেয় না।এজন্য কোড করতে হয়।নিচের কোড এমই কাজ করবে।
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long '
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_BORDER = &H800000
Private Const WS_CAPTION = &HC00000
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_SHOWWINDOW = &H40
Private Sub Form_Load()
Call SetWindowLong(hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) Xor WS_CAPTION Xor WS_BORDER)
Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW)
End Sub
'এখানে তিনটা এপিয়াই ব্যবহার করা হয়েছে এরপরে উইন্ডো নতুন করে কনফিগ করা হয়েছে এবং উইন্ডোর পজিশন চেঞ্জ করা হয়েছে।
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long '
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_BORDER = &H800000
Private Const WS_CAPTION = &HC00000
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_SHOWWINDOW = &H40
Private Sub Form_Load()
Call SetWindowLong(hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) Xor WS_CAPTION Xor WS_BORDER)
Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW)
End Sub
'এখানে তিনটা এপিয়াই ব্যবহার করা হয়েছে এরপরে উইন্ডো নতুন করে কনফিগ করা হয়েছে এবং উইন্ডোর পজিশন চেঞ্জ করা হয়েছে।
কোন মন্তব্য নেই:
একটি মন্তব্য পোস্ট করুন