Discussion :

[Invité]

bonjour a tous

j'ai réaliser un petit navigateur ou on peut faire plusieurs onglet
le probleme c'est que je voudrait que tout les tabpages on la meme largeur et hauteur.
dans tabcontrol j'ai éssayer de changer la valeur de ItemSize: 0;30 mais c'est que la hauteur qui change. comment faire pour que tout mes tabpage soit pareille ?
voici le code qui permet de créé plusieurs tabpage:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim Browser As New WebBrowser
        TabControl1.TabPages.Add("New Web Page")
        TabControl1.SelectedTab.Text = "Nouvelle page"
        Browser.Name = "Web Browser"
        Browser.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(Browser)
        AddHandler Browser.ProgressChanged, AddressOf Loading
        AddHandler Browser.DocumentCompleted, AddressOf Done
        int = int + 1
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()

je voulait aussi mettre l'icone du site visité sur la tabpage, mais la je ne trouve pas comment faire

merci d'avance

[The_Big_Lebowski]

Pour ce faire, il faut que tes propriétés .Text aient le même nombre de caractères.

La largeur de l'onglet s'ajuste en fonction du nbre de caractères.

[Invité]

le nom de la page s'inscrie tout seul sur la tabpage donc c'est jamais le meme nombre de caracteres.
par ex: si je navigue sur google la tabpage va se nommer google
si je navigue sur developpez la tabpage va se nommer developpez

[The_Big_Lebowski]

Eh bien il faut que tu écrives une routine qui va "ajuster" la longueur de la chaine affichée.

[Invité]

ah oui pour toujours avoir le même nombre de caracteres

et pour afficher l'icone du site visité aurait tu une idée par ou commencer ?
il faut se servir de imaglist pour sa ?

[The_Big_Lebowski]

Par convention, l'image favicon.ico (représentant l'icone du site) est stockée sur la racine du site internet.
Autrement dit, l'icone de Developpez.com est
http://www.developpez.net/favicon.ico

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
                Dim Img As System.Drawing.Image = Nothing
                Dim request As Net.HttpWebRequest = DirectCast(Net.HttpWebRequest.Create("http://www.developpez.net/favicon.ico"), Net.HttpWebRequest)
                Dim response As Net.HttpWebResponse = DirectCast(request.GetResponse, Net.HttpWebResponse)
                Img = Image.FromStream(response.GetResponseStream())

[The_Big_Lebowski]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub TabControl1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
	Dim url As Uri = New Uri(ToolStripComboBox1.Text)
	If url.HostNameType = UriHostNameType.Dns Then
		Dim iconURL = "http://" & url.Host & "/favicon.ico"
		Dim request As System.Net.WebRequest = System.Net.HttpWebRequest.Create(iconURL)
		Dim response As System.Net.HttpWebResponse = request.GetResponse()
		Dim stream As System.IO.Stream = response.GetResponseStream()
		Dim favicon  as Image
		favicon = Image.FromStream(stream)
		Dim myImages As New ImageList
		myImages.Add(favicon)
		TabControl1.ImageList = myImages
		monTabPage.imageIndex = 0
	End If
End Sub

J'ai fait un test, ça devrait marcher

[Invité]

sur cette ligne il me souligne monTabPage.imageIndex = 0 et me dit
que monTabPage n'est pas déclarer alors j'ai changer en Tabpage puis la il me dit:

Une référence à un membre non partagé requiert une référence d'objet.

puis aussi il souligne: myImages.Add(favicon) et il me dit sa:

'Add' n'est pas un membre de 'System.Windows.Forms.ImageList'

[The_Big_Lebowski]

Me disais aussi, y a quelque chose de bizarre à utiliser l'évènement SelectedIndexChanged. A mon avis, c'est pas sur cet event qu'il faut travailler mais bon, c'est toi qui vois.
1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myImages.Images.Add(favicon)

Tu aurais pu faire un effort et trouver toi même
2.

sur cette ligne il me souligne monTabPage.imageIndex = 0 et me dit
que monTabPage n'est pas déclarer

Bah oui, je ne sais pas comment tu gères ton tabPage moi, j'ai donné un nom comme ca, c'est à toi d'y mettre un nom valide.
tu devrais avoir un truc comme ça à la place

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sender.selectedTab.ImageIndex = 0

[Invité]

oui je l'avait trouvé avant mais je n'est pas réctifier ma réponse

avec se code sa marche l'icone s'ajoute bien dans ma tabpage mais elle s'ajoute a toute les tabpage quand je clique dessus
et aussi j'ai toujours la meme icone, quand je navigue sur 3 site diférents c'est l'icone du dernier site qui s'affiche sur tout les tabpages
voila le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub TabControl1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
        Dim url As Uri = New Uri(ToolStripComboBox1.Text)
        If url.HostNameType = UriHostNameType.Dns Then
            Dim iconURL = "http://" & url.Host & "/favicon.ico"
            Dim request As System.Net.WebRequest = System.Net.HttpWebRequest.Create(iconURL)
            Dim response As System.Net.HttpWebResponse = request.GetResponse()
            Dim stream As System.IO.Stream = response.GetResponseStream()
            Dim favicon As Image
            favicon = Image.FromStream(stream)
            Dim myImages As New ImageList
            myImages.Images.Add(favicon)
            TabControl1.ImageList = myImages
            sender.selectedTab.ImageIndex = 0
        End If
    End Sub

[The_Big_Lebowski]

Avec ce que je t'ai donné, tu as toutes les informations pour arriver à tes fins.
Raisonne un peu.
1. Je pense que tu es sur le mauvais évènement.
2. L'imageList est recréée à chaque fois. Tu n'as forcément qu'une seule icone qui y est associée. Revois la portée de ton imageList.