Visual Basic

6-May-09 14:05

I have a simple windows form with a textbox and a button. Click the button and you get a msgbox that I am using for a hyperlink. The results are how I need them to look but I can not copy it to paste into a browser. In a perfect world, I would like to have the click generate a link instead of a msgbox but I'm such a beginner I dont expect to be able to do this easily. Any help would be appreciated! Here is the click event for the button:

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

MsgBox("http://webmail.sale.com/loansales/search.aspx?searchcommand={LF:Name=""*" & TextBox1.Text & "*"",%20Type=""F""}")

End Sub
Is there a property that can be set on a msgbox that allows the text to be copied?

Mycroft Holmes6-May-09 14:28

Mycroft Holmes

6-May-09 14:28

You can always place the information in the clipboard where the user can ctrlV it into the browser.

Never underestimate the power of human stupidity
RAH

beeker55336-May-09 14:37

6-May-09 14:37

if you mean just to ctrl+c, that doesnt work because it gets more than just the msgbox, it gets the title and everything else. IF there is a way to copy the results straight to the clipboard, that would work, I just dont really know how.

Luc Pattyn6-May-09 15:12

Luc Pattyn

6-May-09 15:12

Hi,

you can programatically store the string on the clipboard using Clipboard.SetText; however that is not considered good practice, the user is in charge of the clipboard, so normally a CTRL/C should preceed any change on the clipboard.

Assuming you have a Form, you could use a Label, set the string to its Text; after that it can be copied by selecting and typing CTRL/C.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

Avoiding unwanted divs (as in "articles needing approval") with the help of this FireFox add-in

beeker55336-May-09 17:18

6-May-09 17:18

I know how to set the string to its text, but I also need to add dynamic text to the string that an end user will type into a text box, so what I am actually after, is to end up with a string that would look like:

http://www.website.main & (enter whatever the end user needs here) & search.com. In other words, I have the beginning of the link, and the end of the link, but the end user will be providing the middle part of the URL.
I'm way new to this, so any and all of the suggestions have been a great help and a great learning tool. Thanks

_Damian S_6-May-09 18:04

_Damian S_

6-May-09 18:04

What about not using a message box, and simply creating your own modal/popup form that is the size and shape of a message box, hence allowing you to use a textbox to display the text to allow the user to select it, or even a button that says "copy link" or whatever... ???

Knowledge is knowing that the tomato is a fruit. Wisdom is not putting it in fruit salad!!

Booger Mobile - Camp Quality esCarpade 2010

beeker55337-May-09 5:59

7-May-09 5:59

Thats a good answer, thanks! Now all I have to do is learn how to do it. Smile | :)

VB6 card game question

ymilan6-May-09 9:57

6-May-09 9:57

I'm writing a solitaire game and trying to drag and drop card images from an array of images to on top of another array of images on a form.   I'm stuck on trying to get the images dropped and MsgBoxes to work...I have them for test purposes.   Here is some of my code.   Note:   I tried to use .net, but since I'm such a newbie, I thought I'd stay with VB6 for this.   Not a school assignment.   A birthday present to someone.   sorry for bad format; just testing right now.

Private Sub Hearts_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
      Dim HeartsIndex As Integer
      Dim NewIndex As Integer
      Dim Button As Integer
      HeartsIndex = 0
      Index = 0
      For HeartsIndex = 1 To 12 - 1
            For Index = 1 To 12 - 1
                  Hearts(HeartsIndex).Picture = Image1(Index).Picture
            If Button = vbLeftButton Then
                  If TypeOf Source Is Image Then
                        Hearts(HeartsIndex).Picture = Source.Picture
            End If
            End If
            Next
            Next

   NewIndex = 0

            For NewIndex = 0 To 12 - 1
                     If Hearts(NewIndex).Picture <> Image1(NewIndex).Picture Then
                        Image1(NewIndex).Drag vbCancel
                        MsgBox ("This card does not belong here")


                  Exit Sub
               Else
                              Image1(Index).Drag vbEndDrag
                              MsgBox ("You're right!")
                  Exit Sub
      End If



      Next











End Sub

Mycroft Holmes6-May-09 14:26

Mycroft Holmes

6-May-09 14:26

Yep 4 hours later and still no response - get the hint, VB6 is dead and no longer supported, the people who usually answer forum questions are all using .net and have been for years, any help from them will be based on them dragging old info out of the deep past and is of little interest to them!

Never underestimate the power of human stupidity
RAH

riced6-May-09 22:32

6-May-09 22:32

Some comments on the code.
1 The For NewIndex = 0 To 12 - 1 loop will only be done with NewIndex = 0. It must take either the If or Else branch, both of which exit the sub.

2 Why have 12-1 as end value for loops? Why not just 11?

3 In the For NewIndex = 0 To 12 - 1 Else branch you have Image1(Index).Drag vbEndDrag. Should this be Image1(NewIndex).Drag vbEndDrag?

4 You don't need to initialise the index variables to 0 since they are set by the For statements.

5 Why is Index a parameter? Whatever value is sent in is ignored since you use it to control the inner loop. So it gets set to 1 and ends up at 12 irrespective of what was supplied. So when the sub returns, whatever variable was supplied will have value 12 (IIRC VB6 defaults to pass ByRef so it changes values in calling code). Is this what you want to do?

