onjour,
C'est un script de visualisation de fichier .ipt http://www.via-creation.serveftp.com/3 [...] /3dview.html
Le souci enfin ce qui m'ennuien, c'est qu'il faut cliquer sur parcourir et que çà m'amène sur le disque dur. j'aimerais "parcourir les répertoire du site plutôt.
Je pense aussi qu'il est possible de référencer un fichier .ipt avec les balise <param> ou <object>.
Citation :
Pourriez vous m'aider ?
merci
<head>
<title>3d</title>
</head>
<BODY>
<FORM ID="TestForm" LANGUAGE="VBScript">
<table style-class="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 border=1><tr><td>
<blockquote>
<BOLD>File:</BOLD>
<input type="file" size="40" NAME="BrowseFile"></td></tr>
<tr><td align=right><INPUT NAME="OpenButton" TYPE="Button" VALUE="Open"></td></tr>
<tr><td><INPUT NAME="PerspectiveButton" TYPE="Button" Value ="Perspective">
<INPUT NAME="LargerButton" TYPE="Button" VALUE="Larger">
<INPUT NAME="SmallerButton" TYPE="Button" VALUE="Smaller"> <INPUT name="cbInteractive" value ="Interactive"
type="CheckBox">Interactive</td></tr>
<tr><td><INPUT NAME="ShadedButton" TYPE="Radio"> Shaded View
<INPUT NAME="HiddenButton" TYPE="Radio"> Hidden Line
<INPUT NAME="WireframeButton" TYPE="Radio"> Wireframe</td></tr></table></blockquote>
</FORM>
<object classid="CLSID:A6336AB8-D3E1-489A-8186-EE40F2E027FE" id=ViewerControl1 width=1024 height=765>
<param name="_Version" value=65536> <param name="_ExtentX" value=13229>
<param name="_ExtentY" value=7938> <param name="_StockProps" value=0>
</object>
<SCRIPT LANGUAGE="VBScript">
Sub PerspectiveButton_OnClick()
Dim TheForm
Set TheForm = Document.Forms("TestForm" )
If ViewerControl1.Perspective Then
TheForm.PerspectiveButton.Value = "Orthographic"
ViewerControl1.Perspective = False
Else
TheForm.PerspectiveButton.Value = "Perspective"
ViewerControl1.Perspective = True
End If
End Sub
Sub LargerButton_OnClick()
ViewerControl1.Width = ViewerControl1.Width * 1.1
ViewerControl1.Height = ViewerControl1.Height * 1.1
End Sub
Sub SmallerButton_OnClick()
ViewerControl1.Width = ViewerControl1.Width * 0.9
ViewerControl1.Height = ViewerControl1.Height * 0.9
End Sub
Sub OpenButton_OnClick()
Dim TheForm
Set TheForm = Document.Forms("TestForm" )
ViewerControl1.Filename = TheForm.BrowseFile.Value
TheForm.ShadedButton.checked = true
TheForm.cbInteractive.checked = true
End Sub
Sub ShadedButton_OnClick()
Dim TheForm
Set TheForm = Document.Forms("TestForm" )
TheForm.HiddenButton.checked = False
TheForm.WireframeButton.checked = False
ViewerControl1.DisplayMode = 8708
End Sub
Sub HiddenButton_OnClick()
Dim TheForm
Set TheForm = Document.Forms("TestForm" )
TheForm.ShadedButton.checked = False
TheForm.WireframeButton.checked = False
ViewerControl1.DisplayMode = 8707
End Sub
Sub WireframeButton_OnClick()
Dim TheForm
Set TheForm = Document.Forms("TestForm" )
TheForm.ShadedButton.checked = False
TheForm.HiddenButton.checked = False
ViewerControl1.DisplayMode = 8706
End Sub
Sub cbInteractive_OnClick()
Dim TheForm
Set TheForm = Document.Forms("TestForm" )
if TheForm.cbInteractive.checked = False then
ViewerControl1.Interactive = false
else
ViewerControl1.Interactive = true
end if
End Sub
</SCRIPT>
</BODY></HTML>
|
---------------
ploum ploum tralala
