E动中国

一步一步教你用Swing之JDK 6的安装和环境设定

webmaster@edongcn.com(E动中国) — Thu,27 Dec 2007 23:33:15 +0800

为了开发图形化界面的应用程序,java里面为我们准备Swing.在这里我们一步一步的讲解来说明Swing的各种组件的使用方法.

JDK 6的安装和环境设定

Ø JDK 6的下载

点击下面的网址进入下载页面

http://java.sun.com/javase/downloads/index.jsp

在上面的下载页面中,jdk的种类有很多,我们要下载的是「JDK 6 Update 3」,点击上图中红色方框标出来部分的[>>download]

进行License同不同意选择,同意的话,选择[Accept]如上图

请选择相应操作系统平台的链接进行文件下载,这里我们选择

「Windows Platform - Java(TM) SE Development Kit 6 Update 3」的「Windows Offline Installation, Multi-language」,如上图

Ø JDK 6的安装

Ø 文档的下载

Ø PATH的设定

Java的编译和执行程序都放在jdk安装目录的bin文件夹里

为了在任何目录下都能用java的编译,执行程序,我们需要对环境变量[PATH]进行设置,从控件面板里点击[系统]打开系统属性窗口

然后选择[高级]菜单,点击[环境变量]按钮,打开[环境变量]窗口.

找到[系统变量]中的[PATH]选项之后,点击编辑按钮,在弹南的[编辑系统变量]窗口中加入java执行文件的路径.如下:

如果[系统变量]里没有[PATH]选项的话,请点击[新建]按钮

然后在[新建系统变量]窗口中设定[PATH]的值.

接下来确认一下环境有没有正确配置好,请打开命令行窗口,然后输入[java],点回车.

如果出现下面这样的命令使用帮助信息的话,说明环境变量已经正确设定.

Ø JAVA HOME的设定

很多软件里为了使用java,一般都会去搜索jdk的安装目录.这时我们就需要把jdk的安装根目录设定到环境变量 [JAVA_HOME]里.(这个环境变量并不是必须的,不过在一些软件中,如果不设定的话,可能会找不到jdk的安装目录,所以为了确保起见,建议对这个环境变量进行设定)

设定过程如下:

首行在控件面板中点击[系统]图标打开[系统属性]窗口

然后点击[高级菜单]中的[环境变量]按钮打开[环境变量]窗口,如下:

点击[新建]按钮添加[JAVA_HOME]变量:

Ø JAVA版本的确认

前面我们已经介绍了环境变量的设定,最后我们来确认一下我们安装的jdk的版本是否正确.

请在命令行窗口中输入[java -version]

然后就会出现java和JRE的版本信息如下:

如何显示一个数据库里的所有表（ACCESS）

webmaster@edongcn.com(E动中国) — Sun,10 Dec 2006 11:08:39 +0800

使用这个过程的前提条件是要在调用前写好数据库连接的代码。
一般为
<%sub Schema_show()%>

   <%
   set rs=Conn.openSchema(20)
   rs.movefirst
   %>

   <%for i=0 to rs.fields.count-1%>
    <%=rs.fields(i).name%>
   <%next%>

   <%do while not rs.eof%>

   <%for i=0 to rs.fields.count-1%>

     <%if rs.fields(i).name="TABLE_NAME" and (rs("TABLE_TYPE")="TABLE" or rs("TABLE_TYPE")="VIEW") then%>
     "><%=rs(i)%>
     <%else%>
     <%=rs(i)%>
     <%end if%>

   <%next%>

   <%rs.movenext
   loop
   rs.close
   set rs=nothing%>

<%end sub%>

获取access库中表的个数及表的名称[收藏]

webmaster@edongcn.com(E动中国) — Sun,10 Dec 2006 11:07:00 +0800

'功能：获取access库中表的个数及表的名称
'用ado怎样实现
'工程--->引用---> Microsoft ActiveX Data Object 2.x（版本号）
'----------------------------------------------------------------------------
Private Sub Form_Load()
Dim adoCN   As New ADODB.Connection                '定义数据库的连接
Dim strCnn   As New ADODB.Recordset
Dim rstSchema As New ADODB.Recordset
Dim I As Integer
   str1 = "Provider= Microsoft.Jet.OLEDB.4.0;Data Source=c:\Northwind.MDB;Persist Security Info=False"
   adoCN.Open str1

   Set rstSchema = adoCN.OpenSchema(adSchemaTables)

   Do Until rstSchema.EOF
        If rstSchema!TABLE_TYPE = "TABLE" Then
           out = out & "Table  name:  " & _
               rstSchema!TABLE_NAME & vbCr & _
               "Table  type:  " & rstSchema!TABLE_TYPE & vbCr
            I = I + 1
        End If
        rstSchema.MoveNext
   Loop
   MsgBox I
   rstSchema.Close

   adoCN.Close
Debug.Print out
End Sub

方法二：

Access 系统表 MsysObjects 包含了数据库对象列表。尽管未在文档中记载，你仍可通过查询它来获取你想要的。但是默认情况下无法操作系统表，必须手动设定权限收才能查询系统表。
请参考以下动画：如何获取对msysobject的操作权限
http://access911.net/eg/swf/msobject.swf

警告：不要修改任何ACCESS系统表，否则会出现不可意料的情况.

使用下列 SQL 语句来获取你想要的

查询:
Select MSysObjects.Name FROM MsysObjects Where (Left([Name],1)<>"~") AND (MSysObjects.Type)=5 orDER BY MSysObjects.Name;

