Welcome to Andy's javablog

2007年9月15日 #

编 程 入 门-认识一下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 高飞的梦想 阅读(2497) | 评论 (3)编辑 收藏

学习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下载jira-jars-tomcat5.zip拷贝到Tomcat安装目录的"common"lib下
  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 高飞的梦想 阅读(189) | 评论 (0)编辑 收藏