VBForums - Visual Basic .NET

VS 2010 Weird icon behavior....

Flavor Flav — Sun, 19 May 2013 09:43:11 GMT

I made an icon for my program and I used http://www.icoconverter.com/ to convert my icon into a .ico file so I could use it in my program. I built the program and I got the program from my release folder and I put it on my desktop and the icon looks like this

But, if I rename the file something like "afsadgubdgu" then the icon changes to the proper icon. HOWEVER, if I rename the program to the original name. the icon goes back to looking like this

I AM SO CONFUSED!

Attached Images

For Loop Debug

Tosaka Kawashita — Sun, 19 May 2013 08:51:30 GMT

I was making an invalid character removal module for my program, and here is the function that I used:

Code:

Function fix_extensions(file_extension As String)

        'Fixes file extensions

        Dim banned_ext_chars() As String = {"\", "/", ":", ";", "*", "?", """", "<", ">", "|", "%", ",", "#", "$", "!", "+", "{", "}", "&", "[", "]", "�", "'", "."}

        For index As Integer = 1 To banned_ext_chars.Length - 1

            file_extension = file_extension.Replace(banned_ext_chars(index), "")

        Next

        file_extension = "." & file_extension

        Return file_extension

    End Function

However, upon checking the output through a short debug, it appears that the backslash was never filtered out. I've tried many things, but none worked.

Help would be greatly appreciated.

VS 2010 Not really sure how to do this...

Flavor Flav — Sun, 19 May 2013 07:06:03 GMT

This code will take the selected item and put the string of the item into an inputbox and then you can edit the item inside of the inputbox. However, if you delete everything in the edit inputbox then it makes the item Nothing and it is just a blank space in my listbox.
How would I make it so that if the user deletes everything in the inputbox then it will not change anything since i dont want blank spaces in the listbox.

Sorry if you don't understand the question.

Code:

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If ListBox1.SelectedItem <> Nothing Then

            Dim output As String = ""

            output = InputBox("Type a new message in the text box below.", "Edit Message", ListBox1.SelectedItem.ToString, -1, -1)

            ListBox1.Items(ListBox1.SelectedIndex) = output

        Else

            MessageBox.Show("You haven't selected a message.", Nothing, Nothing, MessageBoxIcon.Error)

        End If

    End Sub

formLocation

ultimatefloydian — Sun, 19 May 2013 05:31:33 GMT

I've been using a set of code to make a form appear directly underneath a button. I know I'm either using the wrong one, or one that would be easier for what I'm trying to do. I currently have two sets of code. One for when the window is in default normal size, and the other for when it is maximized. This is the code as follows:

Code:

Dim formLocation = PointToScreen(TwitterButton.Location)

        formLocation.Offset(798, 30)

        TwitterPopupMenu.StartPosition = FormStartPosition.Manual

        TwitterPopupMenu.Location = formLocation

        TwitterPopupMenu.Show()

        If Me.WindowState = FormWindowState.Maximized Then

            formLocation.Offset(570, 2)

            TwitterPopupMenu.StartPosition = FormStartPosition.Manual

            TwitterPopupMenu.Location = formLocation

            TwitterPopupMenu.Show()

The issue I currently have is that when the user manually adjusts the form size, neither of the codes are relevant any longer, and the popup forms will no longer appear in their appropriate locations. I'm quite positive that the codes I have here are not the correct ones, and that the one that I'm looking for can actually set the forms to launch in their places in this case, a button (which is what these are supposed to be doing, though quite honestly, I think there's just simply something botched up with these codes, and their just sneakily hiding under my nose). This is probably a duh thing (it's been one of those days :lol:)

VS 2010 How come this doesn't work...?

Flavor Flav — Sun, 19 May 2013 05:02:58 GMT

Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If RadioButton1.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add(TextBox1.Text)

        ElseIf RadioButton2.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("cyan:" & TextBox1.Text)

        ElseIf RadioButton3.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("green:" & TextBox1.Text)

        ElseIf RadioButton4.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("purple:" & TextBox1.Text)

        ElseIf RadioButton5.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("red:" & TextBox1.Text)

        ElseIf RadioButton6.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("white:" & TextBox1.Text)

        ElseIf RadioButton7.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash1:" & TextBox1.Text)

        ElseIf RadioButton8.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash2:" & TextBox1.Text)

        ElseIf RadioButton9.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash3:" & TextBox1.Text)

        ElseIf RadioButton10.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow1:" & TextBox1.Text)

        ElseIf RadioButton11.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow2:" & TextBox1.Text)

        ElseIf RadioButton12.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow3:" & TextBox1.Text)

        ElseIf RadioButton1.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("scroll:" & TextBox1.Text)

        ElseIf RadioButton1.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("shake:" & TextBox1.Text)

        ElseIf RadioButton1.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("slide:" & TextBox1.Text)

        ElseIf RadioButton1.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("wave:" & TextBox1.Text)

        ElseIf RadioButton1.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("wave2:" & TextBox1.Text)

        ElseIf RadioButton2.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("cyan:" & "scroll:" & TextBox1.Text)

        ElseIf RadioButton2.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("cyan:" & "shake:" & TextBox1.Text)

        ElseIf RadioButton2.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("cyan:" & "slide:" & TextBox1.Text)

        ElseIf RadioButton2.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("cyan:" & "wave:" & TextBox1.Text)

        ElseIf RadioButton2.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("cyan:" & "wave2:" & TextBox1.Text)

        ElseIf RadioButton3.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("green:" & "scroll:" & TextBox1.Text)

        ElseIf RadioButton3.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("green:" & "shake:" & TextBox1.Text)

        ElseIf RadioButton3.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("green:" & "slide:" & TextBox1.Text)

        ElseIf RadioButton3.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("green:" & "wave:" & TextBox1.Text)

        ElseIf RadioButton3.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("green:" & "wave2:" & TextBox1.Text)

        ElseIf RadioButton4.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("purple:" & "scroll:" & TextBox1.Text)

        ElseIf RadioButton4.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("purple:" & "shake:" & TextBox1.Text)

        ElseIf RadioButton4.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("purple:" & "slide:" & TextBox1.Text)

        ElseIf RadioButton4.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("purple:" & "wave:" & TextBox1.Text)

        ElseIf RadioButton4.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("purple:" & "wave2:" & TextBox1.Text)

        ElseIf RadioButton5.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("red:" & "scroll:" & TextBox1.Text)

        ElseIf RadioButton5.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("red:" & "shake:" & TextBox1.Text)

        ElseIf RadioButton5.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("red:" & "slide:" & TextBox1.Text)

        ElseIf RadioButton5.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("red:" & "wave:" & TextBox1.Text)

        ElseIf RadioButton5.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("red:" & "wave2:" & TextBox1.Text)

        ElseIf RadioButton6.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("white:" & "scroll:" & TextBox1.Text)

        ElseIf RadioButton6.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("white:" & "shake:" & TextBox1.Text)

        ElseIf RadioButton6.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("white:" & "slide:" & TextBox1.Text)

        ElseIf RadioButton6.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("white:" & "wave:" & TextBox1.Text)

        ElseIf RadioButton6.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("white:" & "wave2:" & TextBox1.Text)

        ElseIf RadioButton7.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash1:" & "scroll:" & TextBox1.Text)

        ElseIf RadioButton7.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash1:" & "shake:" & TextBox1.Text)

        ElseIf RadioButton7.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash1:" & "slide:" & TextBox1.Text)

        ElseIf RadioButton7.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash1:" & "wave:" & TextBox1.Text)

        ElseIf RadioButton7.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash1:" & "wave2:" & TextBox1.Text)

        ElseIf RadioButton8.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash2:" & "scroll:" & TextBox1.Text)

        ElseIf RadioButton8.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash2:" & "shake:" & TextBox1.Text)

        ElseIf RadioButton8.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash2:" & "slide:" & TextBox1.Text)

        ElseIf RadioButton8.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash2:" & "wave:" & TextBox1.Text)

        ElseIf RadioButton8.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash2:" & "wave2:" & TextBox1.Text)

        ElseIf RadioButton9.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash3:" & "scroll:" & TextBox1.Text)

        ElseIf RadioButton9.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash3:" & "shake:" & TextBox1.Text)

        ElseIf RadioButton9.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash3:" & "slide:" & TextBox1.Text)

        ElseIf RadioButton9.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash3:" & "wave:" & TextBox1.Text)

        ElseIf RadioButton9.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("flash3:" & "wave2:" & TextBox1.Text)

        ElseIf RadioButton10.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow1:" & "scroll:" & TextBox1.Text)

        ElseIf RadioButton10.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow1:" & "shake:" & TextBox1.Text)

        ElseIf RadioButton10.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow1:" & "slide:" & TextBox1.Text)

        ElseIf RadioButton10.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow1:" & "wave:" & TextBox1.Text)

        ElseIf RadioButton10.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow1:" & "wave2:" & TextBox1.Text)

        ElseIf RadioButton11.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow2:" & "scroll:" & TextBox1.Text)

        ElseIf RadioButton11.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow2:" & "shake:" & TextBox1.Text)

        ElseIf RadioButton11.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow2:" & "slide:" & TextBox1.Text)

        ElseIf RadioButton11.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow2:" & "wave:" & TextBox1.Text)

        ElseIf RadioButton11.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow2:" & "wave2:" & TextBox1.Text)

        ElseIf RadioButton12.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow3:" & "scroll:" & TextBox1.Text)

        ElseIf RadioButton12.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow3:" & "shake:" & TextBox1.Text)

        ElseIf RadioButton12.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow3:" & "slide:" & TextBox1.Text)

        ElseIf RadioButton12.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow3:" & "wave:" & TextBox1.Text)

        ElseIf RadioButton12.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then

            ListBox1.Items.Add("glow3:" & "wave2:" & TextBox1.Text)

        End If



        If TextBox1.Text <> Nothing Then

            RadioButton1.Checked = True

            RadioButton13.Checked = True

            TextBox1.Text = ""

            TextBox1.Select()

        Else

            MessageBox.Show("The message box contains no characters.")

        End If

    End Sub

Code:

    Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

        If e.KeyCode = Keys.Enter Then

            e.SuppressKeyPress = True

            Call Button1_Click()

            End If

    End Sub

need help wih radiobuttons

AA123 — Sun, 19 May 2013 03:36:38 GMT

I am creating a program, how would it be possible to make the program show a certain video when i click on a certain radiobutton.
for example i have 1 button, 1 radiobutton, 3 pictures, 1 picturebox and 3 videos.
if i choose radiobutton 1 i want my picturebox to show pic 1 and for my button to show video 1 when i click it, when i choose radiobutton 2 i want my picturebox to show pic 2 and for my button to show video 2, etc. i know i can create a button for each video and create a listbox with each picture option using selected cases but i dont want to do that could any body help me?

VS 2008 rdp auto connect with username and password ?

SystemX — Sat, 18 May 2013 21:46:47 GMT

Hi, i have been searching all night and looked at loads of examples ect but can not find what i need.

Basically I have several RDP connections that i work from. I need to test the connections every now and again.

I can use tcp client to connect to ip:port and if if its online but that just wont do.

What i need to do is connect to each rdp, pass the username and password and it will connect then login auto. Once loged in, it will tell me logged in.

It then needs to logout and go to the next rdp ip and repeat the above.

It also need to tell me if it failed to login, then i can manually check that rdp.

This is because a couple of the rdp's have several user on them that i set, i need to make sure that none have changed the password as some have root access as we all work on the safe files there ect. We use the rdp to WFH(work from home).

How would i go about doing this ?

Thanks

VS 2010 Help!!!??? File corrupt???

jonesin — Sat, 18 May 2013 21:04:27 GMT

Hi all,

Bugger, when I open up my form code I get a bunch of garble as per the attached. Not sure what has happened. Any ideas how to fix this? Not sure whether to laugh or cry....

Cheers,
J

Attached Images

Noob: checkbox, function, module assistance

lovekeiiiy — Sat, 18 May 2013 18:20:07 GMT

I'm in the chapter in my Visual Basic book on creating multiple forms, modules, and menus.

The first problem, is to create a problem that calculates a total for going to conference.

it gives MainForm and OptionsForm design. Below is what I recreated

The assignment

Quote:

The Conference Options form allows the user to select the regular conference registration, the optional opening night dinner, and an optional preconference workshop; user cannot select optional events without selecting registration. When the Close button is clicked, this form should be removed from the screen and the total registration fee should appear on the main form

It also gives a tip about using a global variable to hold the total cost, so both form will have access to the variable

I haven't finished the program and most I can do. I have module setup in addition to the two forms.

this is button on the MainForm to get conference info and total

Code:

 Private Sub btnConferenceOptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConferenceOptions.Click

        '==================================

        'declare variables

        '=================================

        Dim frmOptionsForm As New frmOptionsForm



        frmOptionsForm.ShowDialog()



        '==================================

        'display total

        '=================================



        lblTotal.Text = g_decTotalCost.ToString("c")

    End Sub

this is the module

Code:

Module CalucateModule

    '==================================

    'declare global constants and variables

    '==================================

    Public Const g_decRegistration As Decimal = 895

    Public Const g_decDinner As Decimal = 30

    Public Const g_decECommerce As Decimal = 295

    Public Const g_decWeb As Decimal = 295

    Public Const g_decVisualBasic As Decimal = 395

    Public Const g_decNetworkSecurity As Decimal = 395

    Public g_decTotalCost As Decimal



    Public Function ConferenceTotal1() As Decimal



        If frmOptionsForm.chkRegistration.Checked = True Then

            g_decTotalCost += g_decRegistration

            MessageBox.Show("test if IfThen statement")

        End If

        MessageBox.Show("test outside IfThen statement")



        Return g_decTotalCost

    End Function

End Module

this is the OptionsForm code

Code:

Public Class frmOptionsForm



    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

        Call ConferenceTotal()



        Me.Close()

    End Sub



    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click

        chkDinner.Checked = False

        chkRegistration.Checked = False

        lstOptions.SelectedIndex = -1

    End Sub



    Public Function ConferenceTotal() As Decimal



        If chkRegistration.Checked = True Then

            g_decTotalCost += g_decRegistration

        End If



        Return g_decTotalCost

    End Function 

End Class

What I can't figure out, ConferenceTotal function works on the OptionsForm, but not on the CalculateModule. The I added the 1 to ConferenceTotal so I didn't get some error, and didn't want to delete and retype later. Somehow I have something off when referencing the chkRegistration on the OptionsForm. The outside IfThen statement messagebox pops up when I call CalcuateTotal1 function.

It's possible I'm not fully understand module and what can be used in it. The books says they're meant to contain general purpose procedures, functions, and declarations that are available to all forms in a project. So, maybe I'm not allowed to use radio buttons, checkboxes, lists and so forth in specific forms.

Once I understand this, I can do the rest.

Attached Images

VS 2010 how to get information from website

ahmmkh — Sat, 18 May 2013 18:18:55 GMT

hi guys
this web site http://www.cma-cgm.com/eBusiness/Tracking/
is Container Tracking company and i must go into their web site to search for my container
i want program make this search !! not else and see if my container arrived or not !!

and thx !!

[RESOLVED] pictureboxes and right click menu

Goshx — Sat, 18 May 2013 14:37:28 GMT

We have a situation like this:

1. 4 picturebox controls
2. I want to add or remove picture from picturebux using context meny
3. Contextmenu have to be done with code (no control)

Code:

  Dim ctxmnu As New ContextMenu



        Dim item1 As New MenuItem("Add Picture")

        Dim item2 As New MenuItem("Remove")



        AddHandler item1.Click, AddressOf ContextMenuHandler

        AddHandler item2.Click, AddressOf ContextMenuHandler



        ctxmnu.MenuItems.Add(i1)

        ctxmnu.MenuItems.Add(i2)

What we have to do that our program konws which picturebox we want to fill opening fileopen dalog?

Code:

        

   Private Sub InputPicture()

        If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then

            PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)

            PictureBox1.Tag = OpenFileDialog1.FileName

        Else

            OpenFileDialog1.Tag = ""

        End If

    End Sub

I've tried many things to send an argument via InputPicture() which should point to the picturebox we need but without success.

VS 2010 Tabbed web browser error

ryanguy426 — Sat, 18 May 2013 14:32:15 GMT

Hello all! I'm currently in the process of re-writing a web browser I had.

Everything has been going well until now. The tab control is being a pain. The video I uploaded below will show you what I mean.

Is there any way I could fix this? It is really annoying, and I haven't found any way to resolve this myself.

Any help would really be nice!

Thank you for taking your time to read my post.

VS 2010 Browser app to bypass work security

Jon12345 — Sat, 18 May 2013 14:09:40 GMT

I run a discussion forum and I have just been told that one of my visitors cannot login to my vbulletin forum due to security restrictions at his workplace. With this in mind, I was wondering if its possible to create some mini app where you enter username/pw and it can login but bypass the security that somehow stops him logging in. He can still view the forum but can't post due to the login issue. I want to get around that.

Any ideas?

Thanks,

Jon

VS 2008 Error while using recordsets to delete records

enigma1810 — Sat, 18 May 2013 13:05:46 GMT

I am using the following code to delete a record in vb:

"If rspmps2("pmpidno").Value = gvr1.Cells("pmpidno").Value Then
rspmps2.Delete()
rspmps2.UpdateBatch()"

where rspmps2 is a ADODB record set and gvr1 is a grid view row. but I keep getting the following error message:

"Row handle referred to a deleted row or a row marked for deletion."

Please can somebody assist me in this.

auto run code based on time

mason84 — Sat, 18 May 2013 12:44:10 GMT

i have done some research but found nothing on how to run an event based on pc time.

I.e
Say for example a user selects 10pm every day for a file copy to take place how would you set that up in .net