窗体:
Select MSysObjects.Name FROM MsysObjects Where (Left([Name],1)<>"~") AND (MSysObjects.Type)=-32768 orDER BY MSysObjects.Name;

表:
Select MSysObjects.Name FROM MsysObjects Where (Left([Name],1)<>"~") AND (Left$([Name],4) <> "Msys") AND (MSysObjects.Type)=1 orDER BY MSysObjects.Name;

报表:
Select MSysObjects.Name FROM MsysObjects Where (Left([Name],1)<>"~") AND (MSysObjects.Type)= -32764 orDER BY MSysObjects.Name;

模块:
Select MSysObjects.Name FROM MsysObjects Where (Left([Name],1)<>"~") AND (MSysObjects.Type)= -32761 orDER BY MSysObjects.Name;

宏:
Select MSysObjects.Name FROM MsysObjects Where (Left([Name],1)<>"~") AND (MSysObjects.Type)= -32766 orDER BY MSysObjects.Name;

获取Access中所有表和所有表字段属性的完美解决办法!不需要引用ADOX

webmaster@edongcn.com(E动中国) — Sun,10 Dec 2006 11:02:49 +0800

//schemaTable将取到所有用户表的信息,schemaTable取到指定表名的表的所有信息
OleDbConnection conn = new OleDbConnection(strConn);
conn.Open();
DataTable schemaTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, new Object[]{null, null, null, "table"});
DataTable schemaTable2 = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, new Object[]{null, null, /*tablename*/, null});
conn.Close();

如何设置表的Caption和Description属性，即“标题”和“说明”属性

webmaster@edongcn.com(E动中国) — Sun,10 Dec 2006 10:56:52 +0800

注意！无法通过 JET SQL 来设置或者修改上述属性，JET SQL 不支持此功能，你可以联系微软开发小组要他们在下一个版本中增加此功能。
Function AppendCaption()
    '引用DAO

    Dim Tbf As DAO.TableDef
    Dim fld As DAO.Field
    Dim p As DAO.Property
    Dim cp As DAO.Property
    On Error Resume Next
    Dim i As Integer

    Dim TableName As String
    Dim FieldName As String
    FieldName = "First_name"
    TableName = "test"

    For Each Tbf In CurrentDb.TableDefs
        'Debug.Print Tbf.Name
        For Each fld In Tbf.Fields
            'Debug.Print Fld.Name
            If fld.Name = FieldName And Tbf.Name = TableName Then
                Set cp = fld.CreateProperty("Caption", 12, "aa")
                fld.Properties.Append cp
                Set cp = fld.CreateProperty("Description", 10, "aa")
                fld.Properties.Append cp

            End If
            For Each p In fld.Properties
                If p.Name = "caption" Then
                    Debug.Print Tbf.Name & ":" & fld.Name & ":" & "pro:"; p.Name & "--" & p.Value
                    'Fld.Properties.Delete "Caption"        '删除属性
                End If
            Next
        Next
    Next

End Function

下面再给一段函数

Function GetFieldProperty(F As Field, _
                             ByVal PropName As String) As Variant
   '
   ' Returns NULL if the property doesn't exist
   '
     On Error Resume Next
     GetFieldProperty = F.Properties(PropName)
End Function

Sub ModifyFieldProperty(F As Field, ByVal PropName As String, _
                           ByVal PropType As Long, _
                           ByVal NewVal As Variant)
   Dim P As Property
     On Error Resume Next
     Set P = F.Properties(PropName)
     If Err Then
       '
       ' Add property (as long as NewVal isn't Null)
       '
       If Not IsNull(NewVal) Then
         On Error Goto 0      ' fail if can't add
         Set P = F.CreateProperty(PropName, PropType, NewDesc)
         F.Properties.Append P
       End If
     ElseIf IsNull(NewVal) Then
       '
       ' Delete property
       '
       On Error Goto 0      ' fail if can't delete
       F.Properties.Delete PropName
     Else
       '
       ' Modify property
       '
       On Error Goto 0      ' fail if can't alter
       P.Value = NewDesc
     End If
     Set P = Nothing
End Sub


调用函数如下：
    Sub Test()
      Dim db As Database, F As Field
      Dim v As Variant
      v = "This is a description"
      Set db = DBEngine(0).OpenDatabase("NWIND.MDB") ' change name/path
      Set F = db!Employees!Title
      ' Get existing description
      Debug.Print "Existing Title Description is: ";
      Debug.Print GetFieldProperty(F, "Description")
      ' Delete description
      ModifyFieldProperty F, "Description", dbText, v
      Debug.Print "After deleting Description: ";
      Debug.Print GetFieldProperty(F, "Description")
      ' Add description
      ModifyFieldProperty F, "Description", dbText, "Employee's Title"
      Debug.Print "After adding new Description: ";
      Debug.Print GetFieldProperty(F, "Description")
      ' Modify existing title
      ModifyFieldProperty F, "Description", dbText, "Emp Title"
      Debug.Print "After modifying Description: ";
      Debug.Print GetFieldProperty(F, "Description")
      ' Clean-up
      Set F = Nothing
      db.Close
   End Sub

来源：http://support.microsoft.com/default.aspx?scid=kb;en-us;170549

