国产免费视频在线,色妞妞视频,一区二区免费网站

沒學過編程的人常常會問，編程難不難，這個問題很難回答。難，的確很難，要編一個好的程序尤其是這樣，并且有些程序還要用到一些其他專業(yè)的知識，比如說一個圖形處理程序，就要對圖像的格式有所了解，甚至一些美術知識；但編程也很容易，就拿VB來說，編一個自娛自樂的小工具還是一件相當愜意的事情呢，當然它沒法完全代替人工，譬如說完成你的家庭作業(yè)、向?qū)W校發(fā)射導彈……

　　作為第四代計算機語言，VB的特點是顯而易見的。因為是“可視的”所以我們不妨先看看VB的界面（圖1_1）（我用的是VB4.032位版），很容易可以看到，屏幕上有五個窗口，（1）是菜單欄；（2）是工具箱（ToolsBox），里面是VB所需的控件；（3）是VB程序要設計的窗體（Form）；（4）控件及窗體的屬性（

　　雙擊窗體的任何一個部分，將出現(xiàn)一個空的過程：“Form_Load()”，這是一個非常重要的過程，它所驅(qū)動的事件就是該窗體被加載的事件，打個比方，就象計算機啟動時的批處理程序（Autoexec.bat）。這個程序里我們要對控件進行一些設置。我們剛才也曾對控件進行設置，但那是在程序設置中進行的，有時我們也需要在程序中改變某些控件的屬性，通過程序代碼。VB中規(guī)定，一個控件屬性的訪問方法：名稱.屬性，于是我們對本程序的控件進行如下設置：

->PrivateSubForm_Load()

　Picture1.Visible=False
　Picture2.Visible=False
　Picture3.Visible=False
　Text1.Visible=False
　Text2.Visible=False
　Text3.Visible=False

EndSub->

　　Private表示此過程是局部的，Sub表示子過程的開始，與之相對的是EndSub表示過程的結(jié)束，Visible屬性表示控件的可見性，這個屬性的值有兩個True和False。

　　注意：

　　VB里對大小寫是不加區(qū)分的，而且，已定義的名稱，以后再用到時，系統(tǒng)會自動把它變成相應的大寫或小寫。

　　小知識：

　　1.VB里的對變量及常量的規(guī)矩。

　　變量一般為Abc的格式，常量為ABC，另外這些變量和常量名不得同VB內(nèi)的關鍵字相同，也不可以使用一些特殊符號，這些我們將在以后介紹，注意在學習中養(yǎng)成好習慣，使程序便于自己和別人的瀏覽。

　　2.程序書寫的竅門：

　　不要真的一句一句把程序打完，利用快捷鍵：拷貝Ctrl C，剪切Ctrl T，粘貼Ctrl P。

　　按下F5，運行一下程序，現(xiàn)在發(fā)現(xiàn)只剩下無線鈕了。如圖1_5。

->PrivateSubForm_Load()

　Picture1.Visible=False
　Picture2.Visible=False
　Picture3.Visible=False
　Text1.Visible=False
　Text2.Visible=False
　Text3.Visible=False
　Option4.Left=-2000
　Option4.Value=True

EndSub->

　　Left屬性表示控件離窗體左邊框的距離，設置為－2000，則在窗體內(nèi)不會看到這個控件，并使之Value=True。再運行程序，一切如愿，如圖1_6。

　　注意：為什么不用Option4.Visible=False？

　　因為，一旦設置無線鈕為不可見，那么再使它的Value為真是沒有意義的，不信自己試試。

　　下面我們可以繼續(xù)進行了。在剛才的代碼窗口里，將Object選擇為Option1，Proc選擇為Click，即得到一個Option1_Click的過程。代碼如下：

->PrivateSubOption1_Click()

　Picture1.Visible=True
　Picture2.Visible=False
　Picture3.Visible=False
　Text1.Visible=True
　Text2.Visible=False
　Text3.Visible=False
　Text1.Text="再見，殘酷的世界。"

EndSub->

　　相同的建立Option2_Click和Option2_Click：

->PrivateSubOption2_Click()

　Picture2.Visible=True
　Picture1.Visible=False
　Picture3.Visible=False
　Text2.Visible=True
　Text1.Visible=False
　Text3.Visible=False
　Text2.Text="今天心情不錯。"

EndSub

PrivateSubOption3_Click()

　Picture3.Visible=True
　Picture2.Visible=False
　Picture1.Visible=False
　Text3.Visible=True
　Text2.Visible=False
　Text1.Visible=False
　Text3.Text="Hello,World。"

EndSub
->

　　好，我們的開山之作完成了！按下F5，玩一下吧。這個程序雖然簡單，但也用到了許多基本知識，你開始感興趣了嗎？

->->

麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

VB入門之“HelloWorld”