|
You might want to re-read the original post. He's looking for a runtime moveable control, not drag and drop support for data.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
There's no option to make a control movable at runtime. You actually have to make your own version of the button and add support to move the control around while the mouse button is held down. There's actually quite a bit of code that goes into this. Too much to post into a forum message.
Basically, you create a new class, inheriting from Button. Add a couple of private fields to track where in the button the mouse is being held down (a Point instance works), and whether the control is being moved (Boolean).
Once that's done, the rest kind of falls into place if you think about it. Handle the button's MouseDown event to set the Moving flag to True and get the coordinates of the mouse point inside the button and save them in your private field. In the buttons MouseUp event, just set the Moving flag to False.
The MouseMove event is logically simple, but a little complicated in code. You need to calculate the new position of the control using the mouse position with respect to the buttons parent container, not the button itself. Then it's just a matter of a little math...
Public Class MovableButton
Inherits Button
Private _CursorOffset As Point
Private _Moving As Boolean
.
.
.
Private Sub MovableButton_MouseMove(blah, blah) Handles MyBase.MouseMove
If _Moving Then
Dim clientPosition As Point = MyBase.Parent.PointToClient(Cursor.Position)
MyBase.Location = New Point(clientPosition.X - _CursorOffset.X, _
clientPosition.Y - _CursorOffset.Y)
End If
End Sub
There's obviously more to this code, specially when you consider design-time requirements and any other "options" you want to put on this button, like picking which key combination to hold down to move the button.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
The .NET framework provides a very flexible and powerful approach to databinding that cuts down a lot of redundant code and simplifies the development process significantly. Unlike the earlier databinding models, which were limited to single data source, the .NET framework provides read/write (two ways) link to a large number of data sources such as DataSets, DataTables, Collections and also textboxes, checkboxes, radio buttons and so on.
For more read: http://www.alachisoft.com/articles/ObjectBinding.html[^]
|
|
|
|
|
I have a web service which is creating a xml document.
Every thing works fine for the first time.
But the second time when i try
there is already some value in the Root element.
Declaration = objXMLDoc.CreateXmlDeclaration("1.0", Nothing, "yes")
Dim Root As XmlElement = objXMLDoc.DocumentElement
' Clear all the attributes and values from the element.
If IsNothing(Root) = False Then
Root = Nothing
root.RemoveAll
End If
(Error Line Second time)objXMLDoc.InsertBefore(Declaration, Root)
and the error i get is:-
"Cannot insert the node in the specified location"
i have tried everythng "Nothing", "removeall"
Does any one know how to solve this.
|
|
|
|
|
I am having a problem with a file transfer program.
1. need to validate a network connection.
used systeminformation.network.tostring, but always comes back true.
2. need to validate file transfer was succesful.
no idea.
all help greatley appriciated.
TIA
|
|
|
|
|
Are you trying to FTP a file? Which version of the framework are you using?
2.0 has My.Computer.Network.UploadFile() which you can transfer files with. It will throw an exception if the file is not transferred. I have had problems with it due to proxy servers and found it was easier to just use the free control at http://www.enterprisedt.com
|
|
|
|
|
I am using file.copy(Source, Dest, overwrite)
|
|
|
|
|
For your second question.
Dim value As Boolean = My.Computer.FileSystem.FileExists(file)<br />
’ Returns a Boolean indicating whether the specified file exists.
Regards,
Chatura Dilan
If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.
|
|
|
|
|
HI all !
I wonder whether to load html page into rich text box or something in VB.NET ?
If someone know, pls help me. Thank you alots !
Thank !
Best Regard
|
|
|
|
|
chk this link
http://www.windowsforms.com/Samples/download.aspx?PageId=1&ItemId=186&tabindex=4
|
|
|
|
|
When retrieving a date field that is null, I can't set the checked property equal to false. example
if isdbnull(db field name) then
dtstartdate.checked = false
endif
For some reason this check property is set to true when retrieving that data to display on the screen....any suggestions?
Thanks,
VaLynna
|
|
|
|
|
I assume this is a winform app. Put this in a button click and chk if you are able to change the checked state.
dateTimePicker1.Checked= !(dateTimePicker1.Checked)
The isDbNull might return false, chk that
|
|
|
|
|
Howto:Transfer or show display Excel data worksheet into listbox with VB.NET
jikadawe
|
|
|
|
|
hello..
when a web cam detect motion, it will capture the video and store in mu document.how can i access the folder that store video in my document using pda simulator with vb.net 2005??how can it connect and view the video with the pda simulator???
thanks
|
|
|
|
|
The pda "simulator", as you call it, is quite literally a seperate machine. It needs it's own access to the network your development machine is on, but you'll have to make the configuration changes to the emulators network config to match whatever setup your application requires. Once that's done, the emulator will talk to other machines/servers over TCP/IP, just like any other machine on the network.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hi, I have a dataset, DataSet1, populated from a database table named "Sections" which is bounded to DataGrid1.
I want to remove a row if a user selects it in the datagrid and presses the remove button. here is the code:
Private Sub cmdRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRemove.Click
If DataGrid1.CurrentRowIndex >= 0 Then
Try
DataSet1.Tables("Sections").Rows.Remove(DataSet1.Tables("Sections").Rows(DataGrid1.CurrentRowIndex))
MsgBox(DataSet1.HasChanges)
''OleDbConnection1.Open()
OleDbDataAdapterSections.Update(DataSet1, "Sections")
DataSet1.AcceptChanges()
Catch
Finally
''OleDbConnection1.Close()
End Try
End If
End Sub
But messagebox shows False, and the row is not actually removed from the database, ALTHOUGH DataGrid1 shows that the row has removed from dataset! 
(I use the same method i.e. DataSet1...Rows.Add(..) and then the oleDbDataAdapterSections.Update(..) to add rows which works perfectly!! But the added rows are not removed using the same code from the database...)
I really dunno the reason and got confused!
-- modified at 20:04 Thursday 30th March, 2006
|
|
|
|
|
hi every body . i want do my project run only on pc . i mean a user can't run any program , when my program is run.
123
|
|
|
|
|
SVb.net wrote: hi every body . i want do my project run only on pc . i mean a user can't run any program , when my program is run.
What exactly are you trying to do? Windows is a multi-tasking O/S and by nature many different programs can run on the same machine. There is no way to prevent this unless you hack into kernel code.
If on the other hand you simply want your program to be the topmost window at all times (for example like Task Manager) - there is a property in the Form class that will allow this.
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once 
|
|
|
|
|
Even with Form.TopMost set to True, a user can still switch to other apps from the Windows Taskbar, via ALT-TAB, etc. If you don't want a user to do any of that either, then what you want is something like a "Kiosk" mode.
I'm not aware of anything in Windows that will give you Kiosk mode for free. So, this could mean that you'll need to hide the taskbar and block app switching key input yourself.
|
|
|
|
|
As Steve mentioned, you cannot stop user from running other applications unless you hack into kernel code.
But, something now came to my mind which MAY get what you want to some extent:
create a new desktop using CreateDesktop API and then switch to that desktop by Switch Desktop and run your application in that desktop using CreateProcess API.
Now you have a desktop which only your program is running in it. User (usually) cannot run any other application since neither explorer nor any other applications are running to give access to other files.
Ofcourse there are lots of limitarions but this is (I guess) the best match to what you are looking for...
Hope it helps...
|
|
|
|
|
That's a great idea! I have to give you a 5 for that.
I should also add that if the app ever crashes/hangs, then you'll be stuck in that other desktop. Unable to shutdown windows the "nice" way. That is assuming the app will provide some secret/secure way to go back to the original desktop, which it should.
So, you'll probably want to setup a "watchdog" service that'll restart the app anytime it goes down.
|
|
|
|
|
It is a good idea, but there's a problem. Once you create a new desktop there's no way to destroy it! Once it's there, it stays there until Windows is restarted. On the plus side, if you try to create a new Desktop with the same name as an existing one, you'll just get the existing Desktop returned to you. It won't create another, and another, and another, with the same name...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Yes, Once a desktop is created it cannot be destroyed, but a simple Random in the name of the desktop, can make it unique.
And I said, that this is I guess, just a best match to what SVB needed...
|
|
|
|
|
Quick and dirty way of reversing a string, any ideas?
|
|
|
|
|
Yep - an easy way - use the StrReverse() function.
This is rom the Visual Studio 2005 help files...
Dim myString As String = "ABCDEFG"<br />
Dim revString As String<br />
' Returns "GFEDCBA"<br />
revString = StrReverse(myString)<br />
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
