I can place the Font Dialog on the form. But in runtime the whole form is changed when this is called. How do I allow the user to choose which button, textbox, etc they want to change?In VB.Net - How do I offer the ability for user to change the font of any individual control?
You can click the button and have the font change on that. Or you can compare the control that you want with that one the page and change the font that way. Example;
If CType(lblTime, Label).Text = ';One'; Then
...
End If
But you will have to put that through a loop...
EXAMPLE:THIS IS TO LOOP THROUGH BUTTONS
Private Sub btnListAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListAll.Click
On Error Resume Next
'Looping through all the buttons using this code
'For Each GetButton as Control in Me.Controls
'If TypeOf GetButton Is Button then
'txtGetTest.Text %26amp;= GetButton.text %26amp; vbCrLf
'End If
'Next
'The problem is the code will NOT see the
'controls in the GroupBox's
'Reset the counter
m_ControlCount = 0
'Clear the textbox
txtGetText.Clear()
'Goto the user create sub
'Get the objects in Me( form )
ShowAll(Me)
'If code said ';ShowAll(Me.GroupBox1)';
'The oaContainer would return all the
'controls in the Groupbox ONLY
End Sub
Sub ShowAll(ByVal oaContainer As Control)
On Error Resume Next
'Get all the controls in the control area specified (Me)
For Each cntrl As Control In oaContainer.Controls
'If the current control in a button and
'the control is not blank then
If TypeOf cntrl Is Button AndAlso _
Not (cntrl.Text = Nothing) Then
'Add one(1) to the counter
m_ControlCount += 1
'Add counter and the
'control name to the nextbox
'START a new line
txtGetText.Text %26amp;= _
m_ControlCount %26amp; ';) '; %26amp; cntrl.Text %26amp; vbCrLf
End If
'Input this to show ALL the controls
'on the form
ShowAll(cntrl)
'Refresh the control
'IF Refresh() is NOT implemented
'Error will occur when user presses another button
cntrl.Refresh()
Next
End Sub
Sunday, December 11, 2011
How can i monitor the ending date of the month by coding it in vb 6?
I was asked to create a program with counter that will reset to 0 when it reaches the end of the month. The purpose of the counter is to count how many print outs were made during the month, so when the month ends the counter will be back to 0 to monitor another set of print outs to be made for the succeeding months.
Can anyone give me hints on vb 6 date properties?How can i monitor the ending date of the month by coding it in vb 6?
I think this syntax will do the job:
If datepart(day, date) = 1 then
' put code to reset the counter
End if
Can anyone give me hints on vb 6 date properties?How can i monitor the ending date of the month by coding it in vb 6?
I think this syntax will do the job:
If datepart(day, date) = 1 then
' put code to reset the counter
End if
How do I code a calculate button for a sample account in VB ?
I'm trying to code a scenario for a man who wants to know his total balance after having entered his *money at the beginning of the month, the money he earned, and the money he spent* i have all the texts boxes and labels but I'm not entirely sure how to go about coding the calculate button.
startTextBox
earnedTextBox
spentTextBox
totalTextBox (read only)
How do I code a calculate button for a sample account in VB ?
dim start as decimal = txtStart.text
dim earned as decimal = txtEarned.text
dim spent as decimal = txtSpent.text
dim total as decimal
total = start + earned - spent
txtTotal.text=total
You might want to use a label box for total instead of read-only text but it probably doesn't really matter. Label is more standard.
You should also use a try / catch feature in your input text boxes to make sure your user doesn't type in entries that break your program when they can't be converted to decimals.
Also, you used a naming convention that IMHO isn't that great. startTextBox is fine if you can remember what you called it, but that gets problematic in larger programs. Better is to do it the way I showed it, which is to start with what the object is. IE: txtStart That way you can forget the name, but just hit 'txt' in the IDE, and intelesense with bring up a list of all your declared textbox items. Makes life a lot easier down the road.
Hope that helps!
startTextBox
earnedTextBox
spentTextBox
totalTextBox (read only)
How do I code a calculate button for a sample account in VB ?
dim start as decimal = txtStart.text
dim earned as decimal = txtEarned.text
dim spent as decimal = txtSpent.text
dim total as decimal
total = start + earned - spent
txtTotal.text=total
You might want to use a label box for total instead of read-only text but it probably doesn't really matter. Label is more standard.
You should also use a try / catch feature in your input text boxes to make sure your user doesn't type in entries that break your program when they can't be converted to decimals.
Also, you used a naming convention that IMHO isn't that great. startTextBox is fine if you can remember what you called it, but that gets problematic in larger programs. Better is to do it the way I showed it, which is to start with what the object is. IE: txtStart That way you can forget the name, but just hit 'txt' in the IDE, and intelesense with bring up a list of all your declared textbox items. Makes life a lot easier down the road.
Hope that helps!
How do I manually add data from textbox to datatable using VB 2005 with MySQL?
WARNING! THIS CODE DOESN'T WORK!
currencymanager.addnew()
datatable.defaultview(currencymanager.鈥?= textbox.text
command = new mysqlcommandbuilder(dataadapter)
dataadapter.updatecommand = command.getupdatecommand
dataadapter.update(datatable)
currencymanager.endcurrentedit()
if currencymanager.count = 2, position can be 0 or 1. after calling addnew(), count = 3 position = 2. when i try to assign the value of textbox.text to its datatable column using the code above, error because datatable has no position 2.
my update code also doesn't work. but if i copy paste it after the first update code, making it redundant, my database gets updated successfully.
thanks for anyone who may correct the code.How do I manually add data from textbox to datatable using VB 2005 with MySQL?
The following code uses the dsEmployees DataSet. It locates the DataTable named Manager in the Tables collection. It then selects the first DataRow object, and changes the value of its LastName item to ';Stephens'; (the update data).
dsEmployees.Tables(';Managers';) _
.Rows(0).Item(';LastName';) = ';Stephens';
' The above statement is actually one line.
' Answers does not display it properly.
' So, I used an underscore character to break it into two lines.
' You can combine the two lines, and omit the underscore.
' In the expression to the left of the equal sign, there are no spaces.
If you want to update by using the contents of a TextBox, then simply use, i.e., TextBox1.Text for the update data.
__________-
currencymanager.addnew()
datatable.defaultview(currencymanager.鈥?= textbox.text
command = new mysqlcommandbuilder(dataadapter)
dataadapter.updatecommand = command.getupdatecommand
dataadapter.update(datatable)
currencymanager.endcurrentedit()
if currencymanager.count = 2, position can be 0 or 1. after calling addnew(), count = 3 position = 2. when i try to assign the value of textbox.text to its datatable column using the code above, error because datatable has no position 2.
my update code also doesn't work. but if i copy paste it after the first update code, making it redundant, my database gets updated successfully.
thanks for anyone who may correct the code.How do I manually add data from textbox to datatable using VB 2005 with MySQL?
The following code uses the dsEmployees DataSet. It locates the DataTable named Manager in the Tables collection. It then selects the first DataRow object, and changes the value of its LastName item to ';Stephens'; (the update data).
dsEmployees.Tables(';Managers';) _
.Rows(0).Item(';LastName';) = ';Stephens';
' The above statement is actually one line.
' Answers does not display it properly.
' So, I used an underscore character to break it into two lines.
' You can combine the two lines, and omit the underscore.
' In the expression to the left of the equal sign, there are no spaces.
If you want to update by using the contents of a TextBox, then simply use, i.e., TextBox1.Text for the update data.
__________-
I want to convert VB form code to Java and have downloaded a couple converters but don't know how to use them.?
I downloaded the one from Diamond Edge and the one from getobject.com. Both are .dll files and I don't know how to implement them. I have Visual Studio 5. Any tips? thanks in advance.I want to convert VB form code to Java and have downloaded a couple converters but don't know how to use them.?
dll files aren't programs.
Convert the files by rewriting every function into Java. That's the fastest and easiest way. (Assuming that you understand both VB and Java - if you don't, you can't, even with a converter program - even the best ones leave a lot for you to clean up by hand.)
But try http://www.tvobjects.com/products/Conver鈥?/a> or http://www.download.com/VB-Converter-Jav鈥?/a>dry hair
dll files aren't programs.
Convert the files by rewriting every function into Java. That's the fastest and easiest way. (Assuming that you understand both VB and Java - if you don't, you can't, even with a converter program - even the best ones leave a lot for you to clean up by hand.)
But try http://www.tvobjects.com/products/Conver鈥?/a> or http://www.download.com/VB-Converter-Jav鈥?/a>
How to write desktop application in VB.Net to send & receive SMS using GSM Modem?
I have to write a desktop application in VB.Net to send %26amp; receive SMS using GSM Modem. The purpose of the application is to receive request for inventory status for a particular item %26amp; send the availability status to the user.How to write desktop application in VB.Net to send %26amp; receive SMS using GSM Modem?
save urself the trouble.there r many freewares wich support GSM Modems n enable free sms.
save urself the trouble.there r many freewares wich support GSM Modems n enable free sms.
How can I print the data in a grid in vb?
I need to print the data present in a grid which I load from a text fileHow can I print the data in a grid in vb?
I am going to assume you mean VB.NET and not version 6. I have included a wonderful article below that shows you how to build an application that prints the data from a custom datagrid control. Allows you to do print preview etc and make it all fancy.
Hope this example can help you out in the right direction.
Enjoy!
I am going to assume you mean VB.NET and not version 6. I have included a wonderful article below that shows you how to build an application that prints the data from a custom datagrid control. Allows you to do print preview etc and make it all fancy.
Hope this example can help you out in the right direction.
Enjoy!
How can i get my internet ip via a VB Program?
Hi i wanna get my internet ip via a Vb Program, although u can simply get it by typing ipconfig/all, but i want to view this by my Vb Program, any VB6 programmers to helpHow can i get my internet ip via a VB Program?
Go to the following site:
http://www.vbcode.com/
Type '; internet ip'; or ';ip address'; in the database box and click Search Code you will get many code samples.Download and check.
Go to the following site:
http://www.vbcode.com/
Type '; internet ip'; or ';ip address'; in the database box and click Search Code you will get many code samples.Download and check.
How to have multiple lines in a msgbox in VB 2008?
well how do i do it?How to have multiple lines in a msgbox in VB 2008?
MsgBox(';Hello'; + vbCrLf + ';World';)How to have multiple lines in a msgbox in VB 2008?
You can also use:
Msgbox(';Hello'; %26amp; Chr(10) %26amp; ';World';)
MsgBox(';Hello'; + vbCrLf + ';World';)How to have multiple lines in a msgbox in VB 2008?
You can also use:
Msgbox(';Hello'; %26amp; Chr(10) %26amp; ';World';)
How to import items into a lisbox in vb.net?
I need help. I have the txt file from which I need to import a list of items into a listbox, but I can't get them to display. Can someone please help me with this? I'm using StreamReader. I just need the code to set it to display. Also, I can only display 10 items from the list at one time, how would I do this. Thank you so much!How to import items into a lisbox in vb.net?
Dim boolHeaderRow As Boolean = False
Dim strFileConnectionString As String = ';';
Dim FileDirectory, FileName As String
Dim Header As String = ';';
FileDirectory = ';REPLACE WITH YOUR FILE DIRECTORY LOCATION';
FileName = ';REPLACE WITH YOUR FILE NAME';
Header = ';REPLACE WITH YES OR NO. Does the file contain a header row?';
Dim ConnectionString, CommandText As String
Dim conn As OleDb.OleDbConnection
Dim Command As OleDb.OleDbCommand
ConnectionString = ';Provider=Microsoft.Jet.OLEDB.4.0;Data Source='; _
%26amp; FileDirectory %26amp; ';\;Extended Properties='text;HDR='; %26amp; Header %26amp; ';'';
CommandText = ';select TOP 10 * from '; %26amp; FileName
conn = New System.Data.OleDb.OleDbConnection _
(ConnectionString)
Command = New System.Data.OleDb.OleDbCommand _
(CommandText, conn)
conn.Open()
Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter _
(CommandText, conn)
Dim ds As DataSet = New DataSet
da.Fill(ds, ';Employees';)
Dim ListBox As New ListBox
'Change this to your listbox
With ListBox
.DataSource = ds
.DataTextField = ';F1';
.DataValueField = ';F2';
.DataBind()
End With
conn.Close()kids myspace affordable laptop repair
Dim boolHeaderRow As Boolean = False
Dim strFileConnectionString As String = ';';
Dim FileDirectory, FileName As String
Dim Header As String = ';';
FileDirectory = ';REPLACE WITH YOUR FILE DIRECTORY LOCATION';
FileName = ';REPLACE WITH YOUR FILE NAME';
Header = ';REPLACE WITH YES OR NO. Does the file contain a header row?';
Dim ConnectionString, CommandText As String
Dim conn As OleDb.OleDbConnection
Dim Command As OleDb.OleDbCommand
ConnectionString = ';Provider=Microsoft.Jet.OLEDB.4.0;Data Source='; _
%26amp; FileDirectory %26amp; ';\;Extended Properties='text;HDR='; %26amp; Header %26amp; ';'';
CommandText = ';select TOP 10 * from '; %26amp; FileName
conn = New System.Data.OleDb.OleDbConnection _
(ConnectionString)
Command = New System.Data.OleDb.OleDbCommand _
(CommandText, conn)
conn.Open()
Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter _
(CommandText, conn)
Dim ds As DataSet = New DataSet
da.Fill(ds, ';Employees';)
Dim ListBox As New ListBox
'Change this to your listbox
With ListBox
.DataSource = ds
.DataTextField = ';F1';
.DataValueField = ';F2';
.DataBind()
End With
conn.Close()
How do you change For Loop from C# to VB?
The following code is in C# and I want to convert it to VB.
How do I do it
Any help would be greatly appreciated
for (int IndexArray = Handling.Length-1; IndexArray %26gt;= 0;
IndexArray--)
//Code To Loop
How do you change For Loop from C# to VB?
For IndexArray as Integer = Handling.Length-1 to 0 step -1
' Code to Loop
Next
How do I do it
Any help would be greatly appreciated
for (int IndexArray = Handling.Length-1; IndexArray %26gt;= 0;
IndexArray--)
//Code To Loop
How do you change For Loop from C# to VB?
For IndexArray as Integer = Handling.Length-1 to 0 step -1
' Code to Loop
Next
How to write a program that computes the number of 鈥?鈥?bits in a given 32-bit integer number in VB?
It's something I'm doing for extra credits and I don't know how and where to startHow to write a program that computes the number of 鈥?鈥?bits in a given 32-bit integer number in VB?
I'll give you a c-sorta algorithm
Assume the number is in x
count = 0;
while (x != 0) {
if ((x mod 2) == 1) count++;
x = x / 2;
}
print count;
I'll give you a c-sorta algorithm
Assume the number is in x
count = 0;
while (x != 0) {
if ((x mod 2) == 1) count++;
x = x / 2;
}
print count;
How do i find and display the longest and shortest string using vb.net?
Hi guys. i have a problem. I have developed a program for college which allows a user to enter text and from that text entered i have to find and display the longest and shortest string. I have split the string and sorted it into an array but how do i find the longest and shortest string. Any help would be greatly appreciated. ThanksHow do i find and display the longest and shortest string using vb.net?
Dim sShortest as String, sLongest as String, i as Integer
'MyArray is your array of text strings
sShortest = MyArray(LBound(MyArray))
sLongest = MyArray(LBound(MyArray))
For i = LBound(MyArray) + 1 to UBound(MyArray)
If Len(sShortest) %26gt; Len(MyArray(i)) Then sShortest = MyArray(i)
If Len(sLongest) %26lt; Len(MyArray(i)) Then sLongest = MyArray(i)
Next i
Dim sShortest as String, sLongest as String, i as Integer
'MyArray is your array of text strings
sShortest = MyArray(LBound(MyArray))
sLongest = MyArray(LBound(MyArray))
For i = LBound(MyArray) + 1 to UBound(MyArray)
If Len(sShortest) %26gt; Len(MyArray(i)) Then sShortest = MyArray(i)
If Len(sLongest) %26lt; Len(MyArray(i)) Then sLongest = MyArray(i)
Next i
How to list files in a directory in VB.NET?
I want to be able to create a program in Visual Basic 2008 that lists the files in a directory. I know how to do it in C# but would like to know how to do it in VB, because that is my preferred programming language.How to list files in a directory in VB.NET?
You do it the same way in vb as you would in C#:
for each filename as string in Directory.GetFiles(path)
' do stuff
next for
You do it the same way in vb as you would in C#:
for each filename as string in Directory.GetFiles(path)
' do stuff
next for
How can I use a VB / visual basic code to make cells/text appear and appear/disappear in Microsft excel?
basically, when I check a check box and it is ';true'; I want some cells/text to appear. (I'm not sure if the Cells appear/disappear or the Text appear/disappear).
How can I use visual basic to do this?How can I use a VB / visual basic code to make cells/text appear and appear/disappear in Microsft excel?
Here's a macro that will turn the color of the text in cell A1 to white if CheckBox1 in unchecked. If the background color is white, the text in the cell will not be visible. When CheckBox1 is checked, the text will turn black and be visible. I'm assuming you know how to make a form check-box and assign a macro to it.
Sub CheckBox1_Click()
'
' CheckBox1_Click Macro
' Macro recorded 11/19/2008
'
With Range(';A1';).Font
If Sheet1.DrawingObjects(';Check box 1';).Value %26gt; 0 Then
.ColorIndex = xlAutomatic
Else
.ColorIndex = 2
End If
End With
End Subcool name for a band
How can I use visual basic to do this?How can I use a VB / visual basic code to make cells/text appear and appear/disappear in Microsft excel?
Here's a macro that will turn the color of the text in cell A1 to white if CheckBox1 in unchecked. If the background color is white, the text in the cell will not be visible. When CheckBox1 is checked, the text will turn black and be visible. I'm assuming you know how to make a form check-box and assign a macro to it.
Sub CheckBox1_Click()
'
' CheckBox1_Click Macro
' Macro recorded 11/19/2008
'
With Range(';A1';).Font
If Sheet1.DrawingObjects(';Check box 1';).Value %26gt; 0 Then
.ColorIndex = xlAutomatic
Else
.ColorIndex = 2
End If
End With
End Sub
How to run the exe automatically in vb 6.0 for every one hour?
How to run the exe automatically in vb 6.0 for every one hour
(No one can run the exe) when i will put the exe for my client system,the exe will automatically run....How to create this method???
any one know the answer.pls try to help me.It's very urgent
Thanks %26amp; Regards
Komathi.SHow to run the exe automatically in vb 6.0 for every one hour?
User the timer control in form
set Interval of 1*60*60*100 ms
in timer event write code to run the application EXE
most probably u have to use SHELL
make a EXE of the project
now run ur new EXE
that will call other exe prog at each interval How to run the exe automatically in vb 6.0 for every one hour?
Private Sub RunProgramByHour()
Dim RetVal
RetVal = Shell(';C:\WINDOWS\System32\calc.exe';, 1)
End Sub
--
Then you simply want to let the program sleep for an hour:
RunProgramByHour()
Sleep 3600000 'one hour
RunProgramByHour()
For example, then simply create a loop for it. That's basically how.
The timer is available in VB 6. But why don't you use windows Task scheduler?
All Programmes--%26gt;Accessories---%26gt;System Tools----%26gt; Sheduled Tasks
(No one can run the exe) when i will put the exe for my client system,the exe will automatically run....How to create this method???
any one know the answer.pls try to help me.It's very urgent
Thanks %26amp; Regards
Komathi.SHow to run the exe automatically in vb 6.0 for every one hour?
User the timer control in form
set Interval of 1*60*60*100 ms
in timer event write code to run the application EXE
most probably u have to use SHELL
make a EXE of the project
now run ur new EXE
that will call other exe prog at each interval How to run the exe automatically in vb 6.0 for every one hour?
Private Sub RunProgramByHour()
Dim RetVal
RetVal = Shell(';C:\WINDOWS\System32\calc.exe';, 1)
End Sub
--
Then you simply want to let the program sleep for an hour:
RunProgramByHour()
Sleep 3600000 'one hour
RunProgramByHour()
For example, then simply create a loop for it. That's basically how.
The timer is available in VB 6. But why don't you use windows Task scheduler?
All Programmes--%26gt;Accessories---%26gt;System Tools----%26gt; Sheduled Tasks
How to delete a Registry Key when uninstalling a software (windows application) vb.net 2005?
i developed a software creates 2 reg keys
now i want these files to be deleted when uninstall the software
how can i do that
i already have the code writtin with VB.NET but how can i do this and include it in uninstall nodeHow to delete a Registry Key when uninstalling a software (windows application) vb.net 2005?
If you use an installation program, it already does it. If you want to write your oen uninstallation program, there's an API you can call to delete keys.
now i want these files to be deleted when uninstall the software
how can i do that
i already have the code writtin with VB.NET but how can i do this and include it in uninstall nodeHow to delete a Registry Key when uninstalling a software (windows application) vb.net 2005?
If you use an installation program, it already does it. If you want to write your oen uninstallation program, there's an API you can call to delete keys.
How do I make an image re size itself in VB.net according to the persons resolution when the window is maxed?
I'm making a prank program, no harm really, just when my friend presses a button an image of a blue screen of death will show up. It's just how can I make it so the image will automatically re size according to my friends monitor resolution? The screen will be maximized.How do I make an image re size itself in VB.net according to the persons resolution when the window is maxed?
Create a borderless form and set the form's WindowState property to Maximized and the TopMost property to True. Add a PictureBox and set the PictureBox's Dock property to Fill and the InitialImage property to your blue screen image. When the new form loads, hide the cursor by calling the System.Windows.Forms.Cursor.Hide method. Viola! A blue screen. You'll need to add some code to close the form and show the cursor, but that's fairly easy.
Create a borderless form and set the form's WindowState property to Maximized and the TopMost property to True. Add a PictureBox and set the PictureBox's Dock property to Fill and the InitialImage property to your blue screen image. When the new form loads, hide the cursor by calling the System.Windows.Forms.Cursor.Hide method. Viola! A blue screen. You'll need to add some code to close the form and show the cursor, but that's fairly easy.
How to code in vb.net so that the page will change to a picture while we point to a link/label?
I learn to put a picture in a label/link so that when the user point to the label/link, the picture will prompt out automatically, and when they point to another label, another picture will prompt out automatically accordingly. Where whould i refer to create such a page?How to code in vb.net so that the page will change to a picture while we point to a link/label?
In order to make this work, you have to make it all happen in the browser. There aren't any events causing a post back to occur to the server, so you really can't do it in the code there.
You generally do what you are describing by using javascript and using the mouseover and mouseout functions.
Check the link below for coding instructions.
In order to make this work, you have to make it all happen in the browser. There aren't any events causing a post back to occur to the server, so you really can't do it in the code there.
You generally do what you are describing by using javascript and using the mouseover and mouseout functions.
Check the link below for coding instructions.
How do I get the Right Click event in VB.NET?
Hi everyone!
I need to use the ';ContextMenutrip'; in several pictureboxes, but I need to know which one the user has selected when pressing the right click.
How can I do it?How do I get the Right Click event in VB.NET?
You need to add codes to MouseClick event of ContextMenuStrip1 (double click on it and select MouseClick from above combobox).
In below code, you can add your code after declaration of TPic.
----- ----- ----- -----
Private Sub ContextMenuStrip1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ContextMenuStrip1.MouseClick
If e.Button = Windows.Forms.MouseButtons.Right Then
If TypeOf (sender) Is PictureBox Then
Dim TPic As PictureBox = CType(sender, PictureBox)
' do anything with TPic
' like: MsgBox TPic.name
End If
End If
End SubHow do I get the Right Click event in VB.NET?
It's a matter of checking which mouse button was clicked on the event:
Private Sub Button18_MouseDown(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles btn6a.MouseDown
Dim whichNote As String = CType(sender, Button).Tag
If e.Button = Windows.Forms.MouseButtons.Right Then
whichNote = whichNote %26amp; ';S';
End If
PlayNote(sender, whichNote, True)
End Subfor hunting squirrel deal with long distance relationship
I need to use the ';ContextMenutrip'; in several pictureboxes, but I need to know which one the user has selected when pressing the right click.
How can I do it?How do I get the Right Click event in VB.NET?
You need to add codes to MouseClick event of ContextMenuStrip1 (double click on it and select MouseClick from above combobox).
In below code, you can add your code after declaration of TPic.
----- ----- ----- -----
Private Sub ContextMenuStrip1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ContextMenuStrip1.MouseClick
If e.Button = Windows.Forms.MouseButtons.Right Then
If TypeOf (sender) Is PictureBox Then
Dim TPic As PictureBox = CType(sender, PictureBox)
' do anything with TPic
' like: MsgBox TPic.name
End If
End If
End SubHow do I get the Right Click event in VB.NET?
It's a matter of checking which mouse button was clicked on the event:
Private Sub Button18_MouseDown(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles btn6a.MouseDown
Dim whichNote As String = CType(sender, Button).Tag
If e.Button = Windows.Forms.MouseButtons.Right Then
whichNote = whichNote %26amp; ';S';
End If
PlayNote(sender, whichNote, True)
End Sub
Subscribe to:
Posts (Atom)