freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

vb最簡(jiǎn)單實(shí)例入門(mén)教程(存儲(chǔ)版)

  

【正文】 就是說(shuō),只能有一個(gè)按鈕被選中。刪除兩邊空格后的字符串  然后,我們通過(guò)一個(gè)叫做addstar的函數(shù)為字符串加上星號(hào),以前曾說(shuō)過(guò)函數(shù)與過(guò)程的分別,函數(shù)會(huì)返回一個(gè)函數(shù)值,所以addstar也就相當(dāng)于一個(gè)變量,其實(shí)這很好理解,就象中學(xué)代數(shù)中的函數(shù),函數(shù)就相當(dāng)于變量Y,而函數(shù)中的參數(shù)則相當(dāng)于自變量X,當(dāng)然可能有很多自變量XX2……請(qǐng)?jiān)彛也⒉幌朐谶@里上數(shù)學(xué)課,因?yàn)槲覅拹耗峭嬉鈨?,特別是上了大學(xué)之后,好在大二以后就再也不會(huì)有數(shù)學(xué)課了,哈哈……Function addstar(tempword As String) As StringDim charindex%Dim pasteword$ 39。顯示刪除右空格后的字符串End Sub Private Sub Option3_Click() = LRTrimmedword 39。但滾動(dòng)條除去滾動(dòng)窗口,還有一個(gè)很重要的作用――輸入,想想你經(jīng)常用到的一些家用電器上調(diào)節(jié)聲音或別的什么東西的滑塊,你把它滑向大的一方音量就會(huì)增大,而你把它滑向小的一方音量就會(huì)減小,或者一個(gè)控制左右兩個(gè)音箱的均衡器,當(dāng)滑塊在正中央的時(shí)候,兩個(gè)音箱的音量是相同的,當(dāng)你把滑塊偏向一方時(shí),音箱的音量有了大小之分,在Windows操作中,我們也經(jīng)常要用到類(lèi)似的效果。在計(jì)算機(jī)中,顏色的表示就是象我們剛才描述的樣子,它把顏色分為紅(R)、綠(G)和藍(lán)(B)。列表框(ListBox)和復(fù)合列表框(ComboBox)也是我們經(jīng)常見(jiàn)到的視窗元素,我們從它所列示的條目中選出所需的,兩種列表框只是在外觀上略有不同,但從本質(zhì)和操作方法來(lái)說(shuō)它們是很相象的,它們也有一些特殊的屬性:List屬性,你可以利于該屬性象列表框或復(fù)合列表框中添加條目,但也可以在程序設(shè)計(jì)中通過(guò)AddItem方法添加。例子一,建立一個(gè)新項(xiàng)目文件,在Form1上添加一個(gè)List控件,調(diào)整適當(dāng)?shù)某叽?,無(wú)需改變?nèi)魏螌傩?。Style屬性:表示列表框或復(fù)合列表框以何種風(fēng)格顯示,二者參數(shù)不同?,F(xiàn)在,新建一個(gè)項(xiàng)目文件,在Form1中如圖6-12布局控件,各控件屬性如下表:HsrollBar Name Hscroll1Index 0、2(共同屬性)Max 255Min 0LargeChange 10SmallChange 1 Label Name Label1Index 0、2Index 0 Caption “紅:” Index 1 Caption “綠:”Index 2 Caption “藍(lán):” Label Name Label2Caption “顏色值” TextBox Name Text1Text “” PictureBox Name Picuture1  為了把十進(jìn)制數(shù)值換成十六進(jìn)制數(shù)值,要使用一個(gè)叫做Hex()的函數(shù),它把十進(jìn)制數(shù)值轉(zhuǎn)化為十六進(jìn)制的字符,但對(duì)于只有一位的十六進(jìn)制字符,這個(gè)函數(shù)并不在高位補(bǔ)零,為了視覺(jué)上的正確,我設(shè)計(jì)了一個(gè)小函數(shù)幫助它給一位的十六進(jìn)制字符補(bǔ)零.程序代碼很簡(jiǎn)單,見(jiàn)下:Dim RedStr, GreenStr, BlueStr As String’RGB的字符Dim RedNum, GreenNum, BlueNum As Integer’RGB的數(shù)值 Function GetColorValue() As String‘獲得輸入值RedNum = HScroll1(0).ValueGreenNum = HScroll1(1).ValueBlueNum = HScroll1(2).ValueRedStr = Hex(RedNum)If Len(RedStr) 2 Then RedStr = 0 + RedStr’補(bǔ)零GreenStr = Hex(GreenNum)If Len(GreenStr) 2 Then GreenStr = 0 + GreenStrBlueStr = Hex(BlueNum)If Len(BlueStr) 2 Then BlueStr = 0 + BlueStrGetColorValue = RedStr + GreenStr + BlueStr’合并End FunctionPrivate Sub Form_Load()‘初始化程序 = GetColorValue = RGB(RedNum, GreenNum, BlueNum)39。下面我們看一個(gè)實(shí)例。下面是程序代碼:Private Sub Check1_Click()If Then = 1 = 1Else: = 0 = 0 = 0 = 0End IfEnd Sub Private Sub Check2_Click()If Then = 1Else: = 0End IfEnd Sub Private Sub Check3_Click()If Then = 1Else: = 0End IfEnd Sub Private Sub Check4_Click()If Then = 1Else: = 0End IfEnd Sub這個(gè)程序比我們見(jiàn)過(guò)的任何程序都簡(jiǎn)單,就不再做說(shuō)明。清除所有文本框中的字符 = = = End Sub Private Sub Text1_LostFocus()Dim Origionword As StringOrigionword = = addstar(Origionword)LTrimmedword = addstar(LTrim(Origionword))RTrimmedword = addstar(RTrim(Origionword))LRTrimmedword = LTrim(RTrim(Origionword))End Sub Private Sub Option1_Click() = LTrimmedword 39。下面在程序中添加代碼,首先在General中聲明窗體級(jí)變量:Dim LTrimmedword$, RTrimmedword$ 39?! ∩洗沃v到文本框的用處,還有意思嗎?你是否能把上次的程序稍稍變動(dòng)一下,來(lái)計(jì)算出輸入的單詞數(shù),提示一下,單詞與單詞之間是用空格分隔開(kāi)的?! ≡趺礃?,十分簡(jiǎn)單吧,我們將在下一次繼續(xù)討論VB的輸入機(jī)制!  在繼續(xù)上面的內(nèi)容時(shí),我想再回顧和強(qiáng)調(diào)幾個(gè)在字符串操作中經(jīng)常函數(shù):  先是幾個(gè)已經(jīng)接觸過(guò)的,Mid(),Asc(),Len(),它們的語(yǔ)法分別是:Mid(字符型,起始字符,長(zhǎng)度)  返回子字符串,如果從字符串的第一個(gè)字符取起,起始字符為1,依此類(lèi)推。 Str(30 StrLength) amp。把Command1放在水平的中央 = +200 = ( ) / 239。 Text1 MultiLink TrueText “” Picture1 Autosize TrueBackColor amp。(如圖6-6)Form1 Icon Stop圖標(biāo)Caption 停車(chē)檢查BorderStyle 3 Label1 Caption 警官,我超速是有原因的,請(qǐng)聽(tīng)我說(shuō):BackColor amp。Text沒(méi)有Click事件,它的缺省事件是Change,也就是當(dāng)Text框里的一旦內(nèi)容改變就會(huì)激發(fā)該事件發(fā)生,還是讓我們用實(shí)例說(shuō)話吧?! ∥覀兺ㄟ^(guò)這個(gè)窗體,對(duì)輸入框進(jìn)行完整的控制,原理是這樣的:當(dāng)我們把窗體中要填寫(xiě)的對(duì)輸入框的參數(shù)完成后按下OK按鈕,就會(huì)出現(xiàn)我們?cè)O(shè)計(jì)的那個(gè)輸入框,我們從輸入框退出時(shí)則返回我們投票的結(jié)果,代碼如下.  窗體初次被裝入時(shí),Label1(3)、Label(4)和Text1(3)、Text1(4)的Enabled屬性都是False,我們需要通過(guò)改變Check1的Value(1,被選中,0,未選中)是他們有效或無(wú)效。Context――數(shù)值表達(dá)式,指定適合的幫助主題。關(guān)于菜單的Visible、Enabled等屬性請(qǐng)自己嘗試?,F(xiàn)在可以退出菜單設(shè)計(jì)窗口,菜單如圖5-4。下面請(qǐng)跟我一起設(shè)計(jì)第一個(gè)菜單。下面舉個(gè)例子: 建立一個(gè)新窗體和兩個(gè)按鈕,Name屬性分別為cmdOK和cmdCancel,把前者的Default設(shè)為T(mén)rue,后者的Cancel設(shè)為T(mén)rue,Caption屬性分別為OK和Cancel。Run的代碼如下:Sub Run()Num1 = Val(StrNum2)Num2 = Val(StrNum1)Select Case RunsignCase 1’加equal = Num1 + Num2Case 2’減equal = Num1 Num2Case 3’乘equal = Num1 * Num2Case 4’除equal = Num1 / Num2End SelectStrNum2 = Str(equal)StrNum1 = StrNum2 = StrNum2End Sub 下面是其余的代碼:(在Command1_Click事件里,接著寫(xiě)) Case 11If Not SignFlag Then = StrNum1equal = Val(StrNum1)FirstNum = TruePointFlag = FalseElseCall RunSignFlag = FalseEnd IfCase Else’清除按鈕Call ClearData里面又用到了一個(gè)ClearData過(guò)程,實(shí)際上就是Form_Load里的變量初賦值,代碼如下:Sub ClearData()Num1 = 0Num2 = 0StrNum1 = StrNum2 = FirstNum = TruePointFlag = FalseRunsign = 0SignFlag = False = 0.End Sub這樣完整的程序就完成了,本章介紹了VB的第一個(gè)控件――按鈕,并且舉例,希望你繼續(xù)看下一章――菜單?! ≡贔orm_Load事件里給變量初賦值:Num1 = 0Num2 = 0StrNum1 = StrNum2 = FirstNum = True  因?yàn)?7個(gè)按鈕使用的是同一事件,所以我們用一個(gè)Select Case語(yǔ)句區(qū)分各個(gè)按鈕,雙擊任意按鈕輸入代碼:Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0 To 9If FirstNum ThenStrNum1 = Str(Index)’實(shí)型轉(zhuǎn)字符型FirstNum = False’初賦值為假Else’非初賦值StrNum1 = StrNum1 + Str(Index)End If = StrNum1’顯示還有其他語(yǔ)句,等待插入End SelectEnd Sub運(yùn)行程序的話已經(jīng)可以輸入數(shù)據(jù),下面我們來(lái)處理小數(shù)點(diǎn)。 3. 輸入數(shù)字后,按下“等于鍵”將仍輸出原來(lái)的數(shù)字,輸入運(yùn)算符和第二個(gè)數(shù)字后在按下“等于”,將得到二者的結(jié)果。然后,添加控件,包括一個(gè)Text框(Text1),和17個(gè)按鈕,這17個(gè)按鈕使用的名稱(chēng)都是Command1,只是Index屬性不同,就好象一個(gè)數(shù)組,創(chuàng)立一組按鈕的方法是,先在窗體上建立一個(gè)按鈕(Command1),然后在Command1上擊鼠標(biāo)右鍵,選擇復(fù)制(Copy),然后在窗體上任意部位擊右鍵,選擇粘貼(Paste),系統(tǒng)會(huì)提示是否創(chuàng)建控件組,選擇“是”,重復(fù)上面步驟,直至創(chuàng)立17個(gè)按鈕為止。用來(lái)儲(chǔ)存字符串※注意:為什么用全局變量?VB里每一個(gè)小過(guò)程都相當(dāng)于一個(gè)程序,程序里的變量稱(chēng)為局部變量,是只能在程序內(nèi)部使用的,而當(dāng)程序調(diào)用結(jié)束后,由于從內(nèi)存中被清除,所以變量?jī)?chǔ)存的值也就消失了,這里的全局變量是用來(lái)在過(guò)程中傳遞字符串。函數(shù)和過(guò)程都可以有參數(shù),也可以沒(méi)有參數(shù)。例如:a Mod b表示a被b整除以后的余數(shù)。 +:加法運(yùn)算,也適合于字符串的之間的合并運(yùn)算。 While …… Wend 語(yǔ)句 Print “a=Case 2 語(yǔ)句End If所有這些可以用一個(gè)表格表示:條件1 True False 語(yǔ)句1 條件2 True False 語(yǔ)句2 條件3 True False ……… ……………………… 條件N True False 語(yǔ)句N(xiāo) 語(yǔ)句N(xiāo)+1   用了過(guò)多的Else后你會(huì)感到很不方便,而且程序結(jié)構(gòu)也不清晰,所以大多數(shù)的語(yǔ)言還有Select語(yǔ)句幫助解決這個(gè)問(wèn)題。四、條件語(yǔ)句如果你學(xué)過(guò)任何一種編程的話,都會(huì)知道在程序里控制其流程的有兩種語(yǔ)句,條件與循環(huán),VB自然也不例外,其實(shí)不管哪種語(yǔ)言,條件和循環(huán)的樣子都差不多,只不過(guò)各有各的規(guī)矩罷了。 VB里的說(shuō)明語(yǔ)句(Declare),僅支持動(dòng)態(tài)鏈結(jié)庫(kù)(DLL)的子程序和無(wú)變量函數(shù)。 數(shù)組的定義類(lèi)似于變量定義,所不同的是數(shù)組需要指定數(shù)組中的元素個(gè)數(shù),例如: Dim IntegerArray(99) As Integer這個(gè)數(shù)組中包含100個(gè)元素,腳標(biāo)從0到99。 2. 數(shù)據(jù)類(lèi)型的定義方法: KeyPress事件:按鍵事件。 上面所說(shuō)的“光標(biāo)”并非指鼠標(biāo)指針。 Unload事件:僅適用于窗體對(duì)象,當(dāng)窗體被卸載時(shí)運(yùn)行。 英文Visual的意思是“視覺(jué)的”,“可視的Baisc”這個(gè)名字可能抽象了點(diǎn),但實(shí)際上它卻是最直觀的編程方法,之所以叫做“可視”,你只要看到VB的界面就會(huì)明白,實(shí)際上你無(wú)需編程,就可以完成許
點(diǎn)擊復(fù)制文檔內(nèi)容
醫(yī)療健康相關(guān)推薦
文庫(kù)吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1