国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 應(yīng)用 > 軟件技巧 > 正文

VB 神童教程第二章第二節(jié)--TextBox控件

2024-07-16 17:58:49
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友
在 Visual Basic 操作界面中,TextBox(文本框)控件所代表的圖標(biāo)如圖一:



圖一



TextBox 控件主要用來(lái)顯示文本或用來(lái)輸入文本,如 Windows 登陸時(shí)的“口令”窗口,或者記事本的整個(gè)編輯區(qū)域。


雙擊工具箱中的文本框控件或者單擊文本控件,然后用鼠標(biāo)在 VB 的工作區(qū)域拖拉,就可以創(chuàng)建文本框了。如圖二:



圖二



文本框控件的默認(rèn)名稱為 TextX(X為 1、2、3,等等),命名規(guī)則為 TxtX(X為用戶自定義的名字,如 TxtShow、TxtFont、TxtColor ,等等)


一、文本框控件的主要屬性:


1、Text(文本)屬性:


本控件最重要的屬性,用來(lái)顯示文本框中的文本內(nèi)容,可以在界面設(shè)置時(shí)指定,如圖三:



圖三



也可以在程序中動(dòng)態(tài)修改,程序代碼規(guī)則:


文本框控件名.Text = "欲顯示的文本內(nèi)容"


如要在一個(gè)名為 TxtFont 的文本框控件中顯示“隸書(shū)”字樣,那么輸入代碼:


TxtFont.Text = "隸書(shū)"


習(xí)題一:創(chuàng)建一個(gè)文本框(TxtContent)用來(lái)顯示文本;按鈕一(Cmd1),點(diǎn)擊時(shí)文本框內(nèi)容變?yōu)椤案襾?lái)學(xué)VB神童教程”;按鈕二(Cmd2),點(diǎn)擊時(shí)文本框內(nèi)容清空(也就是沒(méi)有內(nèi)容)。


答案:見(jiàn)答案區(qū)。


2、SelText(選中文本)屬性:


本屬性返回或設(shè)置當(dāng)前所選文本的字符串,如果沒(méi)有選中的字符,那么返回值為空字符串即""。


請(qǐng)注意,本屬性的結(jié)果是個(gè)返回值,或?yàn)榭眨驗(yàn)檫x中的文本。


一般來(lái)說(shuō),選中文本屬性跟文件復(fù)制、剪切等剪貼板(在 VB 中,剪貼板用 Clipboard 表示)操作有關(guān),如要將文本框選中的文本拷貝到剪貼板上:


Clipboard.SetText 文本框名稱.SelText(注意,本行沒(méi)有表示賦值的等號(hào)。)


要將剪貼板上的文本粘貼到文本框內(nèi):


文本框名稱.SelText = Clipboard.GetText(注意,本行有表示賦值的等號(hào)。)


例:一個(gè)文本框(TxtContent),按鈕一(CmdCopy)用于復(fù)制文本框中的選中文本;按鈕二(CmdPaste)用于將剪貼板上的內(nèi)容粘貼到文本框內(nèi)。


按鈕一:


Private Sub CmdCopy_Click()


Clipboard.SetText TxtContent.SelText


End Sub


按鈕二:


Private Sub CmdPaste_Click()


TxtContent.SelText = Clipboard.GetText


End Sub


3、SelStart 與 SelLength 屬性:


SelStart ,選中文本的起始位置,返回的是選中文本的第一個(gè)字符的位置。SelLength ,選中文本的長(zhǎng)度,返回的是選中文本的字符串個(gè)數(shù)。 例如:文本框 TxtContent 中有內(nèi)容如下:
發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 资中县| 合川市| 中西区| 津市市| 新丰县| 青海省| 石林| 凉山| 天津市| 化隆| 娄底市| 西华县| 常州市| 万年县| 鸡东县| 和政县| 黎平县| 乌拉特中旗| 唐河县| 宁蒗| 朝阳市| 乌苏市| 交城县| 宿松县| 巴东县| 渭南市| 兴安盟| 宣恩县| 襄汾县| 资源县| 建湖县| 广灵县| 万荣县| 兴海县| 邵阳县| 贺兰县| 句容市| 阳东县| 邳州市| 广东省| 毕节市|