Printable View
Hy,
i can't find it anywhere on the internet, so i hope some of you guys have a solution for me.
I have like 5 textboxes on my form, and i want to put 1 scollbar (Vscroll) on my form. When i scroll down on my vscroll, i want al the textboxes to scroll down with the same interval. Anyone has an idea how to do this. What code do i have to put behind my vscroll_change??
thx a lot for the one who helps me!
greetzz
hephie
Moved from the CodeBank
The attachment has the vscroll bar you are after
cheers
Paul V
in your scroll_change, write code to increase/decrease the top of the textboxes...
how do you mean?
say for example
in your vscroll_change eventVB Code:
ahh I C thanks for that
if i do that, my textbox just moves down on the screen... this is not what i want...
i have like 5 textboxes on my form. Every textbox receives the values of a column in my sql database.
for examle
NR NAme .........
1 thomas
2 jef
3 maarten
4 romina
5 biatch
... ...
so suppose you only see the first 3 lines, then i want 1 scrollbar (vscroll), and that when i use that scrollbar, my 2 textboxes scrolls down. so you can see the numbers and names (4, romina and 5,biatch).
um Hephie did you download the above file? that does what you need
the one I use has 38 textboxes and 2 comboboxes
I use the scrollbar and it move every textbox to the next item in the database...
i dont understand, have you placed 5 text boxed one by one...is that not fitting into your screen...or are you using same text box to display all five lines....please clarifyQuote:
so suppose you only see the first 3 lines, then i want 1 scrollbar (vscroll), and that when i use that scrollbar, my 2 textboxes scrolls down. so you can see the numbers and names (4, romina and 5,biatch).
While coordinating the scrolling of several textboxes can be done, are you sure you want to use textboxes? Unless the user is expected to write in those textboxes then you probably should use another control like a single listview or grid, or even several listboxes.
I have sample code on my website that does something along the lines of what you are looking for. On this page:
http://www.thevbprogrammer.com/tutorials.html
See the "Scroll Bars" link under "9. Forms and More Controls"
yes i downloaded the file frametech, but it was not wat i was looking for. I'll try to explain again what i'm looking for.
I have several textboxes on my form. (they all fit in my form, i'll post a screenshot later in this post, so you can see something more).
When i press a button on the right (for example "objecteigenschappen"), all the data from that table ("objecteigeschappen is a table in my sql server database). in the database is filled into my textboxes. if the table has 3 columns, the first 3 textboxes are filled with all data in those columns.
Now when the table has many data in it, you only see the first 10 lines i shall say. Now i don't want 3 seperated scrollbars (one for every textbox), i want JUST ONE scrollbar (vsroll, somewhere on the screen) en that when i press that one, we move down in all the 3 textboxes to the next data.
I hope now you all know what i'm trying to do. Here's the screenie:
SCREEN1:
http://users.pandora.be/thomasgielissen/screen1.jpg
SCREEN2:
http://users.pandora.be/thomasgielissen/screen2.jpg
Use a list view. You can dynamically change the column headers and the data that is viewed in it. It would probably be alot easier to figure out than vscroll... Heres a code snippet
Dim adoSearchResults As New ADODB.Recordset
Dim itmListView As ListItem
Dim strSearchResultsQuery As String
lstSearchResults.ListItems.Clear
'|----------------------------------------------------------------------------------
'| Set Up SQL Query Based On User Input.
'|----------------------------------------------------------------------------------
strSearchResultsQuery = "Select [Panel Tag],[IO Type],[Drop],[Rack],[Slot],[Channel],[PLC Register],[Terminal Number],[PLC Tag],[PLC Description],[Comments],[Status],[RowID] From v_PLC_DATA Where " & strNewSearchCriteria & strTextBoxCriteria & " Order By [Drop],[Rack],[Slot],[Channel]"
'|----------------------------------------------------------------------------------
'| Open Recordset and Populate ListView with Results.
'|----------------------------------------------------------------------------------
With adoSearchResults
If .State = adStateOpen Then .Close
.ActiveConnection = strConnectionString
.CursorLocation = adUseClient
.Open (strSearchResultsQuery)
If Not .EOF Then
lblRecordCount.Caption = .RecordCount & " Records Retrieved."
Else
lblRecordCount.Caption = "No Records Retrieved."
End If
While Not .EOF
Set itmListView = lstSearchResults.ListItems.Add()
itmListView.Text = ![Object Name]
itmListView.Tag = ![RowID]
For i = 1 To .Fields.Count
If IsNull(.Fields(i).Value) Then
itmListView.SubItems(i) = ""
Else
itmListView.SubItems(i) = .Fields(i).Value
End If
Next i
.MoveNext
Wend
.Close
End With
After changing some of your code and debugging, it still gives an error on this:
itmListView.SubItems(i) = .Fields(i).Value
error: invalid property value...
don't know what to do, please help
Do a watch window on the recordset and loop through the fields.count loop. I think you might have to do For i = 1 to Fields.count -1 since ado starts at 0, while the listview starts at 1. Let me know...
This code is ugly, and quirky, and slow, but I think it does basically what you are wanting to do. The quirkiness comes from the fact that I don't know of a way to set the top line displayed in a text box -- so I used the "SelStart" to set the Selection bar location. Since SelStart defines a character position instead of a line position, I had to process through the text to translate that into lines, which makes the function slow.
Also, if you change the scroll bar, and calculate a new character position that is already displayed within the text box, the text box doesn't scroll at all. This makes it look like the scroll bars aren't working, when in fact, the SelStart value has changed. There may be ways to code around this, but I didn't take the time to figure it out. Does anybody know an easy way to tell if the scroll bar has been moved up or down? The only thing I could think of was to keep current value versus last value and compare them. Yuck.
Vscroll1 is the scroll bar object. The Max property is set to the number of lines in the text boxes. This, combined with a SmallChange property of 1, means that clicking on the scroll bar arrows will scroll the text by one line up or down. The LargeChange property is set to the number of lines displayed in the text boxes, so that clicking on the scroll bar itself results in "page up" and "page down" functionality.
The two text boxes are named txtSource and txtResults. They show 13 lines of text each.
I used the "Vscroll1.Value + 13" in the loop so that when the user first tries to scroll down using the arrows, the text starts moving right away -- they don't have to click on the arrows 13 times first. I tried setting the initial value of Vscroll1.Value to 13, which has the same sort of effect, but that led to a whole different set of quirks.
Needless to say, this looks like it is possible, but not pretty or easy.
Good luck!
VB Code:
that's exactly what i was looking for!
GREAT man!!
thx a LOT!
sorry i respond so late, but i was "taking a break", went outta the country for a few days.
thanks!
it's kinda slow indeed... but it works :)
I've attached a sample app that shows how this works. This code works better than the code in my previous post -- I've handled all of quirkiness (I think). In particular, the problem of the current Value changing without changing the display is fixed. Now you always get an appropriate action when the scroll bar control changes.
Note that this is just a sample app with fixed line contents. It doesnt' take into account lines in the text with different lengths. My previous code snippet handled that, and I didn't want to reproduce that here, so that I could focus on the problems related to the actual scrolling.
VB Code: