原文地址:  http://blog.csdn.net/cx08030072/archive/2010/11/23/6030885.aspx 
    最近用JAVA写了个管理系统，用netbeans设计GUI时，想在frame上添加一个背景图片，可是图片放上了怎么也没法在图片上添加控件，我在网上找了很多资料看，写的都很麻烦，有的根本是错的。网上的资料都是用API直接设计，可是复杂的界面这样做很困难，而且效率不高。进过我反复尝试，找到了一个有效的方法。 
    首先，新建一个JFrame窗体文件，在netbeans中打开设计面板。 
    然后，在JFrame上添加一个swing容器jLayeredPane，接着在这个分层窗格中添加一个标签jLable,然后打开属性，修改icon为背景图片，让图片铺满整个窗口。 
    最后，在属性的布局中设置控件的层。这里提供了5个预定义的宏。分别是DEFAULT_LAYER、PALETTE_LAYER、MODAL_LAYER、POPUP_LAYER、DRAG_LAYER。其中DEFAULT_LAYER的层最低，将放有背景图片的jLable的层设置为DEFAULT_LAYER，其他控件设置为别的，保证背景位于最低层。这样就可以在图片背景上添加任何控件了。 
  
 

1 将写好的Javascript代码用chrome打开。 

2 在页面，单击右键，并且选择“审查元素”。 

3 弹出窗体，如图所示： 


然后，点击“Resources”标签，如图所示： 


然后点击“enable resource tracking”,导入源文件，并且选择“Script”标签，如下： 


添加断点的方法就是在所在的代码行的数字上双击即可！！

debug控制方式：

1 首先是刷新调试的网页，即重新载入代码。 

2 此时弹出Jscript标签页面，并且中止在断点处。如下： 

大家好，今天要和大家来做一个小游戏的示例。

我们先来看一下运行效果

 

 

 

没错，今天我们要做一个猜拳小游戏。

 

那下去我们来看一下怎么来制作这个小游戏

01、创建窗体

 

参照下面的表格与图表，在窗体上添加对的控件，可以适当的调整一下


			
控件
			
			

			
控件名称
			
			

			
属性
			
		

			
标签
			
			
 
			

			
标题改成“你出：”
			
		

			
标签
			
			
 
			

			
标题改成“电脑出：”
			
		

			
标签
			
			

			
lblUser
			
			
 
		

			
标签
			
			

			
lblComputer
			
			
 
		

			
标签
			
			

			
lblResult
			
			

			
标题改成“结果”
			
		

			
按钮
			
			

			
btnST
			
			

			
标题改成“石头”
			
		

			
按钮
			
			

			
btnJD
			
			

			
标题改成“剪刀”
			
		

			
按钮
			
			

			
btnB
			
			

			
标题改成“布”
			
		


02、添加代码

这次我换个另类的方法，我们来写几个类，通过调用类来实现我们需要的功能。

第一个类，用户类，用于用户出拳

Option Compare Database
Option Explicit

Private strFistName As String
Public Property Get FistName() As String
    FistName = strFistName
End Property

Public Function ShowFist(fist As String) As String
    strFistName = fist
    Select Case fist
    Case "石头"
        ShowFist = 1
    Case "剪刀"
        ShowFist = 2
    Case "布"
        ShowFist = 3
    End Select
End Function


第二个类，电脑类，用于电脑出拳

Option Compare Database
Option Explicit
Private strFistName As String

Public Property Get FistName() As String
    FistName = strFistName
End Property

Public Function ShowFist() As Integer
    Dim r As Integer
    Randomize
    r = Int((3 * Rnd) + 1)
    Select Case r
    Case 1
        strFistName = "石头"
    Case 2
        strFistName = "剪刀"
    Case 3
        strFistName = "布"

    End Select

    ShowFist = r
End Function


第三个类，裁判类，用于对出拳的结果进行判断

Option Compare Database
Option Explicit

Public Function IsUserWin(user As Integer, computer As Integer) As String
    If user - computer = 0 Then
        IsUserWin = "平局~~~"
    ElseIf user - computer = -1 Or user - computer = 2 Then
         IsUserWin = "你居然赢了…"
    Else
        IsUserWin = "你真菜，你输了！！！"
    End If
End Function


窗体中的代码

Private Sub btnB_Click()
btn Me.btnB.Caption
End Sub

Private Sub btnJD_Click()
btn Me.btnJD.Caption
End Sub

Private Sub btnST_Click()

btn Me.btnST.Caption

End Sub

Private Function btn(strCaption As String)

    Dim ul As New UserPlay
    Dim userFist As Integer
    Dim pc As New ComputerUser
    Dim computerFist As Integer


    userFist = ul.ShowFist(strCaption)
    Me.lblUser.Caption = ul.FistName

    computerFist = pc.ShowFist()
    Me.lblComputer.Caption = pc.FistName

    Dim cp As New CaiPan
    Me.lblResult.Caption = cp.IsUserWin(userFist, computerFist)
End Function

Private Sub Form_Load()
    Me.lblUser.Caption = ""
    Me.lblComputer.Caption = ""
    Me.lblResult.Caption = ""
End Sub


03、运行测试

最后一步就是来运行测试一下

知识点

这里主要的知识点是关于类操作，在面向对象的开发中，自定义类是很常规的操作，关于类的一些特点，像封装、继承、多态大家可以去了解一下，这里我们就不太深入的讲解了。

另外，大家可以关注我的B站，Access开发视频首发都在我的B站：易登Edon,UID10580232