Code : Tout sélectionner
'Démarrage de l'application = chargement d'une page par défaut
Private Sub Form_Load()
Me.Caption = "Navigateur Internet"
Me.BackColor = RGB(0, 0, 0)
WebBrowser1.Navigate2 ("www.google.fr")
End Sub
'Tailles du navigateur = tailles de la fenêtre
Private Sub Form_Resize()
WebBrowser1.Width = Me.Width - 100 'voir aussi Me.scaleWidth
WebBrowser1.Height = Me.Height - 100 'voir aussi Me.scaleHeight
End SubComment le faire ??Il y'a l'objet ActiveX "Internet Browser" basé sur Internet Explorer qui est un cadre d'affichage de pages Web que tu peux programmer par ton application vb exécutable.
Code : Tout sélectionner
<html>
<head>
<title>Mon Navigateur Web</title>
</head>
<body>
<iframe src="http://www.google.fr" frameborder="0" width="100%" height="100%"></iframe>
</body>
</html>Code : Tout sélectionner
<body style="margin:0px;padding:0px">Code : Tout sélectionner
<script type="text/Javascript">
window.resizeTo(screen.width,screen.height);
window.moveTo(0,0);
</script>Code : Tout sélectionner
<html>
<head>
<title>Star Battle Front</title>
<HTA:APPLICATION APPLICATIONNAME="Star Battle Front">
<HTA:APPLICATION BORDER="none">
<HTA:APPLICATION ICON="icone.ico">
<HTA:APPLICATION CAPTION="No">
<HTA:APPLICATION NAVIGABLE="No">
<HTA:APPLICATION SCROLL="No">
</head>
<body style="margin:0px;padding:0px" bgcolor="#000000">
<iframe src="http://www.google.fr" frameborder="0" width="100%" height="100%"></iframe>
<script type="text/Javascript">
window.resizeTo(screen.width,screen.height);
window.moveTo(0,0);
</script>
</body>
</html>
Code : Tout sélectionner
<html>
<head><!--
fullscreen but with title bar:
caption = "yes"
-->
<hta:application
showintaskbar = "yes"
caption = "no" f
border = "thick"
contextmenu = "yes"
scroll = "no"
innerborder = "no"
singleinstance = "yes"
resizable = "yes"
windowState = "maximize"
navigable = "yes"
>
<title>.:: Albums ::.</title>
<STYLE TYPE="text/css">
<!-- @import url(css.css); -->
</style>
<script type="text/javascript">
var fso=new ActiveXObject("Scripting.FileSystemObject");
var tbl = new Array;
var nomimage= '';
var imgnbr = 0;
var yesno = 0;
var albumselected = 0;
var intval="";
function Aller()
{
var url = unescape(self.location.pathname);
var adr = (fso.GetExtensionName(url).toLowerCase()!='hta')?1:0;
var dir = fso.GetParentFolderName(url).substr(adr);
i = 0;
tbl['0'] = '';
f = fso.GetFolder(dir);
var f2 = new Enumerator(f.subfolders);
for(; !f2.atEnd(); f2.moveNext())
{
i++;
tbl[i] = '<form name="form'+i+'"><select name="liste'+i+'" size="1" onChange="chitem('+i+')"><option value="0">Sélectionner une photo</option>';
document.write("<option value=\""+foldername(f2.item())+"\">"+foldername(f2.item())+"</option>");
ff = fso.GetFolder(f2.item());
var f1 = new Enumerator(ff.files);
var y = 0;
for(; !f1.atEnd(); f1.moveNext())
{
if (fso.GetExtensionName(f1.item()) == "jpg"||fso.GetExtensionName(f1.item()) == "JPG") {
y++;
tbl[i] += '<option value="'+f1.item()+'">'+fso.GetFileName(f1.item())+'</option>';
}
}
tbl[i] += '</select></form>';
}
}
function foldername(str){
var str1 = str+"";
var reg = new RegExp("[\\\\]+", "g");
tableau = str1.split(reg);
return tableau[tableau.length-1];
}
function chitem(num){
obj = document.forms['form'+num].elements['liste'+num].options[document.forms['form'+num].elements['liste'+num].selectedIndex];
nomphoto = obj.value;
if(obj.value == 0){
document.image.document.body.innerHTML = '';
document.getElementById('image').style.display = 'none';
document.getElementById('mylink').style.display = 'none';
document.getElementById('prec').style.display = 'none';
document.getElementById('suiv').style.display = 'none';
}
else{
document.getElementById('mylink').style.display = '';
imgnbr = document.forms['form'+num].elements['liste'+num].selectedIndex;
document.getElementById('prec').style.display = 'none';
if(imgnbr>1){
document.getElementById('prec').style.display = '';
}
aa = imgnbr;
aa++;
document.getElementById('suiv').style.display = 'none';
if(document.forms['form'+albumselected].elements['liste'+albumselected].options[aa]){
document.getElementById('suiv').style.display = '';
}
document.getElementById('image').style.display = '';
document.getElementById('mylink').innerHTML = "taille réelle";
yesno=0;
document.image.document.body.innerHTML = "<img height=\"100%\" src=\""+obj.value+"\"/>";
document.getElementById('txtdiv').innerHTML = "<object data=\""+document.forms['albform'].albums.options[albumselected].value+"/"+fso.GetFileName(obj.value)+".txt\" type=\"text/plain\" width=\"400px\" height=\"90px\" ViewAsText></object>";
//if(!fso.FileExists(obj.value+".txt"))
//{
// fso.CreateTextFile(obj.value+".txt");
//}
}
}
function chliste(form){
document.getElementById('image').style.display = 'none';
document.image.document.body.innerHTML = '';
document.getElementById('mylink').style.display = 'none';
document.getElementById('prec').style.display = 'none';
document.getElementById('suiv').style.display = 'none';
document.getElementById('diaplink').innerHTML = "start";
window.clearInterval(intval);
intval = "";
i = form.albums.selectedIndex;
albumselected = i;
if(i!=0){
document.getElementById('controle').style.display = '';
document.getElementById('diaplink').style.display = '';
}
else{
document.getElementById('controle').style.display = 'none';
document.getElementById('diaplink').style.display = 'none';
}
document.getElementById('mydiv').innerHTML = tbl[i];
}
function grand(){
if(yesno==0){
document.image.document.body.innerHTML = "<img src=\""+nomphoto+"\"/>";
yesno=1;
document.getElementById('mylink').innerHTML = "taille réduite";
}
else{
document.image.document.body.innerHTML = "<img height=\"100%\" src=\""+nomphoto+"\"/>";
yesno=0;
document.getElementById('mylink').innerHTML = "taille réelle";
}
}
function diapo(){
myobj = document.forms['form'+albumselected].elements['liste'+albumselected].options;
imgnbr++;
if(myobj[imgnbr]){
document.forms['form'+albumselected].elements['liste'+albumselected].selectedIndex = imgnbr;
chitem(albumselected);
}
else{
imgnbr=1;
document.forms['form'+albumselected].elements['liste'+albumselected].selectedIndex = imgnbr;
chitem(albumselected);
}
}
function prec(){
myobj = document.forms['form'+albumselected].elements['liste'+albumselected].options;
imgnbr--;
if(imgnbr==0){
imgnbr=1;
}
else{
if(myobj[imgnbr]){
document.forms['form'+albumselected].elements['liste'+albumselected].selectedIndex = imgnbr;
chitem(albumselected);
}
else{
imgnbr++;
}
}
}
function suiv(){
myobj = document.forms['form'+albumselected].elements['liste'+albumselected].options;
imgnbr++;
if(myobj[imgnbr]){
document.forms['form'+albumselected].elements['liste'+albumselected].selectedIndex = imgnbr;
chitem(albumselected);
}
else{
imgnbr--;
}
}
function start_Int(){
if(intval==""){
diapo();
intval=window.setInterval("diapo()",2000);
document.getElementById('diaplink').innerHTML = "stop";
}else{
window.clearInterval(intval);
intval="";
document.getElementById('diaplink').innerHTML = "start";
}
}
</script>
</head>
<body>
<div style="position:absolute;right:2px;top:2px;"><img src="fermer.jpg" style="width: 16px; height: 14px;" onclick="top.window.close()"/></div>
<form name="albform">
<select name="albums" size="1" onChange="chliste(this.form)"><option>Sélectionner un album</option>
<script type="text/javascript">
Aller();
</script>
</select></form>
<div id=mydiv></div>
<div style="" id="txtdiv"></div>
<div id="controle" style="display:none;">
<a id="diaplink" style="display:none;" href="javascript:void('0')" onClick="start_Int()">start</a>
<a id="prec" style="display:none;" href="javascript:void('0')" onClick="prec()">précédente</a>
<a id="suiv" style="display:none;" href="javascript:void('0')" onClick="suiv()">suivante</a>
<a id="mylink" style="display:none;" href="javascript:void('0')" onClick="grand()">taille réelle</a>
</div>
<iframe name="image" id="image" allowTransparency="true" style="display:none;"></iframe>
</body>
</html>
Code : Tout sélectionner
<html>
<head>
<title>Star Battle Front</title>
<HTA:APPLICATION APPLICATIONNAME="Star Battle Front">
<HTA:APPLICATION BORDER="none">
<HTA:APPLICATION ICON="icone.ico">
<HTA:APPLICATION CAPTION="No">
<HTA:APPLICATION NAVIGABLE="No">
<HTA:APPLICATION SCROLL="No">
<script type="text/Javascript">
window.resizeTo(screen.width,screen.height);
window.moveTo(0,0);
</script>
</head>
<body style="margin:0px;padding:0px; background-color:#000000;">
<iframe src="http://www.google.fr" frameborder="0" width="100%" height="100%" style="border:0px;"></iframe>
</body>
</html>Code : Tout sélectionner
INNERBORDER="No"