<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    Welcome to Andy's javablog

    2007年9月23日 #

    編 程 入 門-認識一下VB 6.0的編程環境及學VB6.0--制作簡單的文本框TEXTBOX的例子

    學VB 6.0--認識一下VB 6.0的編程環境
    VB6.0采用可視化的編程環境,它好學易用,運行VB6.0后,會出現如下圖所示的窗口,呵呵,看起來蠻復雜的,好多的按鈕、菜單、小窗口,別擔心,待會兒我們會一起學習這些東東都是干什么用的。

      先來解決一個小問題,怎么新建一個VB的工程呢?方法是這樣的,在程序啟動時出現的“新建工程”對話框中選擇“標準EXE”并點擊確定,就能直接新建一個工程,如果你跳過了這個對話框則也可從“文件”菜單中選擇“新建工程”重新調出此對話框。

      下面一起來看看VB的編程環境,雖然看起來復雜,但可以把它分為幾個部分,每個部分都有自己特定的功能,這樣我們就清楚多了。其實VB這是通過這樣一個界面把相近或同類的功能組合在一起的,它使我們在設計程序時能方便的控制程序的方方面面。


    窗體的最上層是“VB 6.0的菜單”和“便捷工具按鈕”,菜單中包含了所有的VB提供的功能的選項,而其中一些常用的功能或操作選項則被提取出來放在了“便捷工具按鈕”中,通 過點擊這些快捷按鈕可以加快程序開發的速度,下圖標出了常見的工具按鈕的作用,記著使用它們哦。

    接著看看“VB的組件面板”和“窗體設計區域”,VB提供了方便的窗體設計區域,它位于整個編程窗口的中間。我們可以在這個區域中搭建出美觀實用的程序 界面,試著從“VB的組件面板”中找到“按鈕CommandButton”,點擊選中后,再到“窗體設計區域”的窗體上點一下,這時,窗體上會出現一個按 鈕,這樣我們就把按鈕添加到我們程序的界面中了。嘻嘻,忘了告訴你哪里是“VB的組件面板”了,就是最左邊的那一條包含許多看起來眼熟的小東西的區域,它 是VB提供給我們的標準的編程組件(控件),它把程序設計中常常用到的諸如按鈕、圖片框、列表框等等東西作好了放在那里,我們如果要使用只須添加到窗體中 即可。

      屏幕的右邊有三個從上到下排列的小窗口,它們分別是:

      “VB工程管理器”:用來管理開發一個VB程序所需要的各種類型的窗體和模塊,如左圖是一個工程所包含的東西,窗體是一個程序表現在外面的界面、模塊是程序內部使用的代碼。

      當我們點擊“添加窗體”便捷工具按鈕后,左圖的“VB工程管理器”中就會顯示出新添加的窗體,這也就是“VB工程管理器”的功能,它使我們從總體上把握程序開發的各個部分。

    “組件屬性窗口”:用來顯示組件的屬性,并允許我們修改,設定這些屬性的值,我們在窗體設計區域的窗體上選中一個組件,以按鈕為例,則在“屬性窗口”中 會列出它的屬性,我們可以看到常用的“Name”、“Capition”、“Font”等等屬性,試著把“Capition”屬性改為“這是一個按鈕”, 然后看看“窗體設計區域”的按鈕上顯示的文字是不是改變了。


    “窗體布局窗口”:調整程序運行時,程序窗體在屏幕中的初始位置,把鼠標移到左圖屏幕中的窗體上,這時鼠標會變成移動形狀,拖動窗體,就設置好了運行時此窗體的位置。

    好了說了這么多,還差一個區域沒講,那就是“代碼編輯區域”,當我們在“窗體設計區域”雙擊鼠標,就能彈出這個區域,可以看到一行行的VB程序顯示在其 中,我們可以修改,寫入程序代碼,來讓程序實現一定的功能,它是整個程序設計的關鍵,如果你對VB語言的語法還不是十分了解,可以繼續下一節專門對“VB 語法”的講解,別著急,慢慢來,很快就能入門的。

    VB語言的語法和QBASIC基本一致,可以說如果你能讀懂QBASIC程序,那你讀VB的程序是沒有問題的,這一節中我們只是簡單的講一講VB的語法,因為在今后的各個實例中我們會不斷接觸到新的語法知識,這也是一個積累的過程。

    如果你還記得上節中的內容,我們提到過如果在“窗體設計區域”的某個組件(控件)上雙擊鼠標,會出現“代碼編輯窗口”,也就是如下圖的窗口,我們可以在 其中輸入或是修改程序的代碼。在我們雙擊控件到寫入代碼的這個過程中,我們涉及到了一個很重要的概念,這是VB與QBASIC的主要差別之一,大家知道在 QBASIC包括Tubro C,TubroPascal等語言中程序從一開始就需要我們一點點的寫代碼來實現所有的功能,比如程序運行的界面,輸入輸出,鍵盤控制等,它們在程序中體 現為一個個的過程或者是函數及子程序,它們都是完全面向過程的編程語言;但是現在的VB、VC、DELPHI等編程語言,都提供了可視化的編程環境,備有 一整套常見的組件(控件)供我們使用,這些控件可以看作是對象(VB嚴格的說不是完全面向對象的編程語言),我們寫程序時會直接與這些對象打交道,而不象 原來。所以在VB中大部分的代碼是與這些相關的,例如下圖所示的一段代碼,它是我們在一個按鈕(Command)上雙擊鼠標而由VB自動產生的一個子過 程,Private Sub Command1_Click()是子過程的開始,End Sub表示子過程的結束。然后我們可以在子過程中添加程序代碼,也就是由我們自己來寫當按鈕被點擊時,程序所做出的響應。

    代碼

      下面我們便來分析一下這段代碼。

      VB中聲明一個變量使用“Dim 變量名 As 變量類型”的方法,一般在程序中使用的到的變量都應該有變量聲明,如上例中的a、b、i分別被定義為整型和字符串型變量,VB中的變量類型有以下幾種:

       數據類型  說明
    Byte    二進制數
    Boolean 真假值
    Integer   整數
    Long    長整型
    Single   實數
    Double   雙精度型
    Currency  貨幣
    Date    日期和時間
    Object   對象
    String   字符串
    Variant  可變類型

      控制結構和循環結構是程序設計中常見的兩種結構。

      計算機在運行程序的時候,執行語句的順序是從上向下的。 有些簡單程序可以只用單向流程來編寫,但稍微復雜的程序就要靠控制語句來控制程序執行的流程。控制結構主要有兩種,分支結構和循環結構。

      分支結構:分支結構事實上是一種選擇,在不同的條件下選擇執行不同的程序段。實現分支結構的語句有很多,最常用的是if……then……else……。例如:

       ……
    if 條件 then
    {程序段一}
    else
    {程序段二}
    end if
    ……

      如果條件滿足了,電腦將執行程序段一中的語句,然后跳過程序段二,執行下面的語句。如果條件不滿足,電腦將跳過程序段一種的語句,執行程序段二,然后繼續執行下面的語句。

      循環結構:循環結構就是讓電腦反復的執行某一程序段落干次。 用Do……Loop可以循環重復執行一語句塊,且重復次數不定。 在已知循環次數的條件下,用For……next可以反復執行統一語句塊。

      以上兩種結構你可以參照圖中所示的代碼,仔細體會一下,今天就講這么多了,下節我們就要進入實例式的控件學習。

    文本框控件(TextBox)是VB中最常用的控件。它是顯示和輸入文本的容器,相當于一個文字編輯器,提供了所有基本的文字處理功能,例如文本的編輯等。在下面這個小程序中,我們能看到文本框控件(TextBox)的最基本的屬性。

      為了學習方便,提供的源碼已經作了詳細的中文注釋,看看源碼框中的代碼:

    Option Explicit
    '--------------------------------------
    '           TextBox的常用屬性的例子
    '--------------------------------------
    '           洪恩在線 求知無限
    '--------------------------------------
    '------名稱-------------作用------------
    '       CmdClear        清除文本框內容按鈕
    '       TextAll         文本框
    '       CmdOK           給窗體FormBack的TextAll文本框賦值
    '       FormTextBox     主窗體
    '--------------------------------------
    '--------------------------------------
    '————文本框名稱————屬性設置———
    '
    '       TextPassWord    PassWordChar為 *
    '       TextResume      Multiline為Ture, ScrollBars為2 -Vertical
    '       TextAll         Multiline為Ture, ScrollBars為2 -Vertical
    '                       Appearance為0 - Flat
    '--------------------------------------


    Private Sub CmdClear_Click()

        '清除所有文本框中的內容
        TextID.Text = ""
        TextPassWord.Text = ""
        TextName.Text = ""
        TextMail.Text = ""
        TextResume.Text = ""
        
    End Sub

    Private Sub CmdOK_Click()
        '把FormTextBox文本框的Text及標簽的Caption賦給
        '窗體FormBack中TextAll文本框的Text屬性
        FormBack.TextAll.Text = LblID.Caption & "   " & TextID.Text _
                                & vbNewLine & _
                                LblPassWord.Caption & "   " & TextPassWord.Text _
                                & vbNewLine & _
                                LblName.Caption & "   " & TextName.Text _
                                & vbNewLine & _
                                LblMail.Caption & "   " & TextMail.Text _
                                & vbNewLine & _
                                LblResume.Caption & "   " _
                                & vbNewLine & TextResume.Text
                                    
                                    '其中vbNewline是使TextAll.Text換行顯示
        Load FormBack               '載入窗體Formback
        FormBack.Show               '顯示窗體Formback
        FormTxtBox.Visible = False '設置窗體FormtextBox不可見
            
    End Sub

    這個例子的兩個窗體界面如下:

    窗體1 窗體2

    主窗體(FormTxtBox)

    窗體(FormBack)


    我們首先新建一個標準的EXE工程。添加兩個窗體,并把TextBox、Button、Label控件放置在窗體上。各文本框的名稱如下表:

    文本框名稱

    名稱屬性

    文本框名稱

    名稱屬性

    會員編號文本框

    TextID

    電子郵件文本框

    TextMail

    密碼文本框

    TextPassWord

    個人介紹文本框

    TextResume

    姓名文本框

    TextName

    會員信息文本框

    TextAll


    在屬性窗口中將TextPassWord的PassWordChar屬性設為*;
    TextResume的Multiline屬性設為Ture,ScrollBars屬性設為2 -Vertical;TextAll文本框的Multiline屬性設為為Ture, ScrollBars屬性設為2 -Vertical,Appearance屬性設為為0 - Flat。

      下一步我們為FormTxtBox窗體中“確定”(CmdOK)和“清除”(CmdClear)按鈕的Click事件中添加相應的程序。

      其中:

      TextID.Text = "" 是把會員編號文本框中的內容清空,其它語句與此類似。

      FormBack.TextAll.Text = LblID.Caption & " " & TextID.Text _ & vbNewLine &

      該語句設置FormBack窗體中TextAll文本框的文本。vbNewLine是換行顯示標志。“ _”是續行標志,當語句一行寫不下時使用此標志,但要注意:前面要加空格。

      代碼寫好之后,我們就可以保存工程,然后按“Ctrl+F5”鍵,測試檢驗一下我們的程序了。







    posted @ 2007-09-23 18:09 高飛的夢想 閱讀(2528) | 評論 (3)編輯 收藏

    2007年9月15日 #

    學習JAVA

    今天看了lucky兄弟的博客,學了一下JIRA的安裝。呵呵。非常感謝他能給我幫助。特將本文摘到我的博客中。如果要學習他的其他文章。可以去他的博客看看。看了后同時也給他回復一下吧

                            JIRA安裝(Tomcat5.0.28+Mysql5.0.19)

                                                       本文轉自Lucky
         昨天轉載了Judy Shen的《使用JIRA搭建企業問題跟蹤系統》,在這篇文章中Jude Shen著重講解了JIRA的特性和常用的設置。但是對于安裝卻沒有提及,在本人實際安裝JIRA的過程中,出現了一些問題,雖然最終解決但是花費了本人 一下午的時間。為了幫助大家順利安裝,今天本人把安裝的過程重新梳理一遍,請特別留意紅色字體的部分。
    1.      安裝JDK(JDK1.4.2以上),配置JAVA_HOME,安裝Mysql(本人使用的版本是5.0.19),安裝tomcat(5.0.28)
    2.      下載JIRA: 本人下載的版本為----3.6 Enterprise EAR/WAR的Zip文件
    3.       解壓縮JIRA,編輯解壓縮目錄"edit-webapp"WEB-INF"classes"entityengine.xml文件,原文件定義使用hsql(紅色字體為增加部分):  
    4.     <transaction-factory class="org.ofbiz.core.entity.transaction.JNDIFactory">
            <user-transaction-jndi jndi-server-name="default" jndi-name="java:comp/env/UserTransaction"/>
            <transaction-manager-jndi jndi-server-name="default" jndi-name="java:comp/env/UserTransaction"/>
          </transaction-factory>
    5.     原來的field-type-name="hsql",改為“mysql”
    6.      <datasource name="defaultDS" field-type-name="mysql"
              helper-class="org.ofbiz.core.entity.GenericHelperDAO"
            check-on-start="true"
            use-foreign-keys="false"
            use-foreign-key-indices="false"
            check-fks-on-start="false"
            check-fk-indices-on-start="false"
            add-missing-on-start="true"
            check-indices-on-start="true">
              <jndi-jdbc jndi-server-name="default" jndi-name="java:comp/env/jdbc/JiraDS"/>
    7.      修改完entityengine.xml文件的上述兩個地方后,執行加壓縮目錄下的build加壓縮目錄下的build.bat將默認地生成JIRA的war包
    8.      下載mysql-connector-java-3.1.12-bin.jar拷貝到Tomcat安裝目錄的"common"lib下,請特別注意版本號必須為3.1.12
    9.      Atlassian下載
      10.    配置Tomcat安裝目錄conf/server.xml,增加 
    useBodyEncodingForURI="true"
    <Connector port="8080"
        maxThreads
    ="150" minSpareThreads="25" maxSpareThreads="75"
        enableLookups
    ="false" redirectPort="8443" acceptCount="100"
        debug
    ="0" connectionTimeout="20000"
        disableUploadTimeout
    ="true" useBodyEncodingForURI="true"/>
      11.   創建數據庫(我命名為jiradb,使用utf8編碼)
      12.   創建數據庫的使用用戶(jirauser)
    GRANT SELECT,INSERT,UPDATE,DELETE,CREATE,DROP,ALTER,INDEX on
      jiradb.* TO 'jirauser'@'localhost' IDENTIFIED BY 'mypassword';
      13.  拷貝dist-tomcat目錄下的war包拷貝到tomcat安裝目錄下的webapps/目錄下,拷貝dist-tomcat/tomcat- 5/jira.xml到tomcat安裝目錄下/conf/Catalina/localhost/ 并修改該該文件
           刪除下列配置(適用于hsqldb)
     <!-- NOTE: If NOT using hsqldb, delete the next two parameters -->
    <!-- Give unused connections 4 secs before eviction. -->
    <parameter>
    <name>minEvictableIdleTimeMillis</name>
    <value>4000</value>
    </parameter>
    <!-- Check for evictions every 5 secs. -->
    <parameter>
    <name>timeBetweenEvictionRunsMillis</name>
    <value>5000</value>
    </parameter>
    修改后的jira.xml文件如下:
    <!--
    A sample configuration file for Tomcat 4.1.x and 5.0
    Customize the docBase attribute, drop in your $CATALINA_HOME/webapps/ (4.1.x) or
    $CATALINA_HOME/conf/Catalina/localhost/ (5.0) directory and restart Tomcat.
    Note the JOTM dependencies; you'll need to copy various jars to Tomcat's common/lib/ directory.
    See http://www.atlassian.com/software/jira/docs/latest/servers/tomcat41.html for details.
    -->
     
    <Context path="/jira" docBase="C:"usr"Apache"Tomcat5"webapps"jira" debug="0">
      
    <Resource name="jdbc/JiraDS" auth="Container" type="javax.sql.DataSource"/>
      
    <ResourceParams name="jdbc/JiraDS">
        
    <parameter>
          
    <name>driverClassName</name>
            
    <!-- NOTE: if you change the database type, you will need to change it in WEB-INF/classes/entityengine.xml -->
          
    <value>com.mysql.jdbc.Driver</value>
        
    </parameter>
        
    <parameter>
          
    <name>url</name>
          
    <value>jdbc:mysql://localhost/jiradb?autoReconnect=true&amp;useUnicode=true&amp;characterEncoding=UTF8&amp;mysqlEncoding=utf8</value>
        
    </parameter>
        
    <parameter>
          
    <name>username</name>
          
    <value>jirauser</value>
        
    </parameter>
        
    <parameter>
          
    <name>password</name>
          
    <value>mypassword</value>
        
    </parameter>
         
    <parameter>
          
    <name>factory</name>
          
    <value>org.apache.commons.dbcp.BasicDataSourceFactory</value>
        
    </parameter>
     
    </ResourceParams>

      
    <Resource name="UserTransaction" auth="Container" type="javax.transaction.UserTransaction"/>
      
    <ResourceParams name="UserTransaction">
        
    <parameter>
          
    <name>factory</name>
          
    <value>org.objectweb.jotm.UserTransactionFactory</value>
        
    </parameter>
        
    <parameter>
          
    <name>jotm.timeout</name>
          
    <value>60</value>
        
    </parameter>
      
    </ResourceParams>
    </Context>
    14. 啟動tomcat,敲入http://.../jira,應該就能看到JIRA的配置向導了


    posted @ 2007-09-15 10:40 高飛的夢想 閱讀(201) | 評論 (0)編輯 收藏

    2007年9月14日 #

    歡迎大家來我的博客

    歡迎大家來到我的博客,呵呵。說真的,感覺寫博是件很快樂的事哦。今天我終于來這里報到了。本人是搞網絡的。也許,對于此高手如云,但我想只要自己努力了,結果還會少嗎?我以前就對J2EE感興趣,只是沒時間學。現在好了。我要好好學習。歡迎各位朋友給我這個編程菜鳥指點迷津哦。我愿和有學之士成為好朋友。

    posted @ 2007-09-14 16:09 高飛的夢想 閱讀(619) | 評論 (5)編輯 收藏

    僅列出標題  
    主站蜘蛛池模板: 亚洲AV无码一区二区大桥未久 | 岛国岛国免费V片在线观看 | 100000免费啪啪18免进| 亚洲国产成人片在线观看无码| 成人免费视频一区二区| 免费一级毛片在线观看| 看Aⅴ免费毛片手机播放| 国产一区二区三区无码免费| 在线观看亚洲网站| 亚洲国产精品自在拍在线播放| 无套内射无矿码免费看黄| 亚洲黄片毛片在线观看| 中文字幕视频免费在线观看| 亚洲国产精品成人精品无码区 | 亚洲av成人片在线观看| 亚洲av再在线观看| 久久er国产精品免费观看8| 亚洲avav天堂av在线不卡| 国产精品视频免费观看| 亚洲色成人四虎在线观看| 国产区卡一卡二卡三乱码免费| 人人爽人人爽人人片A免费| 亚洲午夜久久久久久久久电影网| 鲁大师在线影院免费观看| 亚洲国产视频一区| 国产午夜鲁丝片AV无码免费| a级毛片毛片免费观看久潮| 亚洲国产高清在线精品一区| 精品国产免费一区二区| 精品人妻系列无码人妻免费视频 | 日韩亚洲人成在线| 亚洲人AV永久一区二区三区久久| 免费毛片a线观看| 亚洲六月丁香婷婷综合| 亚洲第一网站男人都懂| 久久狠狠躁免费观看2020| 亚洲中文字幕无码mv| 国产亚洲精品久久久久秋霞| 日本免费一区二区三区最新| 9久热精品免费观看视频| 亚洲六月丁香六月婷婷蜜芽|