最后再提供一个别人发表的代码（未测试）
'*******************************************************************************
'Function:       TableDefExist(strTableDef)
'Description:    Returns a Boolean value that indicates whether an table define
'                in currently database.
'Example:        TableDefExist("TEXT")=True
'*******************************************************************************
Function TableDefExist(ByVal strTableDef As String) As Boolean
On Error GoTo TableDefExist_Err
    If CurrentDb.TableDefs(strTableDef).Name = strTableDef Then
        TableDefExist = True
    End If
    TableDefExist = True
    Exit Function
TableDefExist_Err:
    TableDefExist = False
    Exit Function
End Function

Private Sub CreateTRDTableDef()

On Error GoTo Err_CreateTRDTableDef

Dim rstTRDTableSource As DAO.Recordset
Dim rstTableDefine As DAO.Recordset
Dim tdfTable As DAO.TableDef
Dim dbCurrentDatabase As DAO.Database
Dim fldField As Field
Dim intCount As Integer
Dim strTableName As String

    DoCmd.Echo True, "Creating table definition......"
    Set dbCurrentDatabase = CurrentDb
    Set rstTRDTableSource = dbCurrentDatabase.OpenRecordset("Select DISTINCT TRD_NAME,TABLE_NAME FROM TBL_TABLE_SOURCE", dbOpenDynaset)

    Do While Not rstTRDTableSource.EOF

        strTableName = rstTRDTableSource("TRD_NAME") & " - " & rstTRDTableSource("TABLE_NAME")
        DoCmd.Echo True, "Creating " & strTableName & " table definition....."
        If TableDefExist(strTableName) Then
            dbCurrentDatabase.TableDefs.Delete strTableName
        End If

        Set rstTableDefine = CurrentDb.OpenRecordset("Select * FROM TBL_TABLE_SOURCE Where TRD_NAME=" & "'" & _
            rstTRDTableSource("TRD_NAME") & "' AND TABLE_NAME='" & rstTRDTableSource("TABLE_NAME") & "' orDER BY SEQUENCE", dbOpenDynaset)
        Set tdfTable = dbCurrentDatabase.CreateTableDef(strTableName)
        Set fldField = tdfTable.CreateField(rstTableDefine.Fields("FIELD_NAME"), GedFieldType(rstTableDefine.Fields("DATA_TYPE")), rstTableDefine.Fields("FIELD_SIZE"))

        tdfTable.Fields.Append fldField
        dbCurrentDatabase.TableDefs.Append tdfTable

        SetMyProperty fldField, "Caption", dbText, rstTableDefine.Fields("Caption")
        SetMyProperty fldField, "Description", dbText, rstTableDefine.Fields("DESCRIPTION")
        rstTableDefine.MoveNext

        With rstTableDefine
            Do While Not .EOF
                Set fldField = tdfTable.CreateField(.Fields("FIELD_NAME"), GedFieldType(.Fields("DATA_TYPE")), .Fields("FIELD_SIZE"))

                tdfTable.Fields.Append fldField
                SetMyProperty fldField, "Caption", dbText, rstTableDefine.Fields("Caption")
                SetMyProperty fldField, "Description", dbText, rstTableDefine.Fields("DESCRIPTION")

                .MoveNext
            Loop
        End With

        Set tdfTable = Nothing
        rstTableDefine.Close
        Set rstTableDefine = Nothing
        rstTRDTableSource.MoveNext
    Loop

    rstTRDTableSource.Close
    Set rstTRDTableSource = Nothing

    DoCmd.Echo True, "Ready"


Exit_CreateTRDTableDef:
    Exit Sub

Err_CreateTRDTableDef:
    MsgBox "Error: " & Err & vbCrLf & Err.Description
    Resume Exit_CreateTRDTableDef

End Sub

'*******************************************************************************
'Function:       GedFieldType(strDataType)
'Description:    Returns a integer value that indicates data types
'Example:        GedFieldType("dbText")=10
'*******************************************************************************

Function GedFieldType(strDataType As String) As Integer
Select Case strDataType
    Case "dbText"
        GedFieldType = 10
    Case "dbDate"
        GedFieldType = 8
    Case "dbDouble"
        GedFieldType = 7
    Case "dbFloat"
        GedFieldType = 21
    Case "dbInteger"
        GedFieldType = 3
    Case "dbLong"
        GedFieldType = 4
    Case "dbMemo"
        GedFieldType = 12
    Case "dbNumeric"
        GedFieldType = 6   'old is 19
    Case "dbSingle"
        GedFieldType = 6
    Case "dbTime"
        GedFieldType = 22
    Case "dbChar"
        GedFieldType = 18
    Case "dbCurrency"
        GedFieldType = 5
    Case Else
        GedFieldType = 0
End Select

End Function

'*******************************************************************************
'Sub:            SetMyProperty(Obj,Name,Type,Setting)
'Description:    Custom a user property
'Example:        SetMyProperty fldField, "Caption", dbText, "Test Information"
'*******************************************************************************

Sub SetMyProperty(Obj As Object, strName As String, intType As Integer, strSetting As String)
    Dim Prp As Property
    Const PrpFail As Integer = 3270
    On Error GoTo Err_SetMyProperty

    Obj.Properties(strName) = strSetting
    Obj.Properties.Refresh

Exit_SetMyProperty:
    Exit Sub

Err_SetMyProperty:

    If Err = PrpFail Then
      Set Prp = Obj.CreateProperty(strName, intType, strSetting)
      Obj.Properties.Append Prp
      Obj.Properties.Refresh
    Else
      MsgBox "Error: " & Err & vbCrLf & Err.Description
    End If

    Resume Exit_SetMyProperty

End Sub

取ACCESS中的所有表名和字段名

