亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

VB入門教程之四

2019-11-18 17:54:13
字體:
來源:轉載
供稿:網友
第四章 按鈕(一)

  從本章開始我們將正式進入VB的編程世界,但這還僅僅是個開端,要編出功能強大的軟件,還要學很多東西,那就要看以后的VB高級教程了,我也得努力學??!

  按鈕是我們在Windows操作見到最多的控件,它們有著各種各樣的功能:“確認”、“取消”、“下一步”等等,這些都是按鈕的表現,另外還有很多圖形話的按鈕,其實它們并沒什么不同,所有的按鈕都是通過單擊(click)事件實現的,只不過是在外表不同罷了。下面就讓我們建立一個最簡單的按鈕,雙擊工具箱的CommandButton,將在窗體上建立一個形如圖4-1的按鈕,它的缺省名(Name屬性)為Command1,我們可以把它改名為cmdExit,把Caption屬性設為“退出”,然后雙擊,按鈕填寫代碼:

  

  Command1.Caption="復原"

  Else

  Text1.Text=StoreString

  Command1.Caption="清除"

  EndIf

  EndSub

  同樣可以上面的功能,但是卻少用了一個控件,控件使用少的程序啟動會快些。


  下面的例子要更加復雜些,大家一定都用過Windows附件中的計算器,它是一個標準的科學計算器,利用VB我們也可以做到,只是沒有那么復雜,四則運算而已。

  先建立一個新的項目文件,里面包含一個Form1的窗體。然后,添加控件,包括一個Text框(Text1),和17個按鈕,這17個按鈕使用的名稱都是Command1,只是Index屬性不同,就好象一個數組,創立一組按鈕的方法是,先在窗體上建立一個按鈕(Command1),然后在Command1上擊鼠標右鍵,選擇復制(Copy),然后在窗體上任意部位擊右鍵,選擇粘貼(Paste),系統會提示是否創建控件組,選擇“是”,重復上面步驟,直至創立17個按鈕為止。各控件屬性如下表:

  Text1

  BackColor=&H00C0FFFF&

  Text=“0.”

  Command1

  Index0DD16

  Index0DD9Caption=“0”-“9”

  Index10Caption=“.”

  Index11Caption=“=”

  Index12Caption=“ ”

  Index13Caption=“-”

  Index14Caption=“×”

  Index15Caption=“÷”

  Index16Caption=“清除”

  如果想改變一些其他的屬性,比如

  因為Text1里是存放字符串的,所以要把輸入的數據進行運算,必須把字符型變量轉變為實型變量,分別用Num1、Num2和StrNum1、StrNum2進行存放。

  在Form_Load事件里給變量初賦值:

  Num1=0

  Num2=0

  StrNum1=""

  StrNum2=""

  FirstNum=True

  因為17個按鈕使用的是同一事件,所以我們用一個SelectCase語句區分各個按鈕,雙擊任意按鈕輸入代碼:

  PrivateSubCommand1_Click(IndexAsInteger)

  SelectCaseIndex

  Case0To9

  IfFirstNumThen

  StrNum1=Str(Index)’實型轉字符型

  FirstNum=False’初賦值為假

  Else’非初賦值

  StrNum1=StrNum1 Str(Index)

  EndIf

  Text1.Text=StrNum1’顯示

  <還有其他語句,等待插入>

  EndSelect

  EndSub

  運行程序的話已經可以輸入數據,下面我們來處理小數點。

  在General里聲明新的變量:

  DimPointFlagAsBoolean'判斷是否已有小數點

  我們知道小數點只能輸入一次,一個數據中不能有多個小數點存在,所以需要一個布爾變量做判斷。

  在Form_Load里進行初賦值:

  PointFlag=False

  在Command的單擊事件里接著上面輸入新的代碼:

  Case10

  IfNotPointFlagThen’如果沒有小數點

  IfFirstNumThen’如果是第一個字符

  StrNum1="0."

  FirstNum=False

  Else

  StrNum1=StrNum1 "."

  EndIf

  Else’已有小數點

  ExitSub’則退出單擊事件

  EndIf

  PointFlag=True

  Text1.Text=StrNum1

