卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

vb中下拉式組合框添加內(nèi)容 如何設(shè)置combobox下拉框的內(nèi)容?

如何設(shè)置combobox下拉框的內(nèi)容?設(shè)置中combobox下拉框的內(nèi)容方法:,vb2010怎么把工具箱固定在右側(cè)?里面的窗口可不可以固定住,不要一雙擊就最大化?點(diǎn)那個(gè)下拉三角里面的東西就這個(gè)可以實(shí)現(xiàn)

如何設(shè)置combobox下拉框的內(nèi)容?

設(shè)置中combobox下拉框的內(nèi)容方法:,

vb2010怎么把工具箱固定在右側(cè)?里面的窗口可不可以固定住,不要一雙擊就最大化?

點(diǎn)那個(gè)下拉三角里面的東西就這個(gè)可以實(shí)現(xiàn)固定不動的

怎樣用做記事本?

步驟一:繪制的界面。

新建一個(gè)標(biāo)準(zhǔn)EXE工程,將其Caption屬性替換成“全記事本”,然后點(diǎn)擊Icon屬性給它找個(gè)適合的Icon圖標(biāo)。左鍵單擊菜單“工程”-“部件”,在彈出來的“部件”對話框里找到Microsoft RichText Box6.0和公共對話框Microsoft Common Dialog6.0并鼠標(biāo)右鍵點(diǎn)擊它們,右擊“可以確定”按鈕。過了一會兒左邊的工具欄上直接出現(xiàn)了我們上次新添的兩個(gè)控件了。在窗體上繪制RichTextBox和CommnDialog,其中RichTextBox的大小和位置可不用理睬,我們將在代碼中一次性處理它,當(dāng)然,有必要把它的ScrollBar屬性設(shè)為2-rtfVertical,這樣的話在然后打開和編輯文件時(shí)垂直滾動條才和用。

步驟二:編輯菜單。

按CtrlE菜單菜單編輯器,我們來做追加幾個(gè)菜單:

一.文件菜單:

文件(第一層)mnuFile

空白文檔(第二層)mnuNew

打開(第二層)mnuOpen

存放(第二層)mnuSave

-(第二層)mnuFileSep(分隔線)

后退(第二層)mnuExit

二.編輯菜單:

可以編輯(第一層)mnuEdit

復(fù)制(第二層)mnuCopy

剪切粘貼(第二層)mnuCut

ctrl v粘貼(第二層)mnuPaste

-(第二層)mnuEditSep(分隔線)

選中全部(第二層)mnuSelecAll

三.搜索菜單:

搜索(第一層)mnuSearch

查看(第二層)mnuFind

查看下一個(gè)(第二層)mnuFindOn

四.幫菜單:

好處(第一層)mnuHelp

使用說明(第二層)mnuUsage

關(guān)于(第二層)mnuAbout

(注:各菜單項(xiàng)的快捷鍵請一一設(shè)置里)

那樣最好,其它的菜單項(xiàng)以后再參照要添加?,F(xiàn)在再次進(jìn)入:

步驟三:編寫代碼。

聲明直接輸入變量

DimsFindthoughString

聲明文件類型

DimFileType,FiTypeasString

系統(tǒng)初始化程序

Private Sub Form_Load()

設(shè)置中程序啟動后時(shí)的大小

Me.Height6000

Me.Width9000

EndSub

設(shè)置編輯框的位置和大小

PrivateSubForm_Resize()

OnErrorResumeNext出錯(cuò)全面處理

RichTextBox1.Left20

RichTextBox1.Height ScaleHeight-40

RichTextBox1.WidthScaleWidth-40

EndSub

剛建文件

Private Sub mnuNew_Click()

RichTextBox1.Text