webmaster@edongcn.com(E动中国) — Sun,10 Dec 2006 10:50:24 +0800

--列出所有的用户表

Select *
FROM MSysObjects
Where Flags=0 AND Type=1

--下面代码列出指定表的所有字段和文本类型字段的长度

'引用ADOX
'-->VBA窗口“工具”菜单
'-->引用
'--> Microsoft ADO Ext. 2.X for DLL and Security

Public Sub list(strTblName As String)
    Dim Cnn As New ADODB.Connection
    Dim Fld As New ADOX.Column
    Dim Cat As New ADOX.Catalog
    Dim Tbl As New ADOX.Table

    Set Cnn = CurrentProject.Connection

    Set Cat.ActiveConnection = Cnn
    Set Tbl.ParentCatalog = Cat
    Set Tbl = Cat.Tables(strTblName)

    Debug.Print "字段个数：" & Tbl.Columns.Count

    For Each Fld In Tbl.Columns
        Debug.Print "字段名：" & Fld.Name & ",宽度：" & Fld.DefinedSize
    Next

End Sub

日语最该掌握的句型840个(あ)

webmaster@edongcn.com(E动中国) — Mon,04 Sep 2006 23:20:36 +0800

１．あいかわらず～「相変わらず～」
表示"依然・・・・・・""还是・・・・・・"
◆武さんは相変わらず忙しいですね。
武还是很忙啊！
◆相変わらず元気です。
还是很健康

２．～あいだ「～間」
接在活用词连体形，[名词の]后，表示“在···期间一直···”。后项谓语多用表示持续意义的形式。
◆彼は会議の間ずっと居眠りをしていた。
开会期间他一直在打瞌睡。
◆授業の間、喋りをするな
上课期间不许讲话。

３．～あいだに「～間に」
接在活用词连体形，[名词の]后，表示“趁···的时候”。后项谓语多用非表示持续意义的形式。
◆祖母が元気な間にいろいろ話を聞いておこう。
趁着祖母还硬朗的时候，把这些事情都问清楚吧。
◆東京にいる間に、一度歌舞伎を見に行きたいです。
想趁着在东京去看一次歌舞伎。

４．あいてにする「相手にする」
常用[～を相手にする]的形式表示“把···作为伙伴、对象”等。还经常用[相手にしない]的形式表示“不理睬···”。
◆どうして相手にしてくれないか。
为什么不理我？
◆誰も彼を相手にしない。
谁都不愿意理睬他。
◆テニスの相手をしてくれるように兄を頼んだが、やりたくないと断られた。
我叫哥哥和我一起去打网球，结果他不想找，拒绝了我。

５．～あう「～合う」
接在动词连用形后，表示“相互···”“和···”。
◆仕事のことで彼と話し合った。
就工作问题和他谈了一下。
◆友達だから、助け合うべきだ。
因为是朋友所以应该互相帮助。

６．あえて～ない「敢えて～ない」
表示“并不···”。
◆そのやり方に敢えて反対はしないが、不満は残っている。
我并不反对这种做法，但还是有意见。
◆彼のデザインは完璧といっても、敢えて過言ではありません。
他的设计，说是完美无缺也不为过。

７．あたかも～ようだ「みたいだ」
意为“好像···”“宛如···”。
◆その日はあたかも春のような陽気だった。
那天就像春天一样阳光明媚。
◆電気をつけると、あたかも昼のように明るい。
打开灯，就像是白天一样明亮。
◆彼女は人から聞いたことをあたかも自分自身の体験のように話す。
她把从别人那里听来的事，说的就像是自己亲身经历的一样。

８．～あたり①「当たり」
表示“每···”“平均···”。
◆今日の食事代は、一人当たり３０００円です。
今天的餐费每人3000日元。
◆お米を３０キロ買っておいたから、一日あたり１キロです。
买了30公斤大米，平均一天1公斤。

９．～あたり②「辺り」
接在表示时间或地点的词后，表示“···一带”“···左右”。
◆父は五時当たりに帰ってくるでしょう。
父亲5点左右能回来吧。
◆課長は、来週の日曜日辺りに出張します。
课长下个星期的星期天左右出差。
◆川中先生の家はこの辺りです。
川中老师的家就在这附近。

１０．～あたりまえだ「当たり前だ」
一般用[用言连体形のが当たり前だ]的形式，表示“理所当然···”“应该···”。
◆借りたものは返すのが当たり前だ。
借的东西当然要还。
◆長男が両親の面倒を見るはが当たり前だと考えている人が多い。
很多人认为应该由长男来照顾父母。

１１．～あっての
接名词后，表示前项是后项的前提。意为“有···才有···”“没有···就没有···”。
◆いい夫婦関係あっての家庭だね。夫婦関係がよくないと、幸せな家庭にはなれない。
有良好的夫妻关系才会有家庭。如果夫妻关系不好，就不能建立幸福的家庭。
◆お客さん合っての仕事だから、言葉遣いに気をつけてください。
因为是面对客户的工作，所以特别要注意遣词用语。
◆小さい進歩で努力あってのことです。小的进步也是努力的结果。（有努力才会有进步）

１２．あっちうまに～「あっという間に～」
表示“一瞬间”“一眨眼功夫就···”。
◆あっという間に、大勢の人が集まってきました。
不一会儿就聚集了很多人。
◆あっという間に、５年も過ぎました。
眨眼时间就过去了5年。
１３．～あて「～当て」
接在数量词后，表示“每···”。
◆りんごを一人当て１０個配る。
每人分10个苹果。
◆米は一人当て５キロの配給です。
大米是每人5公斤的配给。