->


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
久久精品国产欧美亚洲人人爽| 91久久久久久久久| 美女999久久久精品视频| 中文字幕精品在线视频| 2019最新中文字幕| 亚洲图片欧美午夜| 91久久精品国产91久久性色| 国产欧美精品va在线观看| 国产精品日韩专区| 亚洲色图校园春色| 国产精品久久9| 亚洲精品二三区| 亚洲影视中文字幕| 亚洲一区中文字幕| 日本不卡免费高清视频| 国产香蕉97碰碰久久人人| 亚洲a∨日韩av高清在线观看| 国产精品av在线| 欧美国产日产韩国视频| 日韩不卡中文字幕| 亚洲色图15p| 亚洲精品xxxx| 亚洲国产精品大全| 日韩欧美在线观看视频| 欧美日韩国产色视频| 亚州成人av在线| www.亚洲男人天堂| 青青草国产精品一区二区| 欧美精品中文字幕一区| 久久国产精品电影| 亚洲sss综合天堂久久| 日韩国产欧美区| 日本欧美一二三区| 午夜精品三级视频福利| 中国china体内裑精亚洲片| 日韩精品在线视频| 精品久久久久久中文字幕大豆网| 久久精品欧美视频| 久久影院资源站| 91国产美女在线观看| 国产精品专区h在线观看| 97涩涩爰在线观看亚洲| 成人妇女免费播放久久久| 欧美一区二区.| 国产精品久久久久久久电影| 91人人爽人人爽人人精88v| 91热精品视频| 欧美一区视频在线| 国内精品视频在线| 一本大道久久加勒比香蕉| 91精品中国老女人| 久久久久久久成人| 欧美性极品少妇精品网站| 亚洲91精品在线| 欧美日韩中文字幕综合视频| 欧美日韩在线视频首页| 日韩成人av网| 亚洲国产日韩欧美在线动漫| 久久天堂电影网| 久久久久久久久网站| 一区二区亚洲精品国产| 丝袜美腿亚洲一区二区| 欧洲成人免费aa| 亚洲午夜国产成人av电影男同| 国产做受69高潮| 精品高清美女精品国产区| 午夜精品视频在线| 久久久久国产视频| 亚洲欧美成人在线| 久久久久北条麻妃免费看| 成人网址在线观看| 日韩激情av在线免费观看| 国产精品九九九| 国产精品18久久久久久首页狼| 久久免费高清视频| 亚洲国产精品久久久| 色琪琪综合男人的天堂aⅴ视频| 日韩中文字幕网站| 亚洲国产日韩欧美在线99| 黑人极品videos精品欧美裸| 91精品国产综合久久男男| 欧美一级片久久久久久久| 在线观看国产精品日韩av| 免费不卡在线观看av| 久久久久久中文字幕| 欧美视频在线视频| 亚洲欧美中文日韩在线| 欧美亚洲激情视频| 91精品久久久久久久久| 亚洲国产天堂网精品网站| 91精品国产综合久久香蕉最新版| 中文字幕亚洲一区二区三区| 亚洲电影免费观看| 国产aⅴ夜夜欢一区二区三区| 欧美午夜精品久久久久久浪潮| 久久99亚洲精品| 欧美日韩美女视频| 亚洲最新在线视频| 国产精品免费观看在线| 热99精品只有里视频精品| 国产91精品久| 一区国产精品视频| 亚洲图片欧美午夜| 久久免费精品日本久久中文字幕| 国产午夜精品免费一区二区三区| 美女av一区二区| 欧美专区国产专区| 欧美日韩亚洲一区二区| 日韩欧美中文字幕在线播放| www高清在线视频日韩欧美| 55夜色66夜色国产精品视频| 最近免费中文字幕视频2019| 亚洲专区国产精品| 国产日韩av在线| 亚洲国产精久久久久久久| 国产精品亚洲аv天堂网| 久热99视频在线观看| 日韩av免费在线| 国产欧美日韩中文| 日韩电影在线观看永久视频免费网站| 亚洲在线视频福利| 97国产在线观看| 激情亚洲一区二区三区四区| 日韩欧美在线免费| 日韩美女在线看| 亚洲www永久成人夜色| 97久久精品人人澡人人爽缅北| 成人福利网站在线观看11| 亚洲国产精品国自产拍av秋霞| 亚洲老司机av| 国产精品久久久久久中文字| 91欧美激情另类亚洲| 欧美日韩一区二区在线播放| 91免费视频国产| 精品视频偷偷看在线观看| 国语自产在线不卡| 国产亚洲欧洲黄色| 久久久久久久久久久久久久久久久久av| 欧美国产日本高清在线| 2021久久精品国产99国产精品| 亚洲精品中文字幕av| 久久久久五月天| 国内精品国产三级国产在线专| 欧美激情综合色综合啪啪五月| 亚洲成人精品久久久| 大荫蒂欧美视频另类xxxx| 成人羞羞国产免费| 国产精品福利无圣光在线一区| 日韩视频一区在线| 亚洲一区亚洲二区亚洲三区| 国产精品久久久久不卡| 亚洲电影免费观看高清完整版在线观看| 在线观看日韩www视频免费| 欧美激情综合色综合啪啪五月| 免费97视频在线精品国自产拍| 中文字幕综合在线| 中文字幕久精品免费视频| 韩国19禁主播vip福利视频| 奇米一区二区三区四区久久| 亚洲系列中文字幕| 91亚洲精华国产精华| 久久久久国产视频| 欧美精品在线免费播放| 亚洲欧美日韩国产中文|