2008 February | Serenity

<html>
<head>
<style>
#a{
border-left:1px #333 solid;
border-right:1px #333 solid;
width:300px;
height:500px;
}
.b{
height:1px;
overflow:hidden;
border-left:1px #333 solid;
border-right:1px #333 solid;
}
</style>
</head>
<body>
<div>
<div class=”b” style=”margin-left:3px;width:294px;background:#333″></div>
<div class=”b” style=”margin-left:2px;width:296px;”></div>
<div class=”b” style=”margin-left:1px;width:298px”></div>
<div id=”a”>

我能做到的，纯DIV+CSS实现的效果，只能这样了。这里是放置内容的地方，观察一下代码的规律，很容易明白。

代码很简单，a层为放置内容的层，其width值为300，然后向外以2像素的宽度递减。最外一层要加上background为个属性，目的是要将上、下两线条呈现出来。

这里实现了3像素的圆角边框，b层的数量决定了要实现多少个像素边框。建议不要多于3层，最好是2层，即2像素圆角边框，或者1层，因为层数越多，圆角的表现就越不圆滑。在firefox IE6 都通过测试。

</div>
<div class=”b” style=”margin-left:1px;width:298px”></div>
<div class=”b” style=”margin-left:2px;width:296px;”></div>
<div class=”b” style=”margin-left:3px;width:294px;background:#333″></div>
</div>
</body>
</html>

* 0 Comments *
Tags: Code, CSS, Div

27

Feb

2008

Written by: Sean | Posted in: Code, Français

Comment vérifier un premier nombre dans VB

See this post in : English Version or Chinese Version

Private Sub Command1_Click()
　r = InputBox(”Entrez un chiffre pour vérifier, SVP”)
　For i = 2 To r
　　　If Val(r) Mod i = 0 And i <> Val(r) Then ‘Ici donne une condition pour les non premiers nombres
　　　　MsgBox (”Ce n’est pas un premier nombre”)
　　　　Exit Sub
　　　End If
　Next i
　MsgBox (”C’est un premier nombre”)
End Sub

Read the rest of this entry »

* 0 Comments *
Tags: Code, premier nombre, VB

27

Feb

2008

Written by: Sean | Posted in: Code, 中文

VB中如何判断是否为质数

See this post in : English Version or French Version

Private Sub Command1_Click()
　r = InputBox(”请输入您要判断的数字”)
　For i = 2 To r
　　　If Val(r) Mod i = 0 And i <> Val(r) Then ‘这里给出了非质数的条件
　　　　MsgBox (”此数为非质数”)
　　　　Exit Sub
　　　End If
　Next i
　MsgBox (”此数为质数”)
End Sub

Read the rest of this entry »

* 0 Comments *
Tags: VB, 质数

27

Feb

2008

Written by: Sean | Posted in: Code, English

How to verify a prime number in VB

See this post in: Chinese Version or French Version

Private Sub Command1_Click()
　r = InputBox(”Enter a number please”) ‘ Enter a number to verify
　For i = 2 To r
　　　If Val(r) Mod i = 0 And i <> Val(r) Then ‘ this phase give a condition which is not a prime number
　　　　MsgBox (”The numbered you entered is not a prime number”)
　　　　Exit Sub
　　　End If
　Next i
　MsgBox (”The numbered you entered is not a prime number”)
End Sub

Read the rest of this entry »