I wanted to exchange the text values of two text boxes in an array of 10 textboxes. I have tried writing the two texts to textboxes and then reading the opposite textbox, but that didn't work. Does anybody know how to do this? Thanks.
Printable View
I wanted to exchange the text values of two text boxes in an array of 10 textboxes. I have tried writing the two texts to textboxes and then reading the opposite textbox, but that didn't work. Does anybody know how to do this? Thanks.
We need more information. What have you tried? Post some code, and tell us what isn't working, and/or any errors that you are getting, including what line the error is on.
Yeah, good point. I have tried what I said I have tried, but I have also tried something like that, but putting the text in an array and taking the opposite. The method in my first post worked for list indexes of combo boxes. Now, what it does. I try exchanging the text of index 0 and 1, but what happens is very strange. :confused: I must have deleted my code when I realized that it wasn't working or something, because nothing happens now. But what I think happened earlier (I don't quite remember, it's been a while) is that index 4 got the text of index 5 and index 5's text was blank. These textboxes are on a different form than the exchange code is, too. No errors occur though.
Take a look at this. Add txt(0), txt(1), and a command button.
VB Code:
Wow! That's a good method by just sending the one text straight over. I'd love to try this and see if it finally works, but I'm out of time now, so I'll finish when I get a chance and tell you if you helped me.
Still, nothing happening. This is very strange. Since I have 10 textboxes and the user choses which to exchange the text value of, I have to have a bunch of if's to check which indexes to swith for each of those 3 lines. Maybe I am doing something wrong here.
More details:
I have two combo boxes listing the text boxes from the array. The first combo box is, in dglienna's example, selecting the txt(0) to use. The second combo is txt(1). The array is on a different form than the combo boxes that let you select the text boxes. Since it is on a different form, it could possibly be unloaded. I have created a backup procedure where all my text collects in strings when the form unloads and is taken from the strings when the form loads. The strings (in an array) are cleared after. It works. Because it recovers when the form loads, I made the form load and hide while exchanging the text. Here's my code:
In General Declarations:In my DetailsExchange Procedure (A Public Sub):VB Code:
I used "Exchange" for any name about the first text box in the exchange. I used "With" for any name about the second text box in the exchange.VB Code:
The options to choose from the comboboxes are the number of the textboxes to exchange or the content of those boxes?
if the options are the numbers then use this:
VB Code:
The text box selected is the list index from the combo boxes selected, so actually it's none of the above, answering your question. Now, to try this, it would be the same thing, but just "ListIndex" not "Text". Let me try that.
-------------------------------------I try----------------------------------------
It's still not working. I even tried it with "Text" like you put, not "List Index."
Ok so you got 10 textboxs all a array on form1 and 2 combo box's on form2.
Cant you just do something like this on a command button on the first formVB Code:
Loading up form2 and just hiding form1.
Then for form2 put this in it
VB Code:
This should work, but are you sure none of the other codes work because they all looked fine to me. Also if these all dont work could you post some more code or post the project that you trying to do?
Yes, that's what I have: 10 texts on Form1, and 2 combos on Form2. The first code that I got from David did work in it's own application, but not in mine. I have the button to open Form2 (combo boxes) on another form (I only hide this third form). When the exchange is done, it goes back to the third form. There are also list indexes that I exchange on that form (It works). The second form might hide, if the user selects close when they close it, it hides. The user might select the "x" instead, though, which unloads the form. Your way works in a seperate program, too, but not in mine. I am not ready to post my project, but maybe my little extra explanations here about what you seem to not understand will help.
But here's some more code. Here's in my Public Sub Exchange() Sub. This is to exchange the list indexes on the third form that I was talking about:
I only want the textboxes (details) exchanging if the user has checked a checkbox checked (It's called chkMoveDetails).VB Code:
frmDetails is the form with my textbox array on it. txtDetails is the textbox array.VB Code:
i still don't get a few thing: why do you say the code is ok but not in YOUR program? something related with if the forms are loaded?
anyways i think in that text you meant to say that you don't want the form to unload when the user presses X.
If so then do this:
Query Unload fires before the form unloads, ALWAYS. If at the end of the sub Cancel = True then it doesnt unload.VB Code:
So here the form will hide.
Well, that probably would work, but that's not what I was asking. I actually didn't know you could make it not unload on X_Click. What I meant by "It works in seperate program but not mine" is I have created a new project and put the code in that have been supplied to me. I tried it and it works, so I try it in the program that I'm making that I want to use the code in and it works. Still not working...very strange. Another thing that I did wrong, that I noticed before I tried this is I have two different string names. I dimed the string as "DetailsExchangeSpace" but wrote and read it as "DetailsExchange" and this is fixed now.
It now looks something more like this:
Another thing that I did was cleared the string after.VB Code:
i think this line:
frmDetails.txtDetails(cboExchange.ListIndex) = txtDetails(cboExchange.ListIndex)
should be like this:
frmDetails.txtDetails(cboExchange.ListIndex) = txtDetails(cboWith.ListIndex)
maybe that's it, but if have mroe problems tell me plz what results you get: an error? nothing happens?
LOL, whoops! You're right, I wrote the wrong name again. I fixed that and it's still not working (Nothing happens). I looked at the code that you just typed for me to tell me where my mistake was, and noticed that I didn't specify a form on the second txtDetails. So I fixed that little problem, and still nothing happens. Like usual.
weird... it isnt a very complicated code... dunnow whats wrong
u sure all names are correct?
post all the button's code.
meanwhile my advice for you to find out yourself:
save that code it a word file and start over but do it in parts.
first just make one text go to another.
then assign the text content to a var and put it in a msgbox.
and so on... maybe this way you'll find out WHAT PART of the code is wrong or missing something
Interesting advice.
Code (I'm not posting all code in the program, that's lots):
Important frmDetails Code:
All frmMove code:VB Code:
One thing I know I could've done better is exchangin the list indexes on frmMain, putting it in arrays rather than little text boxes on an unshown form. Also, I set the enabled property to false while moving, just incase somebody decides to get a slow computer and then change the values in the middle of the move and then the move reads something different.VB Code:
that is lot of code...
continuing my prevoius advice: in order to find your problem make your code more clear:
those cboOptionX could be an array of controls, know how to make them?
if you do then for example this long code:
VB Code:
could be cut in just this:
VB Code:
i know this wont solve your problem, but one thing i've learnt very well is that in 10 pages of code is harder to find a mistake.
if you turn all that code into 5 lines.... life is easier :)
if you dont knwo how to do it tell me and ill write the whole code (it should be a line per "section" of IFs)
Quote:
Originally Posted by Kanbei
you can also use the select case statement to replace the if...elseif......endif statement.
that would in a way give a clearer view of the flow
VB Code:
I've used my cboOptions in code so much, that if I put them in an array, I will have to change lots of code that has it already. Like I said already, that part works. The problem is that the DetailsExchange procedure doesn't work.
d3gerald, I am familiar with nothing of your little code except cboExchange.ListIndex.
Sorry then i wouldn't know what to tell you, so again my advices:
- Run the program step by step (with F8 you go to the next step) and you can see each var's value in every step.
- Add to your code some msgboxes showing var's and control's values in a precise moment so you see if they have the value you expected
- And again: YOU REALLY SHOULD make those combos an array of control. Suppose you find a mistake now: you would have to correct it in 700 lines.
If you create an array you will have the chance to start from the scratches and probably find the mistake, and if not, when you find the mistake you will correct only a couple of lines.
I forgot about that next step thing.
And if I change them to arrays now, then I have to change 700 lines to array format! I might get it into an array once this is figured out.l
Well, I just opened the project, and apparently I commented something out that the program didn't like, because my frmDetails doesn't work, now.
VB's making me a bit mad right now, and I just ran out of time. I'll see if I can get patient with it sometime later.
I'm back on the problem again. The problem actually isn't in the code of moving my texts. I commented everything out in the if (it's an if now, not a new sub) of the text moving and put a message box in there. I tried moving the texts and I didn't get the message, so that means that there's something wrong with getting to the procedure.
I took the message box out of this sample of code. Another thing I changed was "cboExchange" and "cboWith" which are now in an array called "cboExchange."VB Code:
Try:
VB Code:
I knew I wasn't understanding the checkboxes "checked" property in code. That worked much better, thanks! Woohoo! :thumb:
BTW, you can shorten all that If...ElseIf code you were using without using a control array:That way you don't need to rename all your controls :)VB Code:
I didn't rename it, I'm remaking the whole program...I know it might sound strange, it seemed to screw up more and more with everything I did, so I just redid it...there were lots of things to change, anyway, like that array, which would actually make it easier in lots of places, but thanks for the code.