Pour régler le pt'it blème du message précédent faudrait - lors de l'ouverture de form1 - simuler un clic sur un bouton qui ouvrira un formulaire qui doit se fermer juste après, tous ça invisiblement.
Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown If Form6.RadioButton1.Checked = True Then ' Se produit dès que form1 s'ouvre la première fois TextBox1.Text = "Google" End If If Form6.RadioButton2.Checked = True Then TextBox1.Text = "Yahoo!" End If If IsNumeric(Form6.TextBox1.Text) AndAlso _ CInt(Form6.TextBox1.Text) < 401 And _ CInt(Form6.TextBox1.Text) > 0 Then zoom = CInt(Form6.TextBox1.Text) ' Pour la textbox réglable manuellement Call WebBrowserZoom(zoom) Else Form6.TextBox1.Text = zoom End If End Sub
Est-ce que la variable zoom et initialisé à ce moment la ? Est-ce qu'elle a la dernière valeur enregistré ?
Private Enum Exec OLECMDID_OPTICAL_ZOOM = 63 End Enum Private Enum ExecOpt OLECMDEXECOPT_DODEFAULT = 0 OLECMDEXECOPT_PROMPTUSER = 1 OLECMDEXECOPT_DONTPROMPTUSER = 2 OLECMDEXECOPT_SHOWHELP = 3 End Enum Dim zoom As Integer = 100 Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click PictureBox10.Enabled = True If zoom < 400 Then zoom += 20 WebBrowserZoom(zoom) If zoom 400 Then PictureBox9.Enabled False End If End Sub Private Sub PictureBox10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.Click PictureBox9.Enabled = True If zoom > 20 Then zoom -= 20 WebBrowserZoom(zoom) If zoom 20 Then PictureBox10.Enabled False End If End Sub Private Sub WebBrowserZoom(ByVal zoom As Integer) Try Dim MyWeb As Object = Me.WebBrowser1.ActiveXInstance 'Comportement étrange, il faut laisser le Cint(zoom) pour ne pas avoir d'exception, du moins chez moi, or le zoom est déclaré Int32 plus haut... MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, ExecOpt.OLECMDEXECOPT_DONTPROMPTUSER, CInt(zoom), IntPtr.Zero) Catch ex As Exception End Try End Sub Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown If Form6.RadioButton1.Checked = True Then ' Se produit dès que form1 s'ouvre la première fois TextBox1.Text = "Google" End If If Form6.RadioButton2.Checked = True Then TextBox1.Text = "Yahoo!" End If If IsNumeric(Form6.TextBox1.Text) AndAlso _ CInt(Form6.TextBox1.Text) < 401 And _ CInt(Form6.TextBox1.Text) > 0 Then zoom = CInt(Form6.TextBox1.Text) ' Pour la textbox réglable manuellement Call WebBrowserZoom(zoom) Else Form6.TextBox1.Text = zoom End If End Sub Private Shared myTimer As New System.Windows.Forms.Timer() Private Shared exitFlag As Boolean = False Private Shared Sub TimerEventProcessor(ByVal myObject As Object, _ ByVal myEventArgs As EventArgs) myTimer.Stop() ' 3 secondes sont passées alors 100% d'opacité pour form1 Form1.Opacity = 100 End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.GoHome() AddHandler myTimer.Tick, AddressOf TimerEventProcessor ' 3 secondes avant que l'opacité redevienne normale myTimer.Interval = 3000 myTimer.Start() Application.DoEvents() Form6.Opacity = 0 Form6.Show()
Private Enum Exec OLECMDID_OPTICAL_ZOOM = 63 End Enum Private Enum ExecOpt OLECMDEXECOPT_DODEFAULT = 0 OLECMDEXECOPT_PROMPTUSER = 1 OLECMDEXECOPT_DONTPROMPTUSER = 2 OLECMDEXECOPT_SHOWHELP = 3 End Enum Private Sub WebBrowserZoom(ByVal zoom As Integer) Try Dim MyWeb As Object = Form1.WebBrowser1.ActiveXInstance 'Comportement étrange, il faut laisser le Cint(zoom) pour ne pas avoir d'exception, du moins chez moi, or le zoom est déclaré Int32 plus haut... MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, ExecOpt.OLECMDEXECOPT_DONTPROMPTUSER, CInt(zoom), IntPtr.Zero) Catch ex As Exception End Try End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If IsNumeric(TextBox1.Text) AndAlso _ CInt(TextBox1.Text) < 401 And _ CInt(TextBox1.Text) > 0 Then zoom = CInt(TextBox1.Text) ' Pour la textbox réglable manuellement Call WebBrowserZoom(zoom) Else TextBox1.Text = zoom End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim zoom As Integer = 100
Call WebBrowserZoom(zoom)
Option Explicit On Imports System.IO Imports Microsoft.Win32 Public Class Form6 Public writer As StreamWriter Dim fichier As String Dim zoom As Integer = 100 Private Sub Form6_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing céation_fichier() fichier = My.Application.Info.DirectoryPath & "\Textvalue.ini" 'chemin du fichier texte Dim monStreamWriter As StreamWriter = New StreamWriter(fichier) monStreamWriter.WriteLine(CheckBox1.Checked.ToString) monStreamWriter.WriteLine(CheckBox2.Checked.ToString) monStreamWriter.WriteLine(RadioButton1.Checked.ToString) monStreamWriter.WriteLine(TextBox1.Text) monStreamWriter.WriteLine(ComboBox1.Text) 'Fermeture du StreamWriter (Trés important) monStreamWriter.Close() End Sub Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load fichier = My.Application.Info.DirectoryPath & "\Textvalue.ini" Dim monStreamReader As StreamReader = New System.IO.StreamReader(fichier) 'Stream pour la lecture avec caractères accentués du fichier If monStreamReader.ReadLine = "True" Then CheckBox1.Checked = True Else CheckBox1.Checked = False End If If monStreamReader.ReadLine = "True" Then CheckBox2.Checked = True Else CheckBox2.Checked = False End If If monStreamReader.ReadLine = "True" Then RadioButton1.Checked = True Else RadioButton2.Checked = True End If TextBox1.Text = monStreamReader.ReadLine ComboBox1.Text = monStreamReader.ReadLine 'Fermeture du StreamReader (Trés important) monStreamReader.Close() End Sub Private Sub céation_fichier() ' creer un nouveau fichier Dim path As String = (Application.StartupPath & "\Textvalue.ini") If IO.File.Exists(path) Then Exit Sub Else IO.File.Create(Application.StartupPath & "\Textvalue.ini") End If End Sub
My.Settings.zomm
My.Setting.Save