1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148
| <html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>onglets</title>
<style type="text/css">
.OnBack {border-top:#000000 1px solid;
border-left:#000000 1px solid;
border-bottom:#000000 1px solid;}
.OnFront{border-top:#000000 1px solid;
border-left:#000000 1px solid;
}
.Tab {border-top: 0 ;
border-left:#000000 1px solid;
border-right:#000000 1px solid;
border-bottom:#000000 1px solid;
}
body table {font-family: verdana;
font-size: 9px;
}
</style>
<script Language="JavaScript">
function changeOnglet(Num,MyColor)
{
for (i=1; i<5; i++)
{
if (i!=Num){
document.getElementById('Ong'+i).style.display='none';
document.getElementById('Lang'+i).className='OnBack';
}
else {
document.getElementById('Ong'+i).style.display='';
document.getElementById('Lang'+i).className='OnFront';
//document.getElementById('Ong'+i).style.borderBottomColor=MyColor;
}
}
}
</script>
</head>
<body>
<div align="center">
<center>
<table cellpadding="0" cellspacing="0" width="500px" height="186">
<tr>
<td width="25%" style="background-color: yellow; " class="OnFront" id="Lang1" onclick="changeOnglet(1,this.style.backgroundColor);" height="23"> Languette 1</td>
<td width="25%" style="background-color: aqua; " class="OnBack" id="Lang2" onclick="changeOnglet(2,this.style.backgroundColor);" height="23"> Languette 2</td>
<td width="25%" style="background-color: red;" class="OnBack" id="Lang3" onclick="changeOnglet(3,this.style.backgroundColor);" height="23"> Languette 3</td>
<td width="25%" style="background-color: lightgreen; border-right:#000000 1px solid; " class="OnBack" id="Lang4" onclick="changeOnglet(4,this.style.backgroundColor);" height="23"> Languette 4</td>
</tr>
<tr>
<td width="100%" colspan="4" height="350" class="Tab">
<div id="Ong1" style="padding:10px; position:realtive; display:''; top:0; left:0; width:100%; height:100%; background-color:yellow; overflow:auto; font-size:9px;">
Texte 1<br />
<br />
Function SpecialRound(number As Double, Optional BaseModulo As Integer = 1) <br />
<br />
SpecialRound = BaseModulo * ((Int(number + BaseModulo / 2)) \ BaseModulo) <br />
End Function<br />
<br />
<br />
<br />
exemple :<br />
Private Sub Text1_LostFocus() <br />
Text1.Text = Format(Arrondi_5Cts(Text1.Text, 5), "###0.00 FRs") <br />
End Sub <br />
<br />
Function Arrondi_5Cts(Number As Double, Optional BaseModulo As Integer) <br />
Arrondi_5Cts = BaseModulo * (((Int(Number * 100) + BaseModulo / 2)) \ BaseModulo) / 100 <br />
End Function <br />
Texte 1<br />
<br />
Function SpecialRound(number As Double, Optional BaseModulo As Integer = 1) <br />
<br />
SpecialRound = BaseModulo * ((Int(number + BaseModulo / 2)) \ BaseModulo) <br />
End Function<br />
<br />
<br />
<br />
exemple :<br />
Private Sub Text1_LostFocus() <br />
Text1.Text = Format(Arrondi_5Cts(Text1.Text, 5), "###0.00 FRs") <br />
End Sub <br />
<br />
Function Arrondi_5Cts(Number As Double, Optional BaseModulo As Integer) <br />
Arrondi_5Cts = BaseModulo * (((Int(Number * 100) + BaseModulo / 2)) \ BaseModulo) / 100 <br />
End Function <br />
</div>
<div id="Ong2" style="padding:20px; position:realtive; display:none; top:0; left:0; width:100%; height:100%; background-color:aqua; color: blue; ">
TEXTE 2<br />
<table style="border: solid 1px #000000;top:0; left:0; width:100%; ">
<tr>
<td>bxcb</td>
<td>cvbxcb</td>
<td>vcbxcb</td>
</tr>
<tr>
<td>vcbxcbv</td>
<td>cxbvxcb</td>
<td>cvbxcbxcbv</td>
</tr>
<tr>
<td>vcbxcb</td>
<td>xcbvxcb</td>
<td>bxcb</td>
</tr>
</table>
</div>
<div id="Ong3" style="padding:20px; position:realtive; display:none; top:0; left:0; width:100%; height:100%; background-color:red; font-size:9px;">
TexTe 3
Function SpecialRound(number As Double, Optional BaseModulo As Integer = 1)
SpecialRound = BaseModulo * ((Int(number + BaseModulo / 2)) \ BaseModulo)
End Function
exemple :
Private Sub Text1_LostFocus()
Text1.Text = Format(Arrondi_5Cts(Text1.Text, 5), "###0.00 FRs")
End Sub
Function Arrondi_5Cts(Number As Double, Optional BaseModulo As Integer)
Arrondi_5Cts = BaseModulo * (((Int(Number * 100) + BaseModulo / 2)) \ BaseModulo) / 100
End Function
</div>
<div id="Ong4" style="padding:20px; position:realtive; display:none; top:0; left:0; width:100%; height:100%; background-color:lightgreen;">SAMPLE 4</div>
</body> |
Partager