_ Partial Class Form1 Inherits System.Windows.Forms.Form 'Form remplace la méthode Dispose pour nettoyer la liste des composants. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Requise par le Concepteur Windows Form Private components As System.ComponentModel.IContainer 'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form 'Elle peut être modifiée à l'aide du Concepteur Windows Form. 'Ne la modifiez pas à l'aide de l'éditeur de code. _ Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1)) Me.TabControl1 = New System.Windows.Forms.TabControl Me.TabPage1 = New System.Windows.Forms.TabPage Me.Button8 = New System.Windows.Forms.Button Me.Label7 = New System.Windows.Forms.Label Me.WebBrowser1 = New System.Windows.Forms.WebBrowser Me.TabPage2 = New System.Windows.Forms.TabPage Me.PictureBox5 = New System.Windows.Forms.PictureBox Me.LinkLabel1 = New System.Windows.Forms.LinkLabel Me.Button3 = New System.Windows.Forms.Button Me.Button2 = New System.Windows.Forms.Button Me.WebBrowser8 = New System.Windows.Forms.WebBrowser Me.WebBrowser2 = New System.Windows.Forms.WebBrowser Me.TabPage8 = New System.Windows.Forms.TabPage Me.Label11 = New System.Windows.Forms.Label Me.Button10 = New System.Windows.Forms.Button Me.WebBrowser12 = New System.Windows.Forms.WebBrowser Me.Label10 = New System.Windows.Forms.Label Me.Button9 = New System.Windows.Forms.Button Me.WebBrowser11 = New System.Windows.Forms.WebBrowser Me.TabPage3 = New System.Windows.Forms.TabPage Me.Button5 = New System.Windows.Forms.Button Me.Button4 = New System.Windows.Forms.Button Me.Label4 = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label Me.WebBrowser6 = New System.Windows.Forms.WebBrowser Me.WebBrowser3 = New System.Windows.Forms.WebBrowser Me.TabPage4 = New System.Windows.Forms.TabPage Me.Button7 = New System.Windows.Forms.Button Me.Button6 = New System.Windows.Forms.Button Me.Label5 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.WebBrowser7 = New System.Windows.Forms.WebBrowser Me.WebBrowser4 = New System.Windows.Forms.WebBrowser Me.TabPage5 = New System.Windows.Forms.TabPage Me.Button11 = New System.Windows.Forms.Button Me.WebBrowser5 = New System.Windows.Forms.WebBrowser Me.TabPage6 = New System.Windows.Forms.TabPage Me.Button12 = New System.Windows.Forms.Button Me.WebBrowser9 = New System.Windows.Forms.WebBrowser Me.TabPage7 = New System.Windows.Forms.TabPage Me.Button13 = New System.Windows.Forms.Button Me.WebBrowser10 = New System.Windows.Forms.WebBrowser Me.Label1 = New System.Windows.Forms.Label Me.PictureBox2 = New System.Windows.Forms.PictureBox Me.Button1 = New System.Windows.Forms.Button Me.Label6 = New System.Windows.Forms.Label Me.PictureBox1 = New System.Windows.Forms.PictureBox Me.Label8 = New System.Windows.Forms.Label Me.Label9 = New System.Windows.Forms.Label Me.PictureBox3 = New System.Windows.Forms.PictureBox Me.PictureBox4 = New System.Windows.Forms.PictureBox Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() Me.TabPage2.SuspendLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage8.SuspendLayout() Me.TabPage3.SuspendLayout() Me.TabPage4.SuspendLayout() Me.TabPage5.SuspendLayout() Me.TabPage6.SuspendLayout() Me.TabPage7.SuspendLayout() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'TabControl1 ' Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage8) Me.TabControl1.Controls.Add(Me.TabPage3) Me.TabControl1.Controls.Add(Me.TabPage4) Me.TabControl1.Controls.Add(Me.TabPage5) Me.TabControl1.Controls.Add(Me.TabPage6) Me.TabControl1.Controls.Add(Me.TabPage7) Me.TabControl1.HotTrack = True Me.TabControl1.Location = New System.Drawing.Point(9, 66) Me.TabControl1.Multiline = True Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 Me.TabControl1.ShowToolTips = True Me.TabControl1.Size = New System.Drawing.Size(1335, 750) Me.TabControl1.TabIndex = 0 ' 'TabPage1 ' Me.TabPage1.Controls.Add(Me.Button8) Me.TabPage1.Controls.Add(Me.Label7) Me.TabPage1.Controls.Add(Me.WebBrowser1) Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) Me.TabPage1.Size = New System.Drawing.Size(1327, 724) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Avis de vigilance FRANCE" Me.TabPage1.UseVisualStyleBackColor = True ' 'Button8 ' Me.Button8.Location = New System.Drawing.Point(1198, 8) Me.Button8.Name = "Button8" Me.Button8.Size = New System.Drawing.Size(119, 23) Me.Button8.TabIndex = 15 Me.Button8.Text = "Réactualiser la page" Me.Button8.UseVisualStyleBackColor = True ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Location = New System.Drawing.Point(1261, 708) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(66, 13) Me.Label7.TabIndex = 11 Me.Label7.Text = "Version 1.5c" ' 'WebBrowser1 ' Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill Me.WebBrowser1.Location = New System.Drawing.Point(3, 3) Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser1.Name = "WebBrowser1" Me.WebBrowser1.ScriptErrorsSuppressed = True Me.WebBrowser1.ScrollBarsEnabled = False Me.WebBrowser1.Size = New System.Drawing.Size(1321, 718) Me.WebBrowser1.TabIndex = 0 Me.WebBrowser1.Url = New System.Uri("http://france.meteofrance.com/vigilance/Accueil", System.UriKind.Absolute) ' 'TabPage2 ' Me.TabPage2.Controls.Add(Me.PictureBox5) Me.TabPage2.Controls.Add(Me.LinkLabel1) Me.TabPage2.Controls.Add(Me.Button3) Me.TabPage2.Controls.Add(Me.Button2) Me.TabPage2.Controls.Add(Me.WebBrowser8) Me.TabPage2.Controls.Add(Me.WebBrowser2) Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Size = New System.Drawing.Size(1327, 724) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Prévisions de phénomènes dangereux" Me.TabPage2.UseVisualStyleBackColor = True ' 'PictureBox5 ' Me.PictureBox5.Image = CType(resources.GetObject("PictureBox5.Image"), System.Drawing.Image) Me.PictureBox5.Location = New System.Drawing.Point(159, 270) Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.Size = New System.Drawing.Size(21, 24) Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.PictureBox5.TabIndex = 13 Me.PictureBox5.TabStop = False ' 'LinkLabel1 ' Me.LinkLabel1.AutoSize = True Me.LinkLabel1.Location = New System.Drawing.Point(186, 275) Me.LinkLabel1.Name = "LinkLabel1" Me.LinkLabel1.Size = New System.Drawing.Size(269, 13) Me.LinkLabel1.TabIndex = 17 Me.LinkLabel1.TabStop = True Me.LinkLabel1.Text = "Carte indisponible sur la version 1.5a/b/c de ce produit." ' 'Button3 ' Me.Button3.Location = New System.Drawing.Point(1198, 8) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(119, 23) Me.Button3.TabIndex = 12 Me.Button3.Text = "Réactualiser la page" Me.Button3.UseVisualStyleBackColor = True ' 'Button2 ' Me.Button2.Location = New System.Drawing.Point(532, 8) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(119, 23) Me.Button2.TabIndex = 11 Me.Button2.Text = "Réactualiser la page" Me.Button2.UseVisualStyleBackColor = True ' 'WebBrowser8 ' Me.WebBrowser8.AccessibleRole = System.Windows.Forms.AccessibleRole.None Me.WebBrowser8.Location = New System.Drawing.Point(672, 37) Me.WebBrowser8.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser8.Name = "WebBrowser8" Me.WebBrowser8.ScrollBarsEnabled = False Me.WebBrowser8.Size = New System.Drawing.Size(645, 660) Me.WebBrowser8.TabIndex = 4 Me.WebBrowser8.Url = New System.Uri("http://meteoalerte.com/france/france.gif?1243239615", System.UriKind.Absolute) ' 'WebBrowser2 ' Me.WebBrowser2.AccessibleRole = System.Windows.Forms.AccessibleRole.None Me.WebBrowser2.Location = New System.Drawing.Point(4, 37) Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser2.Name = "WebBrowser2" Me.WebBrowser2.ScrollBarsEnabled = False Me.WebBrowser2.Size = New System.Drawing.Size(645, 603) Me.WebBrowser2.TabIndex = 3 Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative) ' 'TabPage8 ' Me.TabPage8.Controls.Add(Me.Label11) Me.TabPage8.Controls.Add(Me.Button10) Me.TabPage8.Controls.Add(Me.WebBrowser12) Me.TabPage8.Controls.Add(Me.Label10) Me.TabPage8.Controls.Add(Me.Button9) Me.TabPage8.Controls.Add(Me.WebBrowser11) Me.TabPage8.Location = New System.Drawing.Point(4, 22) Me.TabPage8.Name = "TabPage8" Me.TabPage8.Padding = New System.Windows.Forms.Padding(3) Me.TabPage8.Size = New System.Drawing.Size(1327, 724) Me.TabPage8.TabIndex = 7 Me.TabPage8.Text = "Détection de cellules orageuses" Me.TabPage8.UseVisualStyleBackColor = True ' 'Label11 ' Me.Label11.AutoSize = True Me.Label11.Location = New System.Drawing.Point(669, 12) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(242, 13) Me.Label11.TabIndex = 16 Me.Label11.Text = "Radar précipitations liées à une activité orageuse." ' 'Button10 ' Me.Button10.Location = New System.Drawing.Point(1198, 8) Me.Button10.Name = "Button10" Me.Button10.Size = New System.Drawing.Size(119, 23) Me.Button10.TabIndex = 15 Me.Button10.Text = "Réactualiser la page" Me.Button10.UseVisualStyleBackColor = True ' 'WebBrowser12 ' Me.WebBrowser12.AccessibleRole = System.Windows.Forms.AccessibleRole.None Me.WebBrowser12.Location = New System.Drawing.Point(672, 37) Me.WebBrowser12.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser12.Name = "WebBrowser12" Me.WebBrowser12.ScrollBarsEnabled = False Me.WebBrowser12.Size = New System.Drawing.Size(645, 660) Me.WebBrowser12.TabIndex = 14 Me.WebBrowser12.Url = New System.Uri("http://www.meteorologic.net/map/radar/10_petit.gif", System.UriKind.Absolute) ' 'Label10 ' Me.Label10.AutoSize = True Me.Label10.Location = New System.Drawing.Point(6, 12) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(281, 13) Me.Label10.TabIndex = 13 Me.Label10.Text = "Observations concernant la formation de cellule orageuse." ' 'Button9 ' Me.Button9.Location = New System.Drawing.Point(532, 8) Me.Button9.Name = "Button9" Me.Button9.Size = New System.Drawing.Size(119, 23) Me.Button9.TabIndex = 12 Me.Button9.Text = "Réactualiser la page" Me.Button9.UseVisualStyleBackColor = True ' 'WebBrowser11 ' Me.WebBrowser11.AccessibleRole = System.Windows.Forms.AccessibleRole.None Me.WebBrowser11.Location = New System.Drawing.Point(4, 37) Me.WebBrowser11.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser11.Name = "WebBrowser11" Me.WebBrowser11.ScrollBarsEnabled = False Me.WebBrowser11.Size = New System.Drawing.Size(645, 660) Me.WebBrowser11.TabIndex = 4 Me.WebBrowser11.Url = New System.Uri("http://www.meteorologic.net/map/radar/10orage_petit.gif", System.UriKind.Absolute) ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.Button5) Me.TabPage3.Controls.Add(Me.Button4) Me.TabPage3.Controls.Add(Me.Label4) Me.TabPage3.Controls.Add(Me.Label3) Me.TabPage3.Controls.Add(Me.WebBrowser6) Me.TabPage3.Controls.Add(Me.WebBrowser3) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) Me.TabPage3.Size = New System.Drawing.Size(1327, 724) Me.TabPage3.TabIndex = 2 Me.TabPage3.Text = "Radar impacts de foudre" Me.TabPage3.UseVisualStyleBackColor = True ' 'Button5 ' Me.Button5.Location = New System.Drawing.Point(1198, 8) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(119, 23) Me.Button5.TabIndex = 13 Me.Button5.Text = "Réactualiser la page" Me.Button5.UseVisualStyleBackColor = True ' 'Button4 ' Me.Button4.Location = New System.Drawing.Point(532, 8) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(119, 23) Me.Button4.TabIndex = 12 Me.Button4.Text = "Réactualiser la page" Me.Button4.UseVisualStyleBackColor = True ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(669, 12) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(492, 13) Me.Label4.TabIndex = 5 Me.Label4.Text = "Image fixe de densité des impacts de foudre en France sur 30 minutes. Chaque croi" & _ "x signale un impact." ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(6, 12) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(428, 13) Me.Label3.TabIndex = 4 Me.Label3.Text = "Image fixe d'impacts de foudre en France sur 30 minutes. Chaque croix signale un " & _ "impact." ' 'WebBrowser6 ' Me.WebBrowser6.Location = New System.Drawing.Point(672, 37) Me.WebBrowser6.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser6.Name = "WebBrowser6" Me.WebBrowser6.Size = New System.Drawing.Size(645, 603) Me.WebBrowser6.TabIndex = 3 Me.WebBrowser6.Url = New System.Uri("http://meteocentre.com/lightning/eurfr_freq_zeus.gif", System.UriKind.Absolute) ' 'WebBrowser3 ' Me.WebBrowser3.Location = New System.Drawing.Point(4, 37) Me.WebBrowser3.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser3.Name = "WebBrowser3" Me.WebBrowser3.Size = New System.Drawing.Size(645, 603) Me.WebBrowser3.TabIndex = 2 Me.WebBrowser3.Url = New System.Uri("http://meteocentre.com/lightning/foudrefr_zeus.gif", System.UriKind.Absolute) ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.Button7) Me.TabPage4.Controls.Add(Me.Button6) Me.TabPage4.Controls.Add(Me.Label5) Me.TabPage4.Controls.Add(Me.Label2) Me.TabPage4.Controls.Add(Me.WebBrowser7) Me.TabPage4.Controls.Add(Me.WebBrowser4) Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Name = "TabPage4" Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) Me.TabPage4.Size = New System.Drawing.Size(1327, 724) Me.TabPage4.TabIndex = 3 Me.TabPage4.Text = "Animations radar impacts de foudre" Me.TabPage4.UseVisualStyleBackColor = True ' 'Button7 ' Me.Button7.Location = New System.Drawing.Point(1198, 8) Me.Button7.Name = "Button7" Me.Button7.Size = New System.Drawing.Size(119, 23) Me.Button7.TabIndex = 14 Me.Button7.Text = "Réactualiser la page" Me.Button7.UseVisualStyleBackColor = True ' 'Button6 ' Me.Button6.Location = New System.Drawing.Point(532, 8) Me.Button6.Name = "Button6" Me.Button6.Size = New System.Drawing.Size(119, 23) Me.Button6.TabIndex = 13 Me.Button6.Text = "Réactualiser la page" Me.Button6.UseVisualStyleBackColor = True ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(669, 12) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(368, 13) Me.Label5.TabIndex = 6 Me.Label5.Text = "Animation des impacts de foudre en Europe. Chaque croix signale un impact." ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(6, 12) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(367, 13) Me.Label2.TabIndex = 5 Me.Label2.Text = "Animation des impacts de foudre en France. Chaque croix signale un impact." ' 'WebBrowser7 ' Me.WebBrowser7.Location = New System.Drawing.Point(672, 37) Me.WebBrowser7.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser7.Name = "WebBrowser7" Me.WebBrowser7.Size = New System.Drawing.Size(645, 660) Me.WebBrowser7.TabIndex = 4 Me.WebBrowser7.Url = New System.Uri("http://meteocentre.com/animate.php?lang=fr&zero=1&satdir=/lightning/eur_anim/&sat" & _ "name=eur_zeus&satext=gif&num=48&src=48&title=ZEUS%20EUR%20Animation", System.UriKind.Absolute) ' 'WebBrowser4 ' Me.WebBrowser4.Location = New System.Drawing.Point(4, 37) Me.WebBrowser4.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser4.Name = "WebBrowser4" Me.WebBrowser4.Size = New System.Drawing.Size(645, 660) Me.WebBrowser4.TabIndex = 3 Me.WebBrowser4.Url = New System.Uri("http://meteocentre.com/animate.php?lang=fr&zero=1&satdir=/lightning/fr_anim/&satn" & _ "ame=foudrefr_zeus&satext=gif&num=48&src=48&title=ZEUS%20FR%20Animation", System.UriKind.Absolute) ' 'TabPage5 ' Me.TabPage5.Controls.Add(Me.Button11) Me.TabPage5.Controls.Add(Me.WebBrowser5) Me.TabPage5.Location = New System.Drawing.Point(4, 22) Me.TabPage5.Name = "TabPage5" Me.TabPage5.Padding = New System.Windows.Forms.Padding(3) Me.TabPage5.Size = New System.Drawing.Size(1327, 724) Me.TabPage5.TabIndex = 4 Me.TabPage5.Text = "Image satellite fixe EUROPE" Me.TabPage5.UseVisualStyleBackColor = True ' 'Button11 ' Me.Button11.Location = New System.Drawing.Point(1180, 8) Me.Button11.Name = "Button11" Me.Button11.Size = New System.Drawing.Size(119, 23) Me.Button11.TabIndex = 15 Me.Button11.Text = "Réactualiser la page" Me.Button11.UseVisualStyleBackColor = True ' 'WebBrowser5 ' Me.WebBrowser5.Location = New System.Drawing.Point(3, 3) Me.WebBrowser5.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser5.Name = "WebBrowser5" Me.WebBrowser5.Size = New System.Drawing.Size(1321, 719) Me.WebBrowser5.TabIndex = 4 Me.WebBrowser5.Url = New System.Uri("http://www.wetterzentrale.de/pics/D2u.jpg", System.UriKind.Absolute) ' 'TabPage6 ' Me.TabPage6.Controls.Add(Me.Button12) Me.TabPage6.Controls.Add(Me.WebBrowser9) Me.TabPage6.Location = New System.Drawing.Point(4, 22) Me.TabPage6.Name = "TabPage6" Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) Me.TabPage6.Size = New System.Drawing.Size(1327, 724) Me.TabPage6.TabIndex = 5 Me.TabPage6.Text = "Image satellite fixe FRANCE" Me.TabPage6.UseVisualStyleBackColor = True ' 'Button12 ' Me.Button12.Location = New System.Drawing.Point(1180, 8) Me.Button12.Name = "Button12" Me.Button12.Size = New System.Drawing.Size(119, 23) Me.Button12.TabIndex = 16 Me.Button12.Text = "Réactualiser la page" Me.Button12.UseVisualStyleBackColor = True ' 'WebBrowser9 ' Me.WebBrowser9.Location = New System.Drawing.Point(3, 3) Me.WebBrowser9.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser9.Name = "WebBrowser9" Me.WebBrowser9.Size = New System.Drawing.Size(1321, 719) Me.WebBrowser9.TabIndex = 5 Me.WebBrowser9.Url = New System.Uri("ftp://taurus.caf.dlr.de/put/wetterbilder/France/image1.jpg", System.UriKind.Absolute) ' 'TabPage7 ' Me.TabPage7.Controls.Add(Me.Button13) Me.TabPage7.Controls.Add(Me.WebBrowser10) Me.TabPage7.Location = New System.Drawing.Point(4, 22) Me.TabPage7.Name = "TabPage7" Me.TabPage7.Padding = New System.Windows.Forms.Padding(3) Me.TabPage7.Size = New System.Drawing.Size(1327, 724) Me.TabPage7.TabIndex = 6 Me.TabPage7.Text = "Images satellites animées EUROPE" Me.TabPage7.UseVisualStyleBackColor = True ' 'Button13 ' Me.Button13.Location = New System.Drawing.Point(1180, 8) Me.Button13.Name = "Button13" Me.Button13.Size = New System.Drawing.Size(119, 23) Me.Button13.TabIndex = 16 Me.Button13.Text = "Réactualiser la page" Me.Button13.UseVisualStyleBackColor = True ' 'WebBrowser10 ' Me.WebBrowser10.Location = New System.Drawing.Point(3, 3) Me.WebBrowser10.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser10.Name = "WebBrowser10" Me.WebBrowser10.Size = New System.Drawing.Size(1321, 719) Me.WebBrowser10.TabIndex = 6 Me.WebBrowser10.Url = New System.Uri("http://www.sat24.com/images.php?country=eu&type=zoom&format=640x480001001" & _ "&rnd=845969", System.UriKind.Absolute) ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(35, 18) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(349, 13) Me.Label1.TabIndex = 1 Me.Label1.Text = "Surveillez grâce aux onglets, les évènements métérologiques dangereux." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) ' 'PictureBox2 ' Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image) Me.PictureBox2.Location = New System.Drawing.Point(9, 5) Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.Size = New System.Drawing.Size(27, 38) Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.PictureBox2.TabIndex = 4 Me.PictureBox2.TabStop = False ' 'Button1 ' Me.Button1.Location = New System.Drawing.Point(1128, 13) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(202, 23) Me.Button1.TabIndex = 5 Me.Button1.Text = "Réactualiser les données téléchargées" Me.Button1.UseVisualStyleBackColor = True ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(1126, 35) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(0, 13) Me.Label6.TabIndex = 6 ' 'PictureBox1 ' Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) Me.PictureBox1.Location = New System.Drawing.Point(1101, 13) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(21, 24) Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.PictureBox1.TabIndex = 7 Me.PictureBox1.TabStop = False ' 'Label8 ' Me.Label8.AutoSize = True Me.Label8.Location = New System.Drawing.Point(23, 50) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(58, 13) Me.Label8.TabIndex = 9 Me.Label8.Text = "Prévisions:" ' 'Label9 ' Me.Label9.AutoSize = True Me.Label9.Location = New System.Drawing.Point(358, 50) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(72, 13) Me.Label9.TabIndex = 10 Me.Label9.Text = "Observations:" ' 'PictureBox3 ' Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image) Me.PictureBox3.Location = New System.Drawing.Point(341, 47) Me.PictureBox3.Name = "PictureBox3" Me.PictureBox3.Size = New System.Drawing.Size(20, 19) Me.PictureBox3.TabIndex = 11 Me.PictureBox3.TabStop = False ' 'PictureBox4 ' Me.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Image) Me.PictureBox4.Location = New System.Drawing.Point(7, 47) Me.PictureBox4.Name = "PictureBox4" Me.PictureBox4.Size = New System.Drawing.Size(20, 19) Me.PictureBox4.TabIndex = 12 Me.PictureBox4.TabStop = False ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1350, 825) Me.Controls.Add(Me.PictureBox4) Me.Controls.Add(Me.PictureBox3) Me.Controls.Add(Me.Label9) Me.Controls.Add(Me.Label8) Me.Controls.Add(Me.PictureBox1) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.PictureBox2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.TabControl1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "Form1" Me.Text = "JMC Surveillance métérologique" Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() Me.TabPage2.ResumeLayout(False) Me.TabPage2.PerformLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage8.ResumeLayout(False) Me.TabPage8.PerformLayout() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() Me.TabPage4.ResumeLayout(False) Me.TabPage4.PerformLayout() Me.TabPage5.ResumeLayout(False) Me.TabPage6.ResumeLayout(False) Me.TabPage7.ResumeLayout(False) CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser Friend WithEvents TabPage3 As System.Windows.Forms.TabPage Friend WithEvents TabPage4 As System.Windows.Forms.TabPage Friend WithEvents TabPage5 As System.Windows.Forms.TabPage Friend WithEvents TabPage6 As System.Windows.Forms.TabPage Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox Friend WithEvents WebBrowser3 As System.Windows.Forms.WebBrowser Friend WithEvents WebBrowser6 As System.Windows.Forms.WebBrowser Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents WebBrowser5 As System.Windows.Forms.WebBrowser Friend WithEvents TabPage7 As System.Windows.Forms.TabPage Friend WithEvents WebBrowser7 As System.Windows.Forms.WebBrowser Friend WithEvents WebBrowser4 As System.Windows.Forms.WebBrowser Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Button1 As System.Windows.Forms.Button Public Sub Button1_Click(ByVal refresh As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label6.Text = "> Les données ont été mises à jour..." WebBrowser1.Refresh() WebBrowser2.Refresh() WebBrowser3.Refresh() WebBrowser4.Refresh() WebBrowser5.Refresh() WebBrowser6.Refresh() WebBrowser7.Refresh() WebBrowser8.Refresh() WebBrowser9.Refresh() WebBrowser10.Refresh() WebBrowser11.Refresh() WebBrowser12.Refresh() End Sub Friend WithEvents Label6 As System.Windows.Forms.Label Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click End Sub Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Friend WithEvents WebBrowser2 As System.Windows.Forms.WebBrowser Private Sub WebBrowser2_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser2.DocumentCompleted End Sub Friend WithEvents WebBrowser8 As System.Windows.Forms.WebBrowser Private Sub WebBrowser8_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser8.DocumentCompleted End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Friend WithEvents WebBrowser9 As System.Windows.Forms.WebBrowser Friend WithEvents WebBrowser10 As System.Windows.Forms.WebBrowser Friend WithEvents Label8 As System.Windows.Forms.Label Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click End Sub Friend WithEvents Label9 As System.Windows.Forms.Label Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click End Sub Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents Button2 As System.Windows.Forms.Button Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click WebBrowser2.Refresh() End Sub Friend WithEvents Button3 As System.Windows.Forms.Button Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click WebBrowser8.Refresh() End Sub Friend WithEvents Button4 As System.Windows.Forms.Button Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click WebBrowser3.Refresh() End Sub Friend WithEvents Button5 As System.Windows.Forms.Button Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click WebBrowser5.Refresh() End Sub Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click WebBrowser1.Refresh() End Sub Friend WithEvents Button6 As System.Windows.Forms.Button Private Sub WebBrowser4_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser4.DocumentCompleted End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click WebBrowser4.Refresh() End Sub Friend WithEvents Button7 As System.Windows.Forms.Button Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click WebBrowser7.Refresh() End Sub Friend WithEvents Button8 As System.Windows.Forms.Button Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click WebBrowser1.Refresh() End Sub Friend WithEvents TabPage8 As System.Windows.Forms.TabPage Friend WithEvents WebBrowser11 As System.Windows.Forms.WebBrowser Friend WithEvents Button9 As System.Windows.Forms.Button Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click WebBrowser11.Refresh() End Sub Private Sub WebBrowser9_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser9.DocumentCompleted End Sub Friend WithEvents Label10 As System.Windows.Forms.Label Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click End Sub Friend WithEvents Button10 As System.Windows.Forms.Button Friend WithEvents WebBrowser12 As System.Windows.Forms.WebBrowser Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click WebBrowser12.Refresh() End Sub Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents Button11 As System.Windows.Forms.Button Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click WebBrowser5.Refresh() End Sub Friend WithEvents Button12 As System.Windows.Forms.Button Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click WebBrowser9.Refresh() End Sub Friend WithEvents Button13 As System.Windows.Forms.Button Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click WebBrowser10.Refresh() End Sub Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) End Sub Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel End Class