Regards
David R
---------------------------------------------------------------
"Every program eventually becomes rococo, and then rubble." - Alan Perlis

ymilan9-May-09 2:01

9-May-09 2:01

Thank you David for your suggestions and expertise. You are really thoughtful, even if I'm using VB6. I tried to use .NET, but it actually takes much more expertise and code than I have, at this time...I'm learning it though....so that is why I'm using VB6 for this.

Anyhow, Index was used as a parameter because that is what I saw in several tutorials on drag/drop operations. I see your point though. I'll try again and see what I come up with. Thanks again!

riced10-May-09 2:17

10-May-09 2:17

If you're still interested in looking at VB.NET here's a couple of links to a MSDN forum that might be worth a quick look at. The guy is asking about a poker game in VB.NET.
http://social.msdn.microsoft.com/Forums/en-US/Vsexpressvb/thread/741530e4-ed70-4a3a-9e09-4d7d965e964e

http://social.msdn.microsoft.com/Forums/en-US/Vsexpressvb/thread/47a0dbf2-450d-4b5d-9317-d08fbfd85d4d
[^]

Regards
David R
---------------------------------------------------------------
"Every program eventually becomes rococo, and then rubble." - Alan Perlis

ymilan10-May-09 5:14

10-May-09 5:14

Thanks much for these!

ymilan9-May-09 3:01

9-May-09 3:01

I did some work on this, but what happens at run time is:
The message displayed is "This card does not belong here" irregardless of whatever image1 card I place drag and drop over the hearts card.   I can drag the matching card, or another one to the very same slot and that message is displayed.   It's like the code never gets past the <> line.
At run time, after I drop the image1 card over the hearts card, then all the cards in the image1(0) slot automatically drop on the same position hearts cards.   Any ideas on how I can wrestle with this would be appreciated.

Private Sub Hearts_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
         Dim HeartsIndex As Integer
         Dim NewIndex As Integer
         Dim Button As Integer

         For HeartsIndex = 0 To 12
                  For Index = 0 To 12
                           Hearts(HeartsIndex).Picture = Image1(Index).Picture
                              If Button = vbLeftButton Then
                                    If TypeOf Source Is Image Then
                                          Hearts(HeartsIndex).Picture = Source.Picture
                  End If
                  End If
                  Next
                  Next

   For NewIndex = 0 To 12
                              If Source.Picture <> Image1(NewIndex).Picture Then
                                    Image1(NewIndex).Drag vbCancel
                                    MsgBox ("This card does not belong here")
                              Exit Sub
                              Else
                                    Image1(NewIndex).Drag vbEndDrag
                                    MsgBox ("You're right!")

                           Exit Sub
                  End If
                  Next

riced9-May-09 6:27

9-May-09 6:27

Not sure what is supposed to be happening here so it's difficult to advise what to do. It depends on what the screen looks like e.g. what is the Hearts control, what is the Source control?

However, one obvious point is that If Button = vbLeftButton Then will never be true. And I don't think you need it. The DragDrop event is triggered when the source object is released over the target (i.e. the Hearts control). You have no way of knowing which mouse button is involved.
Another thought is that you might want to move the Source (assuming it can be dropped on target i.e. is a heart) rather than setting Hearts(x).Picture = Source.Picture.

I just fired up my old VB6 box to check help on drag-and-drop. Not exactly clear is it? Smile | :)

Regards
David R
---------------------------------------------------------------
"Every program eventually becomes rococo, and then rubble." - Alan Perlis

ymilan10-May-09 5:14

10-May-09 5:14

Thanks David!   I tried again but I'm thinking I'm getting more confused though....

I read through a tutorial that the target card, the one that's supposed to be dropped on, is the source card, thus I set the hearts to the source card, just like they coded.

Then image1 array of cards is supposed to equal the hearts array...if the card that is used to drop, image1, once chosen, does not equal the exact heart card to be dropped on, then the message would be "Your card does not belong here."   Else, it does belong there.

I hope I'm not being even more confused when writing this, but here is what I've tried.   What is happening at run time is like I find the ace card, image1(12) and try to drop it on hearts(12), it says "Your card does not belong here" then all the #12 position card in the location of the 12th card on the image1 card side, all take the spaces of hearts(1 through 12).   It's weird.   If you send me your email addy, I can send you a screen shot.   Pardon the formatting.

Here's what I have....

Private Sub Hearts_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
      Dim HeartsIndex As Integer
         Dim NewIndex As Integer

      For HeartsIndex = 0 To 12
      For Index = 0 To 12
         If TypeOf Source Is Image Then
         Hearts(HeartsIndex).Picture = Source.Picture
         Hearts(HeartsIndex).Picture = Image1(Index).Picture
                  End If
      Next

         Next


   For NewIndex = 0 To 12
                              If Image1(NewIndex).Picture <> Hearts(NewIndex).Picture Then
                                    Image1(NewIndex).Drag vbCancel
                                    MsgBox ("This card does not belong here")
                              Exit Sub
                              Else
                                    Image1(NewIndex).Drag vbEndDrag
                                    MsgBox ("You're right!")

                           Exit Sub
                  End If
                  Next


End Sub

riced11-May-09 5:45