滚动条怎么弄可以使text的内容要增加要减少？ - 编程论坛

#2

VB丶小宇2015-01-02 12:55

用updown控件。
两行代码搞定。
Private Sub UpDown1_DownClick()
Text1 = Val(Text1) + 1
End Sub
Private Sub UpDown1_UpClick()
Text1 = Val(Text1) - 1
End Sub
Text1的文本框初始值设置为54.

#3

V菜鸟V2015-01-02 13:48

回复 2楼 VB丶小宇

谢谢了，不过我还是希望用上面说的方法，谢谢了。

#4

xzlxzlxzl2015-01-02 19:19

可以变通方法来解决。新建一工程，添加text1,text1的height刚好是最小的高度，Text1.MultiLine属性为True，Text1.ScrollBars属性值为2，复制下述代码即可运行即可看到效果

Private Sub Form_Load()
  Dim i As Integer
  Text1 = ""
  For i = 1 To 99
    Text1 = Text1 & i & vbCrLf
  Next
  Me.Show
  Text1 = Text1 & i
  DoEvents
  Text1.SelStart = 51 * 4 - 1   '设置默认值为54
End Sub

#5

V菜鸟V2015-01-02 21:10

回复 4楼 xzlxzlxzl

，，，，，，，这也行，不过，要是用您这个，和用list组合框一样的了

#6

V菜鸟V2015-01-03 21:09

还有谁会呀？？？？看看呀，谢谢了

#7

lianyicq2015-01-04 09:20

那两个箭头实际用途不是滚动条吧.不过就是两个按钮,用commandbutton,image,picturebox...都可以实现

#8

V菜鸟V2015-01-04 17:00

回复 7楼 lianyicq

哈哈哈，厉害，的确，还是我太死板了，嘿嘿，对的，，，哈哈，太死板了哈哈哈，，，，谢谢了哈。

#9

xzlxzlxzl2015-01-04 20:11

回复 8楼 V菜鸟V

你在三楼不是说非要用滚动条来解决么？如果可以变通，2楼答案就是可行的。你对7楼的答案感恩戴德是不是有点搞笑？

#10

V菜鸟V2015-01-04 21:34

回复 9楼 xzlxzlxzl

因为2楼的我不会，UPdown ,找不到，没有这个控件，我就没管了，不过你说的的确是问题，，，是我欠考虑，而且你的方法我也没看懂，特别最后一步，抱歉，因为我不会，所以我觉得是没用，是我的错。抱歉，谢谢了。谢谢了，毕竟新人，有些东西是看不懂的，就自认为没用，谢谢了。抱歉。

#11

V菜鸟V2015-01-04 21:39

回复 9楼 xzlxzlxzl

不过期望你好好看一下，我给2楼说谢谢了，最起码的感恩和感谢我做到了，，，期望子不要有偏见，毕竟你和他一直在帮我，我的确很感激你们俩的，所以说话方面很是感激，，，希望你能理解。因为从注册到现在的所有问题，大部分都是您俩的帮助，所以外婆很感激你俩，说话很，，，，期望你能理解一个“弱者”的心意。

#12

xzlxzlxzl2015-01-04 22:20

回复 11楼 V菜鸟V

作为答疑者，并不需要什么谢谢。就你这个问题，似乎你不是要一个达到目的的方法，而是要在指定的条件下(text滚动条）完成，可你在8楼又认可变通，你这样前后矛盾，轻易否定别人的解答可认为你提问极端随意，对待他人的解答不认真。
我相信打算为他人答疑的都抱着不误人的责任心答疑的。我每次回复问题，肯定是在本机上调试通过才回答。象你这道题，我是看到你在三楼说非要用滚动条完成，text滚动条只有在MultiLine属性为True、ScrollBars属性值不为0的情况下出现，但对滚动条的按动并没有相应事件，所以我给了4楼的一种用滚动条的方案，当你否定后我正在考虑复杂的用api拦截鼠标消息完成你的要求，却发现你还是只要一个达到目的的方法，而不是出一个指定条件下完成任务的题，说明你自己对自己提问的先决条件都不明确，不就是搞笑么。

#13

V菜鸟V2015-01-04 22:39

回复 12楼 xzlxzlxzl

的确，是的，的确是自己不认真，1.起初，我自以为是滚动条，我就死板的认为应该照着他要求的做，后来7楼发现不是的。我也觉得的确很搞笑，.，没办法我只会运用建的的控件，所以7楼说的很在我心里，所以，我就觉可行性很大，我就做出来了，你们，3楼和7楼的我看了，3楼没控件，你的我看不懂，所以我觉得还想看看有什么方法，你看这不把7楼等来了，所以我的目的就是解决问题，总之谢谢。毕竟个人能力有限，所以有些东西看不懂，每个人也有自己的自尊和傲气的，，，

#14

lianyicq2015-01-05 09:06

回复 11楼 V菜鸟V

    从版主xzlxzlzxl对你的问题和其它问题的答复，能看出版主的严谨、严肃、专业、热心、负责。我一直以为版主是猴子请来的救兵，对我来说就是神通广大。
从专业的角度考察问题，分析问题，解决问题，知识面不可谓不广。
    我是非专业人士，所谓的编程只是实现自己的想法，不一定强壮、不一定高效。逛论坛的目的是欣赏高水平的见解，是来开眼界的。看到有些问题，只不过只是从初学者心理出发，忍不住说说自己的拙见。初学者真正要学到过硬的东西还是得多多请教版主，认真学学版主的代码风格。
    确实有些初学者提问不严谨，可能连他自己都没弄明白要问什么问题。