１４．～あてにする「当てにする」
常用[～をあてにする]的形式，表示“指望···”“相信···”
◆いつまでも親を当てにするな。
不能总是指望父母。
◆あいつを当てにするな。
不要指望那个家伙。

１５．あてになる「当てになる」
表示“···靠得住”“···可靠”。
◆最近の天気予報はまったく当てにならない。
最近的天气预报根本不可靠。
◆あいつにそのことを頼んでも、当てにならない。
即使把那件事拜托给他，也甭指望他能办成。

１６．あとは～ばかりだ「後は～ばかりだ」
表示“只剩···”。
◆パーティーの準備ができて、後は料理を並べるばかりです。
晚会已经准备就绪，只剩摆放菜肴了。
◆やられることはもう全部やった。後は待つばかりだ。
能做的已经全都做了，剩下的只有等待了。

１７．あながち～ない「強ち～ない」
表示“不见得···”“未必···”。
◆強ち僕ばかりではない。
未必只是我一个人。
◆強ちそうとは限りません。
不一定是那样。

１８．あまり～「余り～」
副词，表示“很···”“非常···”。
◆余り暑いから、上着を脱いだ。
因为太热，所以脱掉了上衣。
◆余り早いので、よく見えなかった。
因为太快了，所以没看清楚。

１９．～あまり「～余り」
接[名词の]、[形容动词词干さの]、形容词和动词连体形后面、表示“由于过度”。
◆母は悲しみの余り、病気になってしまった。
母亲因为悲伤过度而病倒。
◆母は弟のことを心配する余り。病気になった。
妈妈因为太担心弟弟，病倒了。
◆子供を大事にする余り、過保護になる母親が少なくありません。
太宝贝孩子而成了“过保护”的妈妈不在少数。

２０．あまり～すぎる「余り～過ぎる」
用[余り动词连用形/形容词词干過ぎる]的形式，表示“太···”“过于···”。
◆この本は余り難しすぎる。
这本书太难了。
◆余り働きすぎると過労死になる恐れがあります。
太拼命工作，有可能导致过劳死。

２１．あまり～と、かえって～「余り～と、かえって～」
表示“太···的话，反而···”。
◆余りひどく叱ると、かえって子供によくない。
过分严厉的批评反而对孩子不好。
◆余り運動しすぎると、かえって体によくない。
过分运动反而对身体不好。

２２．あまり～ない「余り～ない」
表示“不太···”“不怎么···”。
◆ご飯と味噌汁は、日本時の典型的な朝食ですが。若い人は余り食べていないようです。
米饭和酱汤是日本队人典型的早饭，但是年轻人似乎都不太吃。
◆私は渡辺先生をあまりよく知りません。
我对渡边老师知道的不多。
◆北京に余り詳しくありません。
我对北京不怎么熟悉。

２３．あやうく～ところだった「危うく～ところだった」
多用于书面语，表示“几乎···”“差一点···”。
◆危うく車を並木にぶつけるところだった。
差一点把车撞到了路边的树上。
◆危うく死ぬところだった。
险些丧命。

２４．あるいは～かもしれない「或いは～かもしれない」
表示推量，意为“或者···吧”“也许···吧”。
◆盗まれたと思ったけれど、或いはどこかに置忘れのかもしれません。
觉得好像被偷了，但也可能是忘记放在哪里了。
◆彼の言うことは或いは本当かもしれない。
他说的也许是真的。

２５．あるいは～か「或いは～か」
表示二者择一，意为“或者···”。
◆帰りは汽車にするか、或いは飛行機にするか早く決めなければならない、
回去时是坐火车还是坐飞机，必须快点决定。
◆進学するか、或いは就職するか、真剣に考えなければなりません。
是考学还是工作，必须要慎重考虑。

我也用一下Lava-Lava.

webmaster@edongcn.com(E动中国) — Thu,20 Jul 2006 21:38:51 +0800

其实在前些日子就看到它的新闻了，不过那时候没怎么注意，今天看IT新闻时，又看到了关于它的新闻[“酋长”王志东挑战QQ]，比较好奇，就下载了看看，按它主页上写的功能描述主要有下面的一些特性：
“关系万千重”的部落

生活中的社交圈子一样可以在网络世界实现。在Lava-Lava的部落里，无论是志同道合的伙伴，还是臭味相投的损友，或者一起奋斗的同仁，甚至业务往来的客户都能够轻松交流。现在，不用灌水泡分熬资历，也不用挂网耗时挣积分，Lava-Lava的部落——人人有权建立，一切尽可分享。

超清晰语音通话
Lava-Lava提供5人语音视频功能，让你能随时邀请多个好友一起开心聊个够！周末安排一次出游？还是今晚去哪里FB？赶紧抓起耳麦，呼朋唤友，网上开个会！Lava-Lava还能让你同时召集4个好友视频聊天。不仅能与远在天涯海角的朋友们在网上开个面对面的视频Party，而且画面流畅、语音清晰，让你的沟通更加彻底。

GID绑定e-mail

不知道你的GID，朋友就找不到你？Lava-Lava提供GID与e-mail地址的捆绑功能。只要把常用的e-mail地址和你的GID绑定好。好朋友就可以通过e-mail地址找到你——少记一个号码，多了一种途径。

