Как вставить часы в панель навигации

[Satan]

Как вставить часы в панель навигации


Открываем navbar ищем:

<if condition="$show['member']">

И выше вставляем:

<!-- начало часов -->
<td class="alt1" align="center">
<embed width="200" height="0"><div class="whitefont">
<font size="1"><div id="clock">Загрузка...</div>
<script type="text/javascript">
function refrClock()
{
var d=new Date();
var s=d.getSeconds();
var m=d.getMinutes();
var h=d.getHours();
var day=d.getDay();
var date=d.getDate();
var month=d.getMonth();
var year=d.getFullYear();
var days=new Array("Воскресенье","Понедельник","Вторник","Среда","Четверг","Пятница","Суббота");
var months=new Array("Января","Февраля","Марта","Апреля","Мая","Июня","Июля","Августа","Сентября","Октября","Ноября","Декабря");
var am_pm;
if (s<10) {s="0" + s}
if (m<10) {m="0" + m}
else {am_pm="am"}
if (h<10) {h="0" + h}
document.getElementById("clock").innerHTML= h + ":" + m + ":" + s + " | " + date + " " + months[month] + ", " + days[day] + ", " + year + " " ;


setTimeout("refrClock()",1000);
}
refrClock();
</script></font>
</object>
</td>
<!-- конец часов -->

выглядят так:

 

[roman66]

Спасибо за труд...а как можно цвет и шрифт менять?

 

[BBOTwiff]

Доброго времени суток всем,

Подскажите пожалуйста,
Как программно вставить OptionButton внутрь рамки?

Пытаюсь сделать вот таким способом:

Private Sub UserForm_Initialize
With UserForm2
Set FrameM1 = .Controls.Add"Forms.Frame.1", "FrameM1", True
With FrameM1
.Left = 20
.Top = 20
.Height = 30
.Width = 300
.Caption = ""
End With
Set OptionButtonM1 = .Controls.Add"Forms.OptionButton.1 ", "OptionButtonM1", True
With OptionButtonM1
.Left = 30
.Top = 30
.Height = 30
.Width = 30
.Caption = ""
End With
End With
End Sub

ошибок не выдает, но рамка размещается поверх OptionButton, и OptionButton не видно даже, подскажите как сделать правильно?