textboxes with picyure box

Question

Jaseem Ahmed 2 Junior Poster

13 Years Ago

i have bundle of text boxes to get an input..
i have textboxes that some how work like data grid...
i have 4 colums of textboxes and each colum have 30 textboxes as an array in picture box..
now i am facing a problem that, every time when i m opening that form its picture box's size changes..
i m providing u code and form too attaching...
kindly help me..

Dim j, k, l, m As Integer
Private Sub Form_Load()
For i = 0 To 7
j = j + Text3(0).Height
k = k + Text4(0).Height
l = l + Text5(0).Height
m = m + Text6(0).Height
Next
Pic1.Height = j And k And l And m
VScroll1.Height = j And k And l And m
For i = 0 To 4
Text3(i).Top = i * Text3(0).Height
Text4(i).Top = i * Text4(0).Height
Text5(i).Top = i * Text5(0).Height
Text6(i).Top = i * Text6(0).Height
Next
End Sub
Private Sub Text6_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Then
VScroll1.Value = Index + 2
End If
End Sub
Private Sub VScroll1_Change()
Select Case VScroll1.Value
Case 8
For i = 0 To 30
Text3(i).Top = i * Text3(0).Height
Text4(i).Top = i * Text4(0).Height
Text5(i).Top = i * Text5(0).Height
Text6(i).Top = i * Text6(0).Height
Next
Case 9
For i = 0 To 30
Text3(i).Top = (0 - Text3(0).Height) + (i * Text3(0).Height)
Text4(i).Top = (0 - Text4(0).Height) + (i * Text4(0).Height)
Text5(i).Top = (0 - Text5(0).Height) + (i * Text5(0).Height)
Text6(i).Top = (0 - Text6(0).Height) + (i * Text6(0).Height)
Next
Case 10
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 2)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 2)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 2)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 2)) + (i * Text6(0).Height)
Next
Case 11
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 3)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 3)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 3)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 3)) + (i * Text6(0).Height)
Next
Case 12
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 4)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 4)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 4)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 4)) + (i * Text6(0).Height)
Next
Case 13
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 5)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 5)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 5)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 5)) + (i * Text6(0).Height)
Next
Case 14
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 6)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 6)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 6)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 6)) + (i * Text6(0).Height)
Next
Case 15
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 7)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 7)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 7)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 7)) + (i * Text6(0).Height)
Next
Case 16
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 8)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 8)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 8)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 8)) + (i * Text6(0).Height)
Next
Case 17
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 9)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 9)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 9)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 9)) + (i * Text6(0).Height)
Next
Case 18
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 10)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 10)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 10)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 10)) + (i * Text6(0).Height)
Next
Case 19
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 11)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 11)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 11)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 11)) + (i * Text6(0).Height)
Next
Case 20
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 12)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 12)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 12)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 12)) + (i * Text6(0).Height)
Next
Case 21
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 13)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 13)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 13)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 13)) + (i * Text6(0).Height)
Next
Case 22
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 14)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 14)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 14)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 14)) + (i * Text6(0).Height)
Next
Case 23
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 15)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 15)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 15)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 15)) + (i * Text6(0).Height)
Next
Case 24
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 16)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 16)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 16)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 16)) + (i * Text6(0).Height)
Next
Case 25
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 17)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 17)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 17)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 17)) + (i * Text6(0).Height)
Next
Case 26
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 18)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 18)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 18)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 18)) + (i * Text6(0).Height)
Next
Case 27
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 19)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 19)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 19)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 19)) + (i * Text6(0).Height)
Next
Case 28
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 20)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 20)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 20)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 20)) + (i * Text6(0).Height)
Next
Case 29
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 21)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 21)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 21)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 21)) + (i * Text6(0).Height)
Next
Case 30
For i = 0 To 30
Text3(i).Top = (0 - (Text3(0).Height * 22)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 22)) + (i * Text4(0).Height)
Text5(i).Top = (0 - (Text5(0).Height * 22)) + (i * Text5(0).Height)
Text6(i).Top = (0 - (Text6(0).Height * 22)) + (i * Text6(0).Height)
Next

Case 20
For i = 0 To 20
Text3(i).Top = (0 - (Text3(0).Height * 3)) + (i * Text3(0).Height)
Text4(i).Top = (0 - (Text4(0).Height * 2)) + (i * Text4(0).Height)
Next
End Select
End Sub

its picture box is getting resize again and again in execution time..
please have a look at it..and if u have an gud idea about it..so plz share/...

visual-basic-6

This attachment is potentially unsafe to open. It may be an executable that is capable of making changes to your file system, or it may require specific software to open. Use caution and only open this attachment if you are comfortable working with zip files.

Stock_Issue.zip (8.42 KB)

Edited 13 Years Ago by Jaseem Ahmed because: n/a

3 Contributors
6 Replies
93 Views
2 Days Discussion Span
Latest Post 13 Years Ago Latest Post by AndreRet

All 6 Replies

trilok31 8 Newbie Poster

13 Years Ago

exactly when its resizing because i run it and its working fine
one thing you can use datagrid instead of using these textboxes
i had two three project where i have to inter data in multiples
that time i used datagrid only .... why u using this text boxes at all

AndreRet 526 Senior Poster

13 Years Ago

The load of the form on a second time around happened to me as well. There is just way too much code to work through. Use a flex/data grid control, it will cut your code down 10 times, and are much easier to work with.:)

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

Jaseem Ahmed 2 Junior Poster · Answer 1 · 2011-03-15T14:21:13+00:00

but i have to use these text boxes...please have a look at project, and solve my problem...

Jaseem Ahmed 2 Junior Poster · Answer 2 · 2011-03-15T14:33:56+00:00

Pic1.Height = j And k And l And m
VScroll1.Height = j And k And l And m

when i am blocking these both lines, it is not erroring, and do not expend the picture box.

Jaseem Ahmed 2 Junior Poster · Answer 3 · 2011-03-15T14:35:36+00:00

Jaseem Ahmed 2 Junior Poster

13 Years Ago

so should i remove these?

Edited 13 Years Ago by Jaseem Ahmed because: n/a

AndreRet 526 Senior Poster · Answer 4 · 2011-03-15T14:41:18+00:00

Yes, I have tested without it. Just align your vscroll to the picture height -

VScroll1.Height = Pic1.Height

textboxes with picyure box

Recommended Answers Collapse Answers

All 6 Replies

Recommended Answers