Search
Search titles only
By:
Search titles only
By:
Log in
Register
Search
Search titles only
By:
Search titles only
By:
Menu
Install the app
Install
Forums
New posts
All threads
Latest threads
New posts
Trending threads
Trending
Search forums
What's new
New posts
New ads
New profile posts
Latest activity
Free Ads
Latest reviews
Search ads
Members
Current visitors
New profile posts
Search profile posts
Contact us
Latest ads
එක පැකේජ් එකයි මාසෙටම Unlimited Internet. තාමත් DATA CARD දාන්න සල්ලි වියදම් කරනවද? අඩුම මිලට අපෙන්.
sayuru bandara
Updated:
Tuesday at 12:30 PM
Ad icon
ඉන්ටර්නෙට් එකෙන් හරියටම සල්ලි හොයන්න සහ Success වෙන්න කැමතිද? 🚀 (E-Money & Success Stories)
siri sumana
Updated:
Saturday at 11:44 PM
Gemini AI PRO 18 months Offer
Hawaka
Updated:
May 27, 2026
Ad icon
koko account
DasunEranga
Updated:
May 27, 2026
Ad icon
koko account
DasunEranga
Updated:
May 27, 2026
Electronics
Vehicles
Property
Search
Reply to thread
Forums
Computers & Internet
Tips & Tricks
Visual Basic Codes
Get the App
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Message
<blockquote data-quote="lucky_lakshitha" data-source="post: 5588893" data-attributes="member: 146143"><p><span style="color: Red"><u><strong>Always On Top Msgbox</strong></u></span></p><p></p><p><span style="color: Blue">Module Code</span></p><p></p><p>Option Explicit</p><p></p><p>Private Const NV_CLOSEMSGBOX = &H5000&</p><p>Private Const NV_MOVEMSGBOX = &H5001&</p><p>Private Const HWND_TOPMOST = -1</p><p>Private Const SWP_NOSIZE = &H1</p><p></p><p>Private Type RECT</p><p> Left As Long</p><p> Top As Long</p><p> Right As Long</p><p> Bottom As Long</p><p>End Type</p><p>Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, _</p><p> ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long</p><p>Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _</p><p> (ByVal lpClassName As String, ByVal lpWindowName As String) As Long</p><p>Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _</p><p> ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, _</p><p> ByVal cy As Long, ByVal wFlags As Long) As Long</p><p>Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long</p><p>Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, _</p><p> ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long</p><p>Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _</p><p> ByVal nIDEvent As Long) As Long</p><p>Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long</p><p></p><p>Private mTitle As String</p><p>Private mX As Long</p><p>Private mY As Long</p><p>Private mPause As Long</p><p>Private mHandle As Long</p><p></p><p></p><p>Public Function MsgBoxMove(ByVal hwnd As Long, ByVal inPrompt As String, _</p><p> ByVal inTitle As String, ByVal inButtons As Long, _</p><p> ByVal inX As Long, ByVal inY As Long) As Integer</p><p> mTitle = inTitle: mX = inX: mY = inY</p><p> SetTimer hwnd, NV_MOVEMSGBOX, 0&, AddressOf NewTimerProc</p><p> MsgBoxMove = MessageBox(hwnd, inPrompt, inTitle, inButtons)</p><p>End Function</p><p></p><p>Public Function NewTimerProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wparam As Long, _</p><p> ByVal lparam As Long) As Long</p><p> KillTimer hwnd, wparam</p><p> Select Case wparam</p><p> Case NV_CLOSEMSGBOX</p><p> mHandle = FindWindow("#32770", mTitle)</p><p> If mHandle <> 0 Then</p><p> SetForegroundWindow mHandle</p><p> SendKeys "{enter}"</p><p> End If</p><p> </p><p> Case NV_MOVEMSGBOX</p><p> mHandle = FindWindow("#32770", mTitle)</p><p> If mHandle <> 0 Then</p><p> Dim w As Single, h As Single</p><p> Dim mBox As RECT</p><p> w = Screen.Width / Screen.TwipsPerPixelX</p><p> h = Screen.Height / Screen.TwipsPerPixelY</p><p> GetWindowRect mHandle, mBox</p><p> If mX > (w - (mBox.Right - mBox.Left) - 1) Then mX = (w - (mBox.Right - mBox.Left) - 1)</p><p> If mY > (h - (mBox.Bottom - mBox.Top) - 1) Then mY = (h - (mBox.Bottom - mBox.Top) - 1)</p><p> If mX < 1 Then mX = 1: If mY < 1 Then mY = 1</p><p> SetWindowPos mHandle, HWND_TOPMOST, mX, mY, 0, 0, SWP_NOSIZE</p><p> End If</p><p> End Select</p><p>End Function</p><p></p><p><span style="color: Blue"></span></p><p><span style="color: Blue">Form Code</span></p><p></p><p>Private Sub Command1_Click()</p><p> Dim x, y</p><p> x = 100 ' We display msgbox at this location</p><p> y = 50</p><p> mResult = MsgBoxMove(hwnd, "Is this message displayed at a location " & vbCrLf & _</p><p> "specified by you?" & vbCrLf & vbCrLf & vbCrLf & _</p><p> "lucky_lakshitha", "Msg Box Move", vbYesNo, x, y)</p><p>End Sub</p><p></p><p><span style="color: Red"></span></p><p><span style="color: Red">----------------------------------------------------------------------------------</span></p><p><span style="color: Red">----------------------------------------------------------------------------------</span></p><p><span style="color: Red"></span></p><p><span style="color: Red"></span></p><p><span style="color: Red"><u><strong>Lock Mouse Pointer In To Form</strong></u></span></p><p><span style="color: Red"><u><strong></strong></u></span></p><p><span style="color: Red"><u><strong></strong></u></span></p><p><span style="color: Red"><u><strong></strong></u><span style="color: Blue">Module Code</span></span></p><p><span style="color: Red"><span style="color: Blue"></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black">Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long</span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black">Public Type RECT</span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"> Left As Long</span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"> Top As Long</span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"> Right As Long</span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"> Bottom As Long</span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black">End Type</span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black">Declare Function ClipCursorByNum Lib "user32" Alias _</span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"> "ClipCursor" (ByVal lpRect As Long) As Long</span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue">Form Code</span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black"></span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black">Private Sub Command1_Click() ' Lock It</span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black">Dim ClipArea As RECT</span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black">With ClipArea</span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black"> .Left = Me.Left / Screen.TwipsPerPixelX</span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black"> .Top = Me.Top / Screen.TwipsPerPixelY</span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black"> .Right = .Left + Me.Width / Screen.TwipsPerPixelX</span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black"> .Bottom = .Top + Me.Height / Screen.TwipsPerPixelY</span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black">End With</span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black">Call ClipCursor(ClipArea)</span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black">End Sub</span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black"></span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black">Private Sub Command2_Click() ' UnLock It</span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black">Call ClipCursorByNum(0)</span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black">End Sub</span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black"></span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black"><span style="color: Red"></span></span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black"><span style="color: Red"></span></span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black"><span style="color: Red">----------------------------------------------------------------------------</span></span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black"><span style="color: Red">----------------------------------------------------------------------------</span></span></span></span></span></span></p><p><span style="color: Red"><span style="color: Blue"><span style="color: Black"><span style="color: Blue"><span style="color: Black"><span style="color: Red"></span></span></span></span></span></span></p></blockquote><p></p>
[QUOTE="lucky_lakshitha, post: 5588893, member: 146143"] [COLOR=Red][U][B]Always On Top Msgbox[/B][/U][/COLOR] [COLOR=Blue]Module Code[/COLOR] Option Explicit Private Const NV_CLOSEMSGBOX = &H5000& Private Const NV_MOVEMSGBOX = &H5001& Private Const HWND_TOPMOST = -1 Private Const SWP_NOSIZE = &H1 Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, _ ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) 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 Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, _ ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _ ByVal nIDEvent As Long) As Long Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private mTitle As String Private mX As Long Private mY As Long Private mPause As Long Private mHandle As Long Public Function MsgBoxMove(ByVal hwnd As Long, ByVal inPrompt As String, _ ByVal inTitle As String, ByVal inButtons As Long, _ ByVal inX As Long, ByVal inY As Long) As Integer mTitle = inTitle: mX = inX: mY = inY SetTimer hwnd, NV_MOVEMSGBOX, 0&, AddressOf NewTimerProc MsgBoxMove = MessageBox(hwnd, inPrompt, inTitle, inButtons) End Function Public Function NewTimerProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wparam As Long, _ ByVal lparam As Long) As Long KillTimer hwnd, wparam Select Case wparam Case NV_CLOSEMSGBOX mHandle = FindWindow("#32770", mTitle) If mHandle <> 0 Then SetForegroundWindow mHandle SendKeys "{enter}" End If Case NV_MOVEMSGBOX mHandle = FindWindow("#32770", mTitle) If mHandle <> 0 Then Dim w As Single, h As Single Dim mBox As RECT w = Screen.Width / Screen.TwipsPerPixelX h = Screen.Height / Screen.TwipsPerPixelY GetWindowRect mHandle, mBox If mX > (w - (mBox.Right - mBox.Left) - 1) Then mX = (w - (mBox.Right - mBox.Left) - 1) If mY > (h - (mBox.Bottom - mBox.Top) - 1) Then mY = (h - (mBox.Bottom - mBox.Top) - 1) If mX < 1 Then mX = 1: If mY < 1 Then mY = 1 SetWindowPos mHandle, HWND_TOPMOST, mX, mY, 0, 0, SWP_NOSIZE End If End Select End Function [COLOR=Blue] Form Code[/COLOR] Private Sub Command1_Click() Dim x, y x = 100 ' We display msgbox at this location y = 50 mResult = MsgBoxMove(hwnd, "Is this message displayed at a location " & vbCrLf & _ "specified by you?" & vbCrLf & vbCrLf & vbCrLf & _ "lucky_lakshitha", "Msg Box Move", vbYesNo, x, y) End Sub [COLOR=Red] ---------------------------------------------------------------------------------- ---------------------------------------------------------------------------------- [U][B]Lock Mouse Pointer In To Form [/B][/U][COLOR=Blue]Module Code [COLOR=Black]Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Declare Function ClipCursorByNum Lib "user32" Alias _ "ClipCursor" (ByVal lpRect As Long) As Long [COLOR=Blue] Form Code [COLOR=Black] Private Sub Command1_Click() ' Lock It Dim ClipArea As RECT With ClipArea .Left = Me.Left / Screen.TwipsPerPixelX .Top = Me.Top / Screen.TwipsPerPixelY .Right = .Left + Me.Width / Screen.TwipsPerPixelX .Bottom = .Top + Me.Height / Screen.TwipsPerPixelY End With Call ClipCursor(ClipArea) End Sub Private Sub Command2_Click() ' UnLock It Call ClipCursorByNum(0) End Sub [COLOR=Red] ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- [/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR] [/QUOTE]
Insert quotes…
Verification
Payakata winadi keeyak tibeda?
Post reply
Top
Bottom
Gemini AI PRO 18 months Offer
