vb.net 制作行標(biāo)尺

左邊放一個(gè)專(zhuān)門(mén)放行數(shù)的listbox，根據(jù)右邊的行數(shù)自動(dòng)生成行號(hào)

創(chuàng)新互聯(lián)建站堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿(mǎn)足客戶(hù)于互聯(lián)網(wǎng)時(shí)代的瑞安網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(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

接下來(lái)是兩個(gè)listbox的同步滾動(dòng)，可以參考這篇文章：

Vb.net中如何將數(shù)組數(shù)據(jù)顯示在dategridview控件中？

datagrid不行，因?yàn)閐atagrid綁定數(shù)據(jù)庫(kù)，因此不能添加一個(gè)附加行。即使在SQL命令中通過(guò)union方式進(jìn)行統(tǒng)計(jì)后顯示，但又會(huì)導(dǎo)致datagrid不能新增。解決辦法有2個(gè)：1、用MSFlexGrid；2、自己寫(xiě)一個(gè)用戶(hù)控件，大概意思就是里面有2個(gè)datagrid，一個(gè)大的，專(zhuān)門(mén)顯示記錄，一個(gè)小的，不要標(biāo)題行，專(zhuān)門(mén)顯示合計(jì)數(shù)；在里面增加寫(xiě)代碼使它們水平同步滾動(dòng)。

VB.NET中，如何編寫(xiě)代碼使文字在窗口中上下循環(huán)滾動(dòng)？

文字寫(xiě)在label的caption屬性中，調(diào)用timer()函數(shù)

附上我寫(xiě)的左右往復(fù)運(yùn)動(dòng)代碼，實(shí)現(xiàn)image1在picture1中左右往復(fù)運(yùn)動(dòng)

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