vb+文本框自动滚动
@仇届1404：VB中文本框内容太多时自动滚动显示
缪详15563927543…… 你未说明VB的版本. 有两种方法可以实现,VB6/.NET都提供这两种方法. 1、Timer 2、Thread 判断阅读者可能需要的阅读时间,经历这个时间后移动滚动条即可.
@仇届1404：vb文本框怎样才能自动滚动 -
缪详15563927543…… 我只做了一个点击按钮图片左右摇摆的程序 其他的你自己参照下应该可以做出来的--- 需要1个图片控件,一个按钮和一个时钟 代码如下-- Public Class Form1 Dim x As String = ＂右＂ Private Sub Button1_Click(ByVal sender As System.Object, ...
@仇届1404：vb文本框怎样才能自动滚动 -
缪详15563927543…… 代码指定光标位置就可以了
@仇届1404：vb文本框中内容自动滚动 -
缪详15563927543…… 用Timer控件1、将Text控件放在Picture里,改变Text的Top值2、 SendMessage Text1.hWnd, EM_LINESCROLL, H, V H:水平滚动 V:垂直滚动 第二种方法不平滑
@仇届1404：如何在VB中实现对TEXTBOX的自动滚屏? -
缪详15563927543…… 1.竖着的滚动条怎样能固定在最下方而不是最上方? Text1.multiline=True;可将VScroll1.Value的初始值设到最大值(在程序的一开始将VScroll1.Value=VScroll1.Max) 2.在textbox里显示最新text2.输入的内容,以前的内容能回到上面去.(类似聊天室?) 代码:Text1.Text=Text1.Text+Text2.Text
@仇届1404：如何用VB实现文本自动滚动? -
缪详15563927543…… Private Sub Command1_Click() Text1.Text = ＂aaaaaaaaaaaaaaaaabbbbbbbbbbbbbbbbbbbbbbcccccccccccccccccccdddddddddddddddeeeeeeeeeeeeeeeeeffffffffffffffffffggggggggggggg＂ Timer1.Enabled = True End Sub Private Sub Timer1_Timer() tmp = Text1.Text Text1.Text = Right(tmp, Len(tmp) - 1) & Left(tmp, 1) End Sub 参考一下,你自己改改!
@仇届1404：VB text文本框滚动条自动到尾部 -
缪详15563927543…… Private Declare Function SendMessage Lib ＂user32＂ Alias ＂SendMessageA＂ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongConst WM_VSCROLL = &H115Const SB_BOTTOM = 7每次修改Text1.Text后调用,作用是滚动到Edit底部:SendMessage Text1.hwnd, WM_VSCROLL, SB_BOTTOM, 0还有其他消息,用来控制向上/下滚动若干行/页的有需要可以去查一查
@仇届1404：VB编写,使文本框里的文本自动向上滚动. -
缪详15563927543…… 画个timer,设置interval=100,再画个文本框,加点内容 ===================================== Private Declare Function SendMessage Lib ＂user32＂ Alias ＂SendMessageA＂ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Timer1_Timer() SendMessage Text1.hwnd, 277, 1, 0 End Sub
@仇届1404：如何在VB中实现TextBox文本文字滚动 -
缪详15563927543…… Private Sub Timer1_Timer() tmp = Text1.Text Text1.Text = Right(tmp, Len(tmp) - 1) & Left(tmp, 1) End Sub
@仇届1404：我对VB了解很少充其量知道舍叫VB.请问如何在文本框实现自右向左滚动? -
缪详15563927543…… 前两天刚给一个朋友回答过,而且下面代码还可以随机的改变颜色.现在界面上拖一个按钮、一个标签、一个定时器,在代码窗口加如下代码即可:Private Sub Command1_Click()If Command1.Caption = ＂开始＂ ThenLabel1.Left = Me....
缪详15563927543…… 你未说明VB的版本. 有两种方法可以实现,VB6/.NET都提供这两种方法. 1、Timer 2、Thread 判断阅读者可能需要的阅读时间,经历这个时间后移动滚动条即可.
@仇届1404：vb文本框怎样才能自动滚动 -
缪详15563927543…… 我只做了一个点击按钮图片左右摇摆的程序 其他的你自己参照下应该可以做出来的--- 需要1个图片控件,一个按钮和一个时钟 代码如下-- Public Class Form1 Dim x As String = ＂右＂ Private Sub Button1_Click(ByVal sender As System.Object, ...
@仇届1404：vb文本框怎样才能自动滚动 -
缪详15563927543…… 代码指定光标位置就可以了
@仇届1404：vb文本框中内容自动滚动 -
缪详15563927543…… 用Timer控件1、将Text控件放在Picture里,改变Text的Top值2、 SendMessage Text1.hWnd, EM_LINESCROLL, H, V H:水平滚动 V:垂直滚动 第二种方法不平滑
@仇届1404：如何在VB中实现对TEXTBOX的自动滚屏? -
缪详15563927543…… 1.竖着的滚动条怎样能固定在最下方而不是最上方? Text1.multiline=True;可将VScroll1.Value的初始值设到最大值(在程序的一开始将VScroll1.Value=VScroll1.Max) 2.在textbox里显示最新text2.输入的内容,以前的内容能回到上面去.(类似聊天室?) 代码:Text1.Text=Text1.Text+Text2.Text
@仇届1404：如何用VB实现文本自动滚动? -
缪详15563927543…… Private Sub Command1_Click() Text1.Text = ＂aaaaaaaaaaaaaaaaabbbbbbbbbbbbbbbbbbbbbbcccccccccccccccccccdddddddddddddddeeeeeeeeeeeeeeeeeffffffffffffffffffggggggggggggg＂ Timer1.Enabled = True End Sub Private Sub Timer1_Timer() tmp = Text1.Text Text1.Text = Right(tmp, Len(tmp) - 1) & Left(tmp, 1) End Sub 参考一下,你自己改改!
@仇届1404：VB text文本框滚动条自动到尾部 -
缪详15563927543…… Private Declare Function SendMessage Lib ＂user32＂ Alias ＂SendMessageA＂ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongConst WM_VSCROLL = &H115Const SB_BOTTOM = 7每次修改Text1.Text后调用,作用是滚动到Edit底部:SendMessage Text1.hwnd, WM_VSCROLL, SB_BOTTOM, 0还有其他消息,用来控制向上/下滚动若干行/页的有需要可以去查一查
@仇届1404：VB编写,使文本框里的文本自动向上滚动. -
缪详15563927543…… 画个timer,设置interval=100,再画个文本框,加点内容 ===================================== Private Declare Function SendMessage Lib ＂user32＂ Alias ＂SendMessageA＂ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Timer1_Timer() SendMessage Text1.hwnd, 277, 1, 0 End Sub
@仇届1404：如何在VB中实现TextBox文本文字滚动 -
缪详15563927543…… Private Sub Timer1_Timer() tmp = Text1.Text Text1.Text = Right(tmp, Len(tmp) - 1) & Left(tmp, 1) End Sub
@仇届1404：我对VB了解很少充其量知道舍叫VB.请问如何在文本框实现自右向左滚动? -
缪详15563927543…… 前两天刚给一个朋友回答过,而且下面代码还可以随机的改变颜色.现在界面上拖一个按钮、一个标签、一个定时器,在代码窗口加如下代码即可:Private Sub Command1_Click()If Command1.Caption = ＂开始＂ ThenLabel1.Left = Me....
