INPUTBOX PERSONNALISABLE AVEC LE CODE SOURCE VB

Commentaire de Londonic le 14/09/2009 16:17:27

'Rem J'aimerais bien retrouver le code ou j'ai pompé ce truc, mais ça marche.

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class toto
    Inherits System.Windows.Forms.UserControl


    Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
    'Requise par le Concepteur Windows Form
    Private components As System.ComponentModel.IContainer
    'Form remplace la méthode Dispose pour nettoyer la liste des composants.
    <System.Diagnostics.DebuggerNonUserCode()> _
    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

    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser
        Me.SuspendLayout()
        '
        'WebBrowser1
        '
        Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.WebBrowser1.Location = New System.Drawing.Point(0, 0)
        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
        Me.WebBrowser1.Name = "WebBrowser1"
        Me.WebBrowser1.Size = New System.Drawing.Size(284, 264)
        Me.WebBrowser1.TabIndex = 0
        '
        'toto
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.Controls.Add(Me.WebBrowser1)
        Me.Name = "toto"
        Me.Size = New System.Drawing.Size(284, 264)
        Me.ResumeLayout(False)

    End Sub


End Class



Public Class toto


    Sub New()
        InitializeComponent()
        WebBrowser1.Navigate("http://bt.my.yahoo.com/")
    End Sub

End Class