modifier script vb de visualisation de fichier
modifier script vb de visualisation de fichier - VB/VBA/VBS - Programmation
Sujets relatifs:
- Configurez les propriétés API pour contrôler un fichier dans la page W
- j'ai un pb d'insertion de lignes dans un fichier
- Gestion de fichier sur site web
- [C#] Copier un fichier sur un ordinateur distant
- [VB] Copie fichier TXT vers fichier TXT : Perte mise en forme
- Que fais ce script trouvé à la racine du dossier windows?
- [PHP] script contenu site
- tris dans un fichier
- [VBA] Copier un fichier en mode "Valeur"
- [Résolu][VBA] Ouvrir un fichier dans le même processus
Marsh Posté le 11-04-2008 à 16:52:26
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>.
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