<script language="javascript" type="text/javascript">
function button1click() {
TestControl.LCaption="d:\fallen\card[1].rtf";
}
</script>
<body>
<form>
<input name="Button1" type="button" value="печать" onclick="button1click();">
</form>
</body>
работа с ОСХ
Всем привет.
Помогите кто может.
У меня есть осх. как сделать так чтобы при нажатии кнопки в html в осх передавался некий параметр и затем использюя его осх выполняла то что в ней описывается.
Помогите кто может.
У меня есть осх. как сделать так чтобы при нажатии кнопки в html в осх передавался некий параметр и затем использюя его осх выполняла то что в ней описывается.
Нужно повесить скрипт на обработчик нажатия кнопки и в нем можно будет обращаться к свойствам и методам ocx. Вроде как-то так...
я создаю свое свойство LCaption.
далее описываю его
/////////////////////////////////////
function TAFTest.Get_LCaption: WideString;
begin
Result:=Label1.Caption;
end;
procedure TAFTest.Set_LCaption(const Value: WideString);
begin
Label1.Caption:=Value;
end;
/////////////////////////////////////
затем создаю событие связанное с нажатием кнопки Button1
создаю метод OnBtClick
/////////////////////////////////////
procedure TAFTest.Button1Click(Sender: TObject);
begin
if FEvents <> nil then FEvents.OnBtClick;
end;
/////////////////////////////////////
изменяю html с добавлением
<HEAD>
<script LANGUAGE="VBScript">
<!--
Sub TestControl_OnBtClick
TestControl.LCaption="Run"
End Sub
-->
</SCRIPT>
</HEAD>
все работает просто замечательно
но нужно чтобы кнопка была htmlовская
как сделать так чтобы при нажатие на нее
выполнялось LCaption?
далее описываю его
/////////////////////////////////////
function TAFTest.Get_LCaption: WideString;
begin
Result:=Label1.Caption;
end;
procedure TAFTest.Set_LCaption(const Value: WideString);
begin
Label1.Caption:=Value;
end;
/////////////////////////////////////
затем создаю событие связанное с нажатием кнопки Button1
создаю метод OnBtClick
/////////////////////////////////////
procedure TAFTest.Button1Click(Sender: TObject);
begin
if FEvents <> nil then FEvents.OnBtClick;
end;
/////////////////////////////////////
изменяю html с добавлением
<HEAD>
<script LANGUAGE="VBScript">
<!--
Sub TestControl_OnBtClick
TestControl.LCaption="Run"
End Sub
-->
</SCRIPT>
</HEAD>
все работает просто замечательно
но нужно чтобы кнопка была htmlовская
как сделать так чтобы при нажатие на нее
выполнялось LCaption?
А у html кнопки обработчика типа OnClick нету что-ли? (я просто не совсем в теме по html, но думаю, что такой обработчик должен быть)
можно сделать кнопку
<bodu>
<form Name="Print">
<input type="Button" Value="Печать" onClick=" ">
</form>
проблема в том как потом запустить Lcaption
<bodu>
<form Name="Print">
<input type="Button" Value="Печать" onClick=" ">
</form>
проблема в том как потом запустить Lcaption
<HTML>
<HEAD>
<script LANGUAGE="VBScript">
<!--
Sub Button1_OnClick
TestControl.LCaption="d:\fallen\card[1].rtf"
End Sub
-->
</SCRIPT>
</HEAD>
<OBJECT
classid="clsid:C8D30A57-BB77-4201-94AE-1E7305D48915"
codebase="http://proba/proba.ocx#version=1,0,0,0"
id=TestControl
width=0
height=0
align=center
hspace=0
vspace=0
>
</OBJECT>
<bodu>
<FORM><INPUT NAME="Button1" TYPE="BUTTON"
VALUE="печать"></FORM>
</BODY>
</HTML>
все работает просто замечательно
но проблема в том что кнопка должна создаваться на JavaScript
а у меня на VBScript, как исправить?
<HEAD>
<script LANGUAGE="VBScript">
<!--
Sub Button1_OnClick
TestControl.LCaption="d:\fallen\card[1].rtf"
End Sub
-->
</SCRIPT>
</HEAD>
<OBJECT
classid="clsid:C8D30A57-BB77-4201-94AE-1E7305D48915"
codebase="http://proba/proba.ocx#version=1,0,0,0"
id=TestControl
width=0
height=0
align=center
hspace=0
vspace=0
>
</OBJECT>
<bodu>
<FORM><INPUT NAME="Button1" TYPE="BUTTON"
VALUE="печать"></FORM>
</BODY>
</HTML>
все работает просто замечательно
но проблема в том что кнопка должна создаваться на JavaScript
а у меня на VBScript, как исправить?
когда мы начнем код оформлять? или пожаловаться модераторам?
Цитата: f-a-l-l-e-n
...но проблема в том что кнопка должна создаваться на JavaScript
а у меня на VBScript, как исправить?
а у меня на VBScript, как исправить?
Блин, а что сложного то[FONT=monospace][FONT=Verdana]?
Код:
+ бегом курить маны :)
[/FONT][/FONT]
makbeth
спасибо, я уже сделал и забыл об этом сказать, но все равно спасибо.
спасибо, я уже сделал и забыл об этом сказать, но все равно спасибо.