心情互动
好友心情天天变，昨天耍酷，今天玩可爱，明天又装深沉，真想给她点评点评！Lava-Lava推出心情互动功能，您和好友能评论彼此的心情，让心情也互动起来！你还可以跟其他好友PK一把，看谁的评论最精彩！心情随时变，评论时刻动，Lava-Lava心情互动，让好心情随行你左右。

好友不在线，文件照样传

Lava-Lava将提供文件离线传输功能。当你兴冲冲传给好友一首好歌，对方却因为不在线无法接收。有了Lava-Lava文件离线传输功能，即使对方根本不在线，你也可以照样“想发就发”。

强力黄页搜索
无论是公司还是网吧，无论是隔壁新来的同事还是旁边陌生的PLMM，全能信手联系到。Lava-Lava的“查找本地网络好友”功能。让你可以查找局域网内的所有Lava-Lava用户，“咫尺不再成为天涯”！

头像随手拍
浏览网页时看到喜欢的图片，不用下载也不用保存，一步操作就能将它设置为你的头像。Lava-Lava提供随手拍照功能：随手一拍，图片自动成为头像。任何图片，无论大小，只要你喜欢统统可以拿来做头像，还能添加多种特效。

便捷的文件共享
自己有好东东，当然要和好友一起分享：用Email发给他们——附件太大被拒收；上载到网络硬盘——先得注册太麻烦；用通讯软件传输——挨个发送好辛苦。Lava-Lava的文件共享工具让你和朋友轻松分享任何资源。共享资源的访问权限、密码验证和人员设定在一个窗口里就能轻松搞定，简单的不得了。

不过我现在来说，还是喜欢它的自定标签。呵呵，看看下面的图，我把我的网站放到自定义标签里了：

如果有谁也用它的话,可以加我为好友.
我的Lava号:2492266

Swt常用控件中文教程

webmaster@edongcn.com(E动中国) — Tue,04 Jul 2006 20:46:49 +0800

1、Eclipse中swt的配置
建议配置：jdk1.4.2以及eclipse3.1
在代码中调用swt控件之前，首先建立一个项目，然后选择该项目的properties -> Java Build Path，将standard Widget ToolKit加入到Library页当中。如下图所示：
接下来可以建立第一个eclipse小程序，新建一个class，并且在该class所对应的代码中输入如下程序，其中package以及class名称根据实际情况来确定名称。
package mypakage;
import org.eclipse.swt.widgets.*;
import org.eclipse.swt.*;
/*导入需要的类库*/
public class Myfrm1 {
        public Myfrm1() {
                super();
        }
        public static void main(String[] args) {
                Display display = new Display();
                Shell shell = new Shell(display);
/*shell为一个窗口对象*/
                Label label = new Label(shell, SWT.NONE);
                label.setText("Hello, World!");  /*创建一个标签对象并且设置标题文字*/
label.pack();
                shell.pack();
                shell.open();  /*打开并显示窗口*/

                while(!shell.isDisposed())
                if(!display.readAndDispatch())
                    display.sleep();  /*在窗口没有销毁之前，显示对象一直处于等待状态*/

                display.dispose();  /*否则，销毁对象，释放对象所占据的资源*/
                label.dispose();
        }
}

运行上述代码（run -> debug -> swt application）将产生如下所示的一个窗口

2、button的使用
按钮可能的类型有很多，例如：
SWT.BORDER  含有边框的按钮

SWT.CHECK  复选按钮

SWT.PUSH  普通按钮

SWT.RADIO  单选按钮

3、Text的使用
文本框的类型也有很多种选择，例如：
SWT.BORDER 含有边框

SWT.READ_ONLY 只读

下图为包含按钮以及文本框的窗口

设计上述窗口所对应的代码为：
package mypakage;
import org.eclipse.swt.widgets.*;
import org.eclipse.swt.SWT;
import org.eclipse.swt.events.*;
import org.eclipse.swt.layout.*;
public class Myfrm1 {
        public Myfrm1() {
                super();
        }
        public static void main(String[] args) {
                Display display = new Display( );
        Shell shell = new Shell(display);
        shell.setSize(300, 200);
        shell.setLayout(new RowLayout( ));
        shell.setText("Button Example");
        final Button button = new Button(shell, SWT.BORDER);
        button.setText("Click Me");
        final Text text = new Text(shell, SWT.BORDER);
        shell.open( );

        while(!shell.isDisposed( )) {
               if(!display.readAndDispatch( )) display.sleep( );
        }
        display.dispose( );
        }
}

如果想对控件的位置以及大小进行精确的设置，可以使用setBounds(x, y, width, height)方法来取代shell.setLayout(new RowLayout( ))。例如：button.setBounds(80, 80, 90, 20);

button的监听及事件处理
对按钮单击事件处理的代码：
        button.addSelectionListener(new SelectionListener( )
        {
               public void widgetSelected(SelectionEvent event)
               {
                     text.setText("No worries!");
               }
               public void widgetDefaultSelected(SelectionEvent event)

               {
                     text.setText("No worries!");
               }
        });

将以上代码加入到shell.open之前，当点击按钮时产生以下效果：

分析：由于为button按钮增加了一个监听器，按钮时刻处于被“监控”的状态，当按钮控件被选择（点击）既选择事件发生时，对文本控件进行赋值”No worries”。

根据监听事件的原理，设计如下程序，该程序能够获得鼠标的X坐标，显示在文本框中：

package mypakage;
import org.eclipse.swt.widgets.*;
import org.eclipse.swt.SWT;
import org.eclipse.swt.events.*;
import org.eclipse.swt.layout.*;

