左邊放一個專門放行數(shù)的listbox,根據(jù)右邊的行數(shù)自動生成行號
創(chuàng)新互聯(lián)建站堅持“要么做到,要么別承諾”的工作理念,服務(wù)領(lǐng)域包括:成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù),滿足客戶于互聯(lián)網(wǎng)時代的瑞安網(wǎng)站設(shè)計、移動媒體設(shè)計的需求,幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴!
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
Dim arr() = RichTextBox1.Text.Split(vbLf)
Dim str As String
str = ""
For i = 1 To arr.Length
str = str i vbCrLf
Next
RichTextBox2.Text = str
End Sub
接下來是兩個listbox的同步滾動,可以參考這篇文章:
datagrid不行,因為datagrid綁定數(shù)據(jù)庫,因此不能添加一個附加行。即使在SQL命令中通過union方式進(jìn)行統(tǒng)計后顯示,但又會導(dǎo)致datagrid不能新增。解決辦法有2個:1、用MSFlexGrid;2、自己寫一個用戶控件,大概意思就是里面有2個datagrid,一個大的,專門顯示記錄,一個小的,不要標(biāo)題行,專門顯示合計數(shù);在里面增加寫代碼使它們水平同步滾動。
文字寫在label的caption屬性中,調(diào)用timer()函數(shù)
附上我寫的左右往復(fù)運(yùn)動代碼,實現(xiàn)image1在picture1中左右往復(fù)運(yùn)動
Private
Sub
Timer1_Timer()
If
Image1.Left
=
Picture1.ScaleWidth
-
Image1.Width
Then
k
=
1
If
k
=
1
Then
Image1.Left
=
Image1.Left
-
50
Else
Image1.Left
=
Image1.Left
+
50
End
If
If
Image1.Left
=
Then
k
=
End
Sub
文章題目:vb.net同步滾動 vb窗口滾動條怎么設(shè)置
標(biāo)題鏈接:http://jinyejixie.com/article36/doseepg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供外貿(mào)網(wǎng)站建設(shè)、營銷型網(wǎng)站建設(shè)、移動網(wǎng)站建設(shè)、網(wǎng)站策劃、用戶體驗、網(wǎng)站制作
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)