|
You can try out this code. I have used two Listboxes on a form.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
Dim i As Integer<br />
<br />
For i = 0 To 19<br />
<br />
Me.ListBox1.Items.Add("Item " & (i + 1).ToString)<br />
<br />
Next<br />
<br />
End Sub<br />
<br />
<br />
Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown<br />
<br />
Try<br />
<br />
ListBox1.DoDragDrop(ListBox1.SelectedItem, DragDropEffects.Copy)<br />
<br />
Catch ex As Exception<br />
<br />
MsgBox("Drag Error: " & ex.Message)<br />
<br />
End Try<br />
<br />
End Sub<br />
<br />
<br />
<br />
Private Sub ListBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragDrop<br />
<br />
ListBox2.Items.Add(e.Data.GetData(DataFormats.Text))<br />
<br />
End Sub<br />
<br />
<br />
<br />
Private Sub ListBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragEnter<br />
<br />
If e.Data.GetDataPresent(DataFormats.Text) Then<br />
<br />
e.Effect = DragDropEffects.Copy<br />
<br />
Else<br />
<br />
MessageBox.Show("No Text Present")<br />
e.Effect = DragDropEffects.None<br />
<br />
End If<br />
End Sub
I believe this should assist you.
Regards,
Allen
Allen Smith
Software Engineer
ComponentOne LLC
www.componentone.com
|
|
|
|
|
|
In vb.net I want when i run the form then initially by default the focus is on the textbox1.I set its tabindexproperty to zero but it wont works.
I also set TextBox1.Focus=true on form load event it also not works.
please help me.
|
|
|
|
|
Have you tried the SetFocus() method?
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
Thanks for the suggestion but there is no setfocus method in vb.net. it is in vb6.
|
|
|
|
|
sumit7034 wrote: it is in vb6
What? Your code?
VB.NET has a Focus() method. I teach it to my college students every semester 
I meant Focus and not SetFocus 
"I guess it's what separates the professionals from the drag and drop, girly wirly, namby pamby, wishy washy, can't code for crap types." - Pete O'Hanlon
|
|
|
|
|
actually sir focus() method is working on button click event but i m trying it on form load event where it is not working.
|
|
|
|
|
hi sumit7034
thats Simple and vote for this thread after this
first this you want to set a focus on a textbox onload ? well do the following. in your formload put in the following code
<br />
'Set the Focus to your textbox when the form load<br />
Tetxtbo1.Focus()<br />
'Disable the button, because the focus will go to it first<br />
Button1.Enabled = False<br />
on your textbox in the KeyPress event put in the following code
<br />
'Enabling the Button when a user start entering something on the<br />
'textbox<br />
search.Enabled = True<br />
Hope this Helps
Thanks
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
Or, much simpler, just set the textbox's TabIndex to 1 in the designer window.
My advice is free, and you may get what you paid for.
|
|
|
|
|
Hi all,
Background: I have some tools provided by a vendor that I need to write a wrapper script around. The wrapper script has to check a few things, then call those command line tools. I am seeing a problem when the commands output a large amount of text, the script seems to get "stuck".
I think it's a result of the buffer filling up and then the command gets suspended. I am polling stdout and copying anything on it to my own stdout, but it seems that large amounts of output still cause it to freeze up.
Here is the relevant code:
<br />
Dim MyCommand<br />
MyCommand = "%comspec% /c " & CommandLine & " 2>&1"<br />
<br />
' Run the command<br />
Dim objShell, objExec<br />
Set objShell = CreateObject("WScript.Shell")<br />
Set objExec = objShell.Exec(MyCommand)<br />
<br />
' Output stdout from command<br />
Do Until objExec.StdOut.AtEndOfStream<br />
If Not objExec.StdOut.AtEndOfStream Then<br />
WScript.StdOut.WriteLine objExec.StdOut.ReadLine<br />
End If<br />
Loop<br />
<br />
' Wait for the command to finish<br />
Do While objExec.Status = 0<br />
WScript.Sleep 100<br />
Loop
The ideal situation is if I could call the subcommands and allow their stdout/stderr to flow to the correct place in my script's output buffers, but so far I have not found a way to do this. The next best thing would be if this polling would actually work all the time, and keep the correct order of the output. The worst solution would be to save the output to a file, then output it myself later.
|
|
|
|
|
hi!
i looked every where but i couldnt find the datagrid 3 level drill down. i have only been able to do upto two level drill down.
could someone please help?
thanks
|
|
|
|
|
Hi all!
I'd like to know how to approach this problem of mine. I need to know when rtb.copy() has done its work - so I can use rtb2.paste() safely. Then I'd like to know when paste is done so I can use rtb2 safely for printing.
Today, in 50% of the attempts to print, I get blank pages. So I gather there is a problem with too fast execution of code that the .copy and/or .paste simply won't have the time to finish. I could be wrong, but I'm willing to try to find out... but I do not know how to know when copy/paste is done.
I can be totally wrong when it comes to the origin of the problem, I know that. But for now this is what I suspect.
I will now settle with trying to just put in some pauses in the code to see if it will make the text come out printed 100% of the times.
If that helps I really need to know how to get to know when copy/paste is done.
Pauses will most likely slow down the process too much I can't add a second each time I use copy/paste.
Anyone?
|
|
|
|
|
How i can know the state of the communication of winsock control in VB.NET ?
Thanks'
|
|
|
|
|
I am building a control around a RichTextBox control and incorporating a spell checker, but have come across a stumbling block.
If I spell check the text of the RichTextBox Text property, the spell checker finds the errors, but if I use the checkbox RTF property the spell checker then attempts to check the RichText formatting.
If I correct the text in the TEXT property and assign it back to the RichTextBox text property, the RichTextBox loses it formatting.
Any suggestions on how to filter out the spelling mistake and correct them, would be greatly appreciated.
Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'
|
|
|
|
|
Sometimes it helps to leave things for awhile and the solution just comes to you.
The Spell Checker control I am using (Infragistics) reports the starting position on the incorrectly spelt word and the word itself. So from this information I can select the word in the RichTextBox then replace the selected text with the correct word.
RichTextBox.SelectStartIndex, Word.Length)<br />
RichTextBox.SelectedText = ReplacementWord
Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'
|
|
|
|
|
I made a windows application that connects to a sql server database. It runs on the customer's network. Back at our company I would like to run the application from my desktop but connect to their database. How can this be done?
|
|
|
|
|
You need to be added to the VPN on your customers network. Once you are connected by VPN to their network, just install that app on your machine and run it. That should be all you have to do.
I'm going to become rich when I create a device that allows me to punch people in the face over the internet.
"If an Indian asked a programming question in the forest, would it still be urgent?" - John Simmons / outlaw programmer
|
|
|
|
|
how i can make a setup wizard for my standart exe project ?
|
|
|
|
|
Add "New Project ..." to the Solution
Select "Other Project Type"
Select "Setup And Deployment"
Select "Setup Wizard"
You will see a setup wizard (1 of 5)
Click Next
You will see a setup wizard (2 of 5)
select "Create a setup for a window application" then click next
You will see a setup wizard (3 of 5)
select "Primary output from Project Name" then click next
You will see a setup wizard (4 of 5)
Click Next
You will see a setup wizard (4 of 5)
click finish
Your setup project is created.
select a Setup Project then right click and then build
your setup is ready to deploy.
|
|
|
|
|
I am working on a VB.net form which got lots of controls on it. On the form I am displaying a listbox control on a button click event and on SelectedIndexChange event of listbox I hide the listbox (pretending as it is a combobox).
I have a problem, Just like a combobox when focus moves to any other control, it becomes to normal mode from expended mode. I want to hide the ListBox on LostFocus event, but ListBox LostFocus event is not being fired until I select an item from the list.
Any idea how I can hide Listbox it looses focus without selecting any item.
Thanks
|
|
|
|
|
Hello,
What I understand from your email is that you may not have set the Focus on the Listbox
while making it visible. Based on my understanding, I created a very basic application
with a ListBox and a button. On Button Click event, I make the List box visible and set
the focus on the control. On the LostFocus event, I set the visibility to false and it
seems to be working.
Here is the code that I have used.
Public Class Form1<br />
<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
ListBox1.Visible = True<br />
ListBox1.Focus()<br />
<br />
End Sub<br />
<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
Dim i As Integer<br />
<br />
For i = 0 To 20<br />
<br />
Me.ListBox1.Items.Add("Item " & i.ToString)<br />
<br />
Next<br />
<br />
ListBox1.Visible = False<br />
<br />
End Sub<br />
<br />
Private Sub ListBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.LostFocus<br />
<br />
ListBox1.Visible = False<br />
<br />
End Sub<br />
<br />
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged<br />
<br />
ListBox1.Visible = False<br />
<br />
End Sub<br />
End Class
Try setting the focus on the Listbox while making it visible. In case I have misunderstood it, let
me know.
Regards,
Allen
Allen Smith
Software Engineer
ComponentOne LLC
www.componentone.com
|
|
|
|
|
Many thanks for your reply. Well you are absolutely right without setting the focus on listbox, we cannot expect LostFocus to be fired.
Actually I am designing a data entry form with dozens of input controls on in and I am not allowed to use combobox (as per requirement). So I am using a textbox, listbox and a button for the data selection.
With ComboBox, when we click or select any object on form it looses focus automatically and doesn't stay expended anymore. But ListBox fires LostFocus event only when focus goes to any other input control and doesnt fire Lostfocus event when clicking on the form, label or Group box.
Do you have any idea how we can track any mouse click event on the form irresective of any control, so I could hide combo box.
Many thanks
Nas
|
|
|
|
|
I get the unspecified error while connecting to the database.
The Code i wrote for a class is as follows :
Imports System.Data.SqlClient
Public Class Conn
----------------------------------------
Dim con1 As OleDb.OleDbConnection
Dim com1 As OleDb.OleDbCommand
Dim da As OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & My.Application.Info.DirectoryPath & "\" & "MyDatabase.mdb'"
----------------------------------------
Public Function ExecuteNonQuery(ByVal SqlQuery As String) As String
con1 = New OleDb.OleDbConnection(str)
com1 = New OleDb.OleDbCommand(SqlQuery, con1)
con1.Open()
Try
Return com1.ExecuteNonQuery
Catch
End Try
End Function
-----------------------------------------
I get the error as 'Unspecified error' at the line
con1.open()
I could not fugure out what is the problem ? could anybody help me out.
Thanks in advance.
Sekhar
|
|
|
|
|
If you put the con1.Open() statement in the try block, perhaps you can get a better error message. Otherwise it could be a number of things. Are you sure your database is in the correct location in your file system? Are you sure your SqlQuery is a good SQL statement? You may also want to put some breakpoints in the code and run in debug...make sure that the values being passed into the function are what you are expecting.
Hope this helps.
|
|
|
|
|
Thanks Kschuler for your response.
I have tried this function from one Form and it is working fine , but when I am calling this from another form then it is showing me the error.
Can you tell what might be the problem ? I had also put the con1.open() statement inside a try catch block but that is also showing me the same error message.
Please Help.
Sekhar
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