public class Myfrm1 {
        public Myfrm1() {
                super();
        }
        public static void main(String[] args) {
                Display display = new Display( );
        Shell shell = new Shell(display);
        shell.setSize(300, 200);
        shell.setLayout(new RowLayout( ));
        final Text text = new Text(shell, SWT.SHADOW_IN);

        shell.addMouseMoveListener(new MouseMoveListener( )
        {
               public void mouseMove(MouseEvent e)
               {
                     Integer y=new Integer(e.x);  /*将x坐标转换为Integer类型的对象*/
                     text.setText(y.toString());
               }
        });

        shell.open( );
        while(!shell.isDisposed( )) {
               if(!display.readAndDispatch( )) display.sleep( );
        }
        display.dispose( );
        }
}

监听方式：
ControlListener 用于处理移动以及尺寸变化

FocusListener 用于处理得到焦点以及失去焦点

KeyListener 处理按键的输入

MouseListener , MouseMoveListener, MouseTrackListener 对鼠标的动作进行处理

SelectionListener 处理控件的选择行为（包括按钮的点击）

注意：监听方式与其所能够处理的事件具有一定的关联性，既监听方式决定了所能够处理事件的种类，例如：

        shell.addMouseListener(new MouseListener( )
        {
                    public void mouseMove(MouseEvent e)
                   {text.setText("mousemove");}
               public void mouseDoubleClick(MouseEvent e)
               {text.setText("mousedbclc");}
               public void mouseDown(MouseEvent e)
               {}
               public void mouseUp(MouseEvent e)
               {}
        });

你会发现在鼠标移动时，text.setText("mousemove");始终不能够执行；并且mouseDown、mouseUp事件不能够省略，原因就在于MouseListener只能处理mouseDoubleClick、mouseDown、mouseUp三类事件，而且这三类事件不能够分离。

3、List控件
List控件的样式包括：
SWT.BORDER 含有边框

SWT.H_SCROLL 含有水平滚动条

SWT.V_SCROLL 含有垂直滚动条

SWT.SINGLE 允许单选

SWT.MULTI 允许复选

若要创建一个含有从11个元素的List，可以通过以下代码来实现
final List list = new List (shell, SWT.SINGLE);
for (int i=0;i<=10;i++)
   list.add("item"+i);

以下实例能够判断List控件中所选择的选项，并且输出显示在控制台中：
package mypakage;
import org.eclipse.swt.widgets.*;
import org.eclipse.swt.SWT;
import org.eclipse.swt.events.*;
import org.eclipse.swt.layout.*;
public class Myfrm1 {
        public Myfrm1() {
                super();
        }
        public static void main(String[] args) {
        Display display = new Display ( );
        Shell shell = new Shell (display);
        shell.setText("List Example");
        shell.setSize(300, 200);
        shell.setLayout(new FillLayout(SWT.VERTICAL));
        final List list = new List (shell, SWT.BORDER | SWT.MULTI | SWT.V_SCROLL);
        for (int loopIndex = 0; loopIndex < 100; loopIndex++){
            list.add("Item " + loopIndex);
           }
        list.addSelectionListener(new SelectionListener( )
        {
           public void widgetSelected(SelectionEvent event)
           {
                int  selections[] = list.getSelectionIndices ( );
                String outText = "";
                for (int loopIndex = 0; loopIndex < selections.length;
                    loopIndex++) outText += selections[loopIndex] + " ";
                System.out.println ("You selected: " + outText);
              }
           public void widgetDefaultSelected(SelectionEvent event)
           {
                int [] selections = list.getSelectionIndices ( );
                String outText = "";
                for (int loopIndex = 0; loopIndex < selections.length; loopIndex++)
                    outText += selections[loopIndex] + " ";
               System.out.println ("You selected: " + outText);
             }
          });
          shell.open ( );
          while (!shell.isDisposed ( )) {
              if (!display.readAndDispatch ( )) display.sleep ( );
          }
          display.dispose ( );
        }
}

效果图：

You selected: 4 5 6 7 8 9 10
分析：list.getSelectionIndices ( )方法将会获得被选择项目的集合， selections[]或者[] elections表示动态一维数组。

4、Menu控件
建立菜单的一般步骤为：
1、在建立菜单时，首先需要建立一个菜单栏，需要使用SWT.BAR属性
Menu menuBar = new Menu(shell, SWT.BAR);

2、在菜单栏的基础之上，创建下拉菜单的所对应的顶级菜单项，需要使用SWT.CASCADE属性
fileMenuHeader = new MenuItem(menuBar, SWT.CASCADE);
fileMenuHeader.setText("&File");

3、建立与顶级菜单项相关的下拉式菜单
dropMenu1 = new Menu(shell, SWT.Drop_DOWN);

4、将顶级菜单项与下拉菜单关联
MenuHeader1.setMenu(dropMenu1);

5、为下拉菜单添加子菜单项
dropitem1= new MenuItem(dropMenu1, SWT.PUSH);
dropitem1.setText("open");
…
…

6、最后，在窗口中指定需要显示的菜单栏
shell.setMenuBar(menuBar);

菜单的监听及事件
参照按钮的监听以及事件，设计如下程序，当点击 File子菜单下的“open”时，在文本框中显示“click open menu!”
dropitem1.addSelectionListener(new SelectionListener()
   {
      public void widgetSelected(SelectionEvent event)
      {
      text.setText("click open menu!");
      }
      public void widgetDefaultSelected(SelectionEvent event)
      {
      text.setText("click open menu!");
      }
   });

