|
Well, you'd have to override your Form's WndProc and check for two messages. m.Msg 523 is WM_XBUTTONDOWN and 524 is WM_XBUTTONUP. This is, hopefully obvious, the pressing and releasing of any of the extra buttons on the mouse. When receiving either of these messages, look at the high-order word in the m.WParam property of the message. This will tell you which mouse "extra" button was pressed/released.
|
|
|
|
|
I had considered intercepting the xbutton messages but the value of a button is programmable on most mice isn't it? Doesn't that mean that some other message is being sent which means "Back". Coding a specific mouse button would not use a mouse's programmed setting.
|
|
|
|
|
I've gotten a bit closer. It looks like what I want is a virtual key, VK_BROWSER_BACK. It is also recognized as a key modifier, Keys.BrowserBack. These don't seem to come through in the OnKeyDown override. I've seen code samples that implement IMessageFilter.
Public Class Form2
Implements IMessageFilter
Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean _
Implements System.Windows.Forms.IMessageFilter.PreFilterMessage
Dim keyCode As Keys = CType(m.WParam.ToInt32(), Keys) And Keys.KeyCode
If keyCode = Keys.BrowserBack Then
Console.WriteLine("I found it")
End If
End Function
End Class
Of course this doesn't work either. It never finds Keys.BrowserBack. I've seen m.WParam have values 65568(10020h) & 65536(10000h) when I press my browser back key (xButton on the mouse).
Any ideas?
modified on Monday, March 9, 2009 2:25 PM
|
|
|
|
|
The only thing I can suggest would be the documentation on WM+_XBUTTONDOWN[^].
Since the values in the Params are the result of the combining of smaller fields into a 32-bit value, you have to do some math to figure out what each of these fields means.
|
|
|
|
|
Hello Experts
i am working on a VB 6.0 Project
i am using Datacombo1 and a Text box,
what i want that when i am typing in text box datacombo1 must
Highlighted matched items.
How can i do that.
Your Help will be appreciated.
|
|
|
|
|
It looks like a DataCombo can have only one item selected at a time. I'm guessing you would have to handle the TextChanged event in the TextBox and search through the DataCombo's data, one item at a time, and find the first item in the list that matches what was typed. Then you take that index number and set the DataCombo's SelectedItem property with it.
No, I don't have any examples, 'cause I haven't used VB6 in over 7 years.
|
|
|
|
|
hello
iam working on old soluation vb.net 2003
i have problem
i have general dataset
that used n reports
so i add new element in that dataset
and i update my report to see new field to add in report
but it can't see new filed
i need help
thanks
md_refay
|
|
|
|
|
whether you use crystal report?
if yes, then from Menu Crystal Report, select Database and then Verify Database
|
|
|
|
|
|
Core Programmers wrote: Please give some suggestions....
suggestion : go somewhere else ?
this question gets asked here quite frequently. The general stand is we dont support the writing of code like this wherein the basic intent is 'dubious'/'less than kosher' (or just plain malicious)
'g'
|
|
|
|
|
Hi, does anyone one know what sort of wave header the My.Computer.Audio Play routines require?
I am creating wave files with a basic standard header, which play fine in Windows Media Player, Audacity, VLC etc, but as soon as I try to play them in the program using Play, it says the header is corrupt. These are very low sample rate files. Could that have something to do with it? They are often as low as 600 Hz (Sound files of seismic activity). They are PCM 16 bit uncompressed.
The help (VB/MSDN and various other sources) gives very little detail, and anyway details of wave files seems to be difficult to come by unless you are takling music/stereo/44000 sample rate etc.
Still working my way trough 13,600 entries on MSDN but nothing relevant sp far!
|
|
|
|
|
Sorry, jumped the gun. I found the answer. Seems to be a bug you can get round with:
Private player As New System.Media.SoundPlayer() <br />
Public Sub PlaySound(ByVal sound As Stream) <br />
sound.Position = 0 <br />
' Manually rewind stream <br />
player.Stream = Nothing <br />
' Then we have to set stream to null <br />
player.Stream = sound <br />
' And set it again, to force it to be loaded again... <br />
player.Play() <br />
' Yes! We can play the sound! <br />
End Sub
Apparently when you use the Audio Play it starts the end of the stream for some reason.
|
|
|
|
|
Public Class Form12
Dim ds As New DataSet
Dim da As New SqlClient.SqlDataAdapter
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CN As New SqlClient.SqlConnection
CN.ConnectionString = "Data Source=homepc\sqlexpress;Initial Catalog=Northwind;Integrated Security=True"
Dim cmd As New SqlClient.SqlCommand
cmd.Connection = CN
cmd.CommandText = "Select * From Customers"
da.SelectCommand = cmd
da.Fill(ds, "Customers")
da.Fill(ds, "CustomersDummy")
Dim PK(0) As DataColumn
PK(0) = ds.Tables("Customers").Columns("CustomerId")
ds.Tables("Customers").PrimaryKey = PK
MsgBox("ok")
Me.DataGridView1.DataSource = ds
Me.DataGridView1.DataMember = "Customers"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox(Me.ds.Tables.Count)
Me.ComboBox1.Items.Clear()
For Each tbl As DataTable In ds.Tables
Me.ComboBox1.Items.Add(tbl.TableName)
Next
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim tbl As DataTable = ds.Tables(Me.ComboBox1.SelectedItem)
Me.ComboBox2.Items.Clear()
For Each col As DataColumn In tbl.Columns
Me.ComboBox2.Items.Add(col.ColumnName)
Next
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim tbl As DataTable = ds.Tables(Me.ComboBox1.SelectedItem)
Dim Ans As String = ""
For Each dr As DataRow In tbl.Rows
Ans &= dr.Item(Me.ComboBox2.SelectedItem) & ", "
Next
MsgBox(Ans)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim dr As DataRow
Dim Str As String = InputBox("Enter Customerid")
dr = ds.Tables("Customers").Rows.Find(Str)
If dr Is Nothing Then
MsgBox("Not found...")
Exit Sub
End If
MsgBox(dr.Item("ContactName") & "-" & dr.Item("Country"))
dr.BeginEdit()
dr.Item("ContactName") = "Mr. " & dr.Item("ContactName")
dr.Item("Country") = dr.Item("Country").ToString.ToUpper
dr.EndEdit()
MsgBox(dr.Item("ContactName") & "-" & dr.Item("Country"))
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim dr As DataRow
For Each dr In ds.Tables("Customers").Rows
dr.BeginEdit()
dr.Item("Country") = dr.Item("Country").ToString.ToUpper
dr.EndEdit()
Next
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim dr, drs() As DataRow
drs = ds.Tables("Customers").Select("Country = 'UK'")
For Each dr In drs
dr.BeginEdit()
dr.Item("ContactName") = dr.Item("ContactName").ToString.ToUpper
dr.EndEdit()
Next
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim Row As DataRow
Row = ds.Tables("Customers").NewRow
Row.BeginEdit()
Row.Item("CustomerId") = "SAMIR"
Row.Item("ContactName") = "ABC"
Row.Item("ContactTitle") = "XYZ"
Row.Item("Country") = "INDIA"
Row.EndEdit()
ds.Tables("Customers").Rows.Add(Row)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim dr As DataRow
Dim Str As String = InputBox("Enter Customerid")
dr = ds.Tables("Customers").Rows.Find(Str)
If dr Is Nothing Then
MsgBox("Not found...")
Exit Sub
End If
dr.Delete()
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim Criteria As String = "Country = 'UK'"
Dim Ans As Integer
Ans = ds.Tables("Customers").Compute("Count(CustomerId)", Criteria)
MsgBox(Ans)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim Criteria As String = "Country Like '" & Me.TextBox1.Text & "*'"
Dim dv As DataView
dv = ds.Tables("Customers").DefaultView
dv.RowFilter = Criteria
Me.DataGridView1.DataSource = dv
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim CN As New SqlClient.SqlConnection
CN.ConnectionString = "Data Source=homepc\sqlexpress;Initial Catalog=Northwind;Integrated Security=True"
Dim StrSql As String
StrSql = "Update Customers Set Country = Upper(Country) "
StrSql &= " Where Country = 'UK'"
Dim cmd As New SqlClient.SqlCommand
cmd.Connection = CN
cmd.CommandText = StrSql
Try
CN.Open()
cmd.ExecuteNonQuery()
MsgBox("Ok")
Catch ex As Exception
MsgBox(ex.Message)
Finally
CN.Close()
End Try
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Dim CN As New SqlClient.SqlConnection
CN.ConnectionString = "Data Source=homepc\sqlexpress;Initial Catalog=Northwind;Integrated Security=True"
Dim StrSql As String
StrSql = "Select Count(*) From Customers"
Dim cmd As New SqlClient.SqlCommand
cmd.Connection = CN
cmd.CommandText = StrSql
Dim Ans As Integer
Try
CN.Open()
Ans = cmd.ExecuteScalar
MsgBox(Ans)
Catch ex As Exception
MsgBox(ex.Message)
Finally
CN.Close()
End Try
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Dim CN As New SqlClient.SqlConnection
CN.ConnectionString = "Data Source=homepc\sqlexpress;Initial Catalog=Northwind;Integrated Security=True"
Dim StrSql As String
StrSql = "Select * From Customers"
StrSql &= " Where Country = 'UK'"
Dim cmd As New SqlClient.SqlCommand
cmd.Connection = CN
cmd.CommandText = StrSql
Dim dr As SqlClient.SqlDataReader
Dim Ans As String
Try
CN.Open()
dr = cmd.ExecuteReader
Do While dr.Read
Ans &= dr.Item("CustomerId") & ", "
Loop
MsgBox(Ans)
Catch ex As Exception
MsgBox(ex.Message)
Finally
dr.Close()
CN.Close()
End Try
End Sub
Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
|
|
|
|
|
Since you didn't ask a question I will:
do you already have any idea why you are getting more 1-votes than you have posted messages around here?
Luc Pattyn [Forum Guidelines] [My Articles]
- before you ask a question here, search CodeProject, then Google
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get
- use the code block button (PRE tags) to preserve formatting when showing multi-line code snippets
|
|
|
|
|
This guy is a retard. Seriously, he posts like this every day.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
Well, it's obvious you don't have a clue how to use a forum. You have 20 posts, and have yet to ask a question anyone can answer.
|
|
|
|
|
Are you using this site as a tool for source control?
Time is the best teacher; unfortunately it kills all of its students.
जय हिंद
|
|
|
|
|
Hi everyone.
I use this commands to set registry values for file association.
My.Computer.Registry.ClassesRoot.CreateSubKey(".plt").SetValue("", "HPGL_FILE", Microsoft.Win32.RegistryValueKind.String)
My.Computer.Registry.ClassesRoot.CreateSubKey("HPGL_FILE\shell\open\command").SetValue("", "C:\programmi\av\avwin\avwin.exe" & _
" ""%l"" ", Microsoft.Win32.RegistryValueKind.String)
My.Computer.Registry.ClassesRoot.CreateSubKey("HPGL_FILE\DefaultIcon").SetValue("", "C:\programmi\av\avwin\avwin.exe,1", _
Microsoft.Win32.RegistryValueKind.String)
It works fine if the extention is not already associated with another program.
I think I miss something 
Thank you in advance!
Matteo
|
|
|
|
|
The problem I see is that your call CreateSubKey on a key that already exists, it won't return an object that SetValue can be called on.
Seperate these calls into seperate calls. Don't chain object call onto object call. Verify that you actually have an object before you make a call on it.
|
|
|
|
|
Thank you for your reply.
In my case it works the same, but you're right.
It's syntactically correct to check if the key exists trying to open it.
But the problem remains.
After the modification of that keys, the extention continues to open the old program.
Any other idea?
|
|
|
|
|
After running this code, open Explorer and see if the change was made in the File Extensions, under Tools->Options.
|
|
|
|
|
could anyone please give me a proper link to download merge module to deploy a project with Crystal report
I am using vb.net2005
thanks in advance
I am a beginner
<div class="ForumMod">modified on Friday, March 6, 2009 8:52 AM</div>
|
|
|
|
|
You'll havde to contact SAP support for this one. Since SAP took over BusinessObject, none of the links for CR merge modules work anymore.
|
|
|
|
|
Hi,
I have a Crystal Report document which contains a parameter field. The parameter field is set to allow multiple values. In my VB application I have an array of strings which I want to pass to the Crystal Report parameter field. I have tested the report from with Crystal Reports application using the values contained within the array and the report works fine which leads me to believe that there is a problem with my code. The problem being that when the report is displayed, only the last item in the array seems to have been added to the parameter list.
Here is my code for adding the contents of the ArrayList to the parameter:
Dim crParameterDiscreteValue As ParameterDiscreteValue
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldLocation As ParameterFieldDefinition
Dim crParameterValues As ParameterValues
crParameterFieldDefinitions = crReport.DataDefinition.ParameterFields
crParameterFieldLocation = crParameterFieldDefinitions.Item(strParameterName)
crParameterValues = crParameterFieldLocation.CurrentValues
For Each strParam As String In arrParameterValues
crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
crParameterDiscreteValue.Value = strParam
crParameterValues.Add(crParameterDiscreteValue)
Next
crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
Any body have any ideas where I am going wrong? Thanks in advance.
(BTW: Using VB.NET framework 2 and Crystal Reports 11)
|
|
|
|
|
Hi,
I wrote a usercontrol based on a picturebox. It reprecend 2 textboxes on a scare but diagonal separated. How can I give it focus; i already tryed
control.focus but becourse it is a picturebox (i think thats the reasen)it wont work.
Jan
if someone has another/beter idee thats also welcome
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
