Stop Title Bar Mouse Dragging
Hello Folks,
i am new to this forum but i have a problem which i have researched but failed.
I have disabled my applications titlebar,maximise button. But the title bar actually docks itself in a restored state and yet i wanted it maximised so that no one would drag it over the screen as this happens when its in a restored state.
How can i be able to disable the Mouse Click move titlebar(or application window) action.
Thanks in advance.
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Stop The Dragging...?
Here's what I have:
- A label control array within a picturebox. The label control array
- can be dragged left and right from one end of the picturebox
- to the other. The problem is that the control array can also
- be dragged past either end of the picturebox, making the label
- control array not usable.
Here's what I need:
- To be able to have the label control array stop from being
- dragged. In other words, have a left and right limit as to how
- far the control array can be dragged.
The way I'm doing it now.....doesn't work.
Any ideas welcome...
Finding Out If The Form Itself Is Being Moved By Dragging On The Title Bar... ?
Hello ppl...
I'm using windows 2000's layering abilities to make my form semi-transparent when a user drags it around and make it opaque when the mouse button is released. The problem is that I can't find a way to check if the form is being dragged around. The mouse events of the form do not fire when the title bar is being dragged. All i want is a mechanism that tells me if the title bar is being dragged or not. Can anyone help me?
Asim
Stop Form From Dragging Off-Screen
I've searched this quite a bit and keep coming up with the same results... all of which don't really solve the problem...
I have a form that I want users to drag, however, I do not want the form to cross the edges of the screen. That is, I do not want any part of the form to disappear outside the screen. The only code I've found close to this is one to snap the form to the edge of the screen (while still allowing it to be pushed outside the screen).
I've tried using the mouse position API for the form, but it doesn't capture the X and Y coordinates for when you're over the form's border. I understand this to only see the INSIDE of the form, and not the form's border included.
Thanks in advance!
Stop Item Dragging/moving In ListView
Is there any way you can stop the user from moving the item position in a listview?? I need them to stay the same as i added them first by code, with them being fixed for the user and not allowing any movement of item position!
thanks!
Stop Dragging Links From Webbrowser Control
Hi all,
i'm creating a securelink browser application using
WebBrowser cotrol in VB6.
Our requirment is that no one can't do drag and drop
a hyperlink out side the application ,as one can do
with other browsers.
so how can i do this ,plz help me.
Thanks
Mouse Dragging
I'm a beginner of the vb user.
I wonder if it is possible to change the text order in the ListBox by using mouse dragging.
Simple Mouse Dragging Thing
I got an e-mail a few days ago from someone (who saw my site, who got my e-mail from here, who knows) asking me for a tutorial on using the mouse to select an area on the form. So, I whipped up a little thing. Normally, I wouldn't post this kind of thing here (as I don't totally see exactly how useful it is), but this guy was extremely happy I wrote this little thing. That makes me think it could be valueable to others here. So, attached is a few lines of code (not much, really) demonstrating simple mouse techniques. It's fairly well commented, so I hope it's of use to a few people.
Auto Dragging With Mouse Events
i dont know if this fits here, but oh well.. im trying to simulate a
dragging of the mouse cursor. so far what i do is to first from the desired
location to perform the drag from
call a mouse_event_Flags.MOUSEEVENTF_LEFTDOWN
then inside a loop i move the cursor coordinate by coordinate(in a straight line) untill it reaches the destination.
after that is done i simply call the
mouse_event_Flags.MOUSEEVENTF_LEFTUP to finalize the dragg...
this works sometimes on some items(for example works for painting apps and sometimes dragging some objects).. but it doesnt with others.. im trying to drag any object that you would using a real mouse.. from any opened app or desktop.. so its not really limited to controls... if anybody has successfully done this it will be appreciated to hear from you.. thanks
Dragging And Dropping Without Disabling Mouse Clicks
I'm trying to make it so that a control can be dragged and dropped onto another, but this disables the mouse click events. Is there anyway of still allowing the card to be clicked whilst also allowing it to be dragged with an outline?
Drag && Drop - Managing Mouse Events For Both Right-click Popup Menu && Right Dragging
OK - suppose I have "control1" and "control2". On control1, if the user right-clicks, I want to show a popup menu, but I also want to allow right-dragging to control2. If the user right-drags, I want to show a popup menu on the drop. How do I manage these events to keep things straight?
Everything's fine if I only allow dragging with the left button and popup menu on the right button. It's when I want to allow "double duty" on the right button that things get confusing.
Detecting Mouse Events On The Title Bar..
I hope this is the right section..
Is there a way of detecting a mouse click on a title bar of a form? I've go a real small form that I don't want to clutter up with a big- * * * toolbar, but want the users to be able to minimize it easily.
The border style is fixed toolbar, and the min button property is set to true. In order to minimize it as it is now, you need to click the icon on the task bar, or right click the title bar and select minimize. I'd like to be able to click or double click the title bar and invoke the minimize routine. Is this possible?
TYIA
'Rekd
Getting Title/Caption Of Program Mouse Is Focused On
What i am trying to do is have:
Code:
text1.text = (Caption of current program the mouse is focused on/clicked)
Example:
Text1.text = Mozilla Firefox
Also i need to know how i could send a message box after the textbox has 20 characters in it.
Sorry if i didnt explain this enough, i didnt really know how to explain, I hope you understand
Thanks, iTHUG
Stop Scroll Of The Mouse
I use this line to stop people from selecting locked cells in Excel. It works perfect:
Worksheets("Sheet1").EnableSelection = xlUnlockedCells
I wonder if there is something similar to disable the scroll wheel of the mouse?
Thanks in advance.
Stop Mouse Event In RTB
Hello
I have a richtextbox that gets text highlighted by code.
I have the RTB locked so that the user can't manipulate the text.
But if the user clicks in the RTB it unhighlights the highlighted text and put the insertion point where they clicked.
Is there a way to intercept that mouse click and stop it from changing the highlighted text.
Thanks
David
Help Using Timmer And Stop Mouse Flicking
Hi all . I am use thise code to load a new instanace of my program using timeer. But when i used it the mouse is flicking :
VB Code:
Private Sub Timer1_Timer() Shell "C:Program Filesxyzmyapp.exe" End Sub
What i want to do read caption and class name of my app window and if it does not exist i load my app. I have some code but i do not know how to make it run when it does not find my application window with given classname and caption.. Could any one help fix this problem and make my program consume less cpu.Thanks
Note: timer interval is 20
VB Code:
Private Sub Timer1_Timer()Dim lhWnd As Long lhWnd = FindWindow("#32770", "My Application CAption") If lhWnd Then Label1.Caption = "Your ap is open" else Shell "C:Program Filesxyzmyapp.exe" Call main End IfEnd Sub
Stop Mouse Click On Form
I have a minor, but anoying problem. My main form1 opens up form2 (vbmodal). On form2, I have a flexgrid that the user double-clicks on to make their selection. As soon as they do, I hide form2, and form1 gets some information from a few public variables on form2. I then unload form2 and set it to nothing.
This all works ok, but sometimes as form2 hides, the users mouse pointer may be over a command button on form1. When they are that command button triggers. How can I make form1 reject the mouse action?
Open to any and all suggestions.
Wayne
Press 'ESC' To Stop Mouse Playback
I actually need to press a key 'esc' so that the mouse will stop playing back. My code is such that i am opening a file which playing back mouse movement.Is there a api which can help me stop the mouse from playing back ? My mouse playbck code is shown below :
Private Type EVENTMSG
message As Long
paramL As Long
paramH As Long
time As Long
hwnd As Long
End Type
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type MSG
hwnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const WH_JOURNALRECORD = 0
Private Const WH_JOURNALPLAYBACK = 1
Private Const HC_GETNEXT = 1
Private Const HC_SKIP = 2
Private Const WH_GETMESSAGE = 3
Private Const WH_CALLWNDPROC = 4
Private Const WM_CANCELJOURNAL = &H4B
Private Const WM_MOUSEMOVE = &H200
Private lHookID As Long
Private lAppHookID As Long
Private tEventList() As EVENTMSG
Private tEVENTMSG As EVENTMSG
Private lMsgCount As Long
Private lMsgCountMax As Long
Public sDat As String
Public Sub RecordMouse()
'Record the Mouse Events
If lHookID <> 0 Then Exit Sub
lMsgCountMax = 0
lMsgCount = 0
ReDim tEventList(0)
'Set an application hook to monitor for messages sent to this app
lAppHookID = SetWindowsHookEx(WH_GETMESSAGE, AddressOf GetMessageProc, App.hInstance, App.ThreadID)
'Set the Journal Hook to allow us to record all Mouse Movements
lHookID = SetWindowsHookEx(WH_JOURNALRECORD, AddressOf JournalRecordProc, 0&, 0&)
Debug.Print "Recording..."
End Sub
Public Sub RecordMouseStop()
'Stop Recording the Mouse Events
If lHookID <> 0 Or lAppHookID <> 0 Then
Call UnhookWindowsHookEx(lAppHookID)
Call UnhookWindowsHookEx(lHookID)
lHookID = 0
lAppHookID = 0
Debug.Print "Recording Stopped - " & lMsgCountMax & " messages recorded."
End If
End Sub
Public Sub PlayBackMouse()
'Playback the Journal Recorded with JournalRecord
If lHookID <> 0 Then Exit Sub
lMsgCount = 1
tEVENTMSG = tEventList(1)
'Set an application hook to monitor for messages sent to this app
lAppHookID = SetWindowsHookEx(WH_GETMESSAGE, AddressOf GetMessageProc, App.hInstance, App.ThreadID)
lHookID = SetWindowsHookEx(WH_JOURNALPLAYBACK, AddressOf JournalPlaybackProc, 0&, 0&)
Debug.Print "Playing..."
End Sub
Public Sub PlayBackMouseStop()
'Stop Journal Playback
If lHookID <> 0 Or lAppHookID <> 0 Then
Call UnhookWindowsHookEx(lAppHookID)
Call UnhookWindowsHookEx(lHookID)
lHookID = 0
lAppHookID = 0
Debug.Print "Playback Stopped."
End If
End Sub
Private Function GetMessageProc(ByVal Code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim tMSG As MSG
If Code < 0 Then
'Pass the message along...
GetMessageProc = CallNextHookEx(lAppHookID, Code, wParam, ByVal lParam)
Else
'Grab the MSG structure
CopyMemory tMSG, ByVal lParam, Len(tMSG)
Select Case tMSG.message
Case WM_CANCELJOURNAL
'An external process has requested us to stop this operation
Call UnhookWindowsHookEx(lHookID)
lHookID = 0
End Select
End If
End Function
Private Function JournalRecordProc(ByVal Code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error GoTo LogError
If Code < 0 Then
'Pass this message along...
JournalRecordProc = CallNextHookEx(lHookID, Code, wParam, ByVal lParam)
Else
'Grab the Event Message Structure
CopyMemory tEVENTMSG, ByVal lParam, Len(tEVENTMSG)
'Only record MOUSE_MOVE events
If tEVENTMSG.message = WM_MOUSEMOVE Then
lMsgCountMax = lMsgCountMax + 1
ReDim Preserve tEventList(lMsgCountMax)
tEventList(lMsgCountMax) = tEVENTMSG
End If
JournalRecordProc = 0
End If
Exit Function
LogError:
Debug.Print "Error in JournalRecordProc()"
End Function
Private Function JournalPlaybackProc(ByVal Code As Long, ByVal wParam As Long, ByRef lParam As Long) As Long
Dim iX As Integer, iY As Integer, lTime As Long
On Error GoTo LogError
Select Case Code
Case HC_SKIP
'Select the Next Event Message
lMsgCount = lMsgCount + 1
If lMsgCount >= lMsgCountMax Then
'Last Message processed, so remove the Journal Hook
PlayBackMouseStop
Else
tEVENTMSG = tEventList(lMsgCount)
End If
JournalPlaybackProc = 0
Case HC_GETNEXT
'Grab the Event Message Structure and Process the Message
lParam = VarPtr(tEVENTMSG)
With tEVENTMSG
If .message = WM_MOUSEMOVE Then
iX = .paramL
iY = .paramH
'Pause time for processing lag (calculated as time between this and prev. message)
lTime = (.time - tEventList(lMsgCount - 1).time) - 7
'Pause can't be less than 0
If lTime < 0 Then lTime = 0
'Move the Cursor accordingly
SetCursorPos iX, iY
'If this isn't the 1st message pause before processing the next message
If lMsgCount > 1 Then
Sleep lTime
End If
End If
End With
Case Else
'Pass this message along...
JournalPlaybackProc = CallNextHookEx(lHookID, Code, wParam, ByVal lParam)
Exit Function
End Select
Exit Function
LogError:
Debug.Print "Error in JournalPlaybackProc():" & Err.Description, lMsgCount, lMsgCountMax
End Function
Public Sub SaveEvents(ByVal sFilename As String, ByRef tEventArray() As EVENTMSG)
Dim iFile As Integer
Dim lIndex As Long
If Len(Dir(sFilename)) Then Kill sFilename
iFile = FreeFile
Open sFilename For Random Access Write As iFile
For lIndex = LBound(tEventArray) To UBound(tEventArray)
Put #iFile, , tEventArray(lIndex)
Next
Close iFile
End Sub
Public Sub LoadEvents(ByVal sFilename As String, ByRef tEventArray() As EVENTMSG)
Dim iFile As Integer
Dim lIndex As Long
If FileLen(sFilename) = 0 Then Exit Sub
iFile = FreeFile
Open sFilename For Random Access Read As iFile
While Not EOF(iFile)
ReDim Preserve tEventArray(lIndex)
Get #iFile, , tEventArray(lIndex)
lIndex = lIndex + 1
Wend
Close iFile
End Sub
Public Sub SaveTheEvents()
Call SaveEvents("C:Events.dat", tEventList)
End Sub
Public Sub LoadTheEvents()
Call LoadEvents(sDat, tEventList)
lMsgCountMax = UBound(tEventList)
End Sub
How To Capture User Action (mouse Click) On Foms Title Bar
First I Tell you what i want to do...
I have two form Form1 and Form2. Form2 is loaded prog. from Form1 and is shown as vbmodeless and Form1 as its parent.
I want to snap form2 to Form1 whenever and wherever I move Form1.
I thought of capturing mouseclick on Form's title bar but i think there no event if fired for title bar area.
If any other method is possible kindly suggest that.
Aashu
Detect And Stop Mouse Click Anywhere On Screen?
I'm currently using this code to detect a mouse click any where on screen and retrieve the pixel color underneath:
Code:
Dim tPOS As POINTAPI
Dim sTmp As String
Dim lColor As Long
Dim lDC As Long
lDC = GetWindowDC(0)
Call GetCursorPos(tPOS)
lColor = GetPixel(lDC, tPOS.X, tPOS.Y)
' sTmp = Right$("000000" & Hex(lColor), 6)
inputtext.Text = lColor
tester = GetAsyncKeyState(vbKeyEscape)
If tester And &H8000 Then
Timer1.Interval = 0
Timer1.Enabled = False
Beep
End If
My question is: how can I also stop the mouse click from executing?
I have a 'color picker' program so the user can select any color on-screen, but when they click to select the pixel, the click changes Focus, or selects what's underneath, etc.
I want the pixel color, but not the mouse click....
Capturing And Reading Attributes Of An IMG From A Web Site On Mouse Over</title>
<script Type="text/javascript">
<!--
Function PrintTags() {
Var Curr=document.getElementById('vB_Editor_QR_textarea').value;
Newva
Hi All,
Can anybody help me in solving my problem??? The problem is that I have designed a form in VB6. In that form, I have a Command Button. Now, what I want is , as soon as user click on that command button, and after that, if user goes to any web site (e.g. http://www.yahoo.com or any other web site), the images in that page should be highlighted with a border on mouseover event of individual image, and the attributes of that image (like Src , height, width etc) should be read in a text box.
I dont know, how to do it. I searched the web for different APIs and Script Languages , but I found no clue.
Please help me, and give the solution, as soon as possible.
Thanks in advance
Prem
My Form Wasnt Showing Title Bar, But When I Added Menu Title Bar Reappeared....
I set the border to 0 and controlbox to false so that there is no title bar. Now I want to keep it that way but when I added the menus to the menu editor, the title bar reappeared although I set the menu visible to false. The menu is not showing on the top but the title bar reappeared which I dont want. I want to use the menu on right click on a treeview and therefore I cannot do without it.
Is there any way I can have the menu and no title bar? I dont want to show the menu but I will be using it on right click.
Help...Find First Title And Loop Its Own Lines Before Another Title In A Text File
Hello all VB Guru,
I've done as the following codes:
Code:
Open "C:Test.txt" as Input #iFile
Do While Not EOF(#iFile)
Line Input #iFile, MyString
Debug.Print My String
Loop
Close #iFile
But it will only show all lines in immediate window.
'Text file Start from Here
Code:
Apple
Category Fruit
Item-Code ABC-123
Item-Identifier ABC-123
Skey Red
Random-Price 0.80 1.00 1.50
Random-Weight 0.20 0.22 0.25
Cucumber
Category Vegetable
Item-Code ZEG-567
Item-Identifier ZEG-567
Skey Green
Random-Price 0.50 0.70 0.90
Random-Weight 0.30 0.42 0.56
Orange
Category Fruit
Item-Code KXT-789
Item-Identifier KXT-789
Skey Orange
Random-Price 0.70 0.90 1.00
Random-Weight 0.25 0.33 0.48
'Text File End at Here
I wonder it is possible to come out a loop that will detect the first title "Apple", get its own information from "Category" to "Random-Weight", then stop there and show in every textbox before continue to detect another title "Cucumber" with its own information that will show in every previous textbox (the loop will run over and over again until the last title)?
Thanks in advance,
Juan
Different Size For Big Title And Columns Title In DBGrid
Is't possible to put a different size for my general title and columns title in DBGRid
With HeadFont I can put a new size for my big title but the title for each columns take the same size.
How can I put size 12 for big title and size 8 for columns title.
Thanks
Redg
Requesting <title></title> Text
Hello All,
I have a programme that has a browser window in it.
What I want to do is extact what is between the <title></title> tags and set it as the current Caption of the Parent Form. What I also want it to do, is to automatically update when ever the page is reloaded, or just when ever the title of the Browser page changes.
Thanks
- Luke
Stop Error? Or I Will Stop You!
Oh the title i just wanted to get your attention. it looks like it worked though.
So now to the real problem, How do you make an easy error handler for a for next loop that sets or reads the properties of controls. and it tries to read a "timer.width".
I don't want ot know a way to avoid the error just a way to handle it.
Regards
E.P.
Dragging Help
i need to kno how to make a form so when you draag it to within 120 of the left of a screeen it sticks there, and is able to be dragged away again, like winamp can do. any help appreciated.
thank you.
ollie.
Dragging .. Please Help
Hello,
im trying to make an audio player... there is a play list (list box)... and i want it that, when the program is open, you can drag a song icon (lets say from the desktop) onto the listbox and the file name is displayed there..
can anyone please help?
Thanks!
l8er
Dragging
ok, I know what picture.drag 1 and picture.drag 2 is, but how do I conbine them to make a drag and drop thing? all I want to be able to do is drag a picturebox around the place, but how?
Dragging What?
How can I know which object is being dragged?
If I use DragMode: automatic, seems the GotFocus is not working.
What I try to do is like VB IDE, drag an object and put into another container.
Besides, I also need to draw the 6 small squares to allow user to resize.
I tried to use DragMode:Manual, but then for ComboBox, I cannot trap mouseevent like MouseDown etc !!
Any solutions???
Thanks
Dragging
I want to drag a button from one area of a form to another. I suppose this requires a calculation of the cursor position, and then some code for the Form object. But I cannot find out a way to do this seemingly obvious task. I know to set drag property of my button to "1", but beyond that it is a mystery to me.
Dragging
How can i make a object move like drag it to another spot ?
Dragging
Is there a way to drag a path from Window Explorer on to a textbox?
Dragging Help
I'm having a problem with the following code and I need a tip or workaround:
Dim OldX As Single
Dim OldY As Single
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Left = X - OldX
Source.Top = Y - OldY
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
OldX = X
OldY = Y
Picture1.Drag
End If
The problem is the x,y of the form is not realized unless the cursor leaves the original plane of the picturebox. In other words if you put the cursor in the middle of a picbox that is 1000 whatevers wide by 1000 whatevers high you can't move the picture box 499 or less whatevers. Any help?
Thanks,
Joey O
Dragging
When I click on my label, the drag box comes up but when I release it the label stays in the original place, help !
Dragging A SSTab Outside Of An App.
Hello and Good day to all. Thanks for any replies to this post!
I was wondering if it is possible to enable a drag and drop method for an sstab. What i would like it to do (the app) is allow users to drag 1 of the sstabs outside of the program area and once the mouse is release, the window will act as its own independent form. For example:
__Tab1____Tab2____Tab3__
When the user clicks and Drags Tab1, they drag it outside of the main form..(so the mouse if over the desktop for example). When they release the mouse button Tab1 becomes its own form, and is independent of the main form. So if the original was closed, Tab1 would not be.
Like so:
__Tab1__________________
And this is to apply to each SSTAB.
Not sure how one would go about accomplishing this.
Any comments or suggestions would be appreciated.
Thanks again for view and/or replying to this post.
Much appreciated!
Dragging Labels Around..
Say I have a few "columns" just seperated by simple lines, with a bunch of labels in each "column", how would I go about being able to drag labels between and within columns?
Dragging A Polygon
Dear list
I have made some shapes using the polygon api and filled them with colour. Currently I can identify when the mouse is over the polygon using point(X,Y). From this I am able to drag the polygon across the screen by continually using CLS and remaking the polygon at the current mouse point. This is understandably flickery and depending on tyhe speed of the PC - can be quite slow. Has anyone got a suggestion how I could drag the polygons better. Note they cannot be placed inside another control!
any ideas would be much appreciated.
Thanks
Optom
Dragging A Polygon
I have created a polygon using the polygon function in the API. Is there any way I can drag it with the mouse as if it were an object?
Thanks
optom
Dragging An Image Over Another One
While I'm dragging an image over another one, the one under is being refreshed, which makes the movement unclear. How to get rid of this?
|
TRACKER