5、使用工具栏toobar
建立工具栏可以通过如下方式：ToolBar toolbar = new ToolBar(shell, SWT.NONE);
在工具栏的基础之上创建工具栏子按钮，并且设置子按钮的标题：

ToolItem item1 = new ToolItem(toolbar, SWT.PUSH);
item1.setText("item1");

例如：
        ToolBar toolbar = new ToolBar(shell, SWT.NONE);
        ToolItem item1 = new ToolItem(toolbar, SWT.PUSH);
        item1.setText("item1");
        ToolItem item2 = new ToolItem(toolbar, SWT.PUSH);
        item2.setText("item2");

工具栏的监听及事件
实例：创建一个监听对象，将该监听对象应用于每一个按钮，最终来判断鼠标点击的是哪一个按钮，效果图如下。
            Listener listener = new Listener( ) {
                public void handleEvent(Event event) {
                    ToolItem item =(ToolItem)event.widget;
                    String string = item.getText( );
                    text.setText("You selected:" + string);               }
            };
            item1.addListener(SWT.Selection, listener);
            item2.addListener(SWT.Selection, listener);
            item3.addListener(SWT.Selection, listener);
item4.addListener(SWT.Selection, listener);

6、滚动条slider的使用
滚动条分为有边框、垂直、水平三种类型，利用slider.setBounds方法可以指定滚动条所在的位置。
滚动条所能够处理事件的包括：
SWT.ARROW_DOWN 向下或向右按钮被点击

SWT.ARROW_UP 向左或向上按钮被点击

SWT.DRAG  滑块按钮被托动

SWT.END 滑块到达终点

SWT.HOME 滑块到达起点

SWT.PAGE_DOWN 下方或右侧的滚动条被点击

SWT.PAGE_UP 上方或左侧的滚动条被点击
实例：根据滑块的位置移动按钮位置
        slider.addListener(SWT.Selection, new Listener( ) {

          public void handleEvent(Event event) {

            switch(event.detail) {

               case SWT.ARROW_DOWN: button.setBounds(slider.getSelection(),0,20,10);

                        break;

               case SWT.ARROW_UP:button.setBounds(slider.getSelection(),0,20,10);

                        break;

               case SWT.DRAG:button.setBounds(slider.getSelection(),0,20,10);

                        break;

               case SWT.END:button.setBounds(slider.getSelection(),0,20,10);

                        break;

               case SWT.HOME:button.setBounds(slider.getSelection(),0,20,10);

                        break;

               case SWT.PAGE_DOWN:button.setBounds(slider.getSelection(),0,20,10);

                        break;

               case SWT.PAGE_UP:button.setBounds(slider.getSelection(),0,20,10);

                        break;

                    }
            }

});

7、树形控件Tree
树形控件使用的方法为，首先创建一个Tree类型的对象，其次在该对象的基础之上继续扩展节点，以及扩展节点的子节点。
final Tree  tree = new Tree(shell, SWT.BORDER);
可以利用tree.setSize方法来改变树形控件的大小。在创建节点时，需要指明该节点所依赖的父节点的名称，如TreeItem item0 = new TreeItem(tree, 0);，那么item0将成为tree对象中的0级（顶级）节点。
如下程序将在tree对象的基础之上产生9个节点：
        final Tree tree = new Tree(shell, SWT.BORDER);

        tree.setSize(290, 290);

        for(int loopIndex1 = 2000; loopIndex1 <= 2008; loopIndex1++) {

            TreeItem item0 = new TreeItem(tree, 0);

            item0.setText("Year " + loopIndex1);

        }

在上述实例的基础上为每一个0级节点的基础上扩展出12个节点：
        for(int loopIndex1 = 2000; loopIndex1 <= 2008; loopIndex1++) {

            TreeItem item0 = new TreeItem(tree, 0);

            item0.setText("Year " + loopIndex1);

            for(int loopIndex2 = 1; loopIndex2 <= 12; loopIndex2++) {

                    TreeItem item1 = new TreeItem(item0, 0);

                    item1.setText("Month " + loopIndex2);
            }

        }

8、对话框dialog
对话框是一个依托于主窗体的子窗体，如图所示。

例如：当在主窗体中点击按钮时，弹出一个对话框dialog，当关闭对话框时按钮显示“dialog is disposed”

        Display display = new Display( );

        final Shell shell = new Shell(display);

        shell.setSize(300, 200);

        shell.setText("main");

        final Button opener = new Button(shell, SWT.PUSH);

        opener.setText("Click Me");

        opener.setBounds(20, 20, 50, 25);

        final Shell dialog = new Shell(shell, SWT.APPLICATION_MODAL |

                    SWT.DIALOG_TRIM);

        dialog.setText("dialog");

        dialog.setBounds(10,10,50,60);

        dialog.addDisposeListener(new DisposeListener(){

                public void widgetDisposed(DisposeEvent e){

                opener.setText("dialog is disposed");

                }
        });

        Listener openerListener = new Listener( ) {

            public void handleEvent(Event event) {

                    dialog.open( );

            }

        };

        opener.addListener(SWT.Selection, openerListener);

        shell.open( );

        while(!dialog.isDisposed( )) {

            if(!display.readAndDispatch( )) display.sleep( );

        }

        while (!shell.isDisposed( )) {

            if (!display.readAndDispatch( ))

                display.sleep( );

        }

        display.dispose( );

此帖